packages feed

ghcjs-dom-javascript 0.9.9.3 → 0.10.0.0

raw patch · 1614 files changed

+111010/−70447 lines, 1614 filesdep ~ghcjs-base

Dependency ranges changed: ghcjs-base

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

Files

+ ChangeLog.md view
@@ -0,0 +1,7 @@+# Revision history for ghcjs-dom-javascript++See ghcjs-dom's ChangeLog.md (the ghcjs-dom packages are released together).++## 0.10.0.0++* Regenerated by dom-gen from current specifications; see ghcjs-dom 0.10.0.0.
ghcjs-dom-javascript.cabal view
@@ -1,1237 +1,2927 @@ cabal-version: 3.6 name: ghcjs-dom-javascript-version: 0.9.9.3-build-type: Simple-license: MIT-license-file: LICENSE-maintainer: Hamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>-synopsis: DOM library using JSFFI and GHCJS-description: Documentent Object Model (DOM) functions that work with-             GHCJS.-author: Hamish Mackenzie-category: Web--Tested-With:-  GHC == 8.8.1 || == 8.6.5 ||  == 8.4.4 || == 8.2.2 || == 8.0.2 || == 7.10.3,-  GHCJS == 8.4 || == 8.2--Source-Repository head-  type:         git-  location:     https://github.com/ghcjs/ghcjs-dom-  subdir:       ghcjs-dom-javascript--library-    build-depends: base <5,-                   transformers >=0.2 && <0.7,-                   text >= 0.11.0.6 && < 2.2,-                   ghcjs-base >=0.8.0.0 && <0.9,-                   ghc-prim--    default-language: Haskell2010--    if impl(ghcjs)-        other-extensions: JavaScriptFFI-        build-depends: ghcjs-prim--    hs-source-dirs: src-    cpp-options: -DUSE_JAVASCRIPTFFI-    exposed: True-    if impl(ghcjs) || arch(javascript)-        buildable: True-    else-        buildable: False-    js-sources: jsbits/xhr.js--    exposed-modules:-          GHCJS.DOM-          GHCJS.DOM.Types-          GHCJS.DOM.EventM-          GHCJS.DOM.EventTargetClosures-          GHCJS.DOM.Internal--          GHCJS.DOM.JSFFI.AudioContext-          GHCJS.DOM.JSFFI.Database-          GHCJS.DOM.JSFFI.DOMError-          GHCJS.DOM.JSFFI.Geolocation-          GHCJS.DOM.JSFFI.Navigator-          GHCJS.DOM.JSFFI.NavigatorUserMediaError-          GHCJS.DOM.JSFFI.PositionError-          GHCJS.DOM.JSFFI.RTCPeerConnectionError-          GHCJS.DOM.JSFFI.SpeechGrammar-          GHCJS.DOM.JSFFI.SpeechRecognition-          GHCJS.DOM.JSFFI.SpeechRecognitionError-          GHCJS.DOM.JSFFI.SpeechRecognitionEvent-          GHCJS.DOM.JSFFI.SQLError-          GHCJS.DOM.JSFFI.SQLTransaction-          GHCJS.DOM.JSFFI.Window-          GHCJS.DOM.JSFFI.XMLHttpRequest--          -- (cd ghcjs-dom-javascript/src/GHCJS/DOM/JSFFI/Generated && ls | sed 's|\(^.*\)\.hs|          GHCJS.DOM.JSFFI.Generated.\1|' | pbcopy)-          GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays-          GHCJS.DOM.JSFFI.Generated.AbstractWorker-          GHCJS.DOM.JSFFI.Generated.AnalyserNode-          GHCJS.DOM.JSFFI.Generated.Animatable-          GHCJS.DOM.JSFFI.Generated.Animation-          GHCJS.DOM.JSFFI.Generated.AnimationEvent-          GHCJS.DOM.JSFFI.Generated.ApplePayError-          GHCJS.DOM.JSFFI.Generated.ApplePayPaymentAuthorizedEvent-          GHCJS.DOM.JSFFI.Generated.ApplePayPaymentMethodSelectedEvent-          GHCJS.DOM.JSFFI.Generated.ApplePaySession-          GHCJS.DOM.JSFFI.Generated.ApplePayShippingContactSelectedEvent-          GHCJS.DOM.JSFFI.Generated.ApplePayShippingMethodSelectedEvent-          GHCJS.DOM.JSFFI.Generated.ApplePayValidateMerchantEvent-          GHCJS.DOM.JSFFI.Generated.ApplicationCache-          GHCJS.DOM.JSFFI.Generated.Attr-          GHCJS.DOM.JSFFI.Generated.AudioBuffer-          GHCJS.DOM.JSFFI.Generated.AudioBufferCallback-          GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode-          GHCJS.DOM.JSFFI.Generated.AudioContext-          GHCJS.DOM.JSFFI.Generated.AudioDestinationNode-          GHCJS.DOM.JSFFI.Generated.AudioListener-          GHCJS.DOM.JSFFI.Generated.AudioNode-          GHCJS.DOM.JSFFI.Generated.AudioParam-          GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent-          GHCJS.DOM.JSFFI.Generated.AudioTrack-          GHCJS.DOM.JSFFI.Generated.AudioTrackList-          GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent-          GHCJS.DOM.JSFFI.Generated.BarProp-          GHCJS.DOM.JSFFI.Generated.BasicCredential-          GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent-          GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent-          GHCJS.DOM.JSFFI.Generated.BiquadFilterNode-          GHCJS.DOM.JSFFI.Generated.Blob-          GHCJS.DOM.JSFFI.Generated.BlobCallback-          GHCJS.DOM.JSFFI.Generated.Body-          GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy-          GHCJS.DOM.JSFFI.Generated.CSS-          GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent-          GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule-          GHCJS.DOM.JSFFI.Generated.CSSImportRule-          GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule-          GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule-          GHCJS.DOM.JSFFI.Generated.CSSMediaRule-          GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule-          GHCJS.DOM.JSFFI.Generated.CSSPageRule-          GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue-          GHCJS.DOM.JSFFI.Generated.CSSRule-          GHCJS.DOM.JSFFI.Generated.CSSRuleList-          GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration-          GHCJS.DOM.JSFFI.Generated.CSSStyleRule-          GHCJS.DOM.JSFFI.Generated.CSSStyleSheet-          GHCJS.DOM.JSFFI.Generated.CSSSupportsRule-          GHCJS.DOM.JSFFI.Generated.CSSValue-          GHCJS.DOM.JSFFI.Generated.CSSValueList-          GHCJS.DOM.JSFFI.Generated.CanvasCaptureMediaStreamTrack-          GHCJS.DOM.JSFFI.Generated.CanvasGradient-          GHCJS.DOM.JSFFI.Generated.CanvasPath-          GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D-          GHCJS.DOM.JSFFI.Generated.CharacterData-          GHCJS.DOM.JSFFI.Generated.ChildNode-          GHCJS.DOM.JSFFI.Generated.ClipboardEvent-          GHCJS.DOM.JSFFI.Generated.CloseEvent-          GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost-          GHCJS.DOM.JSFFI.Generated.Comment-          GHCJS.DOM.JSFFI.Generated.CompositionEvent-          GHCJS.DOM.JSFFI.Generated.ConvolverNode-          GHCJS.DOM.JSFFI.Generated.Coordinates-          GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy-          GHCJS.DOM.JSFFI.Generated.Counter-          GHCJS.DOM.JSFFI.Generated.Crypto-          GHCJS.DOM.JSFFI.Generated.CryptoKey-          GHCJS.DOM.JSFFI.Generated.CustomElementRegistry-          GHCJS.DOM.JSFFI.Generated.CustomEvent-          GHCJS.DOM.JSFFI.Generated.DOMError-          GHCJS.DOM.JSFFI.Generated.DOMException-          GHCJS.DOM.JSFFI.Generated.DOMImplementation-          GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection-          GHCJS.DOM.JSFFI.Generated.DOMParser-          GHCJS.DOM.JSFFI.Generated.DOMPoint-          GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly-          GHCJS.DOM.JSFFI.Generated.DOMRect-          GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly-          GHCJS.DOM.JSFFI.Generated.DOMStringList-          GHCJS.DOM.JSFFI.Generated.DOMStringMap-          GHCJS.DOM.JSFFI.Generated.DOMTokenList-          GHCJS.DOM.JSFFI.Generated.DataCue-          GHCJS.DOM.JSFFI.Generated.DataTransfer-          GHCJS.DOM.JSFFI.Generated.DataTransferItem-          GHCJS.DOM.JSFFI.Generated.DataTransferItemList-          GHCJS.DOM.JSFFI.Generated.Database-          GHCJS.DOM.JSFFI.Generated.DatabaseCallback-          GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope-          GHCJS.DOM.JSFFI.Generated.DelayNode-          GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent-          GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent-          GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent-          GHCJS.DOM.JSFFI.Generated.Document-          GHCJS.DOM.JSFFI.Generated.DocumentAndElementEventHandlers-          GHCJS.DOM.JSFFI.Generated.DocumentFragment-          GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot-          GHCJS.DOM.JSFFI.Generated.DocumentTimeline-          GHCJS.DOM.JSFFI.Generated.DocumentType-          GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode-          GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax-          GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic-          GHCJS.DOM.JSFFI.Generated.EXTsRGB-          GHCJS.DOM.JSFFI.Generated.Element-          GHCJS.DOM.JSFFI.Generated.ElementCSSInlineStyle-          GHCJS.DOM.JSFFI.Generated.Enums-          GHCJS.DOM.JSFFI.Generated.ErrorEvent-          GHCJS.DOM.JSFFI.Generated.Event-          GHCJS.DOM.JSFFI.Generated.EventListener-          GHCJS.DOM.JSFFI.Generated.EventSource-          GHCJS.DOM.JSFFI.Generated.EventTarget-          GHCJS.DOM.JSFFI.Generated.File-          GHCJS.DOM.JSFFI.Generated.FileError-          GHCJS.DOM.JSFFI.Generated.FileException-          GHCJS.DOM.JSFFI.Generated.FileList-          GHCJS.DOM.JSFFI.Generated.FileReader-          GHCJS.DOM.JSFFI.Generated.FileReaderSync-          GHCJS.DOM.JSFFI.Generated.FocusEvent-          GHCJS.DOM.JSFFI.Generated.FontFace-          GHCJS.DOM.JSFFI.Generated.FontFaceSet-          GHCJS.DOM.JSFFI.Generated.FormData-          GHCJS.DOM.JSFFI.Generated.GainNode-          GHCJS.DOM.JSFFI.Generated.Gamepad-          GHCJS.DOM.JSFFI.Generated.GamepadButton-          GHCJS.DOM.JSFFI.Generated.GamepadEvent-          GHCJS.DOM.JSFFI.Generated.Geolocation-          GHCJS.DOM.JSFFI.Generated.Geoposition-          GHCJS.DOM.JSFFI.Generated.GlobalCrypto-          GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers-          GHCJS.DOM.JSFFI.Generated.GlobalPerformance-          GHCJS.DOM.JSFFI.Generated.HTMLAllCollection-          GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement-          GHCJS.DOM.JSFFI.Generated.HTMLAppletElement-          GHCJS.DOM.JSFFI.Generated.HTMLAreaElement-          GHCJS.DOM.JSFFI.Generated.HTMLAttachmentElement-          GHCJS.DOM.JSFFI.Generated.HTMLBRElement-          GHCJS.DOM.JSFFI.Generated.HTMLBaseElement-          GHCJS.DOM.JSFFI.Generated.HTMLBodyElement-          GHCJS.DOM.JSFFI.Generated.HTMLButtonElement-          GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement-          GHCJS.DOM.JSFFI.Generated.HTMLCollection-          GHCJS.DOM.JSFFI.Generated.HTMLDListElement-          GHCJS.DOM.JSFFI.Generated.HTMLDataElement-          GHCJS.DOM.JSFFI.Generated.HTMLDataListElement-          GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement-          GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement-          GHCJS.DOM.JSFFI.Generated.HTMLDivElement-          GHCJS.DOM.JSFFI.Generated.HTMLDocument-          GHCJS.DOM.JSFFI.Generated.HTMLElement-          GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement-          GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement-          GHCJS.DOM.JSFFI.Generated.HTMLFontElement-          GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection-          GHCJS.DOM.JSFFI.Generated.HTMLFormElement-          GHCJS.DOM.JSFFI.Generated.HTMLFrameElement-          GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement-          GHCJS.DOM.JSFFI.Generated.HTMLHRElement-          GHCJS.DOM.JSFFI.Generated.HTMLHeadElement-          GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement-          GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement-          GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils-          GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement-          GHCJS.DOM.JSFFI.Generated.HTMLImageElement-          GHCJS.DOM.JSFFI.Generated.HTMLInputElement-          GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement-          GHCJS.DOM.JSFFI.Generated.HTMLLIElement-          GHCJS.DOM.JSFFI.Generated.HTMLLabelElement-          GHCJS.DOM.JSFFI.Generated.HTMLLegendElement-          GHCJS.DOM.JSFFI.Generated.HTMLLinkElement-          GHCJS.DOM.JSFFI.Generated.HTMLMapElement-          GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement-          GHCJS.DOM.JSFFI.Generated.HTMLMediaElement-          GHCJS.DOM.JSFFI.Generated.HTMLMenuElement-          GHCJS.DOM.JSFFI.Generated.HTMLMetaElement-          GHCJS.DOM.JSFFI.Generated.HTMLMeterElement-          GHCJS.DOM.JSFFI.Generated.HTMLModElement-          GHCJS.DOM.JSFFI.Generated.HTMLOListElement-          GHCJS.DOM.JSFFI.Generated.HTMLObjectElement-          GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement-          GHCJS.DOM.JSFFI.Generated.HTMLOptionElement-          GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection-          GHCJS.DOM.JSFFI.Generated.HTMLOutputElement-          GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement-          GHCJS.DOM.JSFFI.Generated.HTMLParamElement-          GHCJS.DOM.JSFFI.Generated.HTMLPreElement-          GHCJS.DOM.JSFFI.Generated.HTMLProgressElement-          GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement-          GHCJS.DOM.JSFFI.Generated.HTMLScriptElement-          GHCJS.DOM.JSFFI.Generated.HTMLSelectElement-          GHCJS.DOM.JSFFI.Generated.HTMLSlotElement-          GHCJS.DOM.JSFFI.Generated.HTMLSourceElement-          GHCJS.DOM.JSFFI.Generated.HTMLStyleElement-          GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement-          GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement-          GHCJS.DOM.JSFFI.Generated.HTMLTableColElement-          GHCJS.DOM.JSFFI.Generated.HTMLTableElement-          GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement-          GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement-          GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement-          GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement-          GHCJS.DOM.JSFFI.Generated.HTMLTimeElement-          GHCJS.DOM.JSFFI.Generated.HTMLTitleElement-          GHCJS.DOM.JSFFI.Generated.HTMLTrackElement-          GHCJS.DOM.JSFFI.Generated.HTMLUListElement-          GHCJS.DOM.JSFFI.Generated.HTMLVideoElement-          GHCJS.DOM.JSFFI.Generated.HashChangeEvent-          GHCJS.DOM.JSFFI.Generated.Headers-          GHCJS.DOM.JSFFI.Generated.History-          GHCJS.DOM.JSFFI.Generated.IDBCursor-          GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue-          GHCJS.DOM.JSFFI.Generated.IDBDatabase-          GHCJS.DOM.JSFFI.Generated.IDBFactory-          GHCJS.DOM.JSFFI.Generated.IDBIndex-          GHCJS.DOM.JSFFI.Generated.IDBKeyRange-          GHCJS.DOM.JSFFI.Generated.IDBObjectStore-          GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest-          GHCJS.DOM.JSFFI.Generated.IDBRequest-          GHCJS.DOM.JSFFI.Generated.IDBTransaction-          GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent-          GHCJS.DOM.JSFFI.Generated.ImageData-          GHCJS.DOM.JSFFI.Generated.InputEvent-          GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost-          GHCJS.DOM.JSFFI.Generated.IntersectionObserver-          GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback-          GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry-          GHCJS.DOM.JSFFI.Generated.KeyboardEvent-          GHCJS.DOM.JSFFI.Generated.KeyframeEffect-          GHCJS.DOM.JSFFI.Generated.Location-          GHCJS.DOM.JSFFI.Generated.MediaController-          GHCJS.DOM.JSFFI.Generated.MediaControlsHost-          GHCJS.DOM.JSFFI.Generated.MediaDeviceInfo-          GHCJS.DOM.JSFFI.Generated.MediaDevices-          GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode-          GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent-          GHCJS.DOM.JSFFI.Generated.MediaError-          GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent-          GHCJS.DOM.JSFFI.Generated.MediaKeySession-          GHCJS.DOM.JSFFI.Generated.MediaKeyStatusMap-          GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess-          GHCJS.DOM.JSFFI.Generated.MediaKeys-          GHCJS.DOM.JSFFI.Generated.MediaList-          GHCJS.DOM.JSFFI.Generated.MediaQueryList-          GHCJS.DOM.JSFFI.Generated.MediaQueryListListener-          GHCJS.DOM.JSFFI.Generated.MediaRemoteControls-          GHCJS.DOM.JSFFI.Generated.MediaSession-          GHCJS.DOM.JSFFI.Generated.MediaSource-          GHCJS.DOM.JSFFI.Generated.MediaStream-          GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode-          GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode-          GHCJS.DOM.JSFFI.Generated.MediaStreamEvent-          GHCJS.DOM.JSFFI.Generated.MediaStreamTrack-          GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent-          GHCJS.DOM.JSFFI.Generated.MessageChannel-          GHCJS.DOM.JSFFI.Generated.MessageEvent-          GHCJS.DOM.JSFFI.Generated.MessagePort-          GHCJS.DOM.JSFFI.Generated.MimeType-          GHCJS.DOM.JSFFI.Generated.MimeTypeArray-          GHCJS.DOM.JSFFI.Generated.MouseEvent-          GHCJS.DOM.JSFFI.Generated.MutationEvent-          GHCJS.DOM.JSFFI.Generated.MutationObserver-          GHCJS.DOM.JSFFI.Generated.MutationRecord-          GHCJS.DOM.JSFFI.Generated.NamedNodeMap-          GHCJS.DOM.JSFFI.Generated.Navigator-          GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware-          GHCJS.DOM.JSFFI.Generated.NavigatorID-          GHCJS.DOM.JSFFI.Generated.NavigatorLanguage-          GHCJS.DOM.JSFFI.Generated.NavigatorOnLine-          GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaError-          GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback-          GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback-          GHCJS.DOM.JSFFI.Generated.Node-          GHCJS.DOM.JSFFI.Generated.NodeFilter-          GHCJS.DOM.JSFFI.Generated.NodeIterator-          GHCJS.DOM.JSFFI.Generated.NodeList-          GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode-          GHCJS.DOM.JSFFI.Generated.NonElementParentNode-          GHCJS.DOM.JSFFI.Generated.Notification-          GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback-          GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives-          GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat-          GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject-          GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent-          GHCJS.DOM.JSFFI.Generated.OfflineAudioContext-          GHCJS.DOM.JSFFI.Generated.OscillatorNode-          GHCJS.DOM.JSFFI.Generated.OverconstrainedError-          GHCJS.DOM.JSFFI.Generated.OverconstrainedErrorEvent-          GHCJS.DOM.JSFFI.Generated.OverflowEvent-          GHCJS.DOM.JSFFI.Generated.PageTransitionEvent-          GHCJS.DOM.JSFFI.Generated.PannerNode-          GHCJS.DOM.JSFFI.Generated.ParentNode-          GHCJS.DOM.JSFFI.Generated.PasswordCredential-          GHCJS.DOM.JSFFI.Generated.Path2D-          GHCJS.DOM.JSFFI.Generated.Performance-          GHCJS.DOM.JSFFI.Generated.PerformanceEntry-          GHCJS.DOM.JSFFI.Generated.PerformanceNavigation-          GHCJS.DOM.JSFFI.Generated.PerformanceObserver-          GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback-          GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList-          GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming-          GHCJS.DOM.JSFFI.Generated.PerformanceTiming-          GHCJS.DOM.JSFFI.Generated.Plugin-          GHCJS.DOM.JSFFI.Generated.PluginArray-          GHCJS.DOM.JSFFI.Generated.PopStateEvent-          GHCJS.DOM.JSFFI.Generated.PositionCallback-          GHCJS.DOM.JSFFI.Generated.PositionError-          GHCJS.DOM.JSFFI.Generated.PositionErrorCallback-          GHCJS.DOM.JSFFI.Generated.ProcessingInstruction-          GHCJS.DOM.JSFFI.Generated.ProgressEvent-          GHCJS.DOM.JSFFI.Generated.PromiseRejectionEvent-          GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement-          GHCJS.DOM.JSFFI.Generated.RGBColor-          GHCJS.DOM.JSFFI.Generated.RTCDTMFSender-          GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent-          GHCJS.DOM.JSFFI.Generated.RTCDataChannel-          GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent-          GHCJS.DOM.JSFFI.Generated.RTCIceCandidate-          GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent-          GHCJS.DOM.JSFFI.Generated.RTCIceTransport-          GHCJS.DOM.JSFFI.Generated.RTCPeerConnection-          GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEvent-          GHCJS.DOM.JSFFI.Generated.RTCRtpReceiver-          GHCJS.DOM.JSFFI.Generated.RTCRtpSender-          GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver-          GHCJS.DOM.JSFFI.Generated.RTCSessionDescription-          GHCJS.DOM.JSFFI.Generated.RTCTrackEvent-          GHCJS.DOM.JSFFI.Generated.RadioNodeList-          GHCJS.DOM.JSFFI.Generated.Range-          GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController-          GHCJS.DOM.JSFFI.Generated.ReadableStream-          GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReader-          GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBRequest-          GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController-          GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader-          GHCJS.DOM.JSFFI.Generated.ReadableStreamSource-          GHCJS.DOM.JSFFI.Generated.Rect-          GHCJS.DOM.JSFFI.Generated.Request-          GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback-          GHCJS.DOM.JSFFI.Generated.Response-          GHCJS.DOM.JSFFI.Generated.SQLError-          GHCJS.DOM.JSFFI.Generated.SQLException-          GHCJS.DOM.JSFFI.Generated.SQLResultSet-          GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList-          GHCJS.DOM.JSFFI.Generated.SQLStatementCallback-          GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback-          GHCJS.DOM.JSFFI.Generated.SQLTransaction-          GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback-          GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback-          GHCJS.DOM.JSFFI.Generated.SVGAElement-          GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement-          GHCJS.DOM.JSFFI.Generated.SVGAngle-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedString-          GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList-          GHCJS.DOM.JSFFI.Generated.SVGAnimationElement-          GHCJS.DOM.JSFFI.Generated.SVGCircleElement-          GHCJS.DOM.JSFFI.Generated.SVGClipPathElement-          GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement-          GHCJS.DOM.JSFFI.Generated.SVGCursorElement-          GHCJS.DOM.JSFFI.Generated.SVGElement-          GHCJS.DOM.JSFFI.Generated.SVGEllipseElement-          GHCJS.DOM.JSFFI.Generated.SVGException-          GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired-          GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement-          GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement-          GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement-          GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement-          GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement-          GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement-          GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement-          GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement-          GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement-          GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement-          GHCJS.DOM.JSFFI.Generated.SVGFEImageElement-          GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement-          GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement-          GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement-          GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement-          GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement-          GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement-          GHCJS.DOM.JSFFI.Generated.SVGFETileElement-          GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement-          GHCJS.DOM.JSFFI.Generated.SVGFilterElement-          GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes-          GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox-          GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement-          GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement-          GHCJS.DOM.JSFFI.Generated.SVGGradientElement-          GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement-          GHCJS.DOM.JSFFI.Generated.SVGImageElement-          GHCJS.DOM.JSFFI.Generated.SVGLength-          GHCJS.DOM.JSFFI.Generated.SVGLengthList-          GHCJS.DOM.JSFFI.Generated.SVGLineElement-          GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement-          GHCJS.DOM.JSFFI.Generated.SVGMarkerElement-          GHCJS.DOM.JSFFI.Generated.SVGMaskElement-          GHCJS.DOM.JSFFI.Generated.SVGMatrix-          GHCJS.DOM.JSFFI.Generated.SVGNumber-          GHCJS.DOM.JSFFI.Generated.SVGNumberList-          GHCJS.DOM.JSFFI.Generated.SVGPathElement-          GHCJS.DOM.JSFFI.Generated.SVGPathSeg-          GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs-          GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel-          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs-          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel-          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs-          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel-          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs-          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel-          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs-          GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel-          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs-          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs-          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel-          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel-          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs-          GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel-          GHCJS.DOM.JSFFI.Generated.SVGPathSegList-          GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs-          GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel-          GHCJS.DOM.JSFFI.Generated.SVGPatternElement-          GHCJS.DOM.JSFFI.Generated.SVGPoint-          GHCJS.DOM.JSFFI.Generated.SVGPointList-          GHCJS.DOM.JSFFI.Generated.SVGPolygonElement-          GHCJS.DOM.JSFFI.Generated.SVGPolylineElement-          GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio-          GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement-          GHCJS.DOM.JSFFI.Generated.SVGRect-          GHCJS.DOM.JSFFI.Generated.SVGRectElement-          GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent-          GHCJS.DOM.JSFFI.Generated.SVGSVGElement-          GHCJS.DOM.JSFFI.Generated.SVGScriptElement-          GHCJS.DOM.JSFFI.Generated.SVGStopElement-          GHCJS.DOM.JSFFI.Generated.SVGStringList-          GHCJS.DOM.JSFFI.Generated.SVGStyleElement-          GHCJS.DOM.JSFFI.Generated.SVGTests-          GHCJS.DOM.JSFFI.Generated.SVGTextContentElement-          GHCJS.DOM.JSFFI.Generated.SVGTextPathElement-          GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement-          GHCJS.DOM.JSFFI.Generated.SVGTransform-          GHCJS.DOM.JSFFI.Generated.SVGTransformList-          GHCJS.DOM.JSFFI.Generated.SVGURIReference-          GHCJS.DOM.JSFFI.Generated.SVGUnitTypes-          GHCJS.DOM.JSFFI.Generated.SVGUseElement-          GHCJS.DOM.JSFFI.Generated.SVGViewElement-          GHCJS.DOM.JSFFI.Generated.SVGViewSpec-          GHCJS.DOM.JSFFI.Generated.SVGZoomAndPan-          GHCJS.DOM.JSFFI.Generated.SVGZoomEvent-          GHCJS.DOM.JSFFI.Generated.Screen-          GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode-          GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent-          GHCJS.DOM.JSFFI.Generated.Selection-          GHCJS.DOM.JSFFI.Generated.ShadowRoot-          GHCJS.DOM.JSFFI.Generated.SiteBoundCredential-          GHCJS.DOM.JSFFI.Generated.Slotable-          GHCJS.DOM.JSFFI.Generated.SourceBuffer-          GHCJS.DOM.JSFFI.Generated.SourceBufferList-          GHCJS.DOM.JSFFI.Generated.SpeechSynthesis-          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent-          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance-          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice-          GHCJS.DOM.JSFFI.Generated.StaticRange-          GHCJS.DOM.JSFFI.Generated.Storage-          GHCJS.DOM.JSFFI.Generated.StorageErrorCallback-          GHCJS.DOM.JSFFI.Generated.StorageEvent-          GHCJS.DOM.JSFFI.Generated.StorageInfo-          GHCJS.DOM.JSFFI.Generated.StorageQuota-          GHCJS.DOM.JSFFI.Generated.StorageQuotaCallback-          GHCJS.DOM.JSFFI.Generated.StorageUsageCallback-          GHCJS.DOM.JSFFI.Generated.StringCallback-          GHCJS.DOM.JSFFI.Generated.StyleMedia-          GHCJS.DOM.JSFFI.Generated.StyleSheet-          GHCJS.DOM.JSFFI.Generated.StyleSheetList-          GHCJS.DOM.JSFFI.Generated.SubtleCrypto-          GHCJS.DOM.JSFFI.Generated.Text-          GHCJS.DOM.JSFFI.Generated.TextDecoder-          GHCJS.DOM.JSFFI.Generated.TextEncoder-          GHCJS.DOM.JSFFI.Generated.TextEvent-          GHCJS.DOM.JSFFI.Generated.TextMetrics-          GHCJS.DOM.JSFFI.Generated.TextTrack-          GHCJS.DOM.JSFFI.Generated.TextTrackCue-          GHCJS.DOM.JSFFI.Generated.TextTrackCueList-          GHCJS.DOM.JSFFI.Generated.TextTrackList-          GHCJS.DOM.JSFFI.Generated.TimeRanges-          GHCJS.DOM.JSFFI.Generated.Touch-          GHCJS.DOM.JSFFI.Generated.TouchEvent-          GHCJS.DOM.JSFFI.Generated.TouchList-          GHCJS.DOM.JSFFI.Generated.TrackEvent-          GHCJS.DOM.JSFFI.Generated.TransitionEvent-          GHCJS.DOM.JSFFI.Generated.TreeWalker-          GHCJS.DOM.JSFFI.Generated.UIEvent-          GHCJS.DOM.JSFFI.Generated.URL-          GHCJS.DOM.JSFFI.Generated.URLSearchParams-          GHCJS.DOM.JSFFI.Generated.UserMessageHandler-          GHCJS.DOM.JSFFI.Generated.VTTCue-          GHCJS.DOM.JSFFI.Generated.VTTRegion-          GHCJS.DOM.JSFFI.Generated.VTTRegionList-          GHCJS.DOM.JSFFI.Generated.ValidityState-          GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality-          GHCJS.DOM.JSFFI.Generated.VideoTrack-          GHCJS.DOM.JSFFI.Generated.VideoTrackList-          GHCJS.DOM.JSFFI.Generated.VoidCallback-          GHCJS.DOM.JSFFI.Generated.WaveShaperNode-          GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext-          GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo-          GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureATC-          GHCJS.DOM.JSFFI.Generated.WebGLCompressedTexturePVRTC-          GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureS3TC-          GHCJS.DOM.JSFFI.Generated.WebGLContextEvent-          GHCJS.DOM.JSFFI.Generated.WebGLDebugRendererInfo-          GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders-          GHCJS.DOM.JSFFI.Generated.WebGLDepthTexture-          GHCJS.DOM.JSFFI.Generated.WebGLDrawBuffers-          GHCJS.DOM.JSFFI.Generated.WebGLLoseContext-          GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase-          GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat-          GHCJS.DOM.JSFFI.Generated.WebGPUBuffer-          GHCJS.DOM.JSFFI.Generated.WebGPUCommandBuffer-          GHCJS.DOM.JSFFI.Generated.WebGPUCommandQueue-          GHCJS.DOM.JSFFI.Generated.WebGPUComputeCommandEncoder-          GHCJS.DOM.JSFFI.Generated.WebGPUDepthStencilDescriptor-          GHCJS.DOM.JSFFI.Generated.WebGPUDepthStencilState-          GHCJS.DOM.JSFFI.Generated.WebGPUDrawable-          GHCJS.DOM.JSFFI.Generated.WebGPUFunction-          GHCJS.DOM.JSFFI.Generated.WebGPULibrary-          GHCJS.DOM.JSFFI.Generated.WebGPURenderCommandEncoder-          GHCJS.DOM.JSFFI.Generated.WebGPURenderPassAttachmentDescriptor-          GHCJS.DOM.JSFFI.Generated.WebGPURenderPassColorAttachmentDescriptor-          GHCJS.DOM.JSFFI.Generated.WebGPURenderPassDepthAttachmentDescriptor-          GHCJS.DOM.JSFFI.Generated.WebGPURenderPassDescriptor-          GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineColorAttachmentDescriptor-          GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineDescriptor-          GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineState-          GHCJS.DOM.JSFFI.Generated.WebGPURenderingContext-          GHCJS.DOM.JSFFI.Generated.WebGPUTexture-          GHCJS.DOM.JSFFI.Generated.WebGPUTextureDescriptor-          GHCJS.DOM.JSFFI.Generated.WebKitAnimationEvent-          GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix-          GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule-          GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule-          GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyError-          GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyMessageEvent-          GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyNeededEvent-          GHCJS.DOM.JSFFI.Generated.WebKitMediaKeySession-          GHCJS.DOM.JSFFI.Generated.WebKitMediaKeys-          GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow-          GHCJS.DOM.JSFFI.Generated.WebKitNamespace-          GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent-          GHCJS.DOM.JSFFI.Generated.WebKitPoint-          GHCJS.DOM.JSFFI.Generated.WebKitSubtleCrypto-          GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent-          GHCJS.DOM.JSFFI.Generated.WebSocket-          GHCJS.DOM.JSFFI.Generated.WheelEvent-          GHCJS.DOM.JSFFI.Generated.Window-          GHCJS.DOM.JSFFI.Generated.WindowEventHandlers-          GHCJS.DOM.JSFFI.Generated.WindowOrWorkerGlobalScope-          GHCJS.DOM.JSFFI.Generated.Worker-          GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope-          GHCJS.DOM.JSFFI.Generated.WorkerLocation-          GHCJS.DOM.JSFFI.Generated.WorkerNavigator-          GHCJS.DOM.JSFFI.Generated.WritableStream-          GHCJS.DOM.JSFFI.Generated.XMLHttpRequest-          GHCJS.DOM.JSFFI.Generated.XMLHttpRequestEventTarget-          GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent-          GHCJS.DOM.JSFFI.Generated.XMLSerializer-          GHCJS.DOM.JSFFI.Generated.XPathEvaluator-          GHCJS.DOM.JSFFI.Generated.XPathException-          GHCJS.DOM.JSFFI.Generated.XPathExpression-          GHCJS.DOM.JSFFI.Generated.XPathNSResolver-          GHCJS.DOM.JSFFI.Generated.XPathResult-          GHCJS.DOM.JSFFI.Generated.XSLTProcessor--    reexported-modules:-          -- cat ghcjs-dom-javascript/reexported-modules.txt | pbcopy-          -- Generated by domconv-webkit-jsffi-            GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays as GHCJS.DOM.ANGLEInstancedArrays-          , GHCJS.DOM.JSFFI.Generated.AbstractWorker as GHCJS.DOM.AbstractWorker-          , GHCJS.DOM.JSFFI.Generated.AnalyserNode as GHCJS.DOM.AnalyserNode-          , GHCJS.DOM.JSFFI.Generated.Animatable as GHCJS.DOM.Animatable-          , GHCJS.DOM.JSFFI.Generated.Animation as GHCJS.DOM.Animation-          , GHCJS.DOM.JSFFI.Generated.AnimationEvent as GHCJS.DOM.AnimationEvent-          , GHCJS.DOM.JSFFI.Generated.ApplePayError as GHCJS.DOM.ApplePayError-          , GHCJS.DOM.JSFFI.Generated.ApplePayPaymentAuthorizedEvent as GHCJS.DOM.ApplePayPaymentAuthorizedEvent-          , GHCJS.DOM.JSFFI.Generated.ApplePayPaymentMethodSelectedEvent as GHCJS.DOM.ApplePayPaymentMethodSelectedEvent-          , GHCJS.DOM.JSFFI.Generated.ApplePaySession as GHCJS.DOM.ApplePaySession-          , GHCJS.DOM.JSFFI.Generated.ApplePayShippingContactSelectedEvent as GHCJS.DOM.ApplePayShippingContactSelectedEvent-          , GHCJS.DOM.JSFFI.Generated.ApplePayShippingMethodSelectedEvent as GHCJS.DOM.ApplePayShippingMethodSelectedEvent-          , GHCJS.DOM.JSFFI.Generated.ApplePayValidateMerchantEvent as GHCJS.DOM.ApplePayValidateMerchantEvent-          , GHCJS.DOM.JSFFI.Generated.ApplicationCache as GHCJS.DOM.ApplicationCache-          , GHCJS.DOM.JSFFI.Generated.Attr as GHCJS.DOM.Attr-          , GHCJS.DOM.JSFFI.Generated.AudioBuffer as GHCJS.DOM.AudioBuffer-          , GHCJS.DOM.JSFFI.Generated.AudioBufferCallback as GHCJS.DOM.AudioBufferCallback-          , GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode as GHCJS.DOM.AudioBufferSourceNode-          , GHCJS.DOM.JSFFI.AudioContext as GHCJS.DOM.AudioContext-          , GHCJS.DOM.JSFFI.Generated.AudioDestinationNode as GHCJS.DOM.AudioDestinationNode-          , GHCJS.DOM.JSFFI.Generated.AudioListener as GHCJS.DOM.AudioListener-          , GHCJS.DOM.JSFFI.Generated.AudioNode as GHCJS.DOM.AudioNode-          , GHCJS.DOM.JSFFI.Generated.AudioParam as GHCJS.DOM.AudioParam-          , GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent as GHCJS.DOM.AudioProcessingEvent-          , GHCJS.DOM.JSFFI.Generated.AudioTrack as GHCJS.DOM.AudioTrack-          , GHCJS.DOM.JSFFI.Generated.AudioTrackList as GHCJS.DOM.AudioTrackList-          , GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent as GHCJS.DOM.AutocompleteErrorEvent-          , GHCJS.DOM.JSFFI.Generated.BarProp as GHCJS.DOM.BarProp-          , GHCJS.DOM.JSFFI.Generated.BasicCredential as GHCJS.DOM.BasicCredential-          , GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent as GHCJS.DOM.BeforeLoadEvent-          , GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent as GHCJS.DOM.BeforeUnloadEvent-          , GHCJS.DOM.JSFFI.Generated.BiquadFilterNode as GHCJS.DOM.BiquadFilterNode-          , GHCJS.DOM.JSFFI.Generated.Blob as GHCJS.DOM.Blob-          , GHCJS.DOM.JSFFI.Generated.BlobCallback as GHCJS.DOM.BlobCallback-          , GHCJS.DOM.JSFFI.Generated.Body as GHCJS.DOM.Body-          , GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy as GHCJS.DOM.ByteLengthQueuingStrategy-          , GHCJS.DOM.JSFFI.Generated.CSS as GHCJS.DOM.CSS-          , GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent as GHCJS.DOM.CSSFontFaceLoadEvent-          , GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule as GHCJS.DOM.CSSFontFaceRule-          , GHCJS.DOM.JSFFI.Generated.CSSImportRule as GHCJS.DOM.CSSImportRule-          , GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule as GHCJS.DOM.CSSKeyframeRule-          , GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule as GHCJS.DOM.CSSKeyframesRule-          , GHCJS.DOM.JSFFI.Generated.CSSMediaRule as GHCJS.DOM.CSSMediaRule-          , GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule as GHCJS.DOM.CSSNamespaceRule-          , GHCJS.DOM.JSFFI.Generated.CSSPageRule as GHCJS.DOM.CSSPageRule-          , GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue as GHCJS.DOM.CSSPrimitiveValue-          , GHCJS.DOM.JSFFI.Generated.CSSRule as GHCJS.DOM.CSSRule-          , GHCJS.DOM.JSFFI.Generated.CSSRuleList as GHCJS.DOM.CSSRuleList-          , GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration as GHCJS.DOM.CSSStyleDeclaration-          , GHCJS.DOM.JSFFI.Generated.CSSStyleRule as GHCJS.DOM.CSSStyleRule-          , GHCJS.DOM.JSFFI.Generated.CSSStyleSheet as GHCJS.DOM.CSSStyleSheet-          , GHCJS.DOM.JSFFI.Generated.CSSSupportsRule as GHCJS.DOM.CSSSupportsRule-          , GHCJS.DOM.JSFFI.Generated.CSSValue as GHCJS.DOM.CSSValue-          , GHCJS.DOM.JSFFI.Generated.CSSValueList as GHCJS.DOM.CSSValueList-          , GHCJS.DOM.JSFFI.Generated.CanvasCaptureMediaStreamTrack as GHCJS.DOM.CanvasCaptureMediaStreamTrack-          , GHCJS.DOM.JSFFI.Generated.CanvasGradient as GHCJS.DOM.CanvasGradient-          , GHCJS.DOM.JSFFI.Generated.CanvasPath as GHCJS.DOM.CanvasPath-          , GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D as GHCJS.DOM.CanvasRenderingContext2D-          , GHCJS.DOM.JSFFI.Generated.CharacterData as GHCJS.DOM.CharacterData-          , GHCJS.DOM.JSFFI.Generated.ChildNode as GHCJS.DOM.ChildNode-          , GHCJS.DOM.JSFFI.Generated.ClipboardEvent as GHCJS.DOM.ClipboardEvent-          , GHCJS.DOM.JSFFI.Generated.CloseEvent as GHCJS.DOM.CloseEvent-          , GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost as GHCJS.DOM.CommandLineAPIHost-          , GHCJS.DOM.JSFFI.Generated.Comment as GHCJS.DOM.Comment-          , GHCJS.DOM.JSFFI.Generated.CompositionEvent as GHCJS.DOM.CompositionEvent-          , GHCJS.DOM.JSFFI.Generated.ConvolverNode as GHCJS.DOM.ConvolverNode-          , GHCJS.DOM.JSFFI.Generated.Coordinates as GHCJS.DOM.Coordinates-          , GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy as GHCJS.DOM.CountQueuingStrategy-          , GHCJS.DOM.JSFFI.Generated.Counter as GHCJS.DOM.Counter-          , GHCJS.DOM.JSFFI.Generated.Crypto as GHCJS.DOM.Crypto-          , GHCJS.DOM.JSFFI.Generated.CryptoKey as GHCJS.DOM.CryptoKey-          , GHCJS.DOM.JSFFI.Generated.CustomElementRegistry as GHCJS.DOM.CustomElementRegistry-          , GHCJS.DOM.JSFFI.Generated.CustomEvent as GHCJS.DOM.CustomEvent-          , GHCJS.DOM.JSFFI.DOMError as GHCJS.DOM.DOMError-          , GHCJS.DOM.JSFFI.Generated.DOMException as GHCJS.DOM.DOMException-          , GHCJS.DOM.JSFFI.Generated.DOMImplementation as GHCJS.DOM.DOMImplementation-          , GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection as GHCJS.DOM.DOMNamedFlowCollection-          , GHCJS.DOM.JSFFI.Generated.DOMParser as GHCJS.DOM.DOMParser-          , GHCJS.DOM.JSFFI.Generated.DOMPoint as GHCJS.DOM.DOMPoint-          , GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly as GHCJS.DOM.DOMPointReadOnly-          , GHCJS.DOM.JSFFI.Generated.DOMRect as GHCJS.DOM.DOMRect-          , GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly as GHCJS.DOM.DOMRectReadOnly-          , GHCJS.DOM.JSFFI.Generated.DOMStringList as GHCJS.DOM.DOMStringList-          , GHCJS.DOM.JSFFI.Generated.DOMStringMap as GHCJS.DOM.DOMStringMap-          , GHCJS.DOM.JSFFI.Generated.DOMTokenList as GHCJS.DOM.DOMTokenList-          , GHCJS.DOM.JSFFI.Generated.DataCue as GHCJS.DOM.DataCue-          , GHCJS.DOM.JSFFI.Generated.DataTransfer as GHCJS.DOM.DataTransfer-          , GHCJS.DOM.JSFFI.Generated.DataTransferItem as GHCJS.DOM.DataTransferItem-          , GHCJS.DOM.JSFFI.Generated.DataTransferItemList as GHCJS.DOM.DataTransferItemList-          , GHCJS.DOM.JSFFI.Database as GHCJS.DOM.Database-          , GHCJS.DOM.JSFFI.Generated.DatabaseCallback as GHCJS.DOM.DatabaseCallback-          , GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope as GHCJS.DOM.DedicatedWorkerGlobalScope-          , GHCJS.DOM.JSFFI.Generated.DelayNode as GHCJS.DOM.DelayNode-          , GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent as GHCJS.DOM.DeviceMotionEvent-          , GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent as GHCJS.DOM.DeviceOrientationEvent-          , GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent as GHCJS.DOM.DeviceProximityEvent-          , GHCJS.DOM.JSFFI.Generated.Document as GHCJS.DOM.Document-          , GHCJS.DOM.JSFFI.Generated.DocumentAndElementEventHandlers as GHCJS.DOM.DocumentAndElementEventHandlers-          , GHCJS.DOM.JSFFI.Generated.DocumentFragment as GHCJS.DOM.DocumentFragment-          , GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot as GHCJS.DOM.DocumentOrShadowRoot-          , GHCJS.DOM.JSFFI.Generated.DocumentTimeline as GHCJS.DOM.DocumentTimeline-          , GHCJS.DOM.JSFFI.Generated.DocumentType as GHCJS.DOM.DocumentType-          , GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode as GHCJS.DOM.DynamicsCompressorNode-          , GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax as GHCJS.DOM.EXTBlendMinMax-          , GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic as GHCJS.DOM.EXTTextureFilterAnisotropic-          , GHCJS.DOM.JSFFI.Generated.EXTsRGB as GHCJS.DOM.EXTsRGB-          , GHCJS.DOM.JSFFI.Generated.Element as GHCJS.DOM.Element-          , GHCJS.DOM.JSFFI.Generated.ElementCSSInlineStyle as GHCJS.DOM.ElementCSSInlineStyle-          , GHCJS.DOM.JSFFI.Generated.Enums as GHCJS.DOM.Enums-          , GHCJS.DOM.JSFFI.Generated.ErrorEvent as GHCJS.DOM.ErrorEvent-          , GHCJS.DOM.JSFFI.Generated.Event as GHCJS.DOM.Event-          , GHCJS.DOM.JSFFI.Generated.EventListener as GHCJS.DOM.EventListener-          , GHCJS.DOM.JSFFI.Generated.EventSource as GHCJS.DOM.EventSource-          , GHCJS.DOM.JSFFI.Generated.EventTarget as GHCJS.DOM.EventTarget-          , GHCJS.DOM.JSFFI.Generated.File as GHCJS.DOM.File-          , GHCJS.DOM.JSFFI.Generated.FileError as GHCJS.DOM.FileError-          , GHCJS.DOM.JSFFI.Generated.FileException as GHCJS.DOM.FileException-          , GHCJS.DOM.JSFFI.Generated.FileList as GHCJS.DOM.FileList-          , GHCJS.DOM.JSFFI.Generated.FileReader as GHCJS.DOM.FileReader-          , GHCJS.DOM.JSFFI.Generated.FileReaderSync as GHCJS.DOM.FileReaderSync-          , GHCJS.DOM.JSFFI.Generated.FocusEvent as GHCJS.DOM.FocusEvent-          , GHCJS.DOM.JSFFI.Generated.FontFace as GHCJS.DOM.FontFace-          , GHCJS.DOM.JSFFI.Generated.FontFaceSet as GHCJS.DOM.FontFaceSet-          , GHCJS.DOM.JSFFI.Generated.FormData as GHCJS.DOM.FormData-          , GHCJS.DOM.JSFFI.Generated.GainNode as GHCJS.DOM.GainNode-          , GHCJS.DOM.JSFFI.Generated.Gamepad as GHCJS.DOM.Gamepad-          , GHCJS.DOM.JSFFI.Generated.GamepadButton as GHCJS.DOM.GamepadButton-          , GHCJS.DOM.JSFFI.Generated.GamepadEvent as GHCJS.DOM.GamepadEvent-          , GHCJS.DOM.JSFFI.Geolocation as GHCJS.DOM.Geolocation-          , GHCJS.DOM.JSFFI.Generated.Geoposition as GHCJS.DOM.Geoposition-          , GHCJS.DOM.JSFFI.Generated.GlobalCrypto as GHCJS.DOM.GlobalCrypto-          , GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers as GHCJS.DOM.GlobalEventHandlers-          , GHCJS.DOM.JSFFI.Generated.GlobalPerformance as GHCJS.DOM.GlobalPerformance-          , GHCJS.DOM.JSFFI.Generated.HTMLAllCollection as GHCJS.DOM.HTMLAllCollection-          , GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement as GHCJS.DOM.HTMLAnchorElement-          , GHCJS.DOM.JSFFI.Generated.HTMLAppletElement as GHCJS.DOM.HTMLAppletElement-          , GHCJS.DOM.JSFFI.Generated.HTMLAreaElement as GHCJS.DOM.HTMLAreaElement-          , GHCJS.DOM.JSFFI.Generated.HTMLAttachmentElement as GHCJS.DOM.HTMLAttachmentElement-          , GHCJS.DOM.JSFFI.Generated.HTMLBRElement as GHCJS.DOM.HTMLBRElement-          , GHCJS.DOM.JSFFI.Generated.HTMLBaseElement as GHCJS.DOM.HTMLBaseElement-          , GHCJS.DOM.JSFFI.Generated.HTMLBodyElement as GHCJS.DOM.HTMLBodyElement-          , GHCJS.DOM.JSFFI.Generated.HTMLButtonElement as GHCJS.DOM.HTMLButtonElement-          , GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement as GHCJS.DOM.HTMLCanvasElement-          , GHCJS.DOM.JSFFI.Generated.HTMLCollection as GHCJS.DOM.HTMLCollection-          , GHCJS.DOM.JSFFI.Generated.HTMLDListElement as GHCJS.DOM.HTMLDListElement-          , GHCJS.DOM.JSFFI.Generated.HTMLDataElement as GHCJS.DOM.HTMLDataElement-          , GHCJS.DOM.JSFFI.Generated.HTMLDataListElement as GHCJS.DOM.HTMLDataListElement-          , GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement as GHCJS.DOM.HTMLDetailsElement-          , GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement as GHCJS.DOM.HTMLDirectoryElement-          , GHCJS.DOM.JSFFI.Generated.HTMLDivElement as GHCJS.DOM.HTMLDivElement-          , GHCJS.DOM.JSFFI.Generated.HTMLDocument as GHCJS.DOM.HTMLDocument-          , GHCJS.DOM.JSFFI.Generated.HTMLElement as GHCJS.DOM.HTMLElement-          , GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement as GHCJS.DOM.HTMLEmbedElement-          , GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement as GHCJS.DOM.HTMLFieldSetElement-          , GHCJS.DOM.JSFFI.Generated.HTMLFontElement as GHCJS.DOM.HTMLFontElement-          , GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection as GHCJS.DOM.HTMLFormControlsCollection-          , GHCJS.DOM.JSFFI.Generated.HTMLFormElement as GHCJS.DOM.HTMLFormElement-          , GHCJS.DOM.JSFFI.Generated.HTMLFrameElement as GHCJS.DOM.HTMLFrameElement-          , GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement as GHCJS.DOM.HTMLFrameSetElement-          , GHCJS.DOM.JSFFI.Generated.HTMLHRElement as GHCJS.DOM.HTMLHRElement-          , GHCJS.DOM.JSFFI.Generated.HTMLHeadElement as GHCJS.DOM.HTMLHeadElement-          , GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement as GHCJS.DOM.HTMLHeadingElement-          , GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement as GHCJS.DOM.HTMLHtmlElement-          , GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils as GHCJS.DOM.HTMLHyperlinkElementUtils-          , GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement as GHCJS.DOM.HTMLIFrameElement-          , GHCJS.DOM.JSFFI.Generated.HTMLImageElement as GHCJS.DOM.HTMLImageElement-          , GHCJS.DOM.JSFFI.Generated.HTMLInputElement as GHCJS.DOM.HTMLInputElement-          , GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement as GHCJS.DOM.HTMLKeygenElement-          , GHCJS.DOM.JSFFI.Generated.HTMLLIElement as GHCJS.DOM.HTMLLIElement-          , GHCJS.DOM.JSFFI.Generated.HTMLLabelElement as GHCJS.DOM.HTMLLabelElement-          , GHCJS.DOM.JSFFI.Generated.HTMLLegendElement as GHCJS.DOM.HTMLLegendElement-          , GHCJS.DOM.JSFFI.Generated.HTMLLinkElement as GHCJS.DOM.HTMLLinkElement-          , GHCJS.DOM.JSFFI.Generated.HTMLMapElement as GHCJS.DOM.HTMLMapElement-          , GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement as GHCJS.DOM.HTMLMarqueeElement-          , GHCJS.DOM.JSFFI.Generated.HTMLMediaElement as GHCJS.DOM.HTMLMediaElement-          , GHCJS.DOM.JSFFI.Generated.HTMLMenuElement as GHCJS.DOM.HTMLMenuElement-          , GHCJS.DOM.JSFFI.Generated.HTMLMetaElement as GHCJS.DOM.HTMLMetaElement-          , GHCJS.DOM.JSFFI.Generated.HTMLMeterElement as GHCJS.DOM.HTMLMeterElement-          , GHCJS.DOM.JSFFI.Generated.HTMLModElement as GHCJS.DOM.HTMLModElement-          , GHCJS.DOM.JSFFI.Generated.HTMLOListElement as GHCJS.DOM.HTMLOListElement-          , GHCJS.DOM.JSFFI.Generated.HTMLObjectElement as GHCJS.DOM.HTMLObjectElement-          , GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement as GHCJS.DOM.HTMLOptGroupElement-          , GHCJS.DOM.JSFFI.Generated.HTMLOptionElement as GHCJS.DOM.HTMLOptionElement-          , GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection as GHCJS.DOM.HTMLOptionsCollection-          , GHCJS.DOM.JSFFI.Generated.HTMLOutputElement as GHCJS.DOM.HTMLOutputElement-          , GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement as GHCJS.DOM.HTMLParagraphElement-          , GHCJS.DOM.JSFFI.Generated.HTMLParamElement as GHCJS.DOM.HTMLParamElement-          , GHCJS.DOM.JSFFI.Generated.HTMLPreElement as GHCJS.DOM.HTMLPreElement-          , GHCJS.DOM.JSFFI.Generated.HTMLProgressElement as GHCJS.DOM.HTMLProgressElement-          , GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement as GHCJS.DOM.HTMLQuoteElement-          , GHCJS.DOM.JSFFI.Generated.HTMLScriptElement as GHCJS.DOM.HTMLScriptElement-          , GHCJS.DOM.JSFFI.Generated.HTMLSelectElement as GHCJS.DOM.HTMLSelectElement-          , GHCJS.DOM.JSFFI.Generated.HTMLSlotElement as GHCJS.DOM.HTMLSlotElement-          , GHCJS.DOM.JSFFI.Generated.HTMLSourceElement as GHCJS.DOM.HTMLSourceElement-          , GHCJS.DOM.JSFFI.Generated.HTMLStyleElement as GHCJS.DOM.HTMLStyleElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement as GHCJS.DOM.HTMLTableCaptionElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement as GHCJS.DOM.HTMLTableCellElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTableColElement as GHCJS.DOM.HTMLTableColElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTableElement as GHCJS.DOM.HTMLTableElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement as GHCJS.DOM.HTMLTableRowElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement as GHCJS.DOM.HTMLTableSectionElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement as GHCJS.DOM.HTMLTemplateElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement as GHCJS.DOM.HTMLTextAreaElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTimeElement as GHCJS.DOM.HTMLTimeElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTitleElement as GHCJS.DOM.HTMLTitleElement-          , GHCJS.DOM.JSFFI.Generated.HTMLTrackElement as GHCJS.DOM.HTMLTrackElement-          , GHCJS.DOM.JSFFI.Generated.HTMLUListElement as GHCJS.DOM.HTMLUListElement-          , GHCJS.DOM.JSFFI.Generated.HTMLVideoElement as GHCJS.DOM.HTMLVideoElement-          , GHCJS.DOM.JSFFI.Generated.HashChangeEvent as GHCJS.DOM.HashChangeEvent-          , GHCJS.DOM.JSFFI.Generated.Headers as GHCJS.DOM.Headers-          , GHCJS.DOM.JSFFI.Generated.History as GHCJS.DOM.History-          , GHCJS.DOM.JSFFI.Generated.IDBCursor as GHCJS.DOM.IDBCursor-          , GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue as GHCJS.DOM.IDBCursorWithValue-          , GHCJS.DOM.JSFFI.Generated.IDBDatabase as GHCJS.DOM.IDBDatabase-          , GHCJS.DOM.JSFFI.Generated.IDBFactory as GHCJS.DOM.IDBFactory-          , GHCJS.DOM.JSFFI.Generated.IDBIndex as GHCJS.DOM.IDBIndex-          , GHCJS.DOM.JSFFI.Generated.IDBKeyRange as GHCJS.DOM.IDBKeyRange-          , GHCJS.DOM.JSFFI.Generated.IDBObjectStore as GHCJS.DOM.IDBObjectStore-          , GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest as GHCJS.DOM.IDBOpenDBRequest-          , GHCJS.DOM.JSFFI.Generated.IDBRequest as GHCJS.DOM.IDBRequest-          , GHCJS.DOM.JSFFI.Generated.IDBTransaction as GHCJS.DOM.IDBTransaction-          , GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent as GHCJS.DOM.IDBVersionChangeEvent-          , GHCJS.DOM.JSFFI.Generated.ImageData as GHCJS.DOM.ImageData-          , GHCJS.DOM.JSFFI.Generated.InputEvent as GHCJS.DOM.InputEvent-          , GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost as GHCJS.DOM.InspectorFrontendHost-          , GHCJS.DOM.JSFFI.Generated.IntersectionObserver as GHCJS.DOM.IntersectionObserver-          , GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback as GHCJS.DOM.IntersectionObserverCallback-          , GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry as GHCJS.DOM.IntersectionObserverEntry-          , GHCJS.DOM.JSFFI.Generated.KeyboardEvent as GHCJS.DOM.KeyboardEvent-          , GHCJS.DOM.JSFFI.Generated.KeyframeEffect as GHCJS.DOM.KeyframeEffect-          , GHCJS.DOM.JSFFI.Generated.Location as GHCJS.DOM.Location-          , GHCJS.DOM.JSFFI.Generated.MediaController as GHCJS.DOM.MediaController-          , GHCJS.DOM.JSFFI.Generated.MediaControlsHost as GHCJS.DOM.MediaControlsHost-          , GHCJS.DOM.JSFFI.Generated.MediaDeviceInfo as GHCJS.DOM.MediaDeviceInfo-          , GHCJS.DOM.JSFFI.Generated.MediaDevices as GHCJS.DOM.MediaDevices-          , GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode as GHCJS.DOM.MediaElementAudioSourceNode-          , GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent as GHCJS.DOM.MediaEncryptedEvent-          , GHCJS.DOM.JSFFI.Generated.MediaError as GHCJS.DOM.MediaError-          , GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent as GHCJS.DOM.MediaKeyMessageEvent-          , GHCJS.DOM.JSFFI.Generated.MediaKeySession as GHCJS.DOM.MediaKeySession-          , GHCJS.DOM.JSFFI.Generated.MediaKeyStatusMap as GHCJS.DOM.MediaKeyStatusMap-          , GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess as GHCJS.DOM.MediaKeySystemAccess-          , GHCJS.DOM.JSFFI.Generated.MediaKeys as GHCJS.DOM.MediaKeys-          , GHCJS.DOM.JSFFI.Generated.MediaList as GHCJS.DOM.MediaList-          , GHCJS.DOM.JSFFI.Generated.MediaQueryList as GHCJS.DOM.MediaQueryList-          , GHCJS.DOM.JSFFI.Generated.MediaQueryListListener as GHCJS.DOM.MediaQueryListListener-          , GHCJS.DOM.JSFFI.Generated.MediaRemoteControls as GHCJS.DOM.MediaRemoteControls-          , GHCJS.DOM.JSFFI.Generated.MediaSession as GHCJS.DOM.MediaSession-          , GHCJS.DOM.JSFFI.Generated.MediaSource as GHCJS.DOM.MediaSource-          , GHCJS.DOM.JSFFI.Generated.MediaStream as GHCJS.DOM.MediaStream-          , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode as GHCJS.DOM.MediaStreamAudioDestinationNode-          , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode as GHCJS.DOM.MediaStreamAudioSourceNode-          , GHCJS.DOM.JSFFI.Generated.MediaStreamEvent as GHCJS.DOM.MediaStreamEvent-          , GHCJS.DOM.JSFFI.Generated.MediaStreamTrack as GHCJS.DOM.MediaStreamTrack-          , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent as GHCJS.DOM.MediaStreamTrackEvent-          , GHCJS.DOM.JSFFI.Generated.MessageChannel as GHCJS.DOM.MessageChannel-          , GHCJS.DOM.JSFFI.Generated.MessageEvent as GHCJS.DOM.MessageEvent-          , GHCJS.DOM.JSFFI.Generated.MessagePort as GHCJS.DOM.MessagePort-          , GHCJS.DOM.JSFFI.Generated.MimeType as GHCJS.DOM.MimeType-          , GHCJS.DOM.JSFFI.Generated.MimeTypeArray as GHCJS.DOM.MimeTypeArray-          , GHCJS.DOM.JSFFI.Generated.MouseEvent as GHCJS.DOM.MouseEvent-          , GHCJS.DOM.JSFFI.Generated.MutationEvent as GHCJS.DOM.MutationEvent-          , GHCJS.DOM.JSFFI.Generated.MutationObserver as GHCJS.DOM.MutationObserver-          , GHCJS.DOM.JSFFI.Generated.MutationRecord as GHCJS.DOM.MutationRecord-          , GHCJS.DOM.JSFFI.Generated.NamedNodeMap as GHCJS.DOM.NamedNodeMap-          , GHCJS.DOM.JSFFI.Navigator as GHCJS.DOM.Navigator-          , GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware as GHCJS.DOM.NavigatorConcurrentHardware-          , GHCJS.DOM.JSFFI.Generated.NavigatorID as GHCJS.DOM.NavigatorID-          , GHCJS.DOM.JSFFI.Generated.NavigatorLanguage as GHCJS.DOM.NavigatorLanguage-          , GHCJS.DOM.JSFFI.Generated.NavigatorOnLine as GHCJS.DOM.NavigatorOnLine-          , GHCJS.DOM.JSFFI.NavigatorUserMediaError as GHCJS.DOM.NavigatorUserMediaError-          , GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback as GHCJS.DOM.NavigatorUserMediaErrorCallback-          , GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback as GHCJS.DOM.NavigatorUserMediaSuccessCallback-          , GHCJS.DOM.JSFFI.Generated.Node as GHCJS.DOM.Node-          , GHCJS.DOM.JSFFI.Generated.NodeFilter as GHCJS.DOM.NodeFilter-          , GHCJS.DOM.JSFFI.Generated.NodeIterator as GHCJS.DOM.NodeIterator-          , GHCJS.DOM.JSFFI.Generated.NodeList as GHCJS.DOM.NodeList-          , GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode as GHCJS.DOM.NonDocumentTypeChildNode-          , GHCJS.DOM.JSFFI.Generated.NonElementParentNode as GHCJS.DOM.NonElementParentNode-          , GHCJS.DOM.JSFFI.Generated.Notification as GHCJS.DOM.Notification-          , GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback as GHCJS.DOM.NotificationPermissionCallback-          , GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives as GHCJS.DOM.OESStandardDerivatives-          , GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat as GHCJS.DOM.OESTextureHalfFloat-          , GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject as GHCJS.DOM.OESVertexArrayObject-          , GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent as GHCJS.DOM.OfflineAudioCompletionEvent-          , GHCJS.DOM.JSFFI.Generated.OfflineAudioContext as GHCJS.DOM.OfflineAudioContext-          , GHCJS.DOM.JSFFI.Generated.OscillatorNode as GHCJS.DOM.OscillatorNode-          , GHCJS.DOM.JSFFI.Generated.OverconstrainedError as GHCJS.DOM.OverconstrainedError-          , GHCJS.DOM.JSFFI.Generated.OverconstrainedErrorEvent as GHCJS.DOM.OverconstrainedErrorEvent-          , GHCJS.DOM.JSFFI.Generated.OverflowEvent as GHCJS.DOM.OverflowEvent-          , GHCJS.DOM.JSFFI.Generated.PageTransitionEvent as GHCJS.DOM.PageTransitionEvent-          , GHCJS.DOM.JSFFI.Generated.PannerNode as GHCJS.DOM.PannerNode-          , GHCJS.DOM.JSFFI.Generated.ParentNode as GHCJS.DOM.ParentNode-          , GHCJS.DOM.JSFFI.Generated.PasswordCredential as GHCJS.DOM.PasswordCredential-          , GHCJS.DOM.JSFFI.Generated.Path2D as GHCJS.DOM.Path2D-          , GHCJS.DOM.JSFFI.Generated.Performance as GHCJS.DOM.Performance-          , GHCJS.DOM.JSFFI.Generated.PerformanceEntry as GHCJS.DOM.PerformanceEntry-          , GHCJS.DOM.JSFFI.Generated.PerformanceNavigation as GHCJS.DOM.PerformanceNavigation-          , GHCJS.DOM.JSFFI.Generated.PerformanceObserver as GHCJS.DOM.PerformanceObserver-          , GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback as GHCJS.DOM.PerformanceObserverCallback-          , GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList as GHCJS.DOM.PerformanceObserverEntryList-          , GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming as GHCJS.DOM.PerformanceResourceTiming-          , GHCJS.DOM.JSFFI.Generated.PerformanceTiming as GHCJS.DOM.PerformanceTiming-          , GHCJS.DOM.JSFFI.Generated.Plugin as GHCJS.DOM.Plugin-          , GHCJS.DOM.JSFFI.Generated.PluginArray as GHCJS.DOM.PluginArray-          , GHCJS.DOM.JSFFI.Generated.PopStateEvent as GHCJS.DOM.PopStateEvent-          , GHCJS.DOM.JSFFI.Generated.PositionCallback as GHCJS.DOM.PositionCallback-          , GHCJS.DOM.JSFFI.PositionError as GHCJS.DOM.PositionError-          , GHCJS.DOM.JSFFI.Generated.PositionErrorCallback as GHCJS.DOM.PositionErrorCallback-          , GHCJS.DOM.JSFFI.Generated.ProcessingInstruction as GHCJS.DOM.ProcessingInstruction-          , GHCJS.DOM.JSFFI.Generated.ProgressEvent as GHCJS.DOM.ProgressEvent-          , GHCJS.DOM.JSFFI.Generated.PromiseRejectionEvent as GHCJS.DOM.PromiseRejectionEvent-          , GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement as GHCJS.DOM.QuickTimePluginReplacement-          , GHCJS.DOM.JSFFI.Generated.RGBColor as GHCJS.DOM.RGBColor-          , GHCJS.DOM.JSFFI.Generated.RTCDTMFSender as GHCJS.DOM.RTCDTMFSender-          , GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent as GHCJS.DOM.RTCDTMFToneChangeEvent-          , GHCJS.DOM.JSFFI.Generated.RTCDataChannel as GHCJS.DOM.RTCDataChannel-          , GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent as GHCJS.DOM.RTCDataChannelEvent-          , GHCJS.DOM.JSFFI.Generated.RTCIceCandidate as GHCJS.DOM.RTCIceCandidate-          , GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent as GHCJS.DOM.RTCIceCandidateEvent-          , GHCJS.DOM.JSFFI.Generated.RTCIceTransport as GHCJS.DOM.RTCIceTransport-          , GHCJS.DOM.JSFFI.Generated.RTCPeerConnection as GHCJS.DOM.RTCPeerConnection-          , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEvent as GHCJS.DOM.RTCPeerConnectionIceEvent-          , GHCJS.DOM.JSFFI.Generated.RTCRtpReceiver as GHCJS.DOM.RTCRtpReceiver-          , GHCJS.DOM.JSFFI.Generated.RTCRtpSender as GHCJS.DOM.RTCRtpSender-          , GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver as GHCJS.DOM.RTCRtpTransceiver-          , GHCJS.DOM.JSFFI.Generated.RTCSessionDescription as GHCJS.DOM.RTCSessionDescription-          , GHCJS.DOM.JSFFI.Generated.RTCTrackEvent as GHCJS.DOM.RTCTrackEvent-          , GHCJS.DOM.JSFFI.Generated.RadioNodeList as GHCJS.DOM.RadioNodeList-          , GHCJS.DOM.JSFFI.Generated.Range as GHCJS.DOM.Range-          , GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController as GHCJS.DOM.ReadableByteStreamController-          , GHCJS.DOM.JSFFI.Generated.ReadableStream as GHCJS.DOM.ReadableStream-          , GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReader as GHCJS.DOM.ReadableStreamBYOBReader-          , GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBRequest as GHCJS.DOM.ReadableStreamBYOBRequest-          , GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController as GHCJS.DOM.ReadableStreamDefaultController-          , GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader as GHCJS.DOM.ReadableStreamDefaultReader-          , GHCJS.DOM.JSFFI.Generated.ReadableStreamSource as GHCJS.DOM.ReadableStreamSource-          , GHCJS.DOM.JSFFI.Generated.Rect as GHCJS.DOM.Rect-          , GHCJS.DOM.JSFFI.Generated.Request as GHCJS.DOM.Request-          , GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback as GHCJS.DOM.RequestAnimationFrameCallback-          , GHCJS.DOM.JSFFI.Generated.Response as GHCJS.DOM.Response-          , GHCJS.DOM.JSFFI.SQLError as GHCJS.DOM.SQLError-          , GHCJS.DOM.JSFFI.Generated.SQLException as GHCJS.DOM.SQLException-          , GHCJS.DOM.JSFFI.Generated.SQLResultSet as GHCJS.DOM.SQLResultSet-          , GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList as GHCJS.DOM.SQLResultSetRowList-          , GHCJS.DOM.JSFFI.Generated.SQLStatementCallback as GHCJS.DOM.SQLStatementCallback-          , GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback as GHCJS.DOM.SQLStatementErrorCallback-          , GHCJS.DOM.JSFFI.SQLTransaction as GHCJS.DOM.SQLTransaction-          , GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback as GHCJS.DOM.SQLTransactionCallback-          , GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback as GHCJS.DOM.SQLTransactionErrorCallback-          , GHCJS.DOM.JSFFI.Generated.SVGAElement as GHCJS.DOM.SVGAElement-          , GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement as GHCJS.DOM.SVGAltGlyphElement-          , GHCJS.DOM.JSFFI.Generated.SVGAngle as GHCJS.DOM.SVGAngle-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle as GHCJS.DOM.SVGAnimatedAngle-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean as GHCJS.DOM.SVGAnimatedBoolean-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration as GHCJS.DOM.SVGAnimatedEnumeration-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger as GHCJS.DOM.SVGAnimatedInteger-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength as GHCJS.DOM.SVGAnimatedLength-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList as GHCJS.DOM.SVGAnimatedLengthList-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber as GHCJS.DOM.SVGAnimatedNumber-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList as GHCJS.DOM.SVGAnimatedNumberList-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio as GHCJS.DOM.SVGAnimatedPreserveAspectRatio-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect as GHCJS.DOM.SVGAnimatedRect-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedString as GHCJS.DOM.SVGAnimatedString-          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList as GHCJS.DOM.SVGAnimatedTransformList-          , GHCJS.DOM.JSFFI.Generated.SVGAnimationElement as GHCJS.DOM.SVGAnimationElement-          , GHCJS.DOM.JSFFI.Generated.SVGCircleElement as GHCJS.DOM.SVGCircleElement-          , GHCJS.DOM.JSFFI.Generated.SVGClipPathElement as GHCJS.DOM.SVGClipPathElement-          , GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement as GHCJS.DOM.SVGComponentTransferFunctionElement-          , GHCJS.DOM.JSFFI.Generated.SVGCursorElement as GHCJS.DOM.SVGCursorElement-          , GHCJS.DOM.JSFFI.Generated.SVGElement as GHCJS.DOM.SVGElement-          , GHCJS.DOM.JSFFI.Generated.SVGEllipseElement as GHCJS.DOM.SVGEllipseElement-          , GHCJS.DOM.JSFFI.Generated.SVGException as GHCJS.DOM.SVGException-          , GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired as GHCJS.DOM.SVGExternalResourcesRequired-          , GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement as GHCJS.DOM.SVGFEBlendElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement as GHCJS.DOM.SVGFEColorMatrixElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement as GHCJS.DOM.SVGFEComponentTransferElement-          , GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement as GHCJS.DOM.SVGFECompositeElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement as GHCJS.DOM.SVGFEConvolveMatrixElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement as GHCJS.DOM.SVGFEDiffuseLightingElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement as GHCJS.DOM.SVGFEDisplacementMapElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement as GHCJS.DOM.SVGFEDistantLightElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement as GHCJS.DOM.SVGFEDropShadowElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement as GHCJS.DOM.SVGFEGaussianBlurElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEImageElement as GHCJS.DOM.SVGFEImageElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement as GHCJS.DOM.SVGFEMergeNodeElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement as GHCJS.DOM.SVGFEMorphologyElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement as GHCJS.DOM.SVGFEOffsetElement-          , GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement as GHCJS.DOM.SVGFEPointLightElement-          , GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement as GHCJS.DOM.SVGFESpecularLightingElement-          , GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement as GHCJS.DOM.SVGFESpotLightElement-          , GHCJS.DOM.JSFFI.Generated.SVGFETileElement as GHCJS.DOM.SVGFETileElement-          , GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement as GHCJS.DOM.SVGFETurbulenceElement-          , GHCJS.DOM.JSFFI.Generated.SVGFilterElement as GHCJS.DOM.SVGFilterElement-          , GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes as GHCJS.DOM.SVGFilterPrimitiveStandardAttributes-          , GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox as GHCJS.DOM.SVGFitToViewBox-          , GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement as GHCJS.DOM.SVGForeignObjectElement-          , GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement as GHCJS.DOM.SVGGlyphRefElement-          , GHCJS.DOM.JSFFI.Generated.SVGGradientElement as GHCJS.DOM.SVGGradientElement-          , GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement as GHCJS.DOM.SVGGraphicsElement-          , GHCJS.DOM.JSFFI.Generated.SVGImageElement as GHCJS.DOM.SVGImageElement-          , GHCJS.DOM.JSFFI.Generated.SVGLength as GHCJS.DOM.SVGLength-          , GHCJS.DOM.JSFFI.Generated.SVGLengthList as GHCJS.DOM.SVGLengthList-          , GHCJS.DOM.JSFFI.Generated.SVGLineElement as GHCJS.DOM.SVGLineElement-          , GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement as GHCJS.DOM.SVGLinearGradientElement-          , GHCJS.DOM.JSFFI.Generated.SVGMarkerElement as GHCJS.DOM.SVGMarkerElement-          , GHCJS.DOM.JSFFI.Generated.SVGMaskElement as GHCJS.DOM.SVGMaskElement-          , GHCJS.DOM.JSFFI.Generated.SVGMatrix as GHCJS.DOM.SVGMatrix-          , GHCJS.DOM.JSFFI.Generated.SVGNumber as GHCJS.DOM.SVGNumber-          , GHCJS.DOM.JSFFI.Generated.SVGNumberList as GHCJS.DOM.SVGNumberList-          , GHCJS.DOM.JSFFI.Generated.SVGPathElement as GHCJS.DOM.SVGPathElement-          , GHCJS.DOM.JSFFI.Generated.SVGPathSeg as GHCJS.DOM.SVGPathSeg-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs as GHCJS.DOM.SVGPathSegArcAbs-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel as GHCJS.DOM.SVGPathSegArcRel-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs as GHCJS.DOM.SVGPathSegCurvetoCubicAbs-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel as GHCJS.DOM.SVGPathSegCurvetoCubicRel-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs as GHCJS.DOM.SVGPathSegCurvetoCubicSmoothAbs-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel as GHCJS.DOM.SVGPathSegCurvetoCubicSmoothRel-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs as GHCJS.DOM.SVGPathSegCurvetoQuadraticAbs-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel as GHCJS.DOM.SVGPathSegCurvetoQuadraticRel-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs as GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothAbs-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel as GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothRel-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs as GHCJS.DOM.SVGPathSegLinetoAbs-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs as GHCJS.DOM.SVGPathSegLinetoHorizontalAbs-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel as GHCJS.DOM.SVGPathSegLinetoHorizontalRel-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel as GHCJS.DOM.SVGPathSegLinetoRel-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs as GHCJS.DOM.SVGPathSegLinetoVerticalAbs-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel as GHCJS.DOM.SVGPathSegLinetoVerticalRel-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegList as GHCJS.DOM.SVGPathSegList-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs as GHCJS.DOM.SVGPathSegMovetoAbs-          , GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel as GHCJS.DOM.SVGPathSegMovetoRel-          , GHCJS.DOM.JSFFI.Generated.SVGPatternElement as GHCJS.DOM.SVGPatternElement-          , GHCJS.DOM.JSFFI.Generated.SVGPoint as GHCJS.DOM.SVGPoint-          , GHCJS.DOM.JSFFI.Generated.SVGPointList as GHCJS.DOM.SVGPointList-          , GHCJS.DOM.JSFFI.Generated.SVGPolygonElement as GHCJS.DOM.SVGPolygonElement-          , GHCJS.DOM.JSFFI.Generated.SVGPolylineElement as GHCJS.DOM.SVGPolylineElement-          , GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio as GHCJS.DOM.SVGPreserveAspectRatio-          , GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement as GHCJS.DOM.SVGRadialGradientElement-          , GHCJS.DOM.JSFFI.Generated.SVGRect as GHCJS.DOM.SVGRect-          , GHCJS.DOM.JSFFI.Generated.SVGRectElement as GHCJS.DOM.SVGRectElement-          , GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent as GHCJS.DOM.SVGRenderingIntent-          , GHCJS.DOM.JSFFI.Generated.SVGSVGElement as GHCJS.DOM.SVGSVGElement-          , GHCJS.DOM.JSFFI.Generated.SVGScriptElement as GHCJS.DOM.SVGScriptElement-          , GHCJS.DOM.JSFFI.Generated.SVGStopElement as GHCJS.DOM.SVGStopElement-          , GHCJS.DOM.JSFFI.Generated.SVGStringList as GHCJS.DOM.SVGStringList-          , GHCJS.DOM.JSFFI.Generated.SVGStyleElement as GHCJS.DOM.SVGStyleElement-          , GHCJS.DOM.JSFFI.Generated.SVGTests as GHCJS.DOM.SVGTests-          , GHCJS.DOM.JSFFI.Generated.SVGTextContentElement as GHCJS.DOM.SVGTextContentElement-          , GHCJS.DOM.JSFFI.Generated.SVGTextPathElement as GHCJS.DOM.SVGTextPathElement-          , GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement as GHCJS.DOM.SVGTextPositioningElement-          , GHCJS.DOM.JSFFI.Generated.SVGTransform as GHCJS.DOM.SVGTransform-          , GHCJS.DOM.JSFFI.Generated.SVGTransformList as GHCJS.DOM.SVGTransformList-          , GHCJS.DOM.JSFFI.Generated.SVGURIReference as GHCJS.DOM.SVGURIReference-          , GHCJS.DOM.JSFFI.Generated.SVGUnitTypes as GHCJS.DOM.SVGUnitTypes-          , GHCJS.DOM.JSFFI.Generated.SVGUseElement as GHCJS.DOM.SVGUseElement-          , GHCJS.DOM.JSFFI.Generated.SVGViewElement as GHCJS.DOM.SVGViewElement-          , GHCJS.DOM.JSFFI.Generated.SVGViewSpec as GHCJS.DOM.SVGViewSpec-          , GHCJS.DOM.JSFFI.Generated.SVGZoomAndPan as GHCJS.DOM.SVGZoomAndPan-          , GHCJS.DOM.JSFFI.Generated.SVGZoomEvent as GHCJS.DOM.SVGZoomEvent-          , GHCJS.DOM.JSFFI.Generated.Screen as GHCJS.DOM.Screen-          , GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode as GHCJS.DOM.ScriptProcessorNode-          , GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent as GHCJS.DOM.SecurityPolicyViolationEvent-          , GHCJS.DOM.JSFFI.Generated.Selection as GHCJS.DOM.Selection-          , GHCJS.DOM.JSFFI.Generated.ShadowRoot as GHCJS.DOM.ShadowRoot-          , GHCJS.DOM.JSFFI.Generated.SiteBoundCredential as GHCJS.DOM.SiteBoundCredential-          , GHCJS.DOM.JSFFI.Generated.Slotable as GHCJS.DOM.Slotable-          , GHCJS.DOM.JSFFI.Generated.SourceBuffer as GHCJS.DOM.SourceBuffer-          , GHCJS.DOM.JSFFI.Generated.SourceBufferList as GHCJS.DOM.SourceBufferList-          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesis as GHCJS.DOM.SpeechSynthesis-          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent as GHCJS.DOM.SpeechSynthesisEvent-          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance as GHCJS.DOM.SpeechSynthesisUtterance-          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice as GHCJS.DOM.SpeechSynthesisVoice-          , GHCJS.DOM.JSFFI.Generated.StaticRange as GHCJS.DOM.StaticRange-          , GHCJS.DOM.JSFFI.Generated.Storage as GHCJS.DOM.Storage-          , GHCJS.DOM.JSFFI.Generated.StorageErrorCallback as GHCJS.DOM.StorageErrorCallback-          , GHCJS.DOM.JSFFI.Generated.StorageEvent as GHCJS.DOM.StorageEvent-          , GHCJS.DOM.JSFFI.Generated.StorageInfo as GHCJS.DOM.StorageInfo-          , GHCJS.DOM.JSFFI.Generated.StorageQuota as GHCJS.DOM.StorageQuota-          , GHCJS.DOM.JSFFI.Generated.StorageQuotaCallback as GHCJS.DOM.StorageQuotaCallback-          , GHCJS.DOM.JSFFI.Generated.StorageUsageCallback as GHCJS.DOM.StorageUsageCallback-          , GHCJS.DOM.JSFFI.Generated.StringCallback as GHCJS.DOM.StringCallback-          , GHCJS.DOM.JSFFI.Generated.StyleMedia as GHCJS.DOM.StyleMedia-          , GHCJS.DOM.JSFFI.Generated.StyleSheet as GHCJS.DOM.StyleSheet-          , GHCJS.DOM.JSFFI.Generated.StyleSheetList as GHCJS.DOM.StyleSheetList-          , GHCJS.DOM.JSFFI.Generated.SubtleCrypto as GHCJS.DOM.SubtleCrypto-          , GHCJS.DOM.JSFFI.Generated.Text as GHCJS.DOM.Text-          , GHCJS.DOM.JSFFI.Generated.TextDecoder as GHCJS.DOM.TextDecoder-          , GHCJS.DOM.JSFFI.Generated.TextEncoder as GHCJS.DOM.TextEncoder-          , GHCJS.DOM.JSFFI.Generated.TextEvent as GHCJS.DOM.TextEvent-          , GHCJS.DOM.JSFFI.Generated.TextMetrics as GHCJS.DOM.TextMetrics-          , GHCJS.DOM.JSFFI.Generated.TextTrack as GHCJS.DOM.TextTrack-          , GHCJS.DOM.JSFFI.Generated.TextTrackCue as GHCJS.DOM.TextTrackCue-          , GHCJS.DOM.JSFFI.Generated.TextTrackCueList as GHCJS.DOM.TextTrackCueList-          , GHCJS.DOM.JSFFI.Generated.TextTrackList as GHCJS.DOM.TextTrackList-          , GHCJS.DOM.JSFFI.Generated.TimeRanges as GHCJS.DOM.TimeRanges-          , GHCJS.DOM.JSFFI.Generated.Touch as GHCJS.DOM.Touch-          , GHCJS.DOM.JSFFI.Generated.TouchEvent as GHCJS.DOM.TouchEvent-          , GHCJS.DOM.JSFFI.Generated.TouchList as GHCJS.DOM.TouchList-          , GHCJS.DOM.JSFFI.Generated.TrackEvent as GHCJS.DOM.TrackEvent-          , GHCJS.DOM.JSFFI.Generated.TransitionEvent as GHCJS.DOM.TransitionEvent-          , GHCJS.DOM.JSFFI.Generated.TreeWalker as GHCJS.DOM.TreeWalker-          , GHCJS.DOM.JSFFI.Generated.UIEvent as GHCJS.DOM.UIEvent-          , GHCJS.DOM.JSFFI.Generated.URL as GHCJS.DOM.URL-          , GHCJS.DOM.JSFFI.Generated.URLSearchParams as GHCJS.DOM.URLSearchParams-          , GHCJS.DOM.JSFFI.Generated.UserMessageHandler as GHCJS.DOM.UserMessageHandler-          , GHCJS.DOM.JSFFI.Generated.VTTCue as GHCJS.DOM.VTTCue-          , GHCJS.DOM.JSFFI.Generated.VTTRegion as GHCJS.DOM.VTTRegion-          , GHCJS.DOM.JSFFI.Generated.VTTRegionList as GHCJS.DOM.VTTRegionList-          , GHCJS.DOM.JSFFI.Generated.ValidityState as GHCJS.DOM.ValidityState-          , GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality as GHCJS.DOM.VideoPlaybackQuality-          , GHCJS.DOM.JSFFI.Generated.VideoTrack as GHCJS.DOM.VideoTrack-          , GHCJS.DOM.JSFFI.Generated.VideoTrackList as GHCJS.DOM.VideoTrackList-          , GHCJS.DOM.JSFFI.Generated.VoidCallback as GHCJS.DOM.VoidCallback-          , GHCJS.DOM.JSFFI.Generated.WaveShaperNode as GHCJS.DOM.WaveShaperNode-          , GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext as GHCJS.DOM.WebGL2RenderingContext-          , GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo as GHCJS.DOM.WebGLActiveInfo-          , GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureATC as GHCJS.DOM.WebGLCompressedTextureATC-          , GHCJS.DOM.JSFFI.Generated.WebGLCompressedTexturePVRTC as GHCJS.DOM.WebGLCompressedTexturePVRTC-          , GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureS3TC as GHCJS.DOM.WebGLCompressedTextureS3TC-          , GHCJS.DOM.JSFFI.Generated.WebGLContextEvent as GHCJS.DOM.WebGLContextEvent-          , GHCJS.DOM.JSFFI.Generated.WebGLDebugRendererInfo as GHCJS.DOM.WebGLDebugRendererInfo-          , GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders as GHCJS.DOM.WebGLDebugShaders-          , GHCJS.DOM.JSFFI.Generated.WebGLDepthTexture as GHCJS.DOM.WebGLDepthTexture-          , GHCJS.DOM.JSFFI.Generated.WebGLDrawBuffers as GHCJS.DOM.WebGLDrawBuffers-          , GHCJS.DOM.JSFFI.Generated.WebGLLoseContext as GHCJS.DOM.WebGLLoseContext-          , GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase as GHCJS.DOM.WebGLRenderingContextBase-          , GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat as GHCJS.DOM.WebGLShaderPrecisionFormat-          , GHCJS.DOM.JSFFI.Generated.WebGPUBuffer as GHCJS.DOM.WebGPUBuffer-          , GHCJS.DOM.JSFFI.Generated.WebGPUCommandBuffer as GHCJS.DOM.WebGPUCommandBuffer-          , GHCJS.DOM.JSFFI.Generated.WebGPUCommandQueue as GHCJS.DOM.WebGPUCommandQueue-          , GHCJS.DOM.JSFFI.Generated.WebGPUComputeCommandEncoder as GHCJS.DOM.WebGPUComputeCommandEncoder-          , GHCJS.DOM.JSFFI.Generated.WebGPUDepthStencilDescriptor as GHCJS.DOM.WebGPUDepthStencilDescriptor-          , GHCJS.DOM.JSFFI.Generated.WebGPUDepthStencilState as GHCJS.DOM.WebGPUDepthStencilState-          , GHCJS.DOM.JSFFI.Generated.WebGPUDrawable as GHCJS.DOM.WebGPUDrawable-          , GHCJS.DOM.JSFFI.Generated.WebGPUFunction as GHCJS.DOM.WebGPUFunction-          , GHCJS.DOM.JSFFI.Generated.WebGPULibrary as GHCJS.DOM.WebGPULibrary-          , GHCJS.DOM.JSFFI.Generated.WebGPURenderCommandEncoder as GHCJS.DOM.WebGPURenderCommandEncoder-          , GHCJS.DOM.JSFFI.Generated.WebGPURenderPassAttachmentDescriptor as GHCJS.DOM.WebGPURenderPassAttachmentDescriptor-          , GHCJS.DOM.JSFFI.Generated.WebGPURenderPassColorAttachmentDescriptor as GHCJS.DOM.WebGPURenderPassColorAttachmentDescriptor-          , GHCJS.DOM.JSFFI.Generated.WebGPURenderPassDepthAttachmentDescriptor as GHCJS.DOM.WebGPURenderPassDepthAttachmentDescriptor-          , GHCJS.DOM.JSFFI.Generated.WebGPURenderPassDescriptor as GHCJS.DOM.WebGPURenderPassDescriptor-          , GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineColorAttachmentDescriptor as GHCJS.DOM.WebGPURenderPipelineColorAttachmentDescriptor-          , GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineDescriptor as GHCJS.DOM.WebGPURenderPipelineDescriptor-          , GHCJS.DOM.JSFFI.Generated.WebGPURenderPipelineState as GHCJS.DOM.WebGPURenderPipelineState-          , GHCJS.DOM.JSFFI.Generated.WebGPURenderingContext as GHCJS.DOM.WebGPURenderingContext-          , GHCJS.DOM.JSFFI.Generated.WebGPUTexture as GHCJS.DOM.WebGPUTexture-          , GHCJS.DOM.JSFFI.Generated.WebGPUTextureDescriptor as GHCJS.DOM.WebGPUTextureDescriptor-          , GHCJS.DOM.JSFFI.Generated.WebKitAnimationEvent as GHCJS.DOM.WebKitAnimationEvent-          , GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix as GHCJS.DOM.WebKitCSSMatrix-          , GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule as GHCJS.DOM.WebKitCSSRegionRule-          , GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule as GHCJS.DOM.WebKitCSSViewportRule-          , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyError as GHCJS.DOM.WebKitMediaKeyError-          , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyMessageEvent as GHCJS.DOM.WebKitMediaKeyMessageEvent-          , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeyNeededEvent as GHCJS.DOM.WebKitMediaKeyNeededEvent-          , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeySession as GHCJS.DOM.WebKitMediaKeySession-          , GHCJS.DOM.JSFFI.Generated.WebKitMediaKeys as GHCJS.DOM.WebKitMediaKeys-          , GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow as GHCJS.DOM.WebKitNamedFlow-          , GHCJS.DOM.JSFFI.Generated.WebKitNamespace as GHCJS.DOM.WebKitNamespace-          , GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent as GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent-          , GHCJS.DOM.JSFFI.Generated.WebKitPoint as GHCJS.DOM.WebKitPoint-          , GHCJS.DOM.JSFFI.Generated.WebKitSubtleCrypto as GHCJS.DOM.WebKitSubtleCrypto-          , GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent as GHCJS.DOM.WebKitTransitionEvent-          , GHCJS.DOM.JSFFI.Generated.WebSocket as GHCJS.DOM.WebSocket-          , GHCJS.DOM.JSFFI.Generated.WheelEvent as GHCJS.DOM.WheelEvent-          , GHCJS.DOM.JSFFI.Window as GHCJS.DOM.Window-          , GHCJS.DOM.JSFFI.Generated.WindowEventHandlers as GHCJS.DOM.WindowEventHandlers-          , GHCJS.DOM.JSFFI.Generated.WindowOrWorkerGlobalScope as GHCJS.DOM.WindowOrWorkerGlobalScope-          , GHCJS.DOM.JSFFI.Generated.Worker as GHCJS.DOM.Worker-          , GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope as GHCJS.DOM.WorkerGlobalScope-          , GHCJS.DOM.JSFFI.Generated.WorkerLocation as GHCJS.DOM.WorkerLocation-          , GHCJS.DOM.JSFFI.Generated.WorkerNavigator as GHCJS.DOM.WorkerNavigator-          , GHCJS.DOM.JSFFI.Generated.WritableStream as GHCJS.DOM.WritableStream-          , GHCJS.DOM.JSFFI.XMLHttpRequest as GHCJS.DOM.XMLHttpRequest-          , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestEventTarget as GHCJS.DOM.XMLHttpRequestEventTarget-          , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent as GHCJS.DOM.XMLHttpRequestProgressEvent-          , GHCJS.DOM.JSFFI.Generated.XMLSerializer as GHCJS.DOM.XMLSerializer-          , GHCJS.DOM.JSFFI.Generated.XPathEvaluator as GHCJS.DOM.XPathEvaluator-          , GHCJS.DOM.JSFFI.Generated.XPathException as GHCJS.DOM.XPathException-          , GHCJS.DOM.JSFFI.Generated.XPathExpression as GHCJS.DOM.XPathExpression-          , GHCJS.DOM.JSFFI.Generated.XPathNSResolver as GHCJS.DOM.XPathNSResolver-          , GHCJS.DOM.JSFFI.Generated.XPathResult as GHCJS.DOM.XPathResult-          , GHCJS.DOM.JSFFI.Generated.XSLTProcessor as GHCJS.DOM.XSLTProcessor+version: 0.10.0.0+build-type: Simple+license: MIT+license-file: LICENSE+extra-doc-files: ChangeLog.md+maintainer: Hamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>+synopsis: DOM library using JSFFI and GHCJS+description: Document Object Model (DOM) functions that work with+             GHCJS.+author: Hamish Mackenzie+category: Web++Tested-With:+  GHC == 8.8.1 || == 8.6.5 ||  == 8.4.4 || == 8.2.2 || == 8.0.2 || == 7.10.3,+  GHCJS == 8.4 || == 8.2++Source-Repository head+  type:         git+  location:     https://github.com/ghcjs/ghcjs-dom+  subdir:       ghcjs-dom-javascript++library+    build-depends: base <5,+                   transformers >=0.2 && <0.7,+                   text >= 0.11.0.6 && < 2.2,+                   ghcjs-base >=0.8.1.0 && <0.9,+                   ghc-prim++    default-language: Haskell2010++    if impl(ghcjs)+        other-extensions: JavaScriptFFI+        build-depends: ghcjs-prim++    hs-source-dirs: src+    cpp-options: -DUSE_JAVASCRIPTFFI+    exposed: True+    if impl(ghcjs) || arch(javascript)+        buildable: True+    else+        buildable: False+    js-sources: jsbits/xhr.js++    exposed-modules:+          -- The module lists below are generated by dom-gen; do not edit.+          GHCJS.DOM+          GHCJS.DOM.Types+          GHCJS.DOM.EventM+          GHCJS.DOM.EventTargetClosures+          GHCJS.DOM.Internal+          GHCJS.DOM.JSFFI.Geolocation+          GHCJS.DOM.JSFFI.GeolocationPositionError+          GHCJS.DOM.JSFFI.XMLHttpRequest+          GHCJS.DOM.JSFFI.Generated.ANGLE_instanced_arrays+          GHCJS.DOM.JSFFI.Generated.ARIAMixin+          GHCJS.DOM.JSFFI.Generated.ARIANotifyMixin+          GHCJS.DOM.JSFFI.Generated.AacEncoderConfig+          GHCJS.DOM.JSFFI.Generated.AbortController+          GHCJS.DOM.JSFFI.Generated.AbortSignal+          GHCJS.DOM.JSFFI.Generated.AbstractRange+          GHCJS.DOM.JSFFI.Generated.AbstractWorker+          GHCJS.DOM.JSFFI.Generated.AddEventListenerOptions+          GHCJS.DOM.JSFFI.Generated.AddressErrors+          GHCJS.DOM.JSFFI.Generated.AllAcceptedCredentialsOptions+          GHCJS.DOM.JSFFI.Generated.AnalyserNode+          GHCJS.DOM.JSFFI.Generated.AnalyserOptions+          GHCJS.DOM.JSFFI.Generated.Animatable+          GHCJS.DOM.JSFFI.Generated.Animation+          GHCJS.DOM.JSFFI.Generated.AnimationEffect+          GHCJS.DOM.JSFFI.Generated.AnimationEvent+          GHCJS.DOM.JSFFI.Generated.AnimationEventInit+          GHCJS.DOM.JSFFI.Generated.AnimationFrameProvider+          GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEvent+          GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEventInit+          GHCJS.DOM.JSFFI.Generated.AnimationTimeline+          GHCJS.DOM.JSFFI.Generated.AnimationTrigger+          GHCJS.DOM.JSFFI.Generated.AriaNotificationOptions+          GHCJS.DOM.JSFFI.Generated.AssignedNodesOptions+          GHCJS.DOM.JSFFI.Generated.Attr+          GHCJS.DOM.JSFFI.Generated.AudioBuffer+          GHCJS.DOM.JSFFI.Generated.AudioBufferOptions+          GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode+          GHCJS.DOM.JSFFI.Generated.AudioBufferSourceOptions+          GHCJS.DOM.JSFFI.Generated.AudioConfiguration+          GHCJS.DOM.JSFFI.Generated.AudioContext+          GHCJS.DOM.JSFFI.Generated.AudioContextOptions+          GHCJS.DOM.JSFFI.Generated.AudioData+          GHCJS.DOM.JSFFI.Generated.AudioDataCopyToOptions+          GHCJS.DOM.JSFFI.Generated.AudioDataInit+          GHCJS.DOM.JSFFI.Generated.AudioDataOutputCallback+          GHCJS.DOM.JSFFI.Generated.AudioDecoder+          GHCJS.DOM.JSFFI.Generated.AudioDecoderConfig+          GHCJS.DOM.JSFFI.Generated.AudioDecoderInit+          GHCJS.DOM.JSFFI.Generated.AudioDecoderSupport+          GHCJS.DOM.JSFFI.Generated.AudioDestinationNode+          GHCJS.DOM.JSFFI.Generated.AudioEncoder+          GHCJS.DOM.JSFFI.Generated.AudioEncoderConfig+          GHCJS.DOM.JSFFI.Generated.AudioEncoderInit+          GHCJS.DOM.JSFFI.Generated.AudioEncoderSupport+          GHCJS.DOM.JSFFI.Generated.AudioListener+          GHCJS.DOM.JSFFI.Generated.AudioNode+          GHCJS.DOM.JSFFI.Generated.AudioNodeOptions+          GHCJS.DOM.JSFFI.Generated.AudioParam+          GHCJS.DOM.JSFFI.Generated.AudioParamMap+          GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent+          GHCJS.DOM.JSFFI.Generated.AudioProcessingEventInit+          GHCJS.DOM.JSFFI.Generated.AudioScheduledSourceNode+          GHCJS.DOM.JSFFI.Generated.AudioSinkOptions+          GHCJS.DOM.JSFFI.Generated.AudioTimestamp+          GHCJS.DOM.JSFFI.Generated.AudioTrack+          GHCJS.DOM.JSFFI.Generated.AudioTrackList+          GHCJS.DOM.JSFFI.Generated.AudioWorklet+          GHCJS.DOM.JSFFI.Generated.AudioWorkletGlobalScope+          GHCJS.DOM.JSFFI.Generated.AudioWorkletNode+          GHCJS.DOM.JSFFI.Generated.AudioWorkletNodeOptions+          GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessor+          GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessorConstructor+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputs+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputsJSON+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientOutputs+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputs+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputsJSON+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobOutputs+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputs+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputsJSON+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFOutputs+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValues+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValuesJSON+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentInputs+          GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentOutputs+          GHCJS.DOM.JSFFI.Generated.AuthenticatorAssertionResponse+          GHCJS.DOM.JSFFI.Generated.AuthenticatorAttestationResponse+          GHCJS.DOM.JSFFI.Generated.AuthenticatorResponse+          GHCJS.DOM.JSFFI.Generated.AuthenticatorSelectionCriteria+          GHCJS.DOM.JSFFI.Generated.AutofillEvent+          GHCJS.DOM.JSFFI.Generated.AvcEncoderConfig+          GHCJS.DOM.JSFFI.Generated.BackgroundBlur+          GHCJS.DOM.JSFFI.Generated.BarProp+          GHCJS.DOM.JSFFI.Generated.BaseAudioContext+          GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent+          GHCJS.DOM.JSFFI.Generated.BiquadFilterNode+          GHCJS.DOM.JSFFI.Generated.BiquadFilterOptions+          GHCJS.DOM.JSFFI.Generated.Blob+          GHCJS.DOM.JSFFI.Generated.BlobCallback+          GHCJS.DOM.JSFFI.Generated.BlobEvent+          GHCJS.DOM.JSFFI.Generated.BlobEventInit+          GHCJS.DOM.JSFFI.Generated.BlobPropertyBag+          GHCJS.DOM.JSFFI.Generated.Body+          GHCJS.DOM.JSFFI.Generated.BroadcastChannel+          GHCJS.DOM.JSFFI.Generated.BrowserBoundSignature+          GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy+          GHCJS.DOM.JSFFI.Generated.CDATASection+          GHCJS.DOM.JSFFI.Generated.CSS+          GHCJS.DOM.JSFFI.Generated.CSSAnimation+          GHCJS.DOM.JSFFI.Generated.CSSConditionRule+          GHCJS.DOM.JSFFI.Generated.CSSContainerCondition+          GHCJS.DOM.JSFFI.Generated.CSSContainerRule+          GHCJS.DOM.JSFFI.Generated.CSSCounterStyleRule+          GHCJS.DOM.JSFFI.Generated.CSSFontFaceDescriptors+          GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule+          GHCJS.DOM.JSFFI.Generated.CSSFontFeatureValuesRule+          GHCJS.DOM.JSFFI.Generated.CSSFontPaletteValuesRule+          GHCJS.DOM.JSFFI.Generated.CSSGroupingRule+          GHCJS.DOM.JSFFI.Generated.CSSImageValue+          GHCJS.DOM.JSFFI.Generated.CSSImportRule+          GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule+          GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule+          GHCJS.DOM.JSFFI.Generated.CSSKeywordValue+          GHCJS.DOM.JSFFI.Generated.CSSLayerBlockRule+          GHCJS.DOM.JSFFI.Generated.CSSLayerStatementRule+          GHCJS.DOM.JSFFI.Generated.CSSMathClamp+          GHCJS.DOM.JSFFI.Generated.CSSMathInvert+          GHCJS.DOM.JSFFI.Generated.CSSMathMax+          GHCJS.DOM.JSFFI.Generated.CSSMathMin+          GHCJS.DOM.JSFFI.Generated.CSSMathNegate+          GHCJS.DOM.JSFFI.Generated.CSSMathProduct+          GHCJS.DOM.JSFFI.Generated.CSSMathSum+          GHCJS.DOM.JSFFI.Generated.CSSMathValue+          GHCJS.DOM.JSFFI.Generated.CSSMatrixComponent+          GHCJS.DOM.JSFFI.Generated.CSSMatrixComponentOptions+          GHCJS.DOM.JSFFI.Generated.CSSMediaRule+          GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule+          GHCJS.DOM.JSFFI.Generated.CSSNestedDeclarations+          GHCJS.DOM.JSFFI.Generated.CSSNumericArray+          GHCJS.DOM.JSFFI.Generated.CSSNumericType+          GHCJS.DOM.JSFFI.Generated.CSSNumericValue+          GHCJS.DOM.JSFFI.Generated.CSSPageDescriptors+          GHCJS.DOM.JSFFI.Generated.CSSPageRule+          GHCJS.DOM.JSFFI.Generated.CSSPerspective+          GHCJS.DOM.JSFFI.Generated.CSSPositionTryDescriptors+          GHCJS.DOM.JSFFI.Generated.CSSPositionTryRule+          GHCJS.DOM.JSFFI.Generated.CSSPropertyRule+          GHCJS.DOM.JSFFI.Generated.CSSRotate+          GHCJS.DOM.JSFFI.Generated.CSSRule+          GHCJS.DOM.JSFFI.Generated.CSSRuleList+          GHCJS.DOM.JSFFI.Generated.CSSScale+          GHCJS.DOM.JSFFI.Generated.CSSScopeRule+          GHCJS.DOM.JSFFI.Generated.CSSSkew+          GHCJS.DOM.JSFFI.Generated.CSSSkewX+          GHCJS.DOM.JSFFI.Generated.CSSSkewY+          GHCJS.DOM.JSFFI.Generated.CSSStartingStyleRule+          GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration+          GHCJS.DOM.JSFFI.Generated.CSSStyleProperties+          GHCJS.DOM.JSFFI.Generated.CSSStyleRule+          GHCJS.DOM.JSFFI.Generated.CSSStyleSheet+          GHCJS.DOM.JSFFI.Generated.CSSStyleSheetInit+          GHCJS.DOM.JSFFI.Generated.CSSStyleValue+          GHCJS.DOM.JSFFI.Generated.CSSSupportsRule+          GHCJS.DOM.JSFFI.Generated.CSSTransformComponent+          GHCJS.DOM.JSFFI.Generated.CSSTransformValue+          GHCJS.DOM.JSFFI.Generated.CSSTransition+          GHCJS.DOM.JSFFI.Generated.CSSTranslate+          GHCJS.DOM.JSFFI.Generated.CSSUnitValue+          GHCJS.DOM.JSFFI.Generated.CSSUnparsedValue+          GHCJS.DOM.JSFFI.Generated.CSSVariableReferenceValue+          GHCJS.DOM.JSFFI.Generated.CSSViewTransitionRule+          GHCJS.DOM.JSFFI.Generated.Cache+          GHCJS.DOM.JSFFI.Generated.CacheQueryOptions+          GHCJS.DOM.JSFFI.Generated.CacheStorage+          GHCJS.DOM.JSFFI.Generated.CanvasCaptureMediaStreamTrack+          GHCJS.DOM.JSFFI.Generated.CanvasCompositing+          GHCJS.DOM.JSFFI.Generated.CanvasDrawImage+          GHCJS.DOM.JSFFI.Generated.CanvasDrawPath+          GHCJS.DOM.JSFFI.Generated.CanvasFillStrokeStyles+          GHCJS.DOM.JSFFI.Generated.CanvasFilters+          GHCJS.DOM.JSFFI.Generated.CanvasGradient+          GHCJS.DOM.JSFFI.Generated.CanvasImageData+          GHCJS.DOM.JSFFI.Generated.CanvasImageSmoothing+          GHCJS.DOM.JSFFI.Generated.CanvasPath+          GHCJS.DOM.JSFFI.Generated.CanvasPathDrawingStyles+          GHCJS.DOM.JSFFI.Generated.CanvasPattern+          GHCJS.DOM.JSFFI.Generated.CanvasRect+          GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D+          GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2DSettings+          GHCJS.DOM.JSFFI.Generated.CanvasSettings+          GHCJS.DOM.JSFFI.Generated.CanvasShadowStyles+          GHCJS.DOM.JSFFI.Generated.CanvasState+          GHCJS.DOM.JSFFI.Generated.CanvasText+          GHCJS.DOM.JSFFI.Generated.CanvasTextDrawingStyles+          GHCJS.DOM.JSFFI.Generated.CanvasTransform+          GHCJS.DOM.JSFFI.Generated.CanvasUserInterface+          GHCJS.DOM.JSFFI.Generated.CaptureController+          GHCJS.DOM.JSFFI.Generated.CaretPosition+          GHCJS.DOM.JSFFI.Generated.CaretPositionFromPointOptions+          GHCJS.DOM.JSFFI.Generated.ChannelMergerNode+          GHCJS.DOM.JSFFI.Generated.ChannelMergerOptions+          GHCJS.DOM.JSFFI.Generated.ChannelSplitterNode+          GHCJS.DOM.JSFFI.Generated.ChannelSplitterOptions+          GHCJS.DOM.JSFFI.Generated.ChapterInformationInit+          GHCJS.DOM.JSFFI.Generated.CharacterData+          GHCJS.DOM.JSFFI.Generated.CheckVisibilityOptions+          GHCJS.DOM.JSFFI.Generated.ChildNode+          GHCJS.DOM.JSFFI.Generated.Client+          GHCJS.DOM.JSFFI.Generated.ClientQueryOptions+          GHCJS.DOM.JSFFI.Generated.Clients+          GHCJS.DOM.JSFFI.Generated.Clipboard+          GHCJS.DOM.JSFFI.Generated.ClipboardChangeEvent+          GHCJS.DOM.JSFFI.Generated.ClipboardEvent+          GHCJS.DOM.JSFFI.Generated.ClipboardEventInit+          GHCJS.DOM.JSFFI.Generated.ClipboardItem+          GHCJS.DOM.JSFFI.Generated.ClipboardItemOptions+          GHCJS.DOM.JSFFI.Generated.ClipboardUnsanitizedFormats+          GHCJS.DOM.JSFFI.Generated.CloseEvent+          GHCJS.DOM.JSFFI.Generated.CloseEventInit+          GHCJS.DOM.JSFFI.Generated.CloseWatcher+          GHCJS.DOM.JSFFI.Generated.CloseWatcherOptions+          GHCJS.DOM.JSFFI.Generated.CommandEvent+          GHCJS.DOM.JSFFI.Generated.CommandEventInit+          GHCJS.DOM.JSFFI.Generated.Comment+          GHCJS.DOM.JSFFI.Generated.CompositionEvent+          GHCJS.DOM.JSFFI.Generated.CompositionEventInit+          GHCJS.DOM.JSFFI.Generated.CompressionStream+          GHCJS.DOM.JSFFI.Generated.ComputedEffectTiming+          GHCJS.DOM.JSFFI.Generated.Console+          GHCJS.DOM.JSFFI.Generated.ConstantSourceNode+          GHCJS.DOM.JSFFI.Generated.ConstantSourceOptions+          GHCJS.DOM.JSFFI.Generated.ConstrainBooleanOrDOMStringParameters+          GHCJS.DOM.JSFFI.Generated.ConstrainBooleanParameters+          GHCJS.DOM.JSFFI.Generated.ConstrainDOMStringParameters+          GHCJS.DOM.JSFFI.Generated.ConstrainDoubleRange+          GHCJS.DOM.JSFFI.Generated.ConstrainPoint2DParameters+          GHCJS.DOM.JSFFI.Generated.ConstrainULongRange+          GHCJS.DOM.JSFFI.Generated.ContactAddress+          GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEvent+          GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEventInit+          GHCJS.DOM.JSFFI.Generated.ConvolverNode+          GHCJS.DOM.JSFFI.Generated.ConvolverOptions+          GHCJS.DOM.JSFFI.Generated.CookieChangeEvent+          GHCJS.DOM.JSFFI.Generated.CookieChangeEventInit+          GHCJS.DOM.JSFFI.Generated.CookieInit+          GHCJS.DOM.JSFFI.Generated.CookieListItem+          GHCJS.DOM.JSFFI.Generated.CookieStore+          GHCJS.DOM.JSFFI.Generated.CookieStoreDeleteOptions+          GHCJS.DOM.JSFFI.Generated.CookieStoreGetOptions+          GHCJS.DOM.JSFFI.Generated.CookieStoreManager+          GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy+          GHCJS.DOM.JSFFI.Generated.CreateHTMLCallback+          GHCJS.DOM.JSFFI.Generated.CreateParserOptionsCallback+          GHCJS.DOM.JSFFI.Generated.CreateScriptCallback+          GHCJS.DOM.JSFFI.Generated.CreateScriptURLCallback+          GHCJS.DOM.JSFFI.Generated.Credential+          GHCJS.DOM.JSFFI.Generated.CredentialCreationOptions+          GHCJS.DOM.JSFFI.Generated.CredentialData+          GHCJS.DOM.JSFFI.Generated.CredentialPropertiesOutput+          GHCJS.DOM.JSFFI.Generated.CredentialRequestOptions+          GHCJS.DOM.JSFFI.Generated.CredentialsContainer+          GHCJS.DOM.JSFFI.Generated.Crypto+          GHCJS.DOM.JSFFI.Generated.CryptoKey+          GHCJS.DOM.JSFFI.Generated.CryptoKeyPair+          GHCJS.DOM.JSFFI.Generated.CurrentUserDetailsOptions+          GHCJS.DOM.JSFFI.Generated.CustomElementConstructor+          GHCJS.DOM.JSFFI.Generated.CustomElementRegistry+          GHCJS.DOM.JSFFI.Generated.CustomEvent+          GHCJS.DOM.JSFFI.Generated.CustomEventInit+          GHCJS.DOM.JSFFI.Generated.CustomStateSet+          GHCJS.DOM.JSFFI.Generated.DOMException+          GHCJS.DOM.JSFFI.Generated.DOMImplementation+          GHCJS.DOM.JSFFI.Generated.DOMMatrix+          GHCJS.DOM.JSFFI.Generated.DOMMatrix2DInit+          GHCJS.DOM.JSFFI.Generated.DOMMatrixInit+          GHCJS.DOM.JSFFI.Generated.DOMMatrixReadOnly+          GHCJS.DOM.JSFFI.Generated.DOMParser+          GHCJS.DOM.JSFFI.Generated.DOMPoint+          GHCJS.DOM.JSFFI.Generated.DOMPointInit+          GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly+          GHCJS.DOM.JSFFI.Generated.DOMQuad+          GHCJS.DOM.JSFFI.Generated.DOMQuadInit+          GHCJS.DOM.JSFFI.Generated.DOMRect+          GHCJS.DOM.JSFFI.Generated.DOMRectInit+          GHCJS.DOM.JSFFI.Generated.DOMRectList+          GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly+          GHCJS.DOM.JSFFI.Generated.DOMStringList+          GHCJS.DOM.JSFFI.Generated.DOMStringMap+          GHCJS.DOM.JSFFI.Generated.DOMTokenList+          GHCJS.DOM.JSFFI.Generated.DataCue+          GHCJS.DOM.JSFFI.Generated.DataTransfer+          GHCJS.DOM.JSFFI.Generated.DataTransferItem+          GHCJS.DOM.JSFFI.Generated.DataTransferItemList+          GHCJS.DOM.JSFFI.Generated.DecodeErrorCallback+          GHCJS.DOM.JSFFI.Generated.DecodeSuccessCallback+          GHCJS.DOM.JSFFI.Generated.DecompressionStream+          GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope+          GHCJS.DOM.JSFFI.Generated.DelayNode+          GHCJS.DOM.JSFFI.Generated.DelayOptions+          GHCJS.DOM.JSFFI.Generated.DeviceChangeEvent+          GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent+          GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAcceleration+          GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAccelerationInit+          GHCJS.DOM.JSFFI.Generated.DeviceMotionEventInit+          GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRate+          GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRateInit+          GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent+          GHCJS.DOM.JSFFI.Generated.DeviceOrientationEventInit+          GHCJS.DOM.JSFFI.Generated.DigitalCredential+          GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreateRequest+          GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreationOptions+          GHCJS.DOM.JSFFI.Generated.DigitalCredentialGetRequest+          GHCJS.DOM.JSFFI.Generated.DigitalCredentialRequestOptions+          GHCJS.DOM.JSFFI.Generated.DisplayMediaStreamOptions+          GHCJS.DOM.JSFFI.Generated.Document+          GHCJS.DOM.JSFFI.Generated.DocumentFragment+          GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot+          GHCJS.DOM.JSFFI.Generated.DocumentPictureInPicture+          GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEvent+          GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEventInit+          GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureOptions+          GHCJS.DOM.JSFFI.Generated.DocumentTimeline+          GHCJS.DOM.JSFFI.Generated.DocumentTimelineOptions+          GHCJS.DOM.JSFFI.Generated.DocumentType+          GHCJS.DOM.JSFFI.Generated.DoubleRange+          GHCJS.DOM.JSFFI.Generated.DragEvent+          GHCJS.DOM.JSFFI.Generated.DragEventInit+          GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode+          GHCJS.DOM.JSFFI.Generated.DynamicsCompressorOptions+          GHCJS.DOM.JSFFI.Generated.EXT_blend_minmax+          GHCJS.DOM.JSFFI.Generated.EXT_clip_control+          GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_float+          GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_half_float+          GHCJS.DOM.JSFFI.Generated.EXT_float_blend+          GHCJS.DOM.JSFFI.Generated.EXT_frag_depth+          GHCJS.DOM.JSFFI.Generated.EXT_polygon_offset_clamp+          GHCJS.DOM.JSFFI.Generated.EXT_sRGB+          GHCJS.DOM.JSFFI.Generated.EXT_shader_texture_lod+          GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_bptc+          GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_rgtc+          GHCJS.DOM.JSFFI.Generated.EXT_texture_filter_anisotropic+          GHCJS.DOM.JSFFI.Generated.EXT_texture_mirror_clamp_to_edge+          GHCJS.DOM.JSFFI.Generated.EXT_texture_norm16+          GHCJS.DOM.JSFFI.Generated.EffectTiming+          GHCJS.DOM.JSFFI.Generated.Element+          GHCJS.DOM.JSFFI.Generated.ElementCSSInlineStyle+          GHCJS.DOM.JSFFI.Generated.ElementContentEditable+          GHCJS.DOM.JSFFI.Generated.ElementCreationOptions+          GHCJS.DOM.JSFFI.Generated.ElementDefinitionOptions+          GHCJS.DOM.JSFFI.Generated.ElementInternals+          GHCJS.DOM.JSFFI.Generated.EncodedAudioChunk+          GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkInit+          GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkMetadata+          GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkOutputCallback+          GHCJS.DOM.JSFFI.Generated.EncodedVideoChunk+          GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkInit+          GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkMetadata+          GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkOutputCallback+          GHCJS.DOM.JSFFI.Generated.Enums+          GHCJS.DOM.JSFFI.Generated.ErrorCallback+          GHCJS.DOM.JSFFI.Generated.ErrorEvent+          GHCJS.DOM.JSFFI.Generated.ErrorEventInit+          GHCJS.DOM.JSFFI.Generated.Event+          GHCJS.DOM.JSFFI.Generated.EventCounts+          GHCJS.DOM.JSFFI.Generated.EventInit+          GHCJS.DOM.JSFFI.Generated.EventListenerOptions+          GHCJS.DOM.JSFFI.Generated.EventModifierInit+          GHCJS.DOM.JSFFI.Generated.EventSource+          GHCJS.DOM.JSFFI.Generated.EventSourceInit+          GHCJS.DOM.JSFFI.Generated.EventTarget+          GHCJS.DOM.JSFFI.Generated.ExtendableCookieChangeEvent+          GHCJS.DOM.JSFFI.Generated.ExtendableCookieChangeEventInit+          GHCJS.DOM.JSFFI.Generated.ExtendableEvent+          GHCJS.DOM.JSFFI.Generated.ExtendableEventInit+          GHCJS.DOM.JSFFI.Generated.ExtendableMessageEvent+          GHCJS.DOM.JSFFI.Generated.ExtendableMessageEventInit+          GHCJS.DOM.JSFFI.Generated.External+          GHCJS.DOM.JSFFI.Generated.FederatedCredentialInit+          GHCJS.DOM.JSFFI.Generated.FederatedCredentialRequestOptions+          GHCJS.DOM.JSFFI.Generated.FetchEvent+          GHCJS.DOM.JSFFI.Generated.FetchEventInit+          GHCJS.DOM.JSFFI.Generated.File+          GHCJS.DOM.JSFFI.Generated.FileCallback+          GHCJS.DOM.JSFFI.Generated.FileList+          GHCJS.DOM.JSFFI.Generated.FilePropertyBag+          GHCJS.DOM.JSFFI.Generated.FileReader+          GHCJS.DOM.JSFFI.Generated.FileReaderSync+          GHCJS.DOM.JSFFI.Generated.FileSystem+          GHCJS.DOM.JSFFI.Generated.FileSystemCreateWritableOptions+          GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryEntry+          GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryHandle+          GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryReader+          GHCJS.DOM.JSFFI.Generated.FileSystemEntriesCallback+          GHCJS.DOM.JSFFI.Generated.FileSystemEntry+          GHCJS.DOM.JSFFI.Generated.FileSystemEntryCallback+          GHCJS.DOM.JSFFI.Generated.FileSystemFileEntry+          GHCJS.DOM.JSFFI.Generated.FileSystemFileHandle+          GHCJS.DOM.JSFFI.Generated.FileSystemFlags+          GHCJS.DOM.JSFFI.Generated.FileSystemGetDirectoryOptions+          GHCJS.DOM.JSFFI.Generated.FileSystemGetFileOptions+          GHCJS.DOM.JSFFI.Generated.FileSystemHandle+          GHCJS.DOM.JSFFI.Generated.FileSystemReadWriteOptions+          GHCJS.DOM.JSFFI.Generated.FileSystemRemoveOptions+          GHCJS.DOM.JSFFI.Generated.FileSystemSyncAccessHandle+          GHCJS.DOM.JSFFI.Generated.FileSystemWritableFileStream+          GHCJS.DOM.JSFFI.Generated.FlacEncoderConfig+          GHCJS.DOM.JSFFI.Generated.FocusEvent+          GHCJS.DOM.JSFFI.Generated.FocusEventInit+          GHCJS.DOM.JSFFI.Generated.FocusOptions+          GHCJS.DOM.JSFFI.Generated.FontFace+          GHCJS.DOM.JSFFI.Generated.FontFaceDescriptors+          GHCJS.DOM.JSFFI.Generated.FontFaceSet+          GHCJS.DOM.JSFFI.Generated.FontFaceSetLoadEvent+          GHCJS.DOM.JSFFI.Generated.FontFaceSetLoadEventInit+          GHCJS.DOM.JSFFI.Generated.FontFaceSource+          GHCJS.DOM.JSFFI.Generated.FormData+          GHCJS.DOM.JSFFI.Generated.FormDataEvent+          GHCJS.DOM.JSFFI.Generated.FormDataEventInit+          GHCJS.DOM.JSFFI.Generated.FragmentDirective+          GHCJS.DOM.JSFFI.Generated.FrameRequestCallback+          GHCJS.DOM.JSFFI.Generated.FullscreenOptions+          GHCJS.DOM.JSFFI.Generated.FunctionStringCallback+          GHCJS.DOM.JSFFI.Generated.GPU+          GHCJS.DOM.JSFFI.Generated.GPUAdapter+          GHCJS.DOM.JSFFI.Generated.GPUAdapterInfo+          GHCJS.DOM.JSFFI.Generated.GPUBindGroup+          GHCJS.DOM.JSFFI.Generated.GPUBindGroupDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUBindGroupEntry+          GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayout+          GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayoutDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayoutEntry+          GHCJS.DOM.JSFFI.Generated.GPUBindingCommandsMixin+          GHCJS.DOM.JSFFI.Generated.GPUBlendComponent+          GHCJS.DOM.JSFFI.Generated.GPUBlendState+          GHCJS.DOM.JSFFI.Generated.GPUBuffer+          GHCJS.DOM.JSFFI.Generated.GPUBufferBinding+          GHCJS.DOM.JSFFI.Generated.GPUBufferBindingLayout+          GHCJS.DOM.JSFFI.Generated.GPUBufferDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUCanvasConfiguration+          GHCJS.DOM.JSFFI.Generated.GPUCanvasContext+          GHCJS.DOM.JSFFI.Generated.GPUCanvasToneMapping+          GHCJS.DOM.JSFFI.Generated.GPUColorDict+          GHCJS.DOM.JSFFI.Generated.GPUColorTargetState+          GHCJS.DOM.JSFFI.Generated.GPUCommandBuffer+          GHCJS.DOM.JSFFI.Generated.GPUCommandBufferDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUCommandEncoder+          GHCJS.DOM.JSFFI.Generated.GPUCommandEncoderDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUCompilationInfo+          GHCJS.DOM.JSFFI.Generated.GPUCompilationMessage+          GHCJS.DOM.JSFFI.Generated.GPUComputePassDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUComputePassEncoder+          GHCJS.DOM.JSFFI.Generated.GPUComputePassTimestampWrites+          GHCJS.DOM.JSFFI.Generated.GPUComputePipeline+          GHCJS.DOM.JSFFI.Generated.GPUComputePipelineDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUCopyExternalImageDestInfo+          GHCJS.DOM.JSFFI.Generated.GPUCopyExternalImageSourceInfo+          GHCJS.DOM.JSFFI.Generated.GPUDebugCommandsMixin+          GHCJS.DOM.JSFFI.Generated.GPUDepthStencilState+          GHCJS.DOM.JSFFI.Generated.GPUDevice+          GHCJS.DOM.JSFFI.Generated.GPUDeviceDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUDeviceLostInfo+          GHCJS.DOM.JSFFI.Generated.GPUError+          GHCJS.DOM.JSFFI.Generated.GPUExtent3DDict+          GHCJS.DOM.JSFFI.Generated.GPUExternalTexture+          GHCJS.DOM.JSFFI.Generated.GPUExternalTextureBindingLayout+          GHCJS.DOM.JSFFI.Generated.GPUExternalTextureDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUFragmentState+          GHCJS.DOM.JSFFI.Generated.GPUInternalError+          GHCJS.DOM.JSFFI.Generated.GPUMultisampleState+          GHCJS.DOM.JSFFI.Generated.GPUObjectBase+          GHCJS.DOM.JSFFI.Generated.GPUObjectDescriptorBase+          GHCJS.DOM.JSFFI.Generated.GPUOrigin2DDict+          GHCJS.DOM.JSFFI.Generated.GPUOrigin3DDict+          GHCJS.DOM.JSFFI.Generated.GPUOutOfMemoryError+          GHCJS.DOM.JSFFI.Generated.GPUPipelineBase+          GHCJS.DOM.JSFFI.Generated.GPUPipelineDescriptorBase+          GHCJS.DOM.JSFFI.Generated.GPUPipelineError+          GHCJS.DOM.JSFFI.Generated.GPUPipelineErrorInit+          GHCJS.DOM.JSFFI.Generated.GPUPipelineLayout+          GHCJS.DOM.JSFFI.Generated.GPUPipelineLayoutDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUPrimitiveState+          GHCJS.DOM.JSFFI.Generated.GPUProgrammableStage+          GHCJS.DOM.JSFFI.Generated.GPUQuerySet+          GHCJS.DOM.JSFFI.Generated.GPUQuerySetDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUQueue+          GHCJS.DOM.JSFFI.Generated.GPUQueueDescriptor+          GHCJS.DOM.JSFFI.Generated.GPURenderBundle+          GHCJS.DOM.JSFFI.Generated.GPURenderBundleDescriptor+          GHCJS.DOM.JSFFI.Generated.GPURenderBundleEncoder+          GHCJS.DOM.JSFFI.Generated.GPURenderBundleEncoderDescriptor+          GHCJS.DOM.JSFFI.Generated.GPURenderCommandsMixin+          GHCJS.DOM.JSFFI.Generated.GPURenderPassColorAttachment+          GHCJS.DOM.JSFFI.Generated.GPURenderPassDepthStencilAttachment+          GHCJS.DOM.JSFFI.Generated.GPURenderPassDescriptor+          GHCJS.DOM.JSFFI.Generated.GPURenderPassEncoder+          GHCJS.DOM.JSFFI.Generated.GPURenderPassLayout+          GHCJS.DOM.JSFFI.Generated.GPURenderPassTimestampWrites+          GHCJS.DOM.JSFFI.Generated.GPURenderPipeline+          GHCJS.DOM.JSFFI.Generated.GPURenderPipelineDescriptor+          GHCJS.DOM.JSFFI.Generated.GPURequestAdapterOptions+          GHCJS.DOM.JSFFI.Generated.GPUSampler+          GHCJS.DOM.JSFFI.Generated.GPUSamplerBindingLayout+          GHCJS.DOM.JSFFI.Generated.GPUSamplerDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUShaderModule+          GHCJS.DOM.JSFFI.Generated.GPUShaderModuleCompilationHint+          GHCJS.DOM.JSFFI.Generated.GPUShaderModuleDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUStencilFaceState+          GHCJS.DOM.JSFFI.Generated.GPUStorageTextureBindingLayout+          GHCJS.DOM.JSFFI.Generated.GPUSupportedFeatures+          GHCJS.DOM.JSFFI.Generated.GPUSupportedLimits+          GHCJS.DOM.JSFFI.Generated.GPUTexelCopyBufferInfo+          GHCJS.DOM.JSFFI.Generated.GPUTexelCopyBufferLayout+          GHCJS.DOM.JSFFI.Generated.GPUTexelCopyTextureInfo+          GHCJS.DOM.JSFFI.Generated.GPUTexture+          GHCJS.DOM.JSFFI.Generated.GPUTextureBindingLayout+          GHCJS.DOM.JSFFI.Generated.GPUTextureDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUTextureView+          GHCJS.DOM.JSFFI.Generated.GPUTextureViewDescriptor+          GHCJS.DOM.JSFFI.Generated.GPUUncapturedErrorEvent+          GHCJS.DOM.JSFFI.Generated.GPUUncapturedErrorEventInit+          GHCJS.DOM.JSFFI.Generated.GPUValidationError+          GHCJS.DOM.JSFFI.Generated.GPUVertexAttribute+          GHCJS.DOM.JSFFI.Generated.GPUVertexBufferLayout+          GHCJS.DOM.JSFFI.Generated.GPUVertexState+          GHCJS.DOM.JSFFI.Generated.GainNode+          GHCJS.DOM.JSFFI.Generated.GainOptions+          GHCJS.DOM.JSFFI.Generated.Gamepad+          GHCJS.DOM.JSFFI.Generated.GamepadButton+          GHCJS.DOM.JSFFI.Generated.GamepadEffectParameters+          GHCJS.DOM.JSFFI.Generated.GamepadEvent+          GHCJS.DOM.JSFFI.Generated.GamepadEventInit+          GHCJS.DOM.JSFFI.Generated.GamepadHapticActuator+          GHCJS.DOM.JSFFI.Generated.GenericTransformStream+          GHCJS.DOM.JSFFI.Generated.Geolocation+          GHCJS.DOM.JSFFI.Generated.GeolocationCoordinates+          GHCJS.DOM.JSFFI.Generated.GeolocationPosition+          GHCJS.DOM.JSFFI.Generated.GeolocationPositionError+          GHCJS.DOM.JSFFI.Generated.GetAnimationsOptions+          GHCJS.DOM.JSFFI.Generated.GetComposedRangesOptions+          GHCJS.DOM.JSFFI.Generated.GetHTMLOptions+          GHCJS.DOM.JSFFI.Generated.GetNotificationOptions+          GHCJS.DOM.JSFFI.Generated.GetRootNodeOptions+          GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers+          GHCJS.DOM.JSFFI.Generated.HMACGetSecretInput+          GHCJS.DOM.JSFFI.Generated.HMACGetSecretOutput+          GHCJS.DOM.JSFFI.Generated.HTMLAllCollection+          GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement+          GHCJS.DOM.JSFFI.Generated.HTMLAreaElement+          GHCJS.DOM.JSFFI.Generated.HTMLAudioElement+          GHCJS.DOM.JSFFI.Generated.HTMLBRElement+          GHCJS.DOM.JSFFI.Generated.HTMLBaseElement+          GHCJS.DOM.JSFFI.Generated.HTMLBodyElement+          GHCJS.DOM.JSFFI.Generated.HTMLButtonElement+          GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement+          GHCJS.DOM.JSFFI.Generated.HTMLCollection+          GHCJS.DOM.JSFFI.Generated.HTMLDListElement+          GHCJS.DOM.JSFFI.Generated.HTMLDataElement+          GHCJS.DOM.JSFFI.Generated.HTMLDataListElement+          GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement+          GHCJS.DOM.JSFFI.Generated.HTMLDialogElement+          GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement+          GHCJS.DOM.JSFFI.Generated.HTMLDivElement+          GHCJS.DOM.JSFFI.Generated.HTMLElement+          GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement+          GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement+          GHCJS.DOM.JSFFI.Generated.HTMLFontElement+          GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection+          GHCJS.DOM.JSFFI.Generated.HTMLFormElement+          GHCJS.DOM.JSFFI.Generated.HTMLFrameElement+          GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement+          GHCJS.DOM.JSFFI.Generated.HTMLHRElement+          GHCJS.DOM.JSFFI.Generated.HTMLHeadElement+          GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement+          GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement+          GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils+          GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement+          GHCJS.DOM.JSFFI.Generated.HTMLImageElement+          GHCJS.DOM.JSFFI.Generated.HTMLInputElement+          GHCJS.DOM.JSFFI.Generated.HTMLLIElement+          GHCJS.DOM.JSFFI.Generated.HTMLLabelElement+          GHCJS.DOM.JSFFI.Generated.HTMLLegendElement+          GHCJS.DOM.JSFFI.Generated.HTMLLinkElement+          GHCJS.DOM.JSFFI.Generated.HTMLMapElement+          GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement+          GHCJS.DOM.JSFFI.Generated.HTMLMediaElement+          GHCJS.DOM.JSFFI.Generated.HTMLMenuElement+          GHCJS.DOM.JSFFI.Generated.HTMLMetaElement+          GHCJS.DOM.JSFFI.Generated.HTMLMeterElement+          GHCJS.DOM.JSFFI.Generated.HTMLModElement+          GHCJS.DOM.JSFFI.Generated.HTMLOListElement+          GHCJS.DOM.JSFFI.Generated.HTMLObjectElement+          GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement+          GHCJS.DOM.JSFFI.Generated.HTMLOptionElement+          GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection+          GHCJS.DOM.JSFFI.Generated.HTMLOrSVGOrMathMLElement+          GHCJS.DOM.JSFFI.Generated.HTMLOutputElement+          GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement+          GHCJS.DOM.JSFFI.Generated.HTMLParamElement+          GHCJS.DOM.JSFFI.Generated.HTMLPictureElement+          GHCJS.DOM.JSFFI.Generated.HTMLPreElement+          GHCJS.DOM.JSFFI.Generated.HTMLProgressElement+          GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement+          GHCJS.DOM.JSFFI.Generated.HTMLScriptElement+          GHCJS.DOM.JSFFI.Generated.HTMLSelectElement+          GHCJS.DOM.JSFFI.Generated.HTMLSelectedContentElement+          GHCJS.DOM.JSFFI.Generated.HTMLSlotElement+          GHCJS.DOM.JSFFI.Generated.HTMLSourceElement+          GHCJS.DOM.JSFFI.Generated.HTMLSpanElement+          GHCJS.DOM.JSFFI.Generated.HTMLStyleElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableColElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement+          GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement+          GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement+          GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement+          GHCJS.DOM.JSFFI.Generated.HTMLTimeElement+          GHCJS.DOM.JSFFI.Generated.HTMLTitleElement+          GHCJS.DOM.JSFFI.Generated.HTMLTrackElement+          GHCJS.DOM.JSFFI.Generated.HTMLUListElement+          GHCJS.DOM.JSFFI.Generated.HTMLUnknownElement+          GHCJS.DOM.JSFFI.Generated.HTMLVideoElement+          GHCJS.DOM.JSFFI.Generated.HashChangeEvent+          GHCJS.DOM.JSFFI.Generated.HashChangeEventInit+          GHCJS.DOM.JSFFI.Generated.Headers+          GHCJS.DOM.JSFFI.Generated.HevcEncoderConfig+          GHCJS.DOM.JSFFI.Generated.Highlight+          GHCJS.DOM.JSFFI.Generated.HighlightHitResult+          GHCJS.DOM.JSFFI.Generated.HighlightRegistry+          GHCJS.DOM.JSFFI.Generated.HighlightsFromPointOptions+          GHCJS.DOM.JSFFI.Generated.History+          GHCJS.DOM.JSFFI.Generated.HyperlinkElementUtils+          GHCJS.DOM.JSFFI.Generated.IDBCursor+          GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue+          GHCJS.DOM.JSFFI.Generated.IDBDatabase+          GHCJS.DOM.JSFFI.Generated.IDBDatabaseInfo+          GHCJS.DOM.JSFFI.Generated.IDBFactory+          GHCJS.DOM.JSFFI.Generated.IDBGetAllOptions+          GHCJS.DOM.JSFFI.Generated.IDBIndex+          GHCJS.DOM.JSFFI.Generated.IDBIndexParameters+          GHCJS.DOM.JSFFI.Generated.IDBKeyRange+          GHCJS.DOM.JSFFI.Generated.IDBObjectStore+          GHCJS.DOM.JSFFI.Generated.IDBObjectStoreParameters+          GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest+          GHCJS.DOM.JSFFI.Generated.IDBRecord+          GHCJS.DOM.JSFFI.Generated.IDBRequest+          GHCJS.DOM.JSFFI.Generated.IDBTransaction+          GHCJS.DOM.JSFFI.Generated.IDBTransactionOptions+          GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent+          GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEventInit+          GHCJS.DOM.JSFFI.Generated.IIRFilterNode+          GHCJS.DOM.JSFFI.Generated.IIRFilterOptions+          GHCJS.DOM.JSFFI.Generated.IdentityCredentialRequestOptions+          GHCJS.DOM.JSFFI.Generated.IdentityProviderConfig+          GHCJS.DOM.JSFFI.Generated.IdentityProviderRequestOptions+          GHCJS.DOM.JSFFI.Generated.IdleDeadline+          GHCJS.DOM.JSFFI.Generated.IdleRequestCallback+          GHCJS.DOM.JSFFI.Generated.IdleRequestOptions+          GHCJS.DOM.JSFFI.Generated.ImageBitmap+          GHCJS.DOM.JSFFI.Generated.ImageBitmapRenderingContext+          GHCJS.DOM.JSFFI.Generated.ImageCapture+          GHCJS.DOM.JSFFI.Generated.ImageData+          GHCJS.DOM.JSFFI.Generated.ImageDataSettings+          GHCJS.DOM.JSFFI.Generated.ImageDecodeOptions+          GHCJS.DOM.JSFFI.Generated.ImageDecodeResult+          GHCJS.DOM.JSFFI.Generated.ImageDecoder+          GHCJS.DOM.JSFFI.Generated.ImageDecoderInit+          GHCJS.DOM.JSFFI.Generated.ImageEncodeOptions+          GHCJS.DOM.JSFFI.Generated.ImageTrack+          GHCJS.DOM.JSFFI.Generated.ImageTrackList+          GHCJS.DOM.JSFFI.Generated.ImportNodeOptions+          GHCJS.DOM.JSFFI.Generated.InputDeviceCapabilities+          GHCJS.DOM.JSFFI.Generated.InputDeviceInfo+          GHCJS.DOM.JSFFI.Generated.InputEvent+          GHCJS.DOM.JSFFI.Generated.InputEventInit+          GHCJS.DOM.JSFFI.Generated.InstallEvent+          GHCJS.DOM.JSFFI.Generated.IntersectionObserver+          GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback+          GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry+          GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntryInit+          GHCJS.DOM.JSFFI.Generated.IntersectionObserverInit+          GHCJS.DOM.JSFFI.Generated.JsonWebKey+          GHCJS.DOM.JSFFI.Generated.KHR_parallel_shader_compile+          GHCJS.DOM.JSFFI.Generated.KeySystemTrackConfiguration+          GHCJS.DOM.JSFFI.Generated.KeyboardEvent+          GHCJS.DOM.JSFFI.Generated.KeyboardEventInit+          GHCJS.DOM.JSFFI.Generated.KeyframeAnimationOptions+          GHCJS.DOM.JSFFI.Generated.KeyframeEffect+          GHCJS.DOM.JSFFI.Generated.KeyframeEffectOptions+          GHCJS.DOM.JSFFI.Generated.LargestContentfulPaint+          GHCJS.DOM.JSFFI.Generated.LinkStyle+          GHCJS.DOM.JSFFI.Generated.Location+          GHCJS.DOM.JSFFI.Generated.Lock+          GHCJS.DOM.JSFFI.Generated.LockGrantedCallback+          GHCJS.DOM.JSFFI.Generated.LockInfo+          GHCJS.DOM.JSFFI.Generated.LockManager+          GHCJS.DOM.JSFFI.Generated.LockManagerSnapshot+          GHCJS.DOM.JSFFI.Generated.LockOptions+          GHCJS.DOM.JSFFI.Generated.MIDIAccess+          GHCJS.DOM.JSFFI.Generated.MIDIConnectionEvent+          GHCJS.DOM.JSFFI.Generated.MIDIConnectionEventInit+          GHCJS.DOM.JSFFI.Generated.MIDIInput+          GHCJS.DOM.JSFFI.Generated.MIDIInputMap+          GHCJS.DOM.JSFFI.Generated.MIDIMessageEvent+          GHCJS.DOM.JSFFI.Generated.MIDIMessageEventInit+          GHCJS.DOM.JSFFI.Generated.MIDIOptions+          GHCJS.DOM.JSFFI.Generated.MIDIOutput+          GHCJS.DOM.JSFFI.Generated.MIDIOutputMap+          GHCJS.DOM.JSFFI.Generated.MIDIPort+          GHCJS.DOM.JSFFI.Generated.MathMLElement+          GHCJS.DOM.JSFFI.Generated.MediaCapabilities+          GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesDecodingInfo+          GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesEncodingInfo+          GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesInfo+          GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesKeySystemConfiguration+          GHCJS.DOM.JSFFI.Generated.MediaConfiguration+          GHCJS.DOM.JSFFI.Generated.MediaDecodingConfiguration+          GHCJS.DOM.JSFFI.Generated.MediaDeviceInfo+          GHCJS.DOM.JSFFI.Generated.MediaDevices+          GHCJS.DOM.JSFFI.Generated.MediaEffectInfo+          GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode+          GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceOptions+          GHCJS.DOM.JSFFI.Generated.MediaEncodingConfiguration+          GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent+          GHCJS.DOM.JSFFI.Generated.MediaEncryptedEventInit+          GHCJS.DOM.JSFFI.Generated.MediaError+          GHCJS.DOM.JSFFI.Generated.MediaImage+          GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent+          GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEventInit+          GHCJS.DOM.JSFFI.Generated.MediaKeySession+          GHCJS.DOM.JSFFI.Generated.MediaKeyStatusMap+          GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess+          GHCJS.DOM.JSFFI.Generated.MediaKeySystemConfiguration+          GHCJS.DOM.JSFFI.Generated.MediaKeySystemMediaCapability+          GHCJS.DOM.JSFFI.Generated.MediaKeys+          GHCJS.DOM.JSFFI.Generated.MediaKeysPolicy+          GHCJS.DOM.JSFFI.Generated.MediaList+          GHCJS.DOM.JSFFI.Generated.MediaMetadata+          GHCJS.DOM.JSFFI.Generated.MediaMetadataInit+          GHCJS.DOM.JSFFI.Generated.MediaPositionState+          GHCJS.DOM.JSFFI.Generated.MediaQueryList+          GHCJS.DOM.JSFFI.Generated.MediaQueryListEvent+          GHCJS.DOM.JSFFI.Generated.MediaQueryListEventInit+          GHCJS.DOM.JSFFI.Generated.MediaRecorder+          GHCJS.DOM.JSFFI.Generated.MediaRecorderOptions+          GHCJS.DOM.JSFFI.Generated.MediaSession+          GHCJS.DOM.JSFFI.Generated.MediaSessionActionDetails+          GHCJS.DOM.JSFFI.Generated.MediaSessionActionHandler+          GHCJS.DOM.JSFFI.Generated.MediaSettingsRange+          GHCJS.DOM.JSFFI.Generated.MediaSource+          GHCJS.DOM.JSFFI.Generated.MediaSourceHandle+          GHCJS.DOM.JSFFI.Generated.MediaStream+          GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode+          GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode+          GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceOptions+          GHCJS.DOM.JSFFI.Generated.MediaStreamConstraints+          GHCJS.DOM.JSFFI.Generated.MediaStreamTrack+          GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent+          GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEventInit+          GHCJS.DOM.JSFFI.Generated.MediaStreamTrackHandle+          GHCJS.DOM.JSFFI.Generated.MediaStreamTrackProcessor+          GHCJS.DOM.JSFFI.Generated.MediaStreamTrackProcessorInit+          GHCJS.DOM.JSFFI.Generated.MediaTrackCapabilities+          GHCJS.DOM.JSFFI.Generated.MediaTrackConstraintSet+          GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints+          GHCJS.DOM.JSFFI.Generated.MediaTrackSettings+          GHCJS.DOM.JSFFI.Generated.MediaTrackSupportedConstraints+          GHCJS.DOM.JSFFI.Generated.MessageChannel+          GHCJS.DOM.JSFFI.Generated.MessageEvent+          GHCJS.DOM.JSFFI.Generated.MessageEventInit+          GHCJS.DOM.JSFFI.Generated.MessageEventTarget+          GHCJS.DOM.JSFFI.Generated.MessagePort+          GHCJS.DOM.JSFFI.Generated.MimeType+          GHCJS.DOM.JSFFI.Generated.MimeTypeArray+          GHCJS.DOM.JSFFI.Generated.MouseEvent+          GHCJS.DOM.JSFFI.Generated.MouseEventInit+          GHCJS.DOM.JSFFI.Generated.MultiCacheQueryOptions+          GHCJS.DOM.JSFFI.Generated.MutationCallback+          GHCJS.DOM.JSFFI.Generated.MutationObserver+          GHCJS.DOM.JSFFI.Generated.MutationObserverInit+          GHCJS.DOM.JSFFI.Generated.MutationRecord+          GHCJS.DOM.JSFFI.Generated.NamedNodeMap+          GHCJS.DOM.JSFFI.Generated.NavigateEvent+          GHCJS.DOM.JSFFI.Generated.NavigateEventInit+          GHCJS.DOM.JSFFI.Generated.Navigation+          GHCJS.DOM.JSFFI.Generated.NavigationActivation+          GHCJS.DOM.JSFFI.Generated.NavigationCurrentEntryChangeEvent+          GHCJS.DOM.JSFFI.Generated.NavigationCurrentEntryChangeEventInit+          GHCJS.DOM.JSFFI.Generated.NavigationDestination+          GHCJS.DOM.JSFFI.Generated.NavigationEvent+          GHCJS.DOM.JSFFI.Generated.NavigationHistoryEntry+          GHCJS.DOM.JSFFI.Generated.NavigationInterceptHandler+          GHCJS.DOM.JSFFI.Generated.NavigationInterceptOptions+          GHCJS.DOM.JSFFI.Generated.NavigationNavigateOptions+          GHCJS.DOM.JSFFI.Generated.NavigationOptions+          GHCJS.DOM.JSFFI.Generated.NavigationPrecommitController+          GHCJS.DOM.JSFFI.Generated.NavigationPrecommitHandler+          GHCJS.DOM.JSFFI.Generated.NavigationPreloadManager+          GHCJS.DOM.JSFFI.Generated.NavigationPreloadState+          GHCJS.DOM.JSFFI.Generated.NavigationReloadOptions+          GHCJS.DOM.JSFFI.Generated.NavigationResult+          GHCJS.DOM.JSFFI.Generated.NavigationTransition+          GHCJS.DOM.JSFFI.Generated.NavigationUpdateCurrentEntryOptions+          GHCJS.DOM.JSFFI.Generated.Navigator+          GHCJS.DOM.JSFFI.Generated.NavigatorAutomationInformation+          GHCJS.DOM.JSFFI.Generated.NavigatorBadge+          GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware+          GHCJS.DOM.JSFFI.Generated.NavigatorContentUtils+          GHCJS.DOM.JSFFI.Generated.NavigatorCookies+          GHCJS.DOM.JSFFI.Generated.NavigatorGPU+          GHCJS.DOM.JSFFI.Generated.NavigatorID+          GHCJS.DOM.JSFFI.Generated.NavigatorLanguage+          GHCJS.DOM.JSFFI.Generated.NavigatorLocks+          GHCJS.DOM.JSFFI.Generated.NavigatorLogin+          GHCJS.DOM.JSFFI.Generated.NavigatorOnLine+          GHCJS.DOM.JSFFI.Generated.NavigatorPlugins+          GHCJS.DOM.JSFFI.Generated.NavigatorStorage+          GHCJS.DOM.JSFFI.Generated.Node+          GHCJS.DOM.JSFFI.Generated.NodeFilter+          GHCJS.DOM.JSFFI.Generated.NodeIterator+          GHCJS.DOM.JSFFI.Generated.NodeList+          GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode+          GHCJS.DOM.JSFFI.Generated.NonElementParentNode+          GHCJS.DOM.JSFFI.Generated.Notification+          GHCJS.DOM.JSFFI.Generated.NotificationAction+          GHCJS.DOM.JSFFI.Generated.NotificationEvent+          GHCJS.DOM.JSFFI.Generated.NotificationEventInit+          GHCJS.DOM.JSFFI.Generated.NotificationOptions+          GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback+          GHCJS.DOM.JSFFI.Generated.OES_draw_buffers_indexed+          GHCJS.DOM.JSFFI.Generated.OES_element_index_uint+          GHCJS.DOM.JSFFI.Generated.OES_fbo_render_mipmap+          GHCJS.DOM.JSFFI.Generated.OES_standard_derivatives+          GHCJS.DOM.JSFFI.Generated.OES_texture_float+          GHCJS.DOM.JSFFI.Generated.OES_texture_float_linear+          GHCJS.DOM.JSFFI.Generated.OES_texture_half_float+          GHCJS.DOM.JSFFI.Generated.OES_texture_half_float_linear+          GHCJS.DOM.JSFFI.Generated.OES_vertex_array_object+          GHCJS.DOM.JSFFI.Generated.OTPCredentialRequestOptions+          GHCJS.DOM.JSFFI.Generated.OVR_multiview2+          GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent+          GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEventInit+          GHCJS.DOM.JSFFI.Generated.OfflineAudioContext+          GHCJS.DOM.JSFFI.Generated.OfflineAudioContextOptions+          GHCJS.DOM.JSFFI.Generated.OffscreenCanvas+          GHCJS.DOM.JSFFI.Generated.OffscreenCanvasRenderingContext2D+          GHCJS.DOM.JSFFI.Generated.OptionalEffectTiming+          GHCJS.DOM.JSFFI.Generated.OpusEncoderConfig+          GHCJS.DOM.JSFFI.Generated.Origin+          GHCJS.DOM.JSFFI.Generated.OscillatorNode+          GHCJS.DOM.JSFFI.Generated.OscillatorOptions+          GHCJS.DOM.JSFFI.Generated.OverconstrainedError+          GHCJS.DOM.JSFFI.Generated.PageRevealEvent+          GHCJS.DOM.JSFFI.Generated.PageRevealEventInit+          GHCJS.DOM.JSFFI.Generated.PageSwapEvent+          GHCJS.DOM.JSFFI.Generated.PageSwapEventInit+          GHCJS.DOM.JSFFI.Generated.PageTransitionEvent+          GHCJS.DOM.JSFFI.Generated.PageTransitionEventInit+          GHCJS.DOM.JSFFI.Generated.PaintTimingMixin+          GHCJS.DOM.JSFFI.Generated.PannerNode+          GHCJS.DOM.JSFFI.Generated.PannerOptions+          GHCJS.DOM.JSFFI.Generated.ParentNode+          GHCJS.DOM.JSFFI.Generated.ParseHTMLUnsafeOptions+          GHCJS.DOM.JSFFI.Generated.PasswordCredential+          GHCJS.DOM.JSFFI.Generated.PasswordCredentialData+          GHCJS.DOM.JSFFI.Generated.Path2D+          GHCJS.DOM.JSFFI.Generated.PayerErrors+          GHCJS.DOM.JSFFI.Generated.PaymentCompleteDetails+          GHCJS.DOM.JSFFI.Generated.PaymentCredentialInstrument+          GHCJS.DOM.JSFFI.Generated.PaymentCurrencyAmount+          GHCJS.DOM.JSFFI.Generated.PaymentDetailsBase+          GHCJS.DOM.JSFFI.Generated.PaymentDetailsInit+          GHCJS.DOM.JSFFI.Generated.PaymentDetailsModifier+          GHCJS.DOM.JSFFI.Generated.PaymentDetailsUpdate+          GHCJS.DOM.JSFFI.Generated.PaymentEntityLogo+          GHCJS.DOM.JSFFI.Generated.PaymentItem+          GHCJS.DOM.JSFFI.Generated.PaymentMethodChangeEvent+          GHCJS.DOM.JSFFI.Generated.PaymentMethodChangeEventInit+          GHCJS.DOM.JSFFI.Generated.PaymentMethodData+          GHCJS.DOM.JSFFI.Generated.PaymentOptions+          GHCJS.DOM.JSFFI.Generated.PaymentRequest+          GHCJS.DOM.JSFFI.Generated.PaymentRequestUpdateEvent+          GHCJS.DOM.JSFFI.Generated.PaymentRequestUpdateEventInit+          GHCJS.DOM.JSFFI.Generated.PaymentResponse+          GHCJS.DOM.JSFFI.Generated.PaymentShippingOption+          GHCJS.DOM.JSFFI.Generated.PaymentValidationErrors+          GHCJS.DOM.JSFFI.Generated.Performance+          GHCJS.DOM.JSFFI.Generated.PerformanceEntry+          GHCJS.DOM.JSFFI.Generated.PerformanceEventTiming+          GHCJS.DOM.JSFFI.Generated.PerformanceMark+          GHCJS.DOM.JSFFI.Generated.PerformanceMarkOptions+          GHCJS.DOM.JSFFI.Generated.PerformanceMeasure+          GHCJS.DOM.JSFFI.Generated.PerformanceMeasureOptions+          GHCJS.DOM.JSFFI.Generated.PerformanceNavigation+          GHCJS.DOM.JSFFI.Generated.PerformanceNavigationTiming+          GHCJS.DOM.JSFFI.Generated.PerformanceObserver+          GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback+          GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallbackOptions+          GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList+          GHCJS.DOM.JSFFI.Generated.PerformanceObserverInit+          GHCJS.DOM.JSFFI.Generated.PerformancePaintTiming+          GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming+          GHCJS.DOM.JSFFI.Generated.PerformanceServerTiming+          GHCJS.DOM.JSFFI.Generated.PerformanceTiming+          GHCJS.DOM.JSFFI.Generated.PeriodicWave+          GHCJS.DOM.JSFFI.Generated.PeriodicWaveConstraints+          GHCJS.DOM.JSFFI.Generated.PeriodicWaveOptions+          GHCJS.DOM.JSFFI.Generated.PermissionStatus+          GHCJS.DOM.JSFFI.Generated.Permissions+          GHCJS.DOM.JSFFI.Generated.PhotoCapabilities+          GHCJS.DOM.JSFFI.Generated.PhotoSettings+          GHCJS.DOM.JSFFI.Generated.PictureInPictureEvent+          GHCJS.DOM.JSFFI.Generated.PictureInPictureEventInit+          GHCJS.DOM.JSFFI.Generated.PictureInPictureWindow+          GHCJS.DOM.JSFFI.Generated.PlaneLayout+          GHCJS.DOM.JSFFI.Generated.Plugin+          GHCJS.DOM.JSFFI.Generated.PluginArray+          GHCJS.DOM.JSFFI.Generated.Point2D+          GHCJS.DOM.JSFFI.Generated.PointerEvent+          GHCJS.DOM.JSFFI.Generated.PointerEventInit+          GHCJS.DOM.JSFFI.Generated.PointerLockOptions+          GHCJS.DOM.JSFFI.Generated.PopStateEvent+          GHCJS.DOM.JSFFI.Generated.PopStateEventInit+          GHCJS.DOM.JSFFI.Generated.PopoverTargetAttributes+          GHCJS.DOM.JSFFI.Generated.PositionCallback+          GHCJS.DOM.JSFFI.Generated.PositionErrorCallback+          GHCJS.DOM.JSFFI.Generated.PositionOptions+          GHCJS.DOM.JSFFI.Generated.PrivateToken+          GHCJS.DOM.JSFFI.Generated.ProcessingInstruction+          GHCJS.DOM.JSFFI.Generated.ProgressEvent+          GHCJS.DOM.JSFFI.Generated.ProgressEventInit+          GHCJS.DOM.JSFFI.Generated.PromiseRejectionEvent+          GHCJS.DOM.JSFFI.Generated.PromiseRejectionEventInit+          GHCJS.DOM.JSFFI.Generated.PropertyDefinition+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredential+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialCreationOptions+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialCreationOptionsJSON+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialDescriptor+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialDescriptorJSON+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialEntity+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialParameters+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRequestOptions+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRequestOptionsJSON+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRpEntity+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialUserEntity+          GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialUserEntityJSON+          GHCJS.DOM.JSFFI.Generated.PushEvent+          GHCJS.DOM.JSFFI.Generated.PushEventInit+          GHCJS.DOM.JSFFI.Generated.PushManager+          GHCJS.DOM.JSFFI.Generated.PushManagerAttribute+          GHCJS.DOM.JSFFI.Generated.PushMessageData+          GHCJS.DOM.JSFFI.Generated.PushSubscription+          GHCJS.DOM.JSFFI.Generated.PushSubscriptionChangeEvent+          GHCJS.DOM.JSFFI.Generated.PushSubscriptionChangeEventInit+          GHCJS.DOM.JSFFI.Generated.PushSubscriptionJSON+          GHCJS.DOM.JSFFI.Generated.PushSubscriptionKeys+          GHCJS.DOM.JSFFI.Generated.PushSubscriptionOptions+          GHCJS.DOM.JSFFI.Generated.PushSubscriptionOptionsInit+          GHCJS.DOM.JSFFI.Generated.QueuingStrategy+          GHCJS.DOM.JSFFI.Generated.QueuingStrategyInit+          GHCJS.DOM.JSFFI.Generated.QueuingStrategySize+          GHCJS.DOM.JSFFI.Generated.RTCAnswerOptions+          GHCJS.DOM.JSFFI.Generated.RTCCertificate+          GHCJS.DOM.JSFFI.Generated.RTCConfiguration+          GHCJS.DOM.JSFFI.Generated.RTCDTMFSender+          GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent+          GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEventInit+          GHCJS.DOM.JSFFI.Generated.RTCDataChannel+          GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent+          GHCJS.DOM.JSFFI.Generated.RTCDataChannelEventInit+          GHCJS.DOM.JSFFI.Generated.RTCDataChannelInit+          GHCJS.DOM.JSFFI.Generated.RTCDtlsFingerprint+          GHCJS.DOM.JSFFI.Generated.RTCDtlsTransport+          GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrame+          GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrameMetadata+          GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrameOptions+          GHCJS.DOM.JSFFI.Generated.RTCEncodedFrameMetadata+          GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrame+          GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrameMetadata+          GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrameOptions+          GHCJS.DOM.JSFFI.Generated.RTCError+          GHCJS.DOM.JSFFI.Generated.RTCErrorEvent+          GHCJS.DOM.JSFFI.Generated.RTCErrorEventInit+          GHCJS.DOM.JSFFI.Generated.RTCErrorInit+          GHCJS.DOM.JSFFI.Generated.RTCIceCandidate+          GHCJS.DOM.JSFFI.Generated.RTCIceCandidateInit+          GHCJS.DOM.JSFFI.Generated.RTCIceCandidatePair+          GHCJS.DOM.JSFFI.Generated.RTCIceServer+          GHCJS.DOM.JSFFI.Generated.RTCIceTransport+          GHCJS.DOM.JSFFI.Generated.RTCLocalIceCandidateInit+          GHCJS.DOM.JSFFI.Generated.RTCLocalSessionDescriptionInit+          GHCJS.DOM.JSFFI.Generated.RTCOfferAnswerOptions+          GHCJS.DOM.JSFFI.Generated.RTCOfferOptions+          GHCJS.DOM.JSFFI.Generated.RTCPeerConnection+          GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback+          GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceErrorEvent+          GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceErrorEventInit+          GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEvent+          GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEventInit+          GHCJS.DOM.JSFFI.Generated.RTCRtcpParameters+          GHCJS.DOM.JSFFI.Generated.RTCRtpCapabilities+          GHCJS.DOM.JSFFI.Generated.RTCRtpCodec+          GHCJS.DOM.JSFFI.Generated.RTCRtpCodecParameters+          GHCJS.DOM.JSFFI.Generated.RTCRtpCodingParameters+          GHCJS.DOM.JSFFI.Generated.RTCRtpContributingSource+          GHCJS.DOM.JSFFI.Generated.RTCRtpEncodingParameters+          GHCJS.DOM.JSFFI.Generated.RTCRtpHeaderExtensionCapability+          GHCJS.DOM.JSFFI.Generated.RTCRtpHeaderExtensionParameters+          GHCJS.DOM.JSFFI.Generated.RTCRtpParameters+          GHCJS.DOM.JSFFI.Generated.RTCRtpReceiveParameters+          GHCJS.DOM.JSFFI.Generated.RTCRtpReceiver+          GHCJS.DOM.JSFFI.Generated.RTCRtpSFrameDecryptor+          GHCJS.DOM.JSFFI.Generated.RTCRtpSFrameEncryptor+          GHCJS.DOM.JSFFI.Generated.RTCRtpScriptTransform+          GHCJS.DOM.JSFFI.Generated.RTCRtpScriptTransformer+          GHCJS.DOM.JSFFI.Generated.RTCRtpSendParameters+          GHCJS.DOM.JSFFI.Generated.RTCRtpSender+          GHCJS.DOM.JSFFI.Generated.RTCRtpSynchronizationSource+          GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver+          GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiverInit+          GHCJS.DOM.JSFFI.Generated.RTCSctpTransport+          GHCJS.DOM.JSFFI.Generated.RTCSessionDescription+          GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback+          GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionInit+          GHCJS.DOM.JSFFI.Generated.RTCSetParameterOptions+          GHCJS.DOM.JSFFI.Generated.RTCStatsReport+          GHCJS.DOM.JSFFI.Generated.RTCTrackEvent+          GHCJS.DOM.JSFFI.Generated.RTCTrackEventInit+          GHCJS.DOM.JSFFI.Generated.RTCTransformEvent+          GHCJS.DOM.JSFFI.Generated.RadioNodeList+          GHCJS.DOM.JSFFI.Generated.Range+          GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController+          GHCJS.DOM.JSFFI.Generated.ReadableStream+          GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReader+          GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReaderReadOptions+          GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBRequest+          GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController+          GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader+          GHCJS.DOM.JSFFI.Generated.ReadableStreamGenericReader+          GHCJS.DOM.JSFFI.Generated.ReadableStreamGetReaderOptions+          GHCJS.DOM.JSFFI.Generated.ReadableStreamReadResult+          GHCJS.DOM.JSFFI.Generated.ReadableWritablePair+          GHCJS.DOM.JSFFI.Generated.RegistrationOptions+          GHCJS.DOM.JSFFI.Generated.RemotePlayback+          GHCJS.DOM.JSFFI.Generated.RemotePlaybackAvailabilityCallback+          GHCJS.DOM.JSFFI.Generated.Report+          GHCJS.DOM.JSFFI.Generated.ReportBody+          GHCJS.DOM.JSFFI.Generated.ReportingObserver+          GHCJS.DOM.JSFFI.Generated.ReportingObserverCallback+          GHCJS.DOM.JSFFI.Generated.ReportingObserverOptions+          GHCJS.DOM.JSFFI.Generated.Request+          GHCJS.DOM.JSFFI.Generated.RequestInit+          GHCJS.DOM.JSFFI.Generated.ResizeObserver+          GHCJS.DOM.JSFFI.Generated.ResizeObserverCallback+          GHCJS.DOM.JSFFI.Generated.ResizeObserverEntry+          GHCJS.DOM.JSFFI.Generated.ResizeObserverOptions+          GHCJS.DOM.JSFFI.Generated.ResizeObserverSize+          GHCJS.DOM.JSFFI.Generated.Response+          GHCJS.DOM.JSFFI.Generated.ResponseInit+          GHCJS.DOM.JSFFI.Generated.RouterCondition+          GHCJS.DOM.JSFFI.Generated.RouterRule+          GHCJS.DOM.JSFFI.Generated.RouterSourceDict+          GHCJS.DOM.JSFFI.Generated.RsaOtherPrimesInfo+          GHCJS.DOM.JSFFI.Generated.SVGAElement+          GHCJS.DOM.JSFFI.Generated.SVGAngle+          GHCJS.DOM.JSFFI.Generated.SVGAnimateElement+          GHCJS.DOM.JSFFI.Generated.SVGAnimateMotionElement+          GHCJS.DOM.JSFFI.Generated.SVGAnimateTransformElement+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedPoints+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedString+          GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList+          GHCJS.DOM.JSFFI.Generated.SVGAnimationElement+          GHCJS.DOM.JSFFI.Generated.SVGBoundingBoxOptions+          GHCJS.DOM.JSFFI.Generated.SVGCircleElement+          GHCJS.DOM.JSFFI.Generated.SVGClipPathElement+          GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement+          GHCJS.DOM.JSFFI.Generated.SVGDefsElement+          GHCJS.DOM.JSFFI.Generated.SVGDescElement+          GHCJS.DOM.JSFFI.Generated.SVGElement+          GHCJS.DOM.JSFFI.Generated.SVGEllipseElement+          GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement+          GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement+          GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement+          GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement+          GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement+          GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement+          GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement+          GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement+          GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement+          GHCJS.DOM.JSFFI.Generated.SVGFEFloodElement+          GHCJS.DOM.JSFFI.Generated.SVGFEFuncAElement+          GHCJS.DOM.JSFFI.Generated.SVGFEFuncBElement+          GHCJS.DOM.JSFFI.Generated.SVGFEFuncGElement+          GHCJS.DOM.JSFFI.Generated.SVGFEFuncRElement+          GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement+          GHCJS.DOM.JSFFI.Generated.SVGFEImageElement+          GHCJS.DOM.JSFFI.Generated.SVGFEMergeElement+          GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement+          GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement+          GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement+          GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement+          GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement+          GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement+          GHCJS.DOM.JSFFI.Generated.SVGFETileElement+          GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement+          GHCJS.DOM.JSFFI.Generated.SVGFilterElement+          GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes+          GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox+          GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement+          GHCJS.DOM.JSFFI.Generated.SVGGElement+          GHCJS.DOM.JSFFI.Generated.SVGGeometryElement+          GHCJS.DOM.JSFFI.Generated.SVGGradientElement+          GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement+          GHCJS.DOM.JSFFI.Generated.SVGImageElement+          GHCJS.DOM.JSFFI.Generated.SVGLength+          GHCJS.DOM.JSFFI.Generated.SVGLengthList+          GHCJS.DOM.JSFFI.Generated.SVGLineElement+          GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement+          GHCJS.DOM.JSFFI.Generated.SVGMPathElement+          GHCJS.DOM.JSFFI.Generated.SVGMarkerElement+          GHCJS.DOM.JSFFI.Generated.SVGMaskElement+          GHCJS.DOM.JSFFI.Generated.SVGMetadataElement+          GHCJS.DOM.JSFFI.Generated.SVGNumber+          GHCJS.DOM.JSFFI.Generated.SVGNumberList+          GHCJS.DOM.JSFFI.Generated.SVGPathElement+          GHCJS.DOM.JSFFI.Generated.SVGPatternElement+          GHCJS.DOM.JSFFI.Generated.SVGPointList+          GHCJS.DOM.JSFFI.Generated.SVGPolygonElement+          GHCJS.DOM.JSFFI.Generated.SVGPolylineElement+          GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio+          GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement+          GHCJS.DOM.JSFFI.Generated.SVGRectElement+          GHCJS.DOM.JSFFI.Generated.SVGSVGElement+          GHCJS.DOM.JSFFI.Generated.SVGScriptElement+          GHCJS.DOM.JSFFI.Generated.SVGSetElement+          GHCJS.DOM.JSFFI.Generated.SVGStopElement+          GHCJS.DOM.JSFFI.Generated.SVGStringList+          GHCJS.DOM.JSFFI.Generated.SVGStyleElement+          GHCJS.DOM.JSFFI.Generated.SVGSwitchElement+          GHCJS.DOM.JSFFI.Generated.SVGSymbolElement+          GHCJS.DOM.JSFFI.Generated.SVGTSpanElement+          GHCJS.DOM.JSFFI.Generated.SVGTests+          GHCJS.DOM.JSFFI.Generated.SVGTextContentElement+          GHCJS.DOM.JSFFI.Generated.SVGTextElement+          GHCJS.DOM.JSFFI.Generated.SVGTextPathElement+          GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement+          GHCJS.DOM.JSFFI.Generated.SVGTitleElement+          GHCJS.DOM.JSFFI.Generated.SVGTransform+          GHCJS.DOM.JSFFI.Generated.SVGTransformList+          GHCJS.DOM.JSFFI.Generated.SVGURIReference+          GHCJS.DOM.JSFFI.Generated.SVGUnitTypes+          GHCJS.DOM.JSFFI.Generated.SVGUseElement+          GHCJS.DOM.JSFFI.Generated.SVGViewElement+          GHCJS.DOM.JSFFI.Generated.Sanitizer+          GHCJS.DOM.JSFFI.Generated.SanitizerAttributeNamespace+          GHCJS.DOM.JSFFI.Generated.SanitizerConfig+          GHCJS.DOM.JSFFI.Generated.SanitizerElementNamespace+          GHCJS.DOM.JSFFI.Generated.SanitizerElementNamespaceWithAttributes+          GHCJS.DOM.JSFFI.Generated.SanitizerProcessingInstruction+          GHCJS.DOM.JSFFI.Generated.Scheduler+          GHCJS.DOM.JSFFI.Generated.SchedulerPostTaskCallback+          GHCJS.DOM.JSFFI.Generated.SchedulerPostTaskOptions+          GHCJS.DOM.JSFFI.Generated.Screen+          GHCJS.DOM.JSFFI.Generated.ScreenDetailed+          GHCJS.DOM.JSFFI.Generated.ScreenOrientation+          GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode+          GHCJS.DOM.JSFFI.Generated.ScrollIntoViewOptions+          GHCJS.DOM.JSFFI.Generated.ScrollOptions+          GHCJS.DOM.JSFFI.Generated.ScrollResult+          GHCJS.DOM.JSFFI.Generated.ScrollTimeline+          GHCJS.DOM.JSFFI.Generated.ScrollTimelineOptions+          GHCJS.DOM.JSFFI.Generated.ScrollToOptions+          GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent+          GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEventInit+          GHCJS.DOM.JSFFI.Generated.Segment+          GHCJS.DOM.JSFFI.Generated.Selection+          GHCJS.DOM.JSFFI.Generated.Serial+          GHCJS.DOM.JSFFI.Generated.SerialInputSignals+          GHCJS.DOM.JSFFI.Generated.SerialOptions+          GHCJS.DOM.JSFFI.Generated.SerialOutputSignals+          GHCJS.DOM.JSFFI.Generated.SerialPort+          GHCJS.DOM.JSFFI.Generated.SerialPortFilter+          GHCJS.DOM.JSFFI.Generated.SerialPortInfo+          GHCJS.DOM.JSFFI.Generated.SerialPortRequestOptions+          GHCJS.DOM.JSFFI.Generated.ServiceWorker+          GHCJS.DOM.JSFFI.Generated.ServiceWorkerContainer+          GHCJS.DOM.JSFFI.Generated.ServiceWorkerGlobalScope+          GHCJS.DOM.JSFFI.Generated.ServiceWorkerRegistration+          GHCJS.DOM.JSFFI.Generated.SetHTMLOptions+          GHCJS.DOM.JSFFI.Generated.SetHTMLUnsafeOptions+          GHCJS.DOM.JSFFI.Generated.ShadowRoot+          GHCJS.DOM.JSFFI.Generated.ShadowRootInit+          GHCJS.DOM.JSFFI.Generated.ShareData+          GHCJS.DOM.JSFFI.Generated.SharedWorker+          GHCJS.DOM.JSFFI.Generated.SharedWorkerGlobalScope+          GHCJS.DOM.JSFFI.Generated.SharedWorkerOptions+          GHCJS.DOM.JSFFI.Generated.ShowPopoverOptions+          GHCJS.DOM.JSFFI.Generated.Slottable+          GHCJS.DOM.JSFFI.Generated.SourceBuffer+          GHCJS.DOM.JSFFI.Generated.SourceBufferList+          GHCJS.DOM.JSFFI.Generated.SpeechGrammar+          GHCJS.DOM.JSFFI.Generated.SpeechGrammarList+          GHCJS.DOM.JSFFI.Generated.SpeechRecognition+          GHCJS.DOM.JSFFI.Generated.SpeechRecognitionAlternative+          GHCJS.DOM.JSFFI.Generated.SpeechRecognitionErrorEvent+          GHCJS.DOM.JSFFI.Generated.SpeechRecognitionErrorEventInit+          GHCJS.DOM.JSFFI.Generated.SpeechRecognitionEvent+          GHCJS.DOM.JSFFI.Generated.SpeechRecognitionEventInit+          GHCJS.DOM.JSFFI.Generated.SpeechRecognitionOptions+          GHCJS.DOM.JSFFI.Generated.SpeechRecognitionPhrase+          GHCJS.DOM.JSFFI.Generated.SpeechRecognitionResult+          GHCJS.DOM.JSFFI.Generated.SpeechRecognitionResultList+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesis+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisErrorEvent+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisErrorEventInit+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEventInit+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance+          GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice+          GHCJS.DOM.JSFFI.Generated.StartViewTransitionOptions+          GHCJS.DOM.JSFFI.Generated.StaticRange+          GHCJS.DOM.JSFFI.Generated.StaticRangeInit+          GHCJS.DOM.JSFFI.Generated.StereoPannerNode+          GHCJS.DOM.JSFFI.Generated.StereoPannerOptions+          GHCJS.DOM.JSFFI.Generated.Storage+          GHCJS.DOM.JSFFI.Generated.StorageEstimate+          GHCJS.DOM.JSFFI.Generated.StorageEvent+          GHCJS.DOM.JSFFI.Generated.StorageEventInit+          GHCJS.DOM.JSFFI.Generated.StorageManager+          GHCJS.DOM.JSFFI.Generated.StreamPipeOptions+          GHCJS.DOM.JSFFI.Generated.StructuredSerializeOptions+          GHCJS.DOM.JSFFI.Generated.StylePropertyMap+          GHCJS.DOM.JSFFI.Generated.StylePropertyMapReadOnly+          GHCJS.DOM.JSFFI.Generated.StyleSheet+          GHCJS.DOM.JSFFI.Generated.StyleSheetList+          GHCJS.DOM.JSFFI.Generated.SubmitEvent+          GHCJS.DOM.JSFFI.Generated.SubmitEventInit+          GHCJS.DOM.JSFFI.Generated.SubtleCrypto+          GHCJS.DOM.JSFFI.Generated.SvcOutputMetadata+          GHCJS.DOM.JSFFI.Generated.TaskController+          GHCJS.DOM.JSFFI.Generated.TaskControllerInit+          GHCJS.DOM.JSFFI.Generated.TaskPriorityChangeEvent+          GHCJS.DOM.JSFFI.Generated.TaskPriorityChangeEventInit+          GHCJS.DOM.JSFFI.Generated.TaskSignal+          GHCJS.DOM.JSFFI.Generated.TaskSignalAnyInit+          GHCJS.DOM.JSFFI.Generated.Text+          GHCJS.DOM.JSFFI.Generated.TextDecodeOptions+          GHCJS.DOM.JSFFI.Generated.TextDecoder+          GHCJS.DOM.JSFFI.Generated.TextDecoderCommon+          GHCJS.DOM.JSFFI.Generated.TextDecoderOptions+          GHCJS.DOM.JSFFI.Generated.TextDecoderStream+          GHCJS.DOM.JSFFI.Generated.TextEncoder+          GHCJS.DOM.JSFFI.Generated.TextEncoderCommon+          GHCJS.DOM.JSFFI.Generated.TextEncoderEncodeIntoResult+          GHCJS.DOM.JSFFI.Generated.TextEncoderStream+          GHCJS.DOM.JSFFI.Generated.TextEvent+          GHCJS.DOM.JSFFI.Generated.TextMetrics+          GHCJS.DOM.JSFFI.Generated.TextTrack+          GHCJS.DOM.JSFFI.Generated.TextTrackCue+          GHCJS.DOM.JSFFI.Generated.TextTrackCueList+          GHCJS.DOM.JSFFI.Generated.TextTrackList+          GHCJS.DOM.JSFFI.Generated.TimeRanges+          GHCJS.DOM.JSFFI.Generated.TimelineRangeOffset+          GHCJS.DOM.JSFFI.Generated.ToggleEvent+          GHCJS.DOM.JSFFI.Generated.ToggleEventInit+          GHCJS.DOM.JSFFI.Generated.TogglePopoverOptions+          GHCJS.DOM.JSFFI.Generated.Touch+          GHCJS.DOM.JSFFI.Generated.TouchEvent+          GHCJS.DOM.JSFFI.Generated.TouchEventInit+          GHCJS.DOM.JSFFI.Generated.TouchInit+          GHCJS.DOM.JSFFI.Generated.TouchList+          GHCJS.DOM.JSFFI.Generated.TrackEvent+          GHCJS.DOM.JSFFI.Generated.TrackEventInit+          GHCJS.DOM.JSFFI.Generated.TransformStream+          GHCJS.DOM.JSFFI.Generated.TransformStreamDefaultController+          GHCJS.DOM.JSFFI.Generated.TransitionEvent+          GHCJS.DOM.JSFFI.Generated.TransitionEventInit+          GHCJS.DOM.JSFFI.Generated.TreeWalker+          GHCJS.DOM.JSFFI.Generated.TrustedHTML+          GHCJS.DOM.JSFFI.Generated.TrustedHTMLParserOptions+          GHCJS.DOM.JSFFI.Generated.TrustedScript+          GHCJS.DOM.JSFFI.Generated.TrustedScriptURL+          GHCJS.DOM.JSFFI.Generated.TrustedTypePolicy+          GHCJS.DOM.JSFFI.Generated.TrustedTypePolicyFactory+          GHCJS.DOM.JSFFI.Generated.TrustedTypePolicyOptions+          GHCJS.DOM.JSFFI.Generated.UIEvent+          GHCJS.DOM.JSFFI.Generated.UIEventInit+          GHCJS.DOM.JSFFI.Generated.ULongRange+          GHCJS.DOM.JSFFI.Generated.URL+          GHCJS.DOM.JSFFI.Generated.URLPattern+          GHCJS.DOM.JSFFI.Generated.URLPatternComponentResult+          GHCJS.DOM.JSFFI.Generated.URLPatternInit+          GHCJS.DOM.JSFFI.Generated.URLPatternOptions+          GHCJS.DOM.JSFFI.Generated.URLPatternResult+          GHCJS.DOM.JSFFI.Generated.URLSearchParams+          GHCJS.DOM.JSFFI.Generated.UnknownCredentialOptions+          GHCJS.DOM.JSFFI.Generated.UserActivation+          GHCJS.DOM.JSFFI.Generated.VTTCue+          GHCJS.DOM.JSFFI.Generated.VTTRegion+          GHCJS.DOM.JSFFI.Generated.ValidityState+          GHCJS.DOM.JSFFI.Generated.ValidityStateFlags+          GHCJS.DOM.JSFFI.Generated.VideoColorSpace+          GHCJS.DOM.JSFFI.Generated.VideoColorSpaceInit+          GHCJS.DOM.JSFFI.Generated.VideoConfiguration+          GHCJS.DOM.JSFFI.Generated.VideoDecoder+          GHCJS.DOM.JSFFI.Generated.VideoDecoderConfig+          GHCJS.DOM.JSFFI.Generated.VideoDecoderInit+          GHCJS.DOM.JSFFI.Generated.VideoDecoderSupport+          GHCJS.DOM.JSFFI.Generated.VideoEncoder+          GHCJS.DOM.JSFFI.Generated.VideoEncoderConfig+          GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptions+          GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForAv1+          GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForAvc+          GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForHevc+          GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForVp9+          GHCJS.DOM.JSFFI.Generated.VideoEncoderInit+          GHCJS.DOM.JSFFI.Generated.VideoEncoderSupport+          GHCJS.DOM.JSFFI.Generated.VideoFrame+          GHCJS.DOM.JSFFI.Generated.VideoFrameBufferInit+          GHCJS.DOM.JSFFI.Generated.VideoFrameCallbackMetadata+          GHCJS.DOM.JSFFI.Generated.VideoFrameCopyToOptions+          GHCJS.DOM.JSFFI.Generated.VideoFrameInit+          GHCJS.DOM.JSFFI.Generated.VideoFrameMetadata+          GHCJS.DOM.JSFFI.Generated.VideoFrameOutputCallback+          GHCJS.DOM.JSFFI.Generated.VideoFrameRequestCallback+          GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality+          GHCJS.DOM.JSFFI.Generated.VideoTrack+          GHCJS.DOM.JSFFI.Generated.VideoTrackList+          GHCJS.DOM.JSFFI.Generated.ViewTimeline+          GHCJS.DOM.JSFFI.Generated.ViewTimelineOptions+          GHCJS.DOM.JSFFI.Generated.ViewTransition+          GHCJS.DOM.JSFFI.Generated.ViewTransitionTypeSet+          GHCJS.DOM.JSFFI.Generated.ViewTransitionUpdateCallback+          GHCJS.DOM.JSFFI.Generated.VisualViewport+          GHCJS.DOM.JSFFI.Generated.VoidFunction+          GHCJS.DOM.JSFFI.Generated.WEBGL_color_buffer_float+          GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_astc+          GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_etc+          GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_etc1+          GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_pvrtc+          GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_s3tc+          GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_s3tc_srgb+          GHCJS.DOM.JSFFI.Generated.WEBGL_debug_renderer_info+          GHCJS.DOM.JSFFI.Generated.WEBGL_debug_shaders+          GHCJS.DOM.JSFFI.Generated.WEBGL_depth_texture+          GHCJS.DOM.JSFFI.Generated.WEBGL_draw_buffers+          GHCJS.DOM.JSFFI.Generated.WEBGL_lose_context+          GHCJS.DOM.JSFFI.Generated.WEBGL_multi_draw+          GHCJS.DOM.JSFFI.Generated.WGSLLanguageFeatures+          GHCJS.DOM.JSFFI.Generated.WakeLock+          GHCJS.DOM.JSFFI.Generated.WakeLockSentinel+          GHCJS.DOM.JSFFI.Generated.WaveShaperNode+          GHCJS.DOM.JSFFI.Generated.WaveShaperOptions+          GHCJS.DOM.JSFFI.Generated.WebCodecsErrorCallback+          GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext+          GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContextBase+          GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContextOverloads+          GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo+          GHCJS.DOM.JSFFI.Generated.WebGLBuffer+          GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes+          GHCJS.DOM.JSFFI.Generated.WebGLContextEvent+          GHCJS.DOM.JSFFI.Generated.WebGLContextEventInit+          GHCJS.DOM.JSFFI.Generated.WebGLFramebuffer+          GHCJS.DOM.JSFFI.Generated.WebGLObject+          GHCJS.DOM.JSFFI.Generated.WebGLProgram+          GHCJS.DOM.JSFFI.Generated.WebGLQuery+          GHCJS.DOM.JSFFI.Generated.WebGLRenderbuffer+          GHCJS.DOM.JSFFI.Generated.WebGLRenderingContext+          GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase+          GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextOverloads+          GHCJS.DOM.JSFFI.Generated.WebGLSampler+          GHCJS.DOM.JSFFI.Generated.WebGLShader+          GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat+          GHCJS.DOM.JSFFI.Generated.WebGLSync+          GHCJS.DOM.JSFFI.Generated.WebGLTexture+          GHCJS.DOM.JSFFI.Generated.WebGLTransformFeedback+          GHCJS.DOM.JSFFI.Generated.WebGLUniformLocation+          GHCJS.DOM.JSFFI.Generated.WebGLVertexArrayObject+          GHCJS.DOM.JSFFI.Generated.WebGLVertexArrayObjectOES+          GHCJS.DOM.JSFFI.Generated.WebSocket+          GHCJS.DOM.JSFFI.Generated.WebTransport+          GHCJS.DOM.JSFFI.Generated.WebTransportBidirectionalStream+          GHCJS.DOM.JSFFI.Generated.WebTransportCloseInfo+          GHCJS.DOM.JSFFI.Generated.WebTransportConnectionStats+          GHCJS.DOM.JSFFI.Generated.WebTransportDatagramDuplexStream+          GHCJS.DOM.JSFFI.Generated.WebTransportDatagramStats+          GHCJS.DOM.JSFFI.Generated.WebTransportDatagramsWritable+          GHCJS.DOM.JSFFI.Generated.WebTransportError+          GHCJS.DOM.JSFFI.Generated.WebTransportErrorOptions+          GHCJS.DOM.JSFFI.Generated.WebTransportHash+          GHCJS.DOM.JSFFI.Generated.WebTransportOptions+          GHCJS.DOM.JSFFI.Generated.WebTransportReceiveStream+          GHCJS.DOM.JSFFI.Generated.WebTransportReceiveStreamStats+          GHCJS.DOM.JSFFI.Generated.WebTransportSendGroup+          GHCJS.DOM.JSFFI.Generated.WebTransportSendOptions+          GHCJS.DOM.JSFFI.Generated.WebTransportSendStream+          GHCJS.DOM.JSFFI.Generated.WebTransportSendStreamOptions+          GHCJS.DOM.JSFFI.Generated.WebTransportSendStreamStats+          GHCJS.DOM.JSFFI.Generated.WebTransportWriter+          GHCJS.DOM.JSFFI.Generated.WheelEvent+          GHCJS.DOM.JSFFI.Generated.WheelEventInit+          GHCJS.DOM.JSFFI.Generated.Window+          GHCJS.DOM.JSFFI.Generated.WindowClient+          GHCJS.DOM.JSFFI.Generated.WindowEventHandlers+          GHCJS.DOM.JSFFI.Generated.WindowLocalStorage+          GHCJS.DOM.JSFFI.Generated.WindowOrWorkerGlobalScope+          GHCJS.DOM.JSFFI.Generated.WindowPostMessageOptions+          GHCJS.DOM.JSFFI.Generated.WindowSessionStorage+          GHCJS.DOM.JSFFI.Generated.Worker+          GHCJS.DOM.JSFFI.Generated.WorkerAndParameters+          GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope+          GHCJS.DOM.JSFFI.Generated.WorkerLocation+          GHCJS.DOM.JSFFI.Generated.WorkerNavigator+          GHCJS.DOM.JSFFI.Generated.WorkerOptions+          GHCJS.DOM.JSFFI.Generated.Worklet+          GHCJS.DOM.JSFFI.Generated.WorkletGlobalScope+          GHCJS.DOM.JSFFI.Generated.WorkletOptions+          GHCJS.DOM.JSFFI.Generated.WritableStream+          GHCJS.DOM.JSFFI.Generated.WritableStreamDefaultController+          GHCJS.DOM.JSFFI.Generated.WritableStreamDefaultWriter+          GHCJS.DOM.JSFFI.Generated.WriteParams+          GHCJS.DOM.JSFFI.Generated.XMLDocument+          GHCJS.DOM.JSFFI.Generated.XMLHttpRequest+          GHCJS.DOM.JSFFI.Generated.XMLHttpRequestEventTarget+          GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload+          GHCJS.DOM.JSFFI.Generated.XMLSerializer+          GHCJS.DOM.JSFFI.Generated.XPathEvaluator+          GHCJS.DOM.JSFFI.Generated.XPathEvaluatorBase+          GHCJS.DOM.JSFFI.Generated.XPathExpression+          GHCJS.DOM.JSFFI.Generated.XPathNSResolver+          GHCJS.DOM.JSFFI.Generated.XPathResult+          GHCJS.DOM.JSFFI.Generated.XSLTProcessor++    reexported-modules:+            GHCJS.DOM.JSFFI.Geolocation as GHCJS.DOM.Geolocation+          , GHCJS.DOM.JSFFI.GeolocationPositionError as GHCJS.DOM.GeolocationPositionError+          , GHCJS.DOM.JSFFI.XMLHttpRequest as GHCJS.DOM.XMLHttpRequest+          , GHCJS.DOM.JSFFI.Generated.ANGLE_instanced_arrays as GHCJS.DOM.ANGLE_instanced_arrays+          , GHCJS.DOM.JSFFI.Generated.ARIAMixin as GHCJS.DOM.ARIAMixin+          , GHCJS.DOM.JSFFI.Generated.ARIANotifyMixin as GHCJS.DOM.ARIANotifyMixin+          , GHCJS.DOM.JSFFI.Generated.AacEncoderConfig as GHCJS.DOM.AacEncoderConfig+          , GHCJS.DOM.JSFFI.Generated.AbortController as GHCJS.DOM.AbortController+          , GHCJS.DOM.JSFFI.Generated.AbortSignal as GHCJS.DOM.AbortSignal+          , GHCJS.DOM.JSFFI.Generated.AbstractRange as GHCJS.DOM.AbstractRange+          , GHCJS.DOM.JSFFI.Generated.AbstractWorker as GHCJS.DOM.AbstractWorker+          , GHCJS.DOM.JSFFI.Generated.AddEventListenerOptions as GHCJS.DOM.AddEventListenerOptions+          , GHCJS.DOM.JSFFI.Generated.AddressErrors as GHCJS.DOM.AddressErrors+          , GHCJS.DOM.JSFFI.Generated.AllAcceptedCredentialsOptions as GHCJS.DOM.AllAcceptedCredentialsOptions+          , GHCJS.DOM.JSFFI.Generated.AnalyserNode as GHCJS.DOM.AnalyserNode+          , GHCJS.DOM.JSFFI.Generated.AnalyserOptions as GHCJS.DOM.AnalyserOptions+          , GHCJS.DOM.JSFFI.Generated.Animatable as GHCJS.DOM.Animatable+          , GHCJS.DOM.JSFFI.Generated.Animation as GHCJS.DOM.Animation+          , GHCJS.DOM.JSFFI.Generated.AnimationEffect as GHCJS.DOM.AnimationEffect+          , GHCJS.DOM.JSFFI.Generated.AnimationEvent as GHCJS.DOM.AnimationEvent+          , GHCJS.DOM.JSFFI.Generated.AnimationEventInit as GHCJS.DOM.AnimationEventInit+          , GHCJS.DOM.JSFFI.Generated.AnimationFrameProvider as GHCJS.DOM.AnimationFrameProvider+          , GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEvent as GHCJS.DOM.AnimationPlaybackEvent+          , GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEventInit as GHCJS.DOM.AnimationPlaybackEventInit+          , GHCJS.DOM.JSFFI.Generated.AnimationTimeline as GHCJS.DOM.AnimationTimeline+          , GHCJS.DOM.JSFFI.Generated.AnimationTrigger as GHCJS.DOM.AnimationTrigger+          , GHCJS.DOM.JSFFI.Generated.AriaNotificationOptions as GHCJS.DOM.AriaNotificationOptions+          , GHCJS.DOM.JSFFI.Generated.AssignedNodesOptions as GHCJS.DOM.AssignedNodesOptions+          , GHCJS.DOM.JSFFI.Generated.Attr as GHCJS.DOM.Attr+          , GHCJS.DOM.JSFFI.Generated.AudioBuffer as GHCJS.DOM.AudioBuffer+          , GHCJS.DOM.JSFFI.Generated.AudioBufferOptions as GHCJS.DOM.AudioBufferOptions+          , GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode as GHCJS.DOM.AudioBufferSourceNode+          , GHCJS.DOM.JSFFI.Generated.AudioBufferSourceOptions as GHCJS.DOM.AudioBufferSourceOptions+          , GHCJS.DOM.JSFFI.Generated.AudioConfiguration as GHCJS.DOM.AudioConfiguration+          , GHCJS.DOM.JSFFI.Generated.AudioContext as GHCJS.DOM.AudioContext+          , GHCJS.DOM.JSFFI.Generated.AudioContextOptions as GHCJS.DOM.AudioContextOptions+          , GHCJS.DOM.JSFFI.Generated.AudioData as GHCJS.DOM.AudioData+          , GHCJS.DOM.JSFFI.Generated.AudioDataCopyToOptions as GHCJS.DOM.AudioDataCopyToOptions+          , GHCJS.DOM.JSFFI.Generated.AudioDataInit as GHCJS.DOM.AudioDataInit+          , GHCJS.DOM.JSFFI.Generated.AudioDataOutputCallback as GHCJS.DOM.AudioDataOutputCallback+          , GHCJS.DOM.JSFFI.Generated.AudioDecoder as GHCJS.DOM.AudioDecoder+          , GHCJS.DOM.JSFFI.Generated.AudioDecoderConfig as GHCJS.DOM.AudioDecoderConfig+          , GHCJS.DOM.JSFFI.Generated.AudioDecoderInit as GHCJS.DOM.AudioDecoderInit+          , GHCJS.DOM.JSFFI.Generated.AudioDecoderSupport as GHCJS.DOM.AudioDecoderSupport+          , GHCJS.DOM.JSFFI.Generated.AudioDestinationNode as GHCJS.DOM.AudioDestinationNode+          , GHCJS.DOM.JSFFI.Generated.AudioEncoder as GHCJS.DOM.AudioEncoder+          , GHCJS.DOM.JSFFI.Generated.AudioEncoderConfig as GHCJS.DOM.AudioEncoderConfig+          , GHCJS.DOM.JSFFI.Generated.AudioEncoderInit as GHCJS.DOM.AudioEncoderInit+          , GHCJS.DOM.JSFFI.Generated.AudioEncoderSupport as GHCJS.DOM.AudioEncoderSupport+          , GHCJS.DOM.JSFFI.Generated.AudioListener as GHCJS.DOM.AudioListener+          , GHCJS.DOM.JSFFI.Generated.AudioNode as GHCJS.DOM.AudioNode+          , GHCJS.DOM.JSFFI.Generated.AudioNodeOptions as GHCJS.DOM.AudioNodeOptions+          , GHCJS.DOM.JSFFI.Generated.AudioParam as GHCJS.DOM.AudioParam+          , GHCJS.DOM.JSFFI.Generated.AudioParamMap as GHCJS.DOM.AudioParamMap+          , GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent as GHCJS.DOM.AudioProcessingEvent+          , GHCJS.DOM.JSFFI.Generated.AudioProcessingEventInit as GHCJS.DOM.AudioProcessingEventInit+          , GHCJS.DOM.JSFFI.Generated.AudioScheduledSourceNode as GHCJS.DOM.AudioScheduledSourceNode+          , GHCJS.DOM.JSFFI.Generated.AudioSinkOptions as GHCJS.DOM.AudioSinkOptions+          , GHCJS.DOM.JSFFI.Generated.AudioTimestamp as GHCJS.DOM.AudioTimestamp+          , GHCJS.DOM.JSFFI.Generated.AudioTrack as GHCJS.DOM.AudioTrack+          , GHCJS.DOM.JSFFI.Generated.AudioTrackList as GHCJS.DOM.AudioTrackList+          , GHCJS.DOM.JSFFI.Generated.AudioWorklet as GHCJS.DOM.AudioWorklet+          , GHCJS.DOM.JSFFI.Generated.AudioWorkletGlobalScope as GHCJS.DOM.AudioWorkletGlobalScope+          , GHCJS.DOM.JSFFI.Generated.AudioWorkletNode as GHCJS.DOM.AudioWorkletNode+          , GHCJS.DOM.JSFFI.Generated.AudioWorkletNodeOptions as GHCJS.DOM.AudioWorkletNodeOptions+          , GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessor as GHCJS.DOM.AudioWorkletProcessor+          , GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessorConstructor as GHCJS.DOM.AudioWorkletProcessorConstructor+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputs as GHCJS.DOM.AuthenticationExtensionsClientInputs+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputsJSON as GHCJS.DOM.AuthenticationExtensionsClientInputsJSON+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientOutputs as GHCJS.DOM.AuthenticationExtensionsClientOutputs+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputs as GHCJS.DOM.AuthenticationExtensionsLargeBlobInputs+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputsJSON as GHCJS.DOM.AuthenticationExtensionsLargeBlobInputsJSON+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobOutputs as GHCJS.DOM.AuthenticationExtensionsLargeBlobOutputs+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputs as GHCJS.DOM.AuthenticationExtensionsPRFInputs+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputsJSON as GHCJS.DOM.AuthenticationExtensionsPRFInputsJSON+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFOutputs as GHCJS.DOM.AuthenticationExtensionsPRFOutputs+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValues as GHCJS.DOM.AuthenticationExtensionsPRFValues+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValuesJSON as GHCJS.DOM.AuthenticationExtensionsPRFValuesJSON+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentInputs as GHCJS.DOM.AuthenticationExtensionsPaymentInputs+          , GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentOutputs as GHCJS.DOM.AuthenticationExtensionsPaymentOutputs+          , GHCJS.DOM.JSFFI.Generated.AuthenticatorAssertionResponse as GHCJS.DOM.AuthenticatorAssertionResponse+          , GHCJS.DOM.JSFFI.Generated.AuthenticatorAttestationResponse as GHCJS.DOM.AuthenticatorAttestationResponse+          , GHCJS.DOM.JSFFI.Generated.AuthenticatorResponse as GHCJS.DOM.AuthenticatorResponse+          , GHCJS.DOM.JSFFI.Generated.AuthenticatorSelectionCriteria as GHCJS.DOM.AuthenticatorSelectionCriteria+          , GHCJS.DOM.JSFFI.Generated.AutofillEvent as GHCJS.DOM.AutofillEvent+          , GHCJS.DOM.JSFFI.Generated.AvcEncoderConfig as GHCJS.DOM.AvcEncoderConfig+          , GHCJS.DOM.JSFFI.Generated.BackgroundBlur as GHCJS.DOM.BackgroundBlur+          , GHCJS.DOM.JSFFI.Generated.BarProp as GHCJS.DOM.BarProp+          , GHCJS.DOM.JSFFI.Generated.BaseAudioContext as GHCJS.DOM.BaseAudioContext+          , GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent as GHCJS.DOM.BeforeUnloadEvent+          , GHCJS.DOM.JSFFI.Generated.BiquadFilterNode as GHCJS.DOM.BiquadFilterNode+          , GHCJS.DOM.JSFFI.Generated.BiquadFilterOptions as GHCJS.DOM.BiquadFilterOptions+          , GHCJS.DOM.JSFFI.Generated.Blob as GHCJS.DOM.Blob+          , GHCJS.DOM.JSFFI.Generated.BlobCallback as GHCJS.DOM.BlobCallback+          , GHCJS.DOM.JSFFI.Generated.BlobEvent as GHCJS.DOM.BlobEvent+          , GHCJS.DOM.JSFFI.Generated.BlobEventInit as GHCJS.DOM.BlobEventInit+          , GHCJS.DOM.JSFFI.Generated.BlobPropertyBag as GHCJS.DOM.BlobPropertyBag+          , GHCJS.DOM.JSFFI.Generated.Body as GHCJS.DOM.Body+          , GHCJS.DOM.JSFFI.Generated.BroadcastChannel as GHCJS.DOM.BroadcastChannel+          , GHCJS.DOM.JSFFI.Generated.BrowserBoundSignature as GHCJS.DOM.BrowserBoundSignature+          , GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy as GHCJS.DOM.ByteLengthQueuingStrategy+          , GHCJS.DOM.JSFFI.Generated.CDATASection as GHCJS.DOM.CDATASection+          , GHCJS.DOM.JSFFI.Generated.CSS as GHCJS.DOM.CSS+          , GHCJS.DOM.JSFFI.Generated.CSSAnimation as GHCJS.DOM.CSSAnimation+          , GHCJS.DOM.JSFFI.Generated.CSSConditionRule as GHCJS.DOM.CSSConditionRule+          , GHCJS.DOM.JSFFI.Generated.CSSContainerCondition as GHCJS.DOM.CSSContainerCondition+          , GHCJS.DOM.JSFFI.Generated.CSSContainerRule as GHCJS.DOM.CSSContainerRule+          , GHCJS.DOM.JSFFI.Generated.CSSCounterStyleRule as GHCJS.DOM.CSSCounterStyleRule+          , GHCJS.DOM.JSFFI.Generated.CSSFontFaceDescriptors as GHCJS.DOM.CSSFontFaceDescriptors+          , GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule as GHCJS.DOM.CSSFontFaceRule+          , GHCJS.DOM.JSFFI.Generated.CSSFontFeatureValuesRule as GHCJS.DOM.CSSFontFeatureValuesRule+          , GHCJS.DOM.JSFFI.Generated.CSSFontPaletteValuesRule as GHCJS.DOM.CSSFontPaletteValuesRule+          , GHCJS.DOM.JSFFI.Generated.CSSGroupingRule as GHCJS.DOM.CSSGroupingRule+          , GHCJS.DOM.JSFFI.Generated.CSSImageValue as GHCJS.DOM.CSSImageValue+          , GHCJS.DOM.JSFFI.Generated.CSSImportRule as GHCJS.DOM.CSSImportRule+          , GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule as GHCJS.DOM.CSSKeyframeRule+          , GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule as GHCJS.DOM.CSSKeyframesRule+          , GHCJS.DOM.JSFFI.Generated.CSSKeywordValue as GHCJS.DOM.CSSKeywordValue+          , GHCJS.DOM.JSFFI.Generated.CSSLayerBlockRule as GHCJS.DOM.CSSLayerBlockRule+          , GHCJS.DOM.JSFFI.Generated.CSSLayerStatementRule as GHCJS.DOM.CSSLayerStatementRule+          , GHCJS.DOM.JSFFI.Generated.CSSMathClamp as GHCJS.DOM.CSSMathClamp+          , GHCJS.DOM.JSFFI.Generated.CSSMathInvert as GHCJS.DOM.CSSMathInvert+          , GHCJS.DOM.JSFFI.Generated.CSSMathMax as GHCJS.DOM.CSSMathMax+          , GHCJS.DOM.JSFFI.Generated.CSSMathMin as GHCJS.DOM.CSSMathMin+          , GHCJS.DOM.JSFFI.Generated.CSSMathNegate as GHCJS.DOM.CSSMathNegate+          , GHCJS.DOM.JSFFI.Generated.CSSMathProduct as GHCJS.DOM.CSSMathProduct+          , GHCJS.DOM.JSFFI.Generated.CSSMathSum as GHCJS.DOM.CSSMathSum+          , GHCJS.DOM.JSFFI.Generated.CSSMathValue as GHCJS.DOM.CSSMathValue+          , GHCJS.DOM.JSFFI.Generated.CSSMatrixComponent as GHCJS.DOM.CSSMatrixComponent+          , GHCJS.DOM.JSFFI.Generated.CSSMatrixComponentOptions as GHCJS.DOM.CSSMatrixComponentOptions+          , GHCJS.DOM.JSFFI.Generated.CSSMediaRule as GHCJS.DOM.CSSMediaRule+          , GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule as GHCJS.DOM.CSSNamespaceRule+          , GHCJS.DOM.JSFFI.Generated.CSSNestedDeclarations as GHCJS.DOM.CSSNestedDeclarations+          , GHCJS.DOM.JSFFI.Generated.CSSNumericArray as GHCJS.DOM.CSSNumericArray+          , GHCJS.DOM.JSFFI.Generated.CSSNumericType as GHCJS.DOM.CSSNumericType+          , GHCJS.DOM.JSFFI.Generated.CSSNumericValue as GHCJS.DOM.CSSNumericValue+          , GHCJS.DOM.JSFFI.Generated.CSSPageDescriptors as GHCJS.DOM.CSSPageDescriptors+          , GHCJS.DOM.JSFFI.Generated.CSSPageRule as GHCJS.DOM.CSSPageRule+          , GHCJS.DOM.JSFFI.Generated.CSSPerspective as GHCJS.DOM.CSSPerspective+          , GHCJS.DOM.JSFFI.Generated.CSSPositionTryDescriptors as GHCJS.DOM.CSSPositionTryDescriptors+          , GHCJS.DOM.JSFFI.Generated.CSSPositionTryRule as GHCJS.DOM.CSSPositionTryRule+          , GHCJS.DOM.JSFFI.Generated.CSSPropertyRule as GHCJS.DOM.CSSPropertyRule+          , GHCJS.DOM.JSFFI.Generated.CSSRotate as GHCJS.DOM.CSSRotate+          , GHCJS.DOM.JSFFI.Generated.CSSRule as GHCJS.DOM.CSSRule+          , GHCJS.DOM.JSFFI.Generated.CSSRuleList as GHCJS.DOM.CSSRuleList+          , GHCJS.DOM.JSFFI.Generated.CSSScale as GHCJS.DOM.CSSScale+          , GHCJS.DOM.JSFFI.Generated.CSSScopeRule as GHCJS.DOM.CSSScopeRule+          , GHCJS.DOM.JSFFI.Generated.CSSSkew as GHCJS.DOM.CSSSkew+          , GHCJS.DOM.JSFFI.Generated.CSSSkewX as GHCJS.DOM.CSSSkewX+          , GHCJS.DOM.JSFFI.Generated.CSSSkewY as GHCJS.DOM.CSSSkewY+          , GHCJS.DOM.JSFFI.Generated.CSSStartingStyleRule as GHCJS.DOM.CSSStartingStyleRule+          , GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration as GHCJS.DOM.CSSStyleDeclaration+          , GHCJS.DOM.JSFFI.Generated.CSSStyleProperties as GHCJS.DOM.CSSStyleProperties+          , GHCJS.DOM.JSFFI.Generated.CSSStyleRule as GHCJS.DOM.CSSStyleRule+          , GHCJS.DOM.JSFFI.Generated.CSSStyleSheet as GHCJS.DOM.CSSStyleSheet+          , GHCJS.DOM.JSFFI.Generated.CSSStyleSheetInit as GHCJS.DOM.CSSStyleSheetInit+          , GHCJS.DOM.JSFFI.Generated.CSSStyleValue as GHCJS.DOM.CSSStyleValue+          , GHCJS.DOM.JSFFI.Generated.CSSSupportsRule as GHCJS.DOM.CSSSupportsRule+          , GHCJS.DOM.JSFFI.Generated.CSSTransformComponent as GHCJS.DOM.CSSTransformComponent+          , GHCJS.DOM.JSFFI.Generated.CSSTransformValue as GHCJS.DOM.CSSTransformValue+          , GHCJS.DOM.JSFFI.Generated.CSSTransition as GHCJS.DOM.CSSTransition+          , GHCJS.DOM.JSFFI.Generated.CSSTranslate as GHCJS.DOM.CSSTranslate+          , GHCJS.DOM.JSFFI.Generated.CSSUnitValue as GHCJS.DOM.CSSUnitValue+          , GHCJS.DOM.JSFFI.Generated.CSSUnparsedValue as GHCJS.DOM.CSSUnparsedValue+          , GHCJS.DOM.JSFFI.Generated.CSSVariableReferenceValue as GHCJS.DOM.CSSVariableReferenceValue+          , GHCJS.DOM.JSFFI.Generated.CSSViewTransitionRule as GHCJS.DOM.CSSViewTransitionRule+          , GHCJS.DOM.JSFFI.Generated.Cache as GHCJS.DOM.Cache+          , GHCJS.DOM.JSFFI.Generated.CacheQueryOptions as GHCJS.DOM.CacheQueryOptions+          , GHCJS.DOM.JSFFI.Generated.CacheStorage as GHCJS.DOM.CacheStorage+          , GHCJS.DOM.JSFFI.Generated.CanvasCaptureMediaStreamTrack as GHCJS.DOM.CanvasCaptureMediaStreamTrack+          , GHCJS.DOM.JSFFI.Generated.CanvasCompositing as GHCJS.DOM.CanvasCompositing+          , GHCJS.DOM.JSFFI.Generated.CanvasDrawImage as GHCJS.DOM.CanvasDrawImage+          , GHCJS.DOM.JSFFI.Generated.CanvasDrawPath as GHCJS.DOM.CanvasDrawPath+          , GHCJS.DOM.JSFFI.Generated.CanvasFillStrokeStyles as GHCJS.DOM.CanvasFillStrokeStyles+          , GHCJS.DOM.JSFFI.Generated.CanvasFilters as GHCJS.DOM.CanvasFilters+          , GHCJS.DOM.JSFFI.Generated.CanvasGradient as GHCJS.DOM.CanvasGradient+          , GHCJS.DOM.JSFFI.Generated.CanvasImageData as GHCJS.DOM.CanvasImageData+          , GHCJS.DOM.JSFFI.Generated.CanvasImageSmoothing as GHCJS.DOM.CanvasImageSmoothing+          , GHCJS.DOM.JSFFI.Generated.CanvasPath as GHCJS.DOM.CanvasPath+          , GHCJS.DOM.JSFFI.Generated.CanvasPathDrawingStyles as GHCJS.DOM.CanvasPathDrawingStyles+          , GHCJS.DOM.JSFFI.Generated.CanvasPattern as GHCJS.DOM.CanvasPattern+          , GHCJS.DOM.JSFFI.Generated.CanvasRect as GHCJS.DOM.CanvasRect+          , GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D as GHCJS.DOM.CanvasRenderingContext2D+          , GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2DSettings as GHCJS.DOM.CanvasRenderingContext2DSettings+          , GHCJS.DOM.JSFFI.Generated.CanvasSettings as GHCJS.DOM.CanvasSettings+          , GHCJS.DOM.JSFFI.Generated.CanvasShadowStyles as GHCJS.DOM.CanvasShadowStyles+          , GHCJS.DOM.JSFFI.Generated.CanvasState as GHCJS.DOM.CanvasState+          , GHCJS.DOM.JSFFI.Generated.CanvasText as GHCJS.DOM.CanvasText+          , GHCJS.DOM.JSFFI.Generated.CanvasTextDrawingStyles as GHCJS.DOM.CanvasTextDrawingStyles+          , GHCJS.DOM.JSFFI.Generated.CanvasTransform as GHCJS.DOM.CanvasTransform+          , GHCJS.DOM.JSFFI.Generated.CanvasUserInterface as GHCJS.DOM.CanvasUserInterface+          , GHCJS.DOM.JSFFI.Generated.CaptureController as GHCJS.DOM.CaptureController+          , GHCJS.DOM.JSFFI.Generated.CaretPosition as GHCJS.DOM.CaretPosition+          , GHCJS.DOM.JSFFI.Generated.CaretPositionFromPointOptions as GHCJS.DOM.CaretPositionFromPointOptions+          , GHCJS.DOM.JSFFI.Generated.ChannelMergerNode as GHCJS.DOM.ChannelMergerNode+          , GHCJS.DOM.JSFFI.Generated.ChannelMergerOptions as GHCJS.DOM.ChannelMergerOptions+          , GHCJS.DOM.JSFFI.Generated.ChannelSplitterNode as GHCJS.DOM.ChannelSplitterNode+          , GHCJS.DOM.JSFFI.Generated.ChannelSplitterOptions as GHCJS.DOM.ChannelSplitterOptions+          , GHCJS.DOM.JSFFI.Generated.ChapterInformationInit as GHCJS.DOM.ChapterInformationInit+          , GHCJS.DOM.JSFFI.Generated.CharacterData as GHCJS.DOM.CharacterData+          , GHCJS.DOM.JSFFI.Generated.CheckVisibilityOptions as GHCJS.DOM.CheckVisibilityOptions+          , GHCJS.DOM.JSFFI.Generated.ChildNode as GHCJS.DOM.ChildNode+          , GHCJS.DOM.JSFFI.Generated.Client as GHCJS.DOM.Client+          , GHCJS.DOM.JSFFI.Generated.ClientQueryOptions as GHCJS.DOM.ClientQueryOptions+          , GHCJS.DOM.JSFFI.Generated.Clients as GHCJS.DOM.Clients+          , GHCJS.DOM.JSFFI.Generated.Clipboard as GHCJS.DOM.Clipboard+          , GHCJS.DOM.JSFFI.Generated.ClipboardChangeEvent as GHCJS.DOM.ClipboardChangeEvent+          , GHCJS.DOM.JSFFI.Generated.ClipboardEvent as GHCJS.DOM.ClipboardEvent+          , GHCJS.DOM.JSFFI.Generated.ClipboardEventInit as GHCJS.DOM.ClipboardEventInit+          , GHCJS.DOM.JSFFI.Generated.ClipboardItem as GHCJS.DOM.ClipboardItem+          , GHCJS.DOM.JSFFI.Generated.ClipboardItemOptions as GHCJS.DOM.ClipboardItemOptions+          , GHCJS.DOM.JSFFI.Generated.ClipboardUnsanitizedFormats as GHCJS.DOM.ClipboardUnsanitizedFormats+          , GHCJS.DOM.JSFFI.Generated.CloseEvent as GHCJS.DOM.CloseEvent+          , GHCJS.DOM.JSFFI.Generated.CloseEventInit as GHCJS.DOM.CloseEventInit+          , GHCJS.DOM.JSFFI.Generated.CloseWatcher as GHCJS.DOM.CloseWatcher+          , GHCJS.DOM.JSFFI.Generated.CloseWatcherOptions as GHCJS.DOM.CloseWatcherOptions+          , GHCJS.DOM.JSFFI.Generated.CommandEvent as GHCJS.DOM.CommandEvent+          , GHCJS.DOM.JSFFI.Generated.CommandEventInit as GHCJS.DOM.CommandEventInit+          , GHCJS.DOM.JSFFI.Generated.Comment as GHCJS.DOM.Comment+          , GHCJS.DOM.JSFFI.Generated.CompositionEvent as GHCJS.DOM.CompositionEvent+          , GHCJS.DOM.JSFFI.Generated.CompositionEventInit as GHCJS.DOM.CompositionEventInit+          , GHCJS.DOM.JSFFI.Generated.CompressionStream as GHCJS.DOM.CompressionStream+          , GHCJS.DOM.JSFFI.Generated.ComputedEffectTiming as GHCJS.DOM.ComputedEffectTiming+          , GHCJS.DOM.JSFFI.Generated.Console as GHCJS.DOM.Console+          , GHCJS.DOM.JSFFI.Generated.ConstantSourceNode as GHCJS.DOM.ConstantSourceNode+          , GHCJS.DOM.JSFFI.Generated.ConstantSourceOptions as GHCJS.DOM.ConstantSourceOptions+          , GHCJS.DOM.JSFFI.Generated.ConstrainBooleanOrDOMStringParameters as GHCJS.DOM.ConstrainBooleanOrDOMStringParameters+          , GHCJS.DOM.JSFFI.Generated.ConstrainBooleanParameters as GHCJS.DOM.ConstrainBooleanParameters+          , GHCJS.DOM.JSFFI.Generated.ConstrainDOMStringParameters as GHCJS.DOM.ConstrainDOMStringParameters+          , GHCJS.DOM.JSFFI.Generated.ConstrainDoubleRange as GHCJS.DOM.ConstrainDoubleRange+          , GHCJS.DOM.JSFFI.Generated.ConstrainPoint2DParameters as GHCJS.DOM.ConstrainPoint2DParameters+          , GHCJS.DOM.JSFFI.Generated.ConstrainULongRange as GHCJS.DOM.ConstrainULongRange+          , GHCJS.DOM.JSFFI.Generated.ContactAddress as GHCJS.DOM.ContactAddress+          , GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEvent as GHCJS.DOM.ContentVisibilityAutoStateChangeEvent+          , GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEventInit as GHCJS.DOM.ContentVisibilityAutoStateChangeEventInit+          , GHCJS.DOM.JSFFI.Generated.ConvolverNode as GHCJS.DOM.ConvolverNode+          , GHCJS.DOM.JSFFI.Generated.ConvolverOptions as GHCJS.DOM.ConvolverOptions+          , GHCJS.DOM.JSFFI.Generated.CookieChangeEvent as GHCJS.DOM.CookieChangeEvent+          , GHCJS.DOM.JSFFI.Generated.CookieChangeEventInit as GHCJS.DOM.CookieChangeEventInit+          , GHCJS.DOM.JSFFI.Generated.CookieInit as GHCJS.DOM.CookieInit+          , GHCJS.DOM.JSFFI.Generated.CookieListItem as GHCJS.DOM.CookieListItem+          , GHCJS.DOM.JSFFI.Generated.CookieStore as GHCJS.DOM.CookieStore+          , GHCJS.DOM.JSFFI.Generated.CookieStoreDeleteOptions as GHCJS.DOM.CookieStoreDeleteOptions+          , GHCJS.DOM.JSFFI.Generated.CookieStoreGetOptions as GHCJS.DOM.CookieStoreGetOptions+          , GHCJS.DOM.JSFFI.Generated.CookieStoreManager as GHCJS.DOM.CookieStoreManager+          , GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy as GHCJS.DOM.CountQueuingStrategy+          , GHCJS.DOM.JSFFI.Generated.CreateHTMLCallback as GHCJS.DOM.CreateHTMLCallback+          , GHCJS.DOM.JSFFI.Generated.CreateParserOptionsCallback as GHCJS.DOM.CreateParserOptionsCallback+          , GHCJS.DOM.JSFFI.Generated.CreateScriptCallback as GHCJS.DOM.CreateScriptCallback+          , GHCJS.DOM.JSFFI.Generated.CreateScriptURLCallback as GHCJS.DOM.CreateScriptURLCallback+          , GHCJS.DOM.JSFFI.Generated.Credential as GHCJS.DOM.Credential+          , GHCJS.DOM.JSFFI.Generated.CredentialCreationOptions as GHCJS.DOM.CredentialCreationOptions+          , GHCJS.DOM.JSFFI.Generated.CredentialData as GHCJS.DOM.CredentialData+          , GHCJS.DOM.JSFFI.Generated.CredentialPropertiesOutput as GHCJS.DOM.CredentialPropertiesOutput+          , GHCJS.DOM.JSFFI.Generated.CredentialRequestOptions as GHCJS.DOM.CredentialRequestOptions+          , GHCJS.DOM.JSFFI.Generated.CredentialsContainer as GHCJS.DOM.CredentialsContainer+          , GHCJS.DOM.JSFFI.Generated.Crypto as GHCJS.DOM.Crypto+          , GHCJS.DOM.JSFFI.Generated.CryptoKey as GHCJS.DOM.CryptoKey+          , GHCJS.DOM.JSFFI.Generated.CryptoKeyPair as GHCJS.DOM.CryptoKeyPair+          , GHCJS.DOM.JSFFI.Generated.CurrentUserDetailsOptions as GHCJS.DOM.CurrentUserDetailsOptions+          , GHCJS.DOM.JSFFI.Generated.CustomElementConstructor as GHCJS.DOM.CustomElementConstructor+          , GHCJS.DOM.JSFFI.Generated.CustomElementRegistry as GHCJS.DOM.CustomElementRegistry+          , GHCJS.DOM.JSFFI.Generated.CustomEvent as GHCJS.DOM.CustomEvent+          , GHCJS.DOM.JSFFI.Generated.CustomEventInit as GHCJS.DOM.CustomEventInit+          , GHCJS.DOM.JSFFI.Generated.CustomStateSet as GHCJS.DOM.CustomStateSet+          , GHCJS.DOM.JSFFI.Generated.DOMException as GHCJS.DOM.DOMException+          , GHCJS.DOM.JSFFI.Generated.DOMImplementation as GHCJS.DOM.DOMImplementation+          , GHCJS.DOM.JSFFI.Generated.DOMMatrix as GHCJS.DOM.DOMMatrix+          , GHCJS.DOM.JSFFI.Generated.DOMMatrix2DInit as GHCJS.DOM.DOMMatrix2DInit+          , GHCJS.DOM.JSFFI.Generated.DOMMatrixInit as GHCJS.DOM.DOMMatrixInit+          , GHCJS.DOM.JSFFI.Generated.DOMMatrixReadOnly as GHCJS.DOM.DOMMatrixReadOnly+          , GHCJS.DOM.JSFFI.Generated.DOMParser as GHCJS.DOM.DOMParser+          , GHCJS.DOM.JSFFI.Generated.DOMPoint as GHCJS.DOM.DOMPoint+          , GHCJS.DOM.JSFFI.Generated.DOMPointInit as GHCJS.DOM.DOMPointInit+          , GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly as GHCJS.DOM.DOMPointReadOnly+          , GHCJS.DOM.JSFFI.Generated.DOMQuad as GHCJS.DOM.DOMQuad+          , GHCJS.DOM.JSFFI.Generated.DOMQuadInit as GHCJS.DOM.DOMQuadInit+          , GHCJS.DOM.JSFFI.Generated.DOMRect as GHCJS.DOM.DOMRect+          , GHCJS.DOM.JSFFI.Generated.DOMRectInit as GHCJS.DOM.DOMRectInit+          , GHCJS.DOM.JSFFI.Generated.DOMRectList as GHCJS.DOM.DOMRectList+          , GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly as GHCJS.DOM.DOMRectReadOnly+          , GHCJS.DOM.JSFFI.Generated.DOMStringList as GHCJS.DOM.DOMStringList+          , GHCJS.DOM.JSFFI.Generated.DOMStringMap as GHCJS.DOM.DOMStringMap+          , GHCJS.DOM.JSFFI.Generated.DOMTokenList as GHCJS.DOM.DOMTokenList+          , GHCJS.DOM.JSFFI.Generated.DataCue as GHCJS.DOM.DataCue+          , GHCJS.DOM.JSFFI.Generated.DataTransfer as GHCJS.DOM.DataTransfer+          , GHCJS.DOM.JSFFI.Generated.DataTransferItem as GHCJS.DOM.DataTransferItem+          , GHCJS.DOM.JSFFI.Generated.DataTransferItemList as GHCJS.DOM.DataTransferItemList+          , GHCJS.DOM.JSFFI.Generated.DecodeErrorCallback as GHCJS.DOM.DecodeErrorCallback+          , GHCJS.DOM.JSFFI.Generated.DecodeSuccessCallback as GHCJS.DOM.DecodeSuccessCallback+          , GHCJS.DOM.JSFFI.Generated.DecompressionStream as GHCJS.DOM.DecompressionStream+          , GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope as GHCJS.DOM.DedicatedWorkerGlobalScope+          , GHCJS.DOM.JSFFI.Generated.DelayNode as GHCJS.DOM.DelayNode+          , GHCJS.DOM.JSFFI.Generated.DelayOptions as GHCJS.DOM.DelayOptions+          , GHCJS.DOM.JSFFI.Generated.DeviceChangeEvent as GHCJS.DOM.DeviceChangeEvent+          , GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent as GHCJS.DOM.DeviceMotionEvent+          , GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAcceleration as GHCJS.DOM.DeviceMotionEventAcceleration+          , GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAccelerationInit as GHCJS.DOM.DeviceMotionEventAccelerationInit+          , GHCJS.DOM.JSFFI.Generated.DeviceMotionEventInit as GHCJS.DOM.DeviceMotionEventInit+          , GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRate as GHCJS.DOM.DeviceMotionEventRotationRate+          , GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRateInit as GHCJS.DOM.DeviceMotionEventRotationRateInit+          , GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent as GHCJS.DOM.DeviceOrientationEvent+          , GHCJS.DOM.JSFFI.Generated.DeviceOrientationEventInit as GHCJS.DOM.DeviceOrientationEventInit+          , GHCJS.DOM.JSFFI.Generated.DigitalCredential as GHCJS.DOM.DigitalCredential+          , GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreateRequest as GHCJS.DOM.DigitalCredentialCreateRequest+          , GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreationOptions as GHCJS.DOM.DigitalCredentialCreationOptions+          , GHCJS.DOM.JSFFI.Generated.DigitalCredentialGetRequest as GHCJS.DOM.DigitalCredentialGetRequest+          , GHCJS.DOM.JSFFI.Generated.DigitalCredentialRequestOptions as GHCJS.DOM.DigitalCredentialRequestOptions+          , GHCJS.DOM.JSFFI.Generated.DisplayMediaStreamOptions as GHCJS.DOM.DisplayMediaStreamOptions+          , GHCJS.DOM.JSFFI.Generated.Document as GHCJS.DOM.Document+          , GHCJS.DOM.JSFFI.Generated.DocumentFragment as GHCJS.DOM.DocumentFragment+          , GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot as GHCJS.DOM.DocumentOrShadowRoot+          , GHCJS.DOM.JSFFI.Generated.DocumentPictureInPicture as GHCJS.DOM.DocumentPictureInPicture+          , GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEvent as GHCJS.DOM.DocumentPictureInPictureEvent+          , GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEventInit as GHCJS.DOM.DocumentPictureInPictureEventInit+          , GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureOptions as GHCJS.DOM.DocumentPictureInPictureOptions+          , GHCJS.DOM.JSFFI.Generated.DocumentTimeline as GHCJS.DOM.DocumentTimeline+          , GHCJS.DOM.JSFFI.Generated.DocumentTimelineOptions as GHCJS.DOM.DocumentTimelineOptions+          , GHCJS.DOM.JSFFI.Generated.DocumentType as GHCJS.DOM.DocumentType+          , GHCJS.DOM.JSFFI.Generated.DoubleRange as GHCJS.DOM.DoubleRange+          , GHCJS.DOM.JSFFI.Generated.DragEvent as GHCJS.DOM.DragEvent+          , GHCJS.DOM.JSFFI.Generated.DragEventInit as GHCJS.DOM.DragEventInit+          , GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode as GHCJS.DOM.DynamicsCompressorNode+          , GHCJS.DOM.JSFFI.Generated.DynamicsCompressorOptions as GHCJS.DOM.DynamicsCompressorOptions+          , GHCJS.DOM.JSFFI.Generated.EXT_blend_minmax as GHCJS.DOM.EXT_blend_minmax+          , GHCJS.DOM.JSFFI.Generated.EXT_clip_control as GHCJS.DOM.EXT_clip_control+          , GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_float as GHCJS.DOM.EXT_color_buffer_float+          , GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_half_float as GHCJS.DOM.EXT_color_buffer_half_float+          , GHCJS.DOM.JSFFI.Generated.EXT_float_blend as GHCJS.DOM.EXT_float_blend+          , GHCJS.DOM.JSFFI.Generated.EXT_frag_depth as GHCJS.DOM.EXT_frag_depth+          , GHCJS.DOM.JSFFI.Generated.EXT_polygon_offset_clamp as GHCJS.DOM.EXT_polygon_offset_clamp+          , GHCJS.DOM.JSFFI.Generated.EXT_sRGB as GHCJS.DOM.EXT_sRGB+          , GHCJS.DOM.JSFFI.Generated.EXT_shader_texture_lod as GHCJS.DOM.EXT_shader_texture_lod+          , GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_bptc as GHCJS.DOM.EXT_texture_compression_bptc+          , GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_rgtc as GHCJS.DOM.EXT_texture_compression_rgtc+          , GHCJS.DOM.JSFFI.Generated.EXT_texture_filter_anisotropic as GHCJS.DOM.EXT_texture_filter_anisotropic+          , GHCJS.DOM.JSFFI.Generated.EXT_texture_mirror_clamp_to_edge as GHCJS.DOM.EXT_texture_mirror_clamp_to_edge+          , GHCJS.DOM.JSFFI.Generated.EXT_texture_norm16 as GHCJS.DOM.EXT_texture_norm16+          , GHCJS.DOM.JSFFI.Generated.EffectTiming as GHCJS.DOM.EffectTiming+          , GHCJS.DOM.JSFFI.Generated.Element as GHCJS.DOM.Element+          , GHCJS.DOM.JSFFI.Generated.ElementCSSInlineStyle as GHCJS.DOM.ElementCSSInlineStyle+          , GHCJS.DOM.JSFFI.Generated.ElementContentEditable as GHCJS.DOM.ElementContentEditable+          , GHCJS.DOM.JSFFI.Generated.ElementCreationOptions as GHCJS.DOM.ElementCreationOptions+          , GHCJS.DOM.JSFFI.Generated.ElementDefinitionOptions as GHCJS.DOM.ElementDefinitionOptions+          , GHCJS.DOM.JSFFI.Generated.ElementInternals as GHCJS.DOM.ElementInternals+          , GHCJS.DOM.JSFFI.Generated.EncodedAudioChunk as GHCJS.DOM.EncodedAudioChunk+          , GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkInit as GHCJS.DOM.EncodedAudioChunkInit+          , GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkMetadata as GHCJS.DOM.EncodedAudioChunkMetadata+          , GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkOutputCallback as GHCJS.DOM.EncodedAudioChunkOutputCallback+          , GHCJS.DOM.JSFFI.Generated.EncodedVideoChunk as GHCJS.DOM.EncodedVideoChunk+          , GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkInit as GHCJS.DOM.EncodedVideoChunkInit+          , GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkMetadata as GHCJS.DOM.EncodedVideoChunkMetadata+          , GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkOutputCallback as GHCJS.DOM.EncodedVideoChunkOutputCallback+          , GHCJS.DOM.JSFFI.Generated.ErrorCallback as GHCJS.DOM.ErrorCallback+          , GHCJS.DOM.JSFFI.Generated.ErrorEvent as GHCJS.DOM.ErrorEvent+          , GHCJS.DOM.JSFFI.Generated.ErrorEventInit as GHCJS.DOM.ErrorEventInit+          , GHCJS.DOM.JSFFI.Generated.Event as GHCJS.DOM.Event+          , GHCJS.DOM.JSFFI.Generated.EventCounts as GHCJS.DOM.EventCounts+          , GHCJS.DOM.JSFFI.Generated.EventInit as GHCJS.DOM.EventInit+          , GHCJS.DOM.JSFFI.Generated.EventListenerOptions as GHCJS.DOM.EventListenerOptions+          , GHCJS.DOM.JSFFI.Generated.EventModifierInit as GHCJS.DOM.EventModifierInit+          , GHCJS.DOM.JSFFI.Generated.EventSource as GHCJS.DOM.EventSource+          , GHCJS.DOM.JSFFI.Generated.EventSourceInit as GHCJS.DOM.EventSourceInit+          , GHCJS.DOM.JSFFI.Generated.EventTarget as GHCJS.DOM.EventTarget+          , GHCJS.DOM.JSFFI.Generated.ExtendableCookieChangeEvent as GHCJS.DOM.ExtendableCookieChangeEvent+          , GHCJS.DOM.JSFFI.Generated.ExtendableCookieChangeEventInit as GHCJS.DOM.ExtendableCookieChangeEventInit+          , GHCJS.DOM.JSFFI.Generated.ExtendableEvent as GHCJS.DOM.ExtendableEvent+          , GHCJS.DOM.JSFFI.Generated.ExtendableEventInit as GHCJS.DOM.ExtendableEventInit+          , GHCJS.DOM.JSFFI.Generated.ExtendableMessageEvent as GHCJS.DOM.ExtendableMessageEvent+          , GHCJS.DOM.JSFFI.Generated.ExtendableMessageEventInit as GHCJS.DOM.ExtendableMessageEventInit+          , GHCJS.DOM.JSFFI.Generated.External as GHCJS.DOM.External+          , GHCJS.DOM.JSFFI.Generated.FederatedCredentialInit as GHCJS.DOM.FederatedCredentialInit+          , GHCJS.DOM.JSFFI.Generated.FederatedCredentialRequestOptions as GHCJS.DOM.FederatedCredentialRequestOptions+          , GHCJS.DOM.JSFFI.Generated.FetchEvent as GHCJS.DOM.FetchEvent+          , GHCJS.DOM.JSFFI.Generated.FetchEventInit as GHCJS.DOM.FetchEventInit+          , GHCJS.DOM.JSFFI.Generated.File as GHCJS.DOM.File+          , GHCJS.DOM.JSFFI.Generated.FileCallback as GHCJS.DOM.FileCallback+          , GHCJS.DOM.JSFFI.Generated.FileList as GHCJS.DOM.FileList+          , GHCJS.DOM.JSFFI.Generated.FilePropertyBag as GHCJS.DOM.FilePropertyBag+          , GHCJS.DOM.JSFFI.Generated.FileReader as GHCJS.DOM.FileReader+          , GHCJS.DOM.JSFFI.Generated.FileReaderSync as GHCJS.DOM.FileReaderSync+          , GHCJS.DOM.JSFFI.Generated.FileSystem as GHCJS.DOM.FileSystem+          , GHCJS.DOM.JSFFI.Generated.FileSystemCreateWritableOptions as GHCJS.DOM.FileSystemCreateWritableOptions+          , GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryEntry as GHCJS.DOM.FileSystemDirectoryEntry+          , GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryHandle as GHCJS.DOM.FileSystemDirectoryHandle+          , GHCJS.DOM.JSFFI.Generated.FileSystemDirectoryReader as GHCJS.DOM.FileSystemDirectoryReader+          , GHCJS.DOM.JSFFI.Generated.FileSystemEntriesCallback as GHCJS.DOM.FileSystemEntriesCallback+          , GHCJS.DOM.JSFFI.Generated.FileSystemEntry as GHCJS.DOM.FileSystemEntry+          , GHCJS.DOM.JSFFI.Generated.FileSystemEntryCallback as GHCJS.DOM.FileSystemEntryCallback+          , GHCJS.DOM.JSFFI.Generated.FileSystemFileEntry as GHCJS.DOM.FileSystemFileEntry+          , GHCJS.DOM.JSFFI.Generated.FileSystemFileHandle as GHCJS.DOM.FileSystemFileHandle+          , GHCJS.DOM.JSFFI.Generated.FileSystemFlags as GHCJS.DOM.FileSystemFlags+          , GHCJS.DOM.JSFFI.Generated.FileSystemGetDirectoryOptions as GHCJS.DOM.FileSystemGetDirectoryOptions+          , GHCJS.DOM.JSFFI.Generated.FileSystemGetFileOptions as GHCJS.DOM.FileSystemGetFileOptions+          , GHCJS.DOM.JSFFI.Generated.FileSystemHandle as GHCJS.DOM.FileSystemHandle+          , GHCJS.DOM.JSFFI.Generated.FileSystemReadWriteOptions as GHCJS.DOM.FileSystemReadWriteOptions+          , GHCJS.DOM.JSFFI.Generated.FileSystemRemoveOptions as GHCJS.DOM.FileSystemRemoveOptions+          , GHCJS.DOM.JSFFI.Generated.FileSystemSyncAccessHandle as GHCJS.DOM.FileSystemSyncAccessHandle+          , GHCJS.DOM.JSFFI.Generated.FileSystemWritableFileStream as GHCJS.DOM.FileSystemWritableFileStream+          , GHCJS.DOM.JSFFI.Generated.FlacEncoderConfig as GHCJS.DOM.FlacEncoderConfig+          , GHCJS.DOM.JSFFI.Generated.FocusEvent as GHCJS.DOM.FocusEvent+          , GHCJS.DOM.JSFFI.Generated.FocusEventInit as GHCJS.DOM.FocusEventInit+          , GHCJS.DOM.JSFFI.Generated.FocusOptions as GHCJS.DOM.FocusOptions+          , GHCJS.DOM.JSFFI.Generated.FontFace as GHCJS.DOM.FontFace+          , GHCJS.DOM.JSFFI.Generated.FontFaceDescriptors as GHCJS.DOM.FontFaceDescriptors+          , GHCJS.DOM.JSFFI.Generated.FontFaceSet as GHCJS.DOM.FontFaceSet+          , GHCJS.DOM.JSFFI.Generated.FontFaceSetLoadEvent as GHCJS.DOM.FontFaceSetLoadEvent+          , GHCJS.DOM.JSFFI.Generated.FontFaceSetLoadEventInit as GHCJS.DOM.FontFaceSetLoadEventInit+          , GHCJS.DOM.JSFFI.Generated.FontFaceSource as GHCJS.DOM.FontFaceSource+          , GHCJS.DOM.JSFFI.Generated.FormData as GHCJS.DOM.FormData+          , GHCJS.DOM.JSFFI.Generated.FormDataEvent as GHCJS.DOM.FormDataEvent+          , GHCJS.DOM.JSFFI.Generated.FormDataEventInit as GHCJS.DOM.FormDataEventInit+          , GHCJS.DOM.JSFFI.Generated.FragmentDirective as GHCJS.DOM.FragmentDirective+          , GHCJS.DOM.JSFFI.Generated.FrameRequestCallback as GHCJS.DOM.FrameRequestCallback+          , GHCJS.DOM.JSFFI.Generated.FullscreenOptions as GHCJS.DOM.FullscreenOptions+          , GHCJS.DOM.JSFFI.Generated.FunctionStringCallback as GHCJS.DOM.FunctionStringCallback+          , GHCJS.DOM.JSFFI.Generated.GPU as GHCJS.DOM.GPU+          , GHCJS.DOM.JSFFI.Generated.GPUAdapter as GHCJS.DOM.GPUAdapter+          , GHCJS.DOM.JSFFI.Generated.GPUAdapterInfo as GHCJS.DOM.GPUAdapterInfo+          , GHCJS.DOM.JSFFI.Generated.GPUBindGroup as GHCJS.DOM.GPUBindGroup+          , GHCJS.DOM.JSFFI.Generated.GPUBindGroupDescriptor as GHCJS.DOM.GPUBindGroupDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUBindGroupEntry as GHCJS.DOM.GPUBindGroupEntry+          , GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayout as GHCJS.DOM.GPUBindGroupLayout+          , GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayoutDescriptor as GHCJS.DOM.GPUBindGroupLayoutDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUBindGroupLayoutEntry as GHCJS.DOM.GPUBindGroupLayoutEntry+          , GHCJS.DOM.JSFFI.Generated.GPUBindingCommandsMixin as GHCJS.DOM.GPUBindingCommandsMixin+          , GHCJS.DOM.JSFFI.Generated.GPUBlendComponent as GHCJS.DOM.GPUBlendComponent+          , GHCJS.DOM.JSFFI.Generated.GPUBlendState as GHCJS.DOM.GPUBlendState+          , GHCJS.DOM.JSFFI.Generated.GPUBuffer as GHCJS.DOM.GPUBuffer+          , GHCJS.DOM.JSFFI.Generated.GPUBufferBinding as GHCJS.DOM.GPUBufferBinding+          , GHCJS.DOM.JSFFI.Generated.GPUBufferBindingLayout as GHCJS.DOM.GPUBufferBindingLayout+          , GHCJS.DOM.JSFFI.Generated.GPUBufferDescriptor as GHCJS.DOM.GPUBufferDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUCanvasConfiguration as GHCJS.DOM.GPUCanvasConfiguration+          , GHCJS.DOM.JSFFI.Generated.GPUCanvasContext as GHCJS.DOM.GPUCanvasContext+          , GHCJS.DOM.JSFFI.Generated.GPUCanvasToneMapping as GHCJS.DOM.GPUCanvasToneMapping+          , GHCJS.DOM.JSFFI.Generated.GPUColorDict as GHCJS.DOM.GPUColorDict+          , GHCJS.DOM.JSFFI.Generated.GPUColorTargetState as GHCJS.DOM.GPUColorTargetState+          , GHCJS.DOM.JSFFI.Generated.GPUCommandBuffer as GHCJS.DOM.GPUCommandBuffer+          , GHCJS.DOM.JSFFI.Generated.GPUCommandBufferDescriptor as GHCJS.DOM.GPUCommandBufferDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUCommandEncoder as GHCJS.DOM.GPUCommandEncoder+          , GHCJS.DOM.JSFFI.Generated.GPUCommandEncoderDescriptor as GHCJS.DOM.GPUCommandEncoderDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUCompilationInfo as GHCJS.DOM.GPUCompilationInfo+          , GHCJS.DOM.JSFFI.Generated.GPUCompilationMessage as GHCJS.DOM.GPUCompilationMessage+          , GHCJS.DOM.JSFFI.Generated.GPUComputePassDescriptor as GHCJS.DOM.GPUComputePassDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUComputePassEncoder as GHCJS.DOM.GPUComputePassEncoder+          , GHCJS.DOM.JSFFI.Generated.GPUComputePassTimestampWrites as GHCJS.DOM.GPUComputePassTimestampWrites+          , GHCJS.DOM.JSFFI.Generated.GPUComputePipeline as GHCJS.DOM.GPUComputePipeline+          , GHCJS.DOM.JSFFI.Generated.GPUComputePipelineDescriptor as GHCJS.DOM.GPUComputePipelineDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUCopyExternalImageDestInfo as GHCJS.DOM.GPUCopyExternalImageDestInfo+          , GHCJS.DOM.JSFFI.Generated.GPUCopyExternalImageSourceInfo as GHCJS.DOM.GPUCopyExternalImageSourceInfo+          , GHCJS.DOM.JSFFI.Generated.GPUDebugCommandsMixin as GHCJS.DOM.GPUDebugCommandsMixin+          , GHCJS.DOM.JSFFI.Generated.GPUDepthStencilState as GHCJS.DOM.GPUDepthStencilState+          , GHCJS.DOM.JSFFI.Generated.GPUDevice as GHCJS.DOM.GPUDevice+          , GHCJS.DOM.JSFFI.Generated.GPUDeviceDescriptor as GHCJS.DOM.GPUDeviceDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUDeviceLostInfo as GHCJS.DOM.GPUDeviceLostInfo+          , GHCJS.DOM.JSFFI.Generated.GPUError as GHCJS.DOM.GPUError+          , GHCJS.DOM.JSFFI.Generated.GPUExtent3DDict as GHCJS.DOM.GPUExtent3DDict+          , GHCJS.DOM.JSFFI.Generated.GPUExternalTexture as GHCJS.DOM.GPUExternalTexture+          , GHCJS.DOM.JSFFI.Generated.GPUExternalTextureBindingLayout as GHCJS.DOM.GPUExternalTextureBindingLayout+          , GHCJS.DOM.JSFFI.Generated.GPUExternalTextureDescriptor as GHCJS.DOM.GPUExternalTextureDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUFragmentState as GHCJS.DOM.GPUFragmentState+          , GHCJS.DOM.JSFFI.Generated.GPUInternalError as GHCJS.DOM.GPUInternalError+          , GHCJS.DOM.JSFFI.Generated.GPUMultisampleState as GHCJS.DOM.GPUMultisampleState+          , GHCJS.DOM.JSFFI.Generated.GPUObjectBase as GHCJS.DOM.GPUObjectBase+          , GHCJS.DOM.JSFFI.Generated.GPUObjectDescriptorBase as GHCJS.DOM.GPUObjectDescriptorBase+          , GHCJS.DOM.JSFFI.Generated.GPUOrigin2DDict as GHCJS.DOM.GPUOrigin2DDict+          , GHCJS.DOM.JSFFI.Generated.GPUOrigin3DDict as GHCJS.DOM.GPUOrigin3DDict+          , GHCJS.DOM.JSFFI.Generated.GPUOutOfMemoryError as GHCJS.DOM.GPUOutOfMemoryError+          , GHCJS.DOM.JSFFI.Generated.GPUPipelineBase as GHCJS.DOM.GPUPipelineBase+          , GHCJS.DOM.JSFFI.Generated.GPUPipelineDescriptorBase as GHCJS.DOM.GPUPipelineDescriptorBase+          , GHCJS.DOM.JSFFI.Generated.GPUPipelineError as GHCJS.DOM.GPUPipelineError+          , GHCJS.DOM.JSFFI.Generated.GPUPipelineErrorInit as GHCJS.DOM.GPUPipelineErrorInit+          , GHCJS.DOM.JSFFI.Generated.GPUPipelineLayout as GHCJS.DOM.GPUPipelineLayout+          , GHCJS.DOM.JSFFI.Generated.GPUPipelineLayoutDescriptor as GHCJS.DOM.GPUPipelineLayoutDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUPrimitiveState as GHCJS.DOM.GPUPrimitiveState+          , GHCJS.DOM.JSFFI.Generated.GPUProgrammableStage as GHCJS.DOM.GPUProgrammableStage+          , GHCJS.DOM.JSFFI.Generated.GPUQuerySet as GHCJS.DOM.GPUQuerySet+          , GHCJS.DOM.JSFFI.Generated.GPUQuerySetDescriptor as GHCJS.DOM.GPUQuerySetDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUQueue as GHCJS.DOM.GPUQueue+          , GHCJS.DOM.JSFFI.Generated.GPUQueueDescriptor as GHCJS.DOM.GPUQueueDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPURenderBundle as GHCJS.DOM.GPURenderBundle+          , GHCJS.DOM.JSFFI.Generated.GPURenderBundleDescriptor as GHCJS.DOM.GPURenderBundleDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPURenderBundleEncoder as GHCJS.DOM.GPURenderBundleEncoder+          , GHCJS.DOM.JSFFI.Generated.GPURenderBundleEncoderDescriptor as GHCJS.DOM.GPURenderBundleEncoderDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPURenderCommandsMixin as GHCJS.DOM.GPURenderCommandsMixin+          , GHCJS.DOM.JSFFI.Generated.GPURenderPassColorAttachment as GHCJS.DOM.GPURenderPassColorAttachment+          , GHCJS.DOM.JSFFI.Generated.GPURenderPassDepthStencilAttachment as GHCJS.DOM.GPURenderPassDepthStencilAttachment+          , GHCJS.DOM.JSFFI.Generated.GPURenderPassDescriptor as GHCJS.DOM.GPURenderPassDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPURenderPassEncoder as GHCJS.DOM.GPURenderPassEncoder+          , GHCJS.DOM.JSFFI.Generated.GPURenderPassLayout as GHCJS.DOM.GPURenderPassLayout+          , GHCJS.DOM.JSFFI.Generated.GPURenderPassTimestampWrites as GHCJS.DOM.GPURenderPassTimestampWrites+          , GHCJS.DOM.JSFFI.Generated.GPURenderPipeline as GHCJS.DOM.GPURenderPipeline+          , GHCJS.DOM.JSFFI.Generated.GPURenderPipelineDescriptor as GHCJS.DOM.GPURenderPipelineDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPURequestAdapterOptions as GHCJS.DOM.GPURequestAdapterOptions+          , GHCJS.DOM.JSFFI.Generated.GPUSampler as GHCJS.DOM.GPUSampler+          , GHCJS.DOM.JSFFI.Generated.GPUSamplerBindingLayout as GHCJS.DOM.GPUSamplerBindingLayout+          , GHCJS.DOM.JSFFI.Generated.GPUSamplerDescriptor as GHCJS.DOM.GPUSamplerDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUShaderModule as GHCJS.DOM.GPUShaderModule+          , GHCJS.DOM.JSFFI.Generated.GPUShaderModuleCompilationHint as GHCJS.DOM.GPUShaderModuleCompilationHint+          , GHCJS.DOM.JSFFI.Generated.GPUShaderModuleDescriptor as GHCJS.DOM.GPUShaderModuleDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUStencilFaceState as GHCJS.DOM.GPUStencilFaceState+          , GHCJS.DOM.JSFFI.Generated.GPUStorageTextureBindingLayout as GHCJS.DOM.GPUStorageTextureBindingLayout+          , GHCJS.DOM.JSFFI.Generated.GPUSupportedFeatures as GHCJS.DOM.GPUSupportedFeatures+          , GHCJS.DOM.JSFFI.Generated.GPUSupportedLimits as GHCJS.DOM.GPUSupportedLimits+          , GHCJS.DOM.JSFFI.Generated.GPUTexelCopyBufferInfo as GHCJS.DOM.GPUTexelCopyBufferInfo+          , GHCJS.DOM.JSFFI.Generated.GPUTexelCopyBufferLayout as GHCJS.DOM.GPUTexelCopyBufferLayout+          , GHCJS.DOM.JSFFI.Generated.GPUTexelCopyTextureInfo as GHCJS.DOM.GPUTexelCopyTextureInfo+          , GHCJS.DOM.JSFFI.Generated.GPUTexture as GHCJS.DOM.GPUTexture+          , GHCJS.DOM.JSFFI.Generated.GPUTextureBindingLayout as GHCJS.DOM.GPUTextureBindingLayout+          , GHCJS.DOM.JSFFI.Generated.GPUTextureDescriptor as GHCJS.DOM.GPUTextureDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUTextureView as GHCJS.DOM.GPUTextureView+          , GHCJS.DOM.JSFFI.Generated.GPUTextureViewDescriptor as GHCJS.DOM.GPUTextureViewDescriptor+          , GHCJS.DOM.JSFFI.Generated.GPUUncapturedErrorEvent as GHCJS.DOM.GPUUncapturedErrorEvent+          , GHCJS.DOM.JSFFI.Generated.GPUUncapturedErrorEventInit as GHCJS.DOM.GPUUncapturedErrorEventInit+          , GHCJS.DOM.JSFFI.Generated.GPUValidationError as GHCJS.DOM.GPUValidationError+          , GHCJS.DOM.JSFFI.Generated.GPUVertexAttribute as GHCJS.DOM.GPUVertexAttribute+          , GHCJS.DOM.JSFFI.Generated.GPUVertexBufferLayout as GHCJS.DOM.GPUVertexBufferLayout+          , GHCJS.DOM.JSFFI.Generated.GPUVertexState as GHCJS.DOM.GPUVertexState+          , GHCJS.DOM.JSFFI.Generated.GainNode as GHCJS.DOM.GainNode+          , GHCJS.DOM.JSFFI.Generated.GainOptions as GHCJS.DOM.GainOptions+          , GHCJS.DOM.JSFFI.Generated.Gamepad as GHCJS.DOM.Gamepad+          , GHCJS.DOM.JSFFI.Generated.GamepadButton as GHCJS.DOM.GamepadButton+          , GHCJS.DOM.JSFFI.Generated.GamepadEffectParameters as GHCJS.DOM.GamepadEffectParameters+          , GHCJS.DOM.JSFFI.Generated.GamepadEvent as GHCJS.DOM.GamepadEvent+          , GHCJS.DOM.JSFFI.Generated.GamepadEventInit as GHCJS.DOM.GamepadEventInit+          , GHCJS.DOM.JSFFI.Generated.GamepadHapticActuator as GHCJS.DOM.GamepadHapticActuator+          , GHCJS.DOM.JSFFI.Generated.GenericTransformStream as GHCJS.DOM.GenericTransformStream+          , GHCJS.DOM.JSFFI.Generated.GeolocationCoordinates as GHCJS.DOM.GeolocationCoordinates+          , GHCJS.DOM.JSFFI.Generated.GeolocationPosition as GHCJS.DOM.GeolocationPosition+          , GHCJS.DOM.JSFFI.Generated.GetAnimationsOptions as GHCJS.DOM.GetAnimationsOptions+          , GHCJS.DOM.JSFFI.Generated.GetComposedRangesOptions as GHCJS.DOM.GetComposedRangesOptions+          , GHCJS.DOM.JSFFI.Generated.GetHTMLOptions as GHCJS.DOM.GetHTMLOptions+          , GHCJS.DOM.JSFFI.Generated.GetNotificationOptions as GHCJS.DOM.GetNotificationOptions+          , GHCJS.DOM.JSFFI.Generated.GetRootNodeOptions as GHCJS.DOM.GetRootNodeOptions+          , GHCJS.DOM.JSFFI.Generated.GlobalEventHandlers as GHCJS.DOM.GlobalEventHandlers+          , GHCJS.DOM.JSFFI.Generated.HMACGetSecretInput as GHCJS.DOM.HMACGetSecretInput+          , GHCJS.DOM.JSFFI.Generated.HMACGetSecretOutput as GHCJS.DOM.HMACGetSecretOutput+          , GHCJS.DOM.JSFFI.Generated.HTMLAllCollection as GHCJS.DOM.HTMLAllCollection+          , GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement as GHCJS.DOM.HTMLAnchorElement+          , GHCJS.DOM.JSFFI.Generated.HTMLAreaElement as GHCJS.DOM.HTMLAreaElement+          , GHCJS.DOM.JSFFI.Generated.HTMLAudioElement as GHCJS.DOM.HTMLAudioElement+          , GHCJS.DOM.JSFFI.Generated.HTMLBRElement as GHCJS.DOM.HTMLBRElement+          , GHCJS.DOM.JSFFI.Generated.HTMLBaseElement as GHCJS.DOM.HTMLBaseElement+          , GHCJS.DOM.JSFFI.Generated.HTMLBodyElement as GHCJS.DOM.HTMLBodyElement+          , GHCJS.DOM.JSFFI.Generated.HTMLButtonElement as GHCJS.DOM.HTMLButtonElement+          , GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement as GHCJS.DOM.HTMLCanvasElement+          , GHCJS.DOM.JSFFI.Generated.HTMLCollection as GHCJS.DOM.HTMLCollection+          , GHCJS.DOM.JSFFI.Generated.HTMLDListElement as GHCJS.DOM.HTMLDListElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDataElement as GHCJS.DOM.HTMLDataElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDataListElement as GHCJS.DOM.HTMLDataListElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement as GHCJS.DOM.HTMLDetailsElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDialogElement as GHCJS.DOM.HTMLDialogElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement as GHCJS.DOM.HTMLDirectoryElement+          , GHCJS.DOM.JSFFI.Generated.HTMLDivElement as GHCJS.DOM.HTMLDivElement+          , GHCJS.DOM.JSFFI.Generated.HTMLElement as GHCJS.DOM.HTMLElement+          , GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement as GHCJS.DOM.HTMLEmbedElement+          , GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement as GHCJS.DOM.HTMLFieldSetElement+          , GHCJS.DOM.JSFFI.Generated.HTMLFontElement as GHCJS.DOM.HTMLFontElement+          , GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection as GHCJS.DOM.HTMLFormControlsCollection+          , GHCJS.DOM.JSFFI.Generated.HTMLFormElement as GHCJS.DOM.HTMLFormElement+          , GHCJS.DOM.JSFFI.Generated.HTMLFrameElement as GHCJS.DOM.HTMLFrameElement+          , GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement as GHCJS.DOM.HTMLFrameSetElement+          , GHCJS.DOM.JSFFI.Generated.HTMLHRElement as GHCJS.DOM.HTMLHRElement+          , GHCJS.DOM.JSFFI.Generated.HTMLHeadElement as GHCJS.DOM.HTMLHeadElement+          , GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement as GHCJS.DOM.HTMLHeadingElement+          , GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement as GHCJS.DOM.HTMLHtmlElement+          , GHCJS.DOM.JSFFI.Generated.HTMLHyperlinkElementUtils as GHCJS.DOM.HTMLHyperlinkElementUtils+          , GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement as GHCJS.DOM.HTMLIFrameElement+          , GHCJS.DOM.JSFFI.Generated.HTMLImageElement as GHCJS.DOM.HTMLImageElement+          , GHCJS.DOM.JSFFI.Generated.HTMLInputElement as GHCJS.DOM.HTMLInputElement+          , GHCJS.DOM.JSFFI.Generated.HTMLLIElement as GHCJS.DOM.HTMLLIElement+          , GHCJS.DOM.JSFFI.Generated.HTMLLabelElement as GHCJS.DOM.HTMLLabelElement+          , GHCJS.DOM.JSFFI.Generated.HTMLLegendElement as GHCJS.DOM.HTMLLegendElement+          , GHCJS.DOM.JSFFI.Generated.HTMLLinkElement as GHCJS.DOM.HTMLLinkElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMapElement as GHCJS.DOM.HTMLMapElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement as GHCJS.DOM.HTMLMarqueeElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMediaElement as GHCJS.DOM.HTMLMediaElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMenuElement as GHCJS.DOM.HTMLMenuElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMetaElement as GHCJS.DOM.HTMLMetaElement+          , GHCJS.DOM.JSFFI.Generated.HTMLMeterElement as GHCJS.DOM.HTMLMeterElement+          , GHCJS.DOM.JSFFI.Generated.HTMLModElement as GHCJS.DOM.HTMLModElement+          , GHCJS.DOM.JSFFI.Generated.HTMLOListElement as GHCJS.DOM.HTMLOListElement+          , GHCJS.DOM.JSFFI.Generated.HTMLObjectElement as GHCJS.DOM.HTMLObjectElement+          , GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement as GHCJS.DOM.HTMLOptGroupElement+          , GHCJS.DOM.JSFFI.Generated.HTMLOptionElement as GHCJS.DOM.HTMLOptionElement+          , GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection as GHCJS.DOM.HTMLOptionsCollection+          , GHCJS.DOM.JSFFI.Generated.HTMLOrSVGOrMathMLElement as GHCJS.DOM.HTMLOrSVGOrMathMLElement+          , GHCJS.DOM.JSFFI.Generated.HTMLOutputElement as GHCJS.DOM.HTMLOutputElement+          , GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement as GHCJS.DOM.HTMLParagraphElement+          , GHCJS.DOM.JSFFI.Generated.HTMLParamElement as GHCJS.DOM.HTMLParamElement+          , GHCJS.DOM.JSFFI.Generated.HTMLPictureElement as GHCJS.DOM.HTMLPictureElement+          , GHCJS.DOM.JSFFI.Generated.HTMLPreElement as GHCJS.DOM.HTMLPreElement+          , GHCJS.DOM.JSFFI.Generated.HTMLProgressElement as GHCJS.DOM.HTMLProgressElement+          , GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement as GHCJS.DOM.HTMLQuoteElement+          , GHCJS.DOM.JSFFI.Generated.HTMLScriptElement as GHCJS.DOM.HTMLScriptElement+          , GHCJS.DOM.JSFFI.Generated.HTMLSelectElement as GHCJS.DOM.HTMLSelectElement+          , GHCJS.DOM.JSFFI.Generated.HTMLSelectedContentElement as GHCJS.DOM.HTMLSelectedContentElement+          , GHCJS.DOM.JSFFI.Generated.HTMLSlotElement as GHCJS.DOM.HTMLSlotElement+          , GHCJS.DOM.JSFFI.Generated.HTMLSourceElement as GHCJS.DOM.HTMLSourceElement+          , GHCJS.DOM.JSFFI.Generated.HTMLSpanElement as GHCJS.DOM.HTMLSpanElement+          , GHCJS.DOM.JSFFI.Generated.HTMLStyleElement as GHCJS.DOM.HTMLStyleElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement as GHCJS.DOM.HTMLTableCaptionElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement as GHCJS.DOM.HTMLTableCellElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableColElement as GHCJS.DOM.HTMLTableColElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableElement as GHCJS.DOM.HTMLTableElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement as GHCJS.DOM.HTMLTableRowElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement as GHCJS.DOM.HTMLTableSectionElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement as GHCJS.DOM.HTMLTemplateElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement as GHCJS.DOM.HTMLTextAreaElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTimeElement as GHCJS.DOM.HTMLTimeElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTitleElement as GHCJS.DOM.HTMLTitleElement+          , GHCJS.DOM.JSFFI.Generated.HTMLTrackElement as GHCJS.DOM.HTMLTrackElement+          , GHCJS.DOM.JSFFI.Generated.HTMLUListElement as GHCJS.DOM.HTMLUListElement+          , GHCJS.DOM.JSFFI.Generated.HTMLUnknownElement as GHCJS.DOM.HTMLUnknownElement+          , GHCJS.DOM.JSFFI.Generated.HTMLVideoElement as GHCJS.DOM.HTMLVideoElement+          , GHCJS.DOM.JSFFI.Generated.HashChangeEvent as GHCJS.DOM.HashChangeEvent+          , GHCJS.DOM.JSFFI.Generated.HashChangeEventInit as GHCJS.DOM.HashChangeEventInit+          , GHCJS.DOM.JSFFI.Generated.Headers as GHCJS.DOM.Headers+          , GHCJS.DOM.JSFFI.Generated.HevcEncoderConfig as GHCJS.DOM.HevcEncoderConfig+          , GHCJS.DOM.JSFFI.Generated.Highlight as GHCJS.DOM.Highlight+          , GHCJS.DOM.JSFFI.Generated.HighlightHitResult as GHCJS.DOM.HighlightHitResult+          , GHCJS.DOM.JSFFI.Generated.HighlightRegistry as GHCJS.DOM.HighlightRegistry+          , GHCJS.DOM.JSFFI.Generated.HighlightsFromPointOptions as GHCJS.DOM.HighlightsFromPointOptions+          , GHCJS.DOM.JSFFI.Generated.History as GHCJS.DOM.History+          , GHCJS.DOM.JSFFI.Generated.HyperlinkElementUtils as GHCJS.DOM.HyperlinkElementUtils+          , GHCJS.DOM.JSFFI.Generated.IDBCursor as GHCJS.DOM.IDBCursor+          , GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue as GHCJS.DOM.IDBCursorWithValue+          , GHCJS.DOM.JSFFI.Generated.IDBDatabase as GHCJS.DOM.IDBDatabase+          , GHCJS.DOM.JSFFI.Generated.IDBDatabaseInfo as GHCJS.DOM.IDBDatabaseInfo+          , GHCJS.DOM.JSFFI.Generated.IDBFactory as GHCJS.DOM.IDBFactory+          , GHCJS.DOM.JSFFI.Generated.IDBGetAllOptions as GHCJS.DOM.IDBGetAllOptions+          , GHCJS.DOM.JSFFI.Generated.IDBIndex as GHCJS.DOM.IDBIndex+          , GHCJS.DOM.JSFFI.Generated.IDBIndexParameters as GHCJS.DOM.IDBIndexParameters+          , GHCJS.DOM.JSFFI.Generated.IDBKeyRange as GHCJS.DOM.IDBKeyRange+          , GHCJS.DOM.JSFFI.Generated.IDBObjectStore as GHCJS.DOM.IDBObjectStore+          , GHCJS.DOM.JSFFI.Generated.IDBObjectStoreParameters as GHCJS.DOM.IDBObjectStoreParameters+          , GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest as GHCJS.DOM.IDBOpenDBRequest+          , GHCJS.DOM.JSFFI.Generated.IDBRecord as GHCJS.DOM.IDBRecord+          , GHCJS.DOM.JSFFI.Generated.IDBRequest as GHCJS.DOM.IDBRequest+          , GHCJS.DOM.JSFFI.Generated.IDBTransaction as GHCJS.DOM.IDBTransaction+          , GHCJS.DOM.JSFFI.Generated.IDBTransactionOptions as GHCJS.DOM.IDBTransactionOptions+          , GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent as GHCJS.DOM.IDBVersionChangeEvent+          , GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEventInit as GHCJS.DOM.IDBVersionChangeEventInit+          , GHCJS.DOM.JSFFI.Generated.IIRFilterNode as GHCJS.DOM.IIRFilterNode+          , GHCJS.DOM.JSFFI.Generated.IIRFilterOptions as GHCJS.DOM.IIRFilterOptions+          , GHCJS.DOM.JSFFI.Generated.IdentityCredentialRequestOptions as GHCJS.DOM.IdentityCredentialRequestOptions+          , GHCJS.DOM.JSFFI.Generated.IdentityProviderConfig as GHCJS.DOM.IdentityProviderConfig+          , GHCJS.DOM.JSFFI.Generated.IdentityProviderRequestOptions as GHCJS.DOM.IdentityProviderRequestOptions+          , GHCJS.DOM.JSFFI.Generated.IdleDeadline as GHCJS.DOM.IdleDeadline+          , GHCJS.DOM.JSFFI.Generated.IdleRequestCallback as GHCJS.DOM.IdleRequestCallback+          , GHCJS.DOM.JSFFI.Generated.IdleRequestOptions as GHCJS.DOM.IdleRequestOptions+          , GHCJS.DOM.JSFFI.Generated.ImageBitmap as GHCJS.DOM.ImageBitmap+          , GHCJS.DOM.JSFFI.Generated.ImageBitmapRenderingContext as GHCJS.DOM.ImageBitmapRenderingContext+          , GHCJS.DOM.JSFFI.Generated.ImageCapture as GHCJS.DOM.ImageCapture+          , GHCJS.DOM.JSFFI.Generated.ImageData as GHCJS.DOM.ImageData+          , GHCJS.DOM.JSFFI.Generated.ImageDataSettings as GHCJS.DOM.ImageDataSettings+          , GHCJS.DOM.JSFFI.Generated.ImageDecodeOptions as GHCJS.DOM.ImageDecodeOptions+          , GHCJS.DOM.JSFFI.Generated.ImageDecodeResult as GHCJS.DOM.ImageDecodeResult+          , GHCJS.DOM.JSFFI.Generated.ImageDecoder as GHCJS.DOM.ImageDecoder+          , GHCJS.DOM.JSFFI.Generated.ImageDecoderInit as GHCJS.DOM.ImageDecoderInit+          , GHCJS.DOM.JSFFI.Generated.ImageEncodeOptions as GHCJS.DOM.ImageEncodeOptions+          , GHCJS.DOM.JSFFI.Generated.ImageTrack as GHCJS.DOM.ImageTrack+          , GHCJS.DOM.JSFFI.Generated.ImageTrackList as GHCJS.DOM.ImageTrackList+          , GHCJS.DOM.JSFFI.Generated.ImportNodeOptions as GHCJS.DOM.ImportNodeOptions+          , GHCJS.DOM.JSFFI.Generated.InputDeviceCapabilities as GHCJS.DOM.InputDeviceCapabilities+          , GHCJS.DOM.JSFFI.Generated.InputDeviceInfo as GHCJS.DOM.InputDeviceInfo+          , GHCJS.DOM.JSFFI.Generated.InputEvent as GHCJS.DOM.InputEvent+          , GHCJS.DOM.JSFFI.Generated.InputEventInit as GHCJS.DOM.InputEventInit+          , GHCJS.DOM.JSFFI.Generated.InstallEvent as GHCJS.DOM.InstallEvent+          , GHCJS.DOM.JSFFI.Generated.IntersectionObserver as GHCJS.DOM.IntersectionObserver+          , GHCJS.DOM.JSFFI.Generated.IntersectionObserverCallback as GHCJS.DOM.IntersectionObserverCallback+          , GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntry as GHCJS.DOM.IntersectionObserverEntry+          , GHCJS.DOM.JSFFI.Generated.IntersectionObserverEntryInit as GHCJS.DOM.IntersectionObserverEntryInit+          , GHCJS.DOM.JSFFI.Generated.IntersectionObserverInit as GHCJS.DOM.IntersectionObserverInit+          , GHCJS.DOM.JSFFI.Generated.JsonWebKey as GHCJS.DOM.JsonWebKey+          , GHCJS.DOM.JSFFI.Generated.KHR_parallel_shader_compile as GHCJS.DOM.KHR_parallel_shader_compile+          , GHCJS.DOM.JSFFI.Generated.KeySystemTrackConfiguration as GHCJS.DOM.KeySystemTrackConfiguration+          , GHCJS.DOM.JSFFI.Generated.KeyboardEvent as GHCJS.DOM.KeyboardEvent+          , GHCJS.DOM.JSFFI.Generated.KeyboardEventInit as GHCJS.DOM.KeyboardEventInit+          , GHCJS.DOM.JSFFI.Generated.KeyframeAnimationOptions as GHCJS.DOM.KeyframeAnimationOptions+          , GHCJS.DOM.JSFFI.Generated.KeyframeEffect as GHCJS.DOM.KeyframeEffect+          , GHCJS.DOM.JSFFI.Generated.KeyframeEffectOptions as GHCJS.DOM.KeyframeEffectOptions+          , GHCJS.DOM.JSFFI.Generated.LargestContentfulPaint as GHCJS.DOM.LargestContentfulPaint+          , GHCJS.DOM.JSFFI.Generated.LinkStyle as GHCJS.DOM.LinkStyle+          , GHCJS.DOM.JSFFI.Generated.Location as GHCJS.DOM.Location+          , GHCJS.DOM.JSFFI.Generated.Lock as GHCJS.DOM.Lock+          , GHCJS.DOM.JSFFI.Generated.LockGrantedCallback as GHCJS.DOM.LockGrantedCallback+          , GHCJS.DOM.JSFFI.Generated.LockInfo as GHCJS.DOM.LockInfo+          , GHCJS.DOM.JSFFI.Generated.LockManager as GHCJS.DOM.LockManager+          , GHCJS.DOM.JSFFI.Generated.LockManagerSnapshot as GHCJS.DOM.LockManagerSnapshot+          , GHCJS.DOM.JSFFI.Generated.LockOptions as GHCJS.DOM.LockOptions+          , GHCJS.DOM.JSFFI.Generated.MIDIAccess as GHCJS.DOM.MIDIAccess+          , GHCJS.DOM.JSFFI.Generated.MIDIConnectionEvent as GHCJS.DOM.MIDIConnectionEvent+          , GHCJS.DOM.JSFFI.Generated.MIDIConnectionEventInit as GHCJS.DOM.MIDIConnectionEventInit+          , GHCJS.DOM.JSFFI.Generated.MIDIInput as GHCJS.DOM.MIDIInput+          , GHCJS.DOM.JSFFI.Generated.MIDIInputMap as GHCJS.DOM.MIDIInputMap+          , GHCJS.DOM.JSFFI.Generated.MIDIMessageEvent as GHCJS.DOM.MIDIMessageEvent+          , GHCJS.DOM.JSFFI.Generated.MIDIMessageEventInit as GHCJS.DOM.MIDIMessageEventInit+          , GHCJS.DOM.JSFFI.Generated.MIDIOptions as GHCJS.DOM.MIDIOptions+          , GHCJS.DOM.JSFFI.Generated.MIDIOutput as GHCJS.DOM.MIDIOutput+          , GHCJS.DOM.JSFFI.Generated.MIDIOutputMap as GHCJS.DOM.MIDIOutputMap+          , GHCJS.DOM.JSFFI.Generated.MIDIPort as GHCJS.DOM.MIDIPort+          , GHCJS.DOM.JSFFI.Generated.MathMLElement as GHCJS.DOM.MathMLElement+          , GHCJS.DOM.JSFFI.Generated.MediaCapabilities as GHCJS.DOM.MediaCapabilities+          , GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesDecodingInfo as GHCJS.DOM.MediaCapabilitiesDecodingInfo+          , GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesEncodingInfo as GHCJS.DOM.MediaCapabilitiesEncodingInfo+          , GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesInfo as GHCJS.DOM.MediaCapabilitiesInfo+          , GHCJS.DOM.JSFFI.Generated.MediaCapabilitiesKeySystemConfiguration as GHCJS.DOM.MediaCapabilitiesKeySystemConfiguration+          , GHCJS.DOM.JSFFI.Generated.MediaConfiguration as GHCJS.DOM.MediaConfiguration+          , GHCJS.DOM.JSFFI.Generated.MediaDecodingConfiguration as GHCJS.DOM.MediaDecodingConfiguration+          , GHCJS.DOM.JSFFI.Generated.MediaDeviceInfo as GHCJS.DOM.MediaDeviceInfo+          , GHCJS.DOM.JSFFI.Generated.MediaDevices as GHCJS.DOM.MediaDevices+          , GHCJS.DOM.JSFFI.Generated.MediaEffectInfo as GHCJS.DOM.MediaEffectInfo+          , GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode as GHCJS.DOM.MediaElementAudioSourceNode+          , GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceOptions as GHCJS.DOM.MediaElementAudioSourceOptions+          , GHCJS.DOM.JSFFI.Generated.MediaEncodingConfiguration as GHCJS.DOM.MediaEncodingConfiguration+          , GHCJS.DOM.JSFFI.Generated.MediaEncryptedEvent as GHCJS.DOM.MediaEncryptedEvent+          , GHCJS.DOM.JSFFI.Generated.MediaEncryptedEventInit as GHCJS.DOM.MediaEncryptedEventInit+          , GHCJS.DOM.JSFFI.Generated.MediaError as GHCJS.DOM.MediaError+          , GHCJS.DOM.JSFFI.Generated.MediaImage as GHCJS.DOM.MediaImage+          , GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent as GHCJS.DOM.MediaKeyMessageEvent+          , GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEventInit as GHCJS.DOM.MediaKeyMessageEventInit+          , GHCJS.DOM.JSFFI.Generated.MediaKeySession as GHCJS.DOM.MediaKeySession+          , GHCJS.DOM.JSFFI.Generated.MediaKeyStatusMap as GHCJS.DOM.MediaKeyStatusMap+          , GHCJS.DOM.JSFFI.Generated.MediaKeySystemAccess as GHCJS.DOM.MediaKeySystemAccess+          , GHCJS.DOM.JSFFI.Generated.MediaKeySystemConfiguration as GHCJS.DOM.MediaKeySystemConfiguration+          , GHCJS.DOM.JSFFI.Generated.MediaKeySystemMediaCapability as GHCJS.DOM.MediaKeySystemMediaCapability+          , GHCJS.DOM.JSFFI.Generated.MediaKeys as GHCJS.DOM.MediaKeys+          , GHCJS.DOM.JSFFI.Generated.MediaKeysPolicy as GHCJS.DOM.MediaKeysPolicy+          , GHCJS.DOM.JSFFI.Generated.MediaList as GHCJS.DOM.MediaList+          , GHCJS.DOM.JSFFI.Generated.MediaMetadata as GHCJS.DOM.MediaMetadata+          , GHCJS.DOM.JSFFI.Generated.MediaMetadataInit as GHCJS.DOM.MediaMetadataInit+          , GHCJS.DOM.JSFFI.Generated.MediaPositionState as GHCJS.DOM.MediaPositionState+          , GHCJS.DOM.JSFFI.Generated.MediaQueryList as GHCJS.DOM.MediaQueryList+          , GHCJS.DOM.JSFFI.Generated.MediaQueryListEvent as GHCJS.DOM.MediaQueryListEvent+          , GHCJS.DOM.JSFFI.Generated.MediaQueryListEventInit as GHCJS.DOM.MediaQueryListEventInit+          , GHCJS.DOM.JSFFI.Generated.MediaRecorder as GHCJS.DOM.MediaRecorder+          , GHCJS.DOM.JSFFI.Generated.MediaRecorderOptions as GHCJS.DOM.MediaRecorderOptions+          , GHCJS.DOM.JSFFI.Generated.MediaSession as GHCJS.DOM.MediaSession+          , GHCJS.DOM.JSFFI.Generated.MediaSessionActionDetails as GHCJS.DOM.MediaSessionActionDetails+          , GHCJS.DOM.JSFFI.Generated.MediaSessionActionHandler as GHCJS.DOM.MediaSessionActionHandler+          , GHCJS.DOM.JSFFI.Generated.MediaSettingsRange as GHCJS.DOM.MediaSettingsRange+          , GHCJS.DOM.JSFFI.Generated.MediaSource as GHCJS.DOM.MediaSource+          , GHCJS.DOM.JSFFI.Generated.MediaSourceHandle as GHCJS.DOM.MediaSourceHandle+          , GHCJS.DOM.JSFFI.Generated.MediaStream as GHCJS.DOM.MediaStream+          , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode as GHCJS.DOM.MediaStreamAudioDestinationNode+          , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode as GHCJS.DOM.MediaStreamAudioSourceNode+          , GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceOptions as GHCJS.DOM.MediaStreamAudioSourceOptions+          , GHCJS.DOM.JSFFI.Generated.MediaStreamConstraints as GHCJS.DOM.MediaStreamConstraints+          , GHCJS.DOM.JSFFI.Generated.MediaStreamTrack as GHCJS.DOM.MediaStreamTrack+          , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent as GHCJS.DOM.MediaStreamTrackEvent+          , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEventInit as GHCJS.DOM.MediaStreamTrackEventInit+          , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackHandle as GHCJS.DOM.MediaStreamTrackHandle+          , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackProcessor as GHCJS.DOM.MediaStreamTrackProcessor+          , GHCJS.DOM.JSFFI.Generated.MediaStreamTrackProcessorInit as GHCJS.DOM.MediaStreamTrackProcessorInit+          , GHCJS.DOM.JSFFI.Generated.MediaTrackCapabilities as GHCJS.DOM.MediaTrackCapabilities+          , GHCJS.DOM.JSFFI.Generated.MediaTrackConstraintSet as GHCJS.DOM.MediaTrackConstraintSet+          , GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints as GHCJS.DOM.MediaTrackConstraints+          , GHCJS.DOM.JSFFI.Generated.MediaTrackSettings as GHCJS.DOM.MediaTrackSettings+          , GHCJS.DOM.JSFFI.Generated.MediaTrackSupportedConstraints as GHCJS.DOM.MediaTrackSupportedConstraints+          , GHCJS.DOM.JSFFI.Generated.MessageChannel as GHCJS.DOM.MessageChannel+          , GHCJS.DOM.JSFFI.Generated.MessageEvent as GHCJS.DOM.MessageEvent+          , GHCJS.DOM.JSFFI.Generated.MessageEventInit as GHCJS.DOM.MessageEventInit+          , GHCJS.DOM.JSFFI.Generated.MessageEventTarget as GHCJS.DOM.MessageEventTarget+          , GHCJS.DOM.JSFFI.Generated.MessagePort as GHCJS.DOM.MessagePort+          , GHCJS.DOM.JSFFI.Generated.MimeType as GHCJS.DOM.MimeType+          , GHCJS.DOM.JSFFI.Generated.MimeTypeArray as GHCJS.DOM.MimeTypeArray+          , GHCJS.DOM.JSFFI.Generated.MouseEvent as GHCJS.DOM.MouseEvent+          , GHCJS.DOM.JSFFI.Generated.MouseEventInit as GHCJS.DOM.MouseEventInit+          , GHCJS.DOM.JSFFI.Generated.MultiCacheQueryOptions as GHCJS.DOM.MultiCacheQueryOptions+          , GHCJS.DOM.JSFFI.Generated.MutationCallback as GHCJS.DOM.MutationCallback+          , GHCJS.DOM.JSFFI.Generated.MutationObserver as GHCJS.DOM.MutationObserver+          , GHCJS.DOM.JSFFI.Generated.MutationObserverInit as GHCJS.DOM.MutationObserverInit+          , GHCJS.DOM.JSFFI.Generated.MutationRecord as GHCJS.DOM.MutationRecord+          , GHCJS.DOM.JSFFI.Generated.NamedNodeMap as GHCJS.DOM.NamedNodeMap+          , GHCJS.DOM.JSFFI.Generated.NavigateEvent as GHCJS.DOM.NavigateEvent+          , GHCJS.DOM.JSFFI.Generated.NavigateEventInit as GHCJS.DOM.NavigateEventInit+          , GHCJS.DOM.JSFFI.Generated.Navigation as GHCJS.DOM.Navigation+          , GHCJS.DOM.JSFFI.Generated.NavigationActivation as GHCJS.DOM.NavigationActivation+          , GHCJS.DOM.JSFFI.Generated.NavigationCurrentEntryChangeEvent as GHCJS.DOM.NavigationCurrentEntryChangeEvent+          , GHCJS.DOM.JSFFI.Generated.NavigationCurrentEntryChangeEventInit as GHCJS.DOM.NavigationCurrentEntryChangeEventInit+          , GHCJS.DOM.JSFFI.Generated.NavigationDestination as GHCJS.DOM.NavigationDestination+          , GHCJS.DOM.JSFFI.Generated.NavigationEvent as GHCJS.DOM.NavigationEvent+          , GHCJS.DOM.JSFFI.Generated.NavigationHistoryEntry as GHCJS.DOM.NavigationHistoryEntry+          , GHCJS.DOM.JSFFI.Generated.NavigationInterceptHandler as GHCJS.DOM.NavigationInterceptHandler+          , GHCJS.DOM.JSFFI.Generated.NavigationInterceptOptions as GHCJS.DOM.NavigationInterceptOptions+          , GHCJS.DOM.JSFFI.Generated.NavigationNavigateOptions as GHCJS.DOM.NavigationNavigateOptions+          , GHCJS.DOM.JSFFI.Generated.NavigationOptions as GHCJS.DOM.NavigationOptions+          , GHCJS.DOM.JSFFI.Generated.NavigationPrecommitController as GHCJS.DOM.NavigationPrecommitController+          , GHCJS.DOM.JSFFI.Generated.NavigationPrecommitHandler as GHCJS.DOM.NavigationPrecommitHandler+          , GHCJS.DOM.JSFFI.Generated.NavigationPreloadManager as GHCJS.DOM.NavigationPreloadManager+          , GHCJS.DOM.JSFFI.Generated.NavigationPreloadState as GHCJS.DOM.NavigationPreloadState+          , GHCJS.DOM.JSFFI.Generated.NavigationReloadOptions as GHCJS.DOM.NavigationReloadOptions+          , GHCJS.DOM.JSFFI.Generated.NavigationResult as GHCJS.DOM.NavigationResult+          , GHCJS.DOM.JSFFI.Generated.NavigationTransition as GHCJS.DOM.NavigationTransition+          , GHCJS.DOM.JSFFI.Generated.NavigationUpdateCurrentEntryOptions as GHCJS.DOM.NavigationUpdateCurrentEntryOptions+          , GHCJS.DOM.JSFFI.Generated.Navigator as GHCJS.DOM.Navigator+          , GHCJS.DOM.JSFFI.Generated.NavigatorAutomationInformation as GHCJS.DOM.NavigatorAutomationInformation+          , GHCJS.DOM.JSFFI.Generated.NavigatorBadge as GHCJS.DOM.NavigatorBadge+          , GHCJS.DOM.JSFFI.Generated.NavigatorConcurrentHardware as GHCJS.DOM.NavigatorConcurrentHardware+          , GHCJS.DOM.JSFFI.Generated.NavigatorContentUtils as GHCJS.DOM.NavigatorContentUtils+          , GHCJS.DOM.JSFFI.Generated.NavigatorCookies as GHCJS.DOM.NavigatorCookies+          , GHCJS.DOM.JSFFI.Generated.NavigatorGPU as GHCJS.DOM.NavigatorGPU+          , GHCJS.DOM.JSFFI.Generated.NavigatorID as GHCJS.DOM.NavigatorID+          , GHCJS.DOM.JSFFI.Generated.NavigatorLanguage as GHCJS.DOM.NavigatorLanguage+          , GHCJS.DOM.JSFFI.Generated.NavigatorLocks as GHCJS.DOM.NavigatorLocks+          , GHCJS.DOM.JSFFI.Generated.NavigatorLogin as GHCJS.DOM.NavigatorLogin+          , GHCJS.DOM.JSFFI.Generated.NavigatorOnLine as GHCJS.DOM.NavigatorOnLine+          , GHCJS.DOM.JSFFI.Generated.NavigatorPlugins as GHCJS.DOM.NavigatorPlugins+          , GHCJS.DOM.JSFFI.Generated.NavigatorStorage as GHCJS.DOM.NavigatorStorage+          , GHCJS.DOM.JSFFI.Generated.Node as GHCJS.DOM.Node+          , GHCJS.DOM.JSFFI.Generated.NodeFilter as GHCJS.DOM.NodeFilter+          , GHCJS.DOM.JSFFI.Generated.NodeIterator as GHCJS.DOM.NodeIterator+          , GHCJS.DOM.JSFFI.Generated.NodeList as GHCJS.DOM.NodeList+          , GHCJS.DOM.JSFFI.Generated.NonDocumentTypeChildNode as GHCJS.DOM.NonDocumentTypeChildNode+          , GHCJS.DOM.JSFFI.Generated.NonElementParentNode as GHCJS.DOM.NonElementParentNode+          , GHCJS.DOM.JSFFI.Generated.Notification as GHCJS.DOM.Notification+          , GHCJS.DOM.JSFFI.Generated.NotificationAction as GHCJS.DOM.NotificationAction+          , GHCJS.DOM.JSFFI.Generated.NotificationEvent as GHCJS.DOM.NotificationEvent+          , GHCJS.DOM.JSFFI.Generated.NotificationEventInit as GHCJS.DOM.NotificationEventInit+          , GHCJS.DOM.JSFFI.Generated.NotificationOptions as GHCJS.DOM.NotificationOptions+          , GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback as GHCJS.DOM.NotificationPermissionCallback+          , GHCJS.DOM.JSFFI.Generated.OES_draw_buffers_indexed as GHCJS.DOM.OES_draw_buffers_indexed+          , GHCJS.DOM.JSFFI.Generated.OES_element_index_uint as GHCJS.DOM.OES_element_index_uint+          , GHCJS.DOM.JSFFI.Generated.OES_fbo_render_mipmap as GHCJS.DOM.OES_fbo_render_mipmap+          , GHCJS.DOM.JSFFI.Generated.OES_standard_derivatives as GHCJS.DOM.OES_standard_derivatives+          , GHCJS.DOM.JSFFI.Generated.OES_texture_float as GHCJS.DOM.OES_texture_float+          , GHCJS.DOM.JSFFI.Generated.OES_texture_float_linear as GHCJS.DOM.OES_texture_float_linear+          , GHCJS.DOM.JSFFI.Generated.OES_texture_half_float as GHCJS.DOM.OES_texture_half_float+          , GHCJS.DOM.JSFFI.Generated.OES_texture_half_float_linear as GHCJS.DOM.OES_texture_half_float_linear+          , GHCJS.DOM.JSFFI.Generated.OES_vertex_array_object as GHCJS.DOM.OES_vertex_array_object+          , GHCJS.DOM.JSFFI.Generated.OTPCredentialRequestOptions as GHCJS.DOM.OTPCredentialRequestOptions+          , GHCJS.DOM.JSFFI.Generated.OVR_multiview2 as GHCJS.DOM.OVR_multiview2+          , GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent as GHCJS.DOM.OfflineAudioCompletionEvent+          , GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEventInit as GHCJS.DOM.OfflineAudioCompletionEventInit+          , GHCJS.DOM.JSFFI.Generated.OfflineAudioContext as GHCJS.DOM.OfflineAudioContext+          , GHCJS.DOM.JSFFI.Generated.OfflineAudioContextOptions as GHCJS.DOM.OfflineAudioContextOptions+          , GHCJS.DOM.JSFFI.Generated.OffscreenCanvas as GHCJS.DOM.OffscreenCanvas+          , GHCJS.DOM.JSFFI.Generated.OffscreenCanvasRenderingContext2D as GHCJS.DOM.OffscreenCanvasRenderingContext2D+          , GHCJS.DOM.JSFFI.Generated.OptionalEffectTiming as GHCJS.DOM.OptionalEffectTiming+          , GHCJS.DOM.JSFFI.Generated.OpusEncoderConfig as GHCJS.DOM.OpusEncoderConfig+          , GHCJS.DOM.JSFFI.Generated.Origin as GHCJS.DOM.Origin+          , GHCJS.DOM.JSFFI.Generated.OscillatorNode as GHCJS.DOM.OscillatorNode+          , GHCJS.DOM.JSFFI.Generated.OscillatorOptions as GHCJS.DOM.OscillatorOptions+          , GHCJS.DOM.JSFFI.Generated.OverconstrainedError as GHCJS.DOM.OverconstrainedError+          , GHCJS.DOM.JSFFI.Generated.PageRevealEvent as GHCJS.DOM.PageRevealEvent+          , GHCJS.DOM.JSFFI.Generated.PageRevealEventInit as GHCJS.DOM.PageRevealEventInit+          , GHCJS.DOM.JSFFI.Generated.PageSwapEvent as GHCJS.DOM.PageSwapEvent+          , GHCJS.DOM.JSFFI.Generated.PageSwapEventInit as GHCJS.DOM.PageSwapEventInit+          , GHCJS.DOM.JSFFI.Generated.PageTransitionEvent as GHCJS.DOM.PageTransitionEvent+          , GHCJS.DOM.JSFFI.Generated.PageTransitionEventInit as GHCJS.DOM.PageTransitionEventInit+          , GHCJS.DOM.JSFFI.Generated.PaintTimingMixin as GHCJS.DOM.PaintTimingMixin+          , GHCJS.DOM.JSFFI.Generated.PannerNode as GHCJS.DOM.PannerNode+          , GHCJS.DOM.JSFFI.Generated.PannerOptions as GHCJS.DOM.PannerOptions+          , GHCJS.DOM.JSFFI.Generated.ParentNode as GHCJS.DOM.ParentNode+          , GHCJS.DOM.JSFFI.Generated.ParseHTMLUnsafeOptions as GHCJS.DOM.ParseHTMLUnsafeOptions+          , GHCJS.DOM.JSFFI.Generated.PasswordCredential as GHCJS.DOM.PasswordCredential+          , GHCJS.DOM.JSFFI.Generated.PasswordCredentialData as GHCJS.DOM.PasswordCredentialData+          , GHCJS.DOM.JSFFI.Generated.Path2D as GHCJS.DOM.Path2D+          , GHCJS.DOM.JSFFI.Generated.PayerErrors as GHCJS.DOM.PayerErrors+          , GHCJS.DOM.JSFFI.Generated.PaymentCompleteDetails as GHCJS.DOM.PaymentCompleteDetails+          , GHCJS.DOM.JSFFI.Generated.PaymentCredentialInstrument as GHCJS.DOM.PaymentCredentialInstrument+          , GHCJS.DOM.JSFFI.Generated.PaymentCurrencyAmount as GHCJS.DOM.PaymentCurrencyAmount+          , GHCJS.DOM.JSFFI.Generated.PaymentDetailsBase as GHCJS.DOM.PaymentDetailsBase+          , GHCJS.DOM.JSFFI.Generated.PaymentDetailsInit as GHCJS.DOM.PaymentDetailsInit+          , GHCJS.DOM.JSFFI.Generated.PaymentDetailsModifier as GHCJS.DOM.PaymentDetailsModifier+          , GHCJS.DOM.JSFFI.Generated.PaymentDetailsUpdate as GHCJS.DOM.PaymentDetailsUpdate+          , GHCJS.DOM.JSFFI.Generated.PaymentEntityLogo as GHCJS.DOM.PaymentEntityLogo+          , GHCJS.DOM.JSFFI.Generated.PaymentItem as GHCJS.DOM.PaymentItem+          , GHCJS.DOM.JSFFI.Generated.PaymentMethodChangeEvent as GHCJS.DOM.PaymentMethodChangeEvent+          , GHCJS.DOM.JSFFI.Generated.PaymentMethodChangeEventInit as GHCJS.DOM.PaymentMethodChangeEventInit+          , GHCJS.DOM.JSFFI.Generated.PaymentMethodData as GHCJS.DOM.PaymentMethodData+          , GHCJS.DOM.JSFFI.Generated.PaymentOptions as GHCJS.DOM.PaymentOptions+          , GHCJS.DOM.JSFFI.Generated.PaymentRequest as GHCJS.DOM.PaymentRequest+          , GHCJS.DOM.JSFFI.Generated.PaymentRequestUpdateEvent as GHCJS.DOM.PaymentRequestUpdateEvent+          , GHCJS.DOM.JSFFI.Generated.PaymentRequestUpdateEventInit as GHCJS.DOM.PaymentRequestUpdateEventInit+          , GHCJS.DOM.JSFFI.Generated.PaymentResponse as GHCJS.DOM.PaymentResponse+          , GHCJS.DOM.JSFFI.Generated.PaymentShippingOption as GHCJS.DOM.PaymentShippingOption+          , GHCJS.DOM.JSFFI.Generated.PaymentValidationErrors as GHCJS.DOM.PaymentValidationErrors+          , GHCJS.DOM.JSFFI.Generated.Performance as GHCJS.DOM.Performance+          , GHCJS.DOM.JSFFI.Generated.PerformanceEntry as GHCJS.DOM.PerformanceEntry+          , GHCJS.DOM.JSFFI.Generated.PerformanceEventTiming as GHCJS.DOM.PerformanceEventTiming+          , GHCJS.DOM.JSFFI.Generated.PerformanceMark as GHCJS.DOM.PerformanceMark+          , GHCJS.DOM.JSFFI.Generated.PerformanceMarkOptions as GHCJS.DOM.PerformanceMarkOptions+          , GHCJS.DOM.JSFFI.Generated.PerformanceMeasure as GHCJS.DOM.PerformanceMeasure+          , GHCJS.DOM.JSFFI.Generated.PerformanceMeasureOptions as GHCJS.DOM.PerformanceMeasureOptions+          , GHCJS.DOM.JSFFI.Generated.PerformanceNavigation as GHCJS.DOM.PerformanceNavigation+          , GHCJS.DOM.JSFFI.Generated.PerformanceNavigationTiming as GHCJS.DOM.PerformanceNavigationTiming+          , GHCJS.DOM.JSFFI.Generated.PerformanceObserver as GHCJS.DOM.PerformanceObserver+          , GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallback as GHCJS.DOM.PerformanceObserverCallback+          , GHCJS.DOM.JSFFI.Generated.PerformanceObserverCallbackOptions as GHCJS.DOM.PerformanceObserverCallbackOptions+          , GHCJS.DOM.JSFFI.Generated.PerformanceObserverEntryList as GHCJS.DOM.PerformanceObserverEntryList+          , GHCJS.DOM.JSFFI.Generated.PerformanceObserverInit as GHCJS.DOM.PerformanceObserverInit+          , GHCJS.DOM.JSFFI.Generated.PerformancePaintTiming as GHCJS.DOM.PerformancePaintTiming+          , GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming as GHCJS.DOM.PerformanceResourceTiming+          , GHCJS.DOM.JSFFI.Generated.PerformanceServerTiming as GHCJS.DOM.PerformanceServerTiming+          , GHCJS.DOM.JSFFI.Generated.PerformanceTiming as GHCJS.DOM.PerformanceTiming+          , GHCJS.DOM.JSFFI.Generated.PeriodicWave as GHCJS.DOM.PeriodicWave+          , GHCJS.DOM.JSFFI.Generated.PeriodicWaveConstraints as GHCJS.DOM.PeriodicWaveConstraints+          , GHCJS.DOM.JSFFI.Generated.PeriodicWaveOptions as GHCJS.DOM.PeriodicWaveOptions+          , GHCJS.DOM.JSFFI.Generated.PermissionStatus as GHCJS.DOM.PermissionStatus+          , GHCJS.DOM.JSFFI.Generated.Permissions as GHCJS.DOM.Permissions+          , GHCJS.DOM.JSFFI.Generated.PhotoCapabilities as GHCJS.DOM.PhotoCapabilities+          , GHCJS.DOM.JSFFI.Generated.PhotoSettings as GHCJS.DOM.PhotoSettings+          , GHCJS.DOM.JSFFI.Generated.PictureInPictureEvent as GHCJS.DOM.PictureInPictureEvent+          , GHCJS.DOM.JSFFI.Generated.PictureInPictureEventInit as GHCJS.DOM.PictureInPictureEventInit+          , GHCJS.DOM.JSFFI.Generated.PictureInPictureWindow as GHCJS.DOM.PictureInPictureWindow+          , GHCJS.DOM.JSFFI.Generated.PlaneLayout as GHCJS.DOM.PlaneLayout+          , GHCJS.DOM.JSFFI.Generated.Plugin as GHCJS.DOM.Plugin+          , GHCJS.DOM.JSFFI.Generated.PluginArray as GHCJS.DOM.PluginArray+          , GHCJS.DOM.JSFFI.Generated.Point2D as GHCJS.DOM.Point2D+          , GHCJS.DOM.JSFFI.Generated.PointerEvent as GHCJS.DOM.PointerEvent+          , GHCJS.DOM.JSFFI.Generated.PointerEventInit as GHCJS.DOM.PointerEventInit+          , GHCJS.DOM.JSFFI.Generated.PointerLockOptions as GHCJS.DOM.PointerLockOptions+          , GHCJS.DOM.JSFFI.Generated.PopStateEvent as GHCJS.DOM.PopStateEvent+          , GHCJS.DOM.JSFFI.Generated.PopStateEventInit as GHCJS.DOM.PopStateEventInit+          , GHCJS.DOM.JSFFI.Generated.PopoverTargetAttributes as GHCJS.DOM.PopoverTargetAttributes+          , GHCJS.DOM.JSFFI.Generated.PositionCallback as GHCJS.DOM.PositionCallback+          , GHCJS.DOM.JSFFI.Generated.PositionErrorCallback as GHCJS.DOM.PositionErrorCallback+          , GHCJS.DOM.JSFFI.Generated.PositionOptions as GHCJS.DOM.PositionOptions+          , GHCJS.DOM.JSFFI.Generated.PrivateToken as GHCJS.DOM.PrivateToken+          , GHCJS.DOM.JSFFI.Generated.ProcessingInstruction as GHCJS.DOM.ProcessingInstruction+          , GHCJS.DOM.JSFFI.Generated.ProgressEvent as GHCJS.DOM.ProgressEvent+          , GHCJS.DOM.JSFFI.Generated.ProgressEventInit as GHCJS.DOM.ProgressEventInit+          , GHCJS.DOM.JSFFI.Generated.PromiseRejectionEvent as GHCJS.DOM.PromiseRejectionEvent+          , GHCJS.DOM.JSFFI.Generated.PromiseRejectionEventInit as GHCJS.DOM.PromiseRejectionEventInit+          , GHCJS.DOM.JSFFI.Generated.PropertyDefinition as GHCJS.DOM.PropertyDefinition+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredential as GHCJS.DOM.PublicKeyCredential+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialCreationOptions as GHCJS.DOM.PublicKeyCredentialCreationOptions+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialCreationOptionsJSON as GHCJS.DOM.PublicKeyCredentialCreationOptionsJSON+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialDescriptor as GHCJS.DOM.PublicKeyCredentialDescriptor+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialDescriptorJSON as GHCJS.DOM.PublicKeyCredentialDescriptorJSON+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialEntity as GHCJS.DOM.PublicKeyCredentialEntity+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialParameters as GHCJS.DOM.PublicKeyCredentialParameters+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRequestOptions as GHCJS.DOM.PublicKeyCredentialRequestOptions+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRequestOptionsJSON as GHCJS.DOM.PublicKeyCredentialRequestOptionsJSON+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialRpEntity as GHCJS.DOM.PublicKeyCredentialRpEntity+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialUserEntity as GHCJS.DOM.PublicKeyCredentialUserEntity+          , GHCJS.DOM.JSFFI.Generated.PublicKeyCredentialUserEntityJSON as GHCJS.DOM.PublicKeyCredentialUserEntityJSON+          , GHCJS.DOM.JSFFI.Generated.PushEvent as GHCJS.DOM.PushEvent+          , GHCJS.DOM.JSFFI.Generated.PushEventInit as GHCJS.DOM.PushEventInit+          , GHCJS.DOM.JSFFI.Generated.PushManager as GHCJS.DOM.PushManager+          , GHCJS.DOM.JSFFI.Generated.PushManagerAttribute as GHCJS.DOM.PushManagerAttribute+          , GHCJS.DOM.JSFFI.Generated.PushMessageData as GHCJS.DOM.PushMessageData+          , GHCJS.DOM.JSFFI.Generated.PushSubscription as GHCJS.DOM.PushSubscription+          , GHCJS.DOM.JSFFI.Generated.PushSubscriptionChangeEvent as GHCJS.DOM.PushSubscriptionChangeEvent+          , GHCJS.DOM.JSFFI.Generated.PushSubscriptionChangeEventInit as GHCJS.DOM.PushSubscriptionChangeEventInit+          , GHCJS.DOM.JSFFI.Generated.PushSubscriptionJSON as GHCJS.DOM.PushSubscriptionJSON+          , GHCJS.DOM.JSFFI.Generated.PushSubscriptionKeys as GHCJS.DOM.PushSubscriptionKeys+          , GHCJS.DOM.JSFFI.Generated.PushSubscriptionOptions as GHCJS.DOM.PushSubscriptionOptions+          , GHCJS.DOM.JSFFI.Generated.PushSubscriptionOptionsInit as GHCJS.DOM.PushSubscriptionOptionsInit+          , GHCJS.DOM.JSFFI.Generated.QueuingStrategy as GHCJS.DOM.QueuingStrategy+          , GHCJS.DOM.JSFFI.Generated.QueuingStrategyInit as GHCJS.DOM.QueuingStrategyInit+          , GHCJS.DOM.JSFFI.Generated.QueuingStrategySize as GHCJS.DOM.QueuingStrategySize+          , GHCJS.DOM.JSFFI.Generated.RTCAnswerOptions as GHCJS.DOM.RTCAnswerOptions+          , GHCJS.DOM.JSFFI.Generated.RTCCertificate as GHCJS.DOM.RTCCertificate+          , GHCJS.DOM.JSFFI.Generated.RTCConfiguration as GHCJS.DOM.RTCConfiguration+          , GHCJS.DOM.JSFFI.Generated.RTCDTMFSender as GHCJS.DOM.RTCDTMFSender+          , GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent as GHCJS.DOM.RTCDTMFToneChangeEvent+          , GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEventInit as GHCJS.DOM.RTCDTMFToneChangeEventInit+          , GHCJS.DOM.JSFFI.Generated.RTCDataChannel as GHCJS.DOM.RTCDataChannel+          , GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent as GHCJS.DOM.RTCDataChannelEvent+          , GHCJS.DOM.JSFFI.Generated.RTCDataChannelEventInit as GHCJS.DOM.RTCDataChannelEventInit+          , GHCJS.DOM.JSFFI.Generated.RTCDataChannelInit as GHCJS.DOM.RTCDataChannelInit+          , GHCJS.DOM.JSFFI.Generated.RTCDtlsFingerprint as GHCJS.DOM.RTCDtlsFingerprint+          , GHCJS.DOM.JSFFI.Generated.RTCDtlsTransport as GHCJS.DOM.RTCDtlsTransport+          , GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrame as GHCJS.DOM.RTCEncodedAudioFrame+          , GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrameMetadata as GHCJS.DOM.RTCEncodedAudioFrameMetadata+          , GHCJS.DOM.JSFFI.Generated.RTCEncodedAudioFrameOptions as GHCJS.DOM.RTCEncodedAudioFrameOptions+          , GHCJS.DOM.JSFFI.Generated.RTCEncodedFrameMetadata as GHCJS.DOM.RTCEncodedFrameMetadata+          , GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrame as GHCJS.DOM.RTCEncodedVideoFrame+          , GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrameMetadata as GHCJS.DOM.RTCEncodedVideoFrameMetadata+          , GHCJS.DOM.JSFFI.Generated.RTCEncodedVideoFrameOptions as GHCJS.DOM.RTCEncodedVideoFrameOptions+          , GHCJS.DOM.JSFFI.Generated.RTCError as GHCJS.DOM.RTCError+          , GHCJS.DOM.JSFFI.Generated.RTCErrorEvent as GHCJS.DOM.RTCErrorEvent+          , GHCJS.DOM.JSFFI.Generated.RTCErrorEventInit as GHCJS.DOM.RTCErrorEventInit+          , GHCJS.DOM.JSFFI.Generated.RTCErrorInit as GHCJS.DOM.RTCErrorInit+          , GHCJS.DOM.JSFFI.Generated.RTCIceCandidate as GHCJS.DOM.RTCIceCandidate+          , GHCJS.DOM.JSFFI.Generated.RTCIceCandidateInit as GHCJS.DOM.RTCIceCandidateInit+          , GHCJS.DOM.JSFFI.Generated.RTCIceCandidatePair as GHCJS.DOM.RTCIceCandidatePair+          , GHCJS.DOM.JSFFI.Generated.RTCIceServer as GHCJS.DOM.RTCIceServer+          , GHCJS.DOM.JSFFI.Generated.RTCIceTransport as GHCJS.DOM.RTCIceTransport+          , GHCJS.DOM.JSFFI.Generated.RTCLocalIceCandidateInit as GHCJS.DOM.RTCLocalIceCandidateInit+          , GHCJS.DOM.JSFFI.Generated.RTCLocalSessionDescriptionInit as GHCJS.DOM.RTCLocalSessionDescriptionInit+          , GHCJS.DOM.JSFFI.Generated.RTCOfferAnswerOptions as GHCJS.DOM.RTCOfferAnswerOptions+          , GHCJS.DOM.JSFFI.Generated.RTCOfferOptions as GHCJS.DOM.RTCOfferOptions+          , GHCJS.DOM.JSFFI.Generated.RTCPeerConnection as GHCJS.DOM.RTCPeerConnection+          , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback as GHCJS.DOM.RTCPeerConnectionErrorCallback+          , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceErrorEvent as GHCJS.DOM.RTCPeerConnectionIceErrorEvent+          , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceErrorEventInit as GHCJS.DOM.RTCPeerConnectionIceErrorEventInit+          , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEvent as GHCJS.DOM.RTCPeerConnectionIceEvent+          , GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionIceEventInit as GHCJS.DOM.RTCPeerConnectionIceEventInit+          , GHCJS.DOM.JSFFI.Generated.RTCRtcpParameters as GHCJS.DOM.RTCRtcpParameters+          , GHCJS.DOM.JSFFI.Generated.RTCRtpCapabilities as GHCJS.DOM.RTCRtpCapabilities+          , GHCJS.DOM.JSFFI.Generated.RTCRtpCodec as GHCJS.DOM.RTCRtpCodec+          , GHCJS.DOM.JSFFI.Generated.RTCRtpCodecParameters as GHCJS.DOM.RTCRtpCodecParameters+          , GHCJS.DOM.JSFFI.Generated.RTCRtpCodingParameters as GHCJS.DOM.RTCRtpCodingParameters+          , GHCJS.DOM.JSFFI.Generated.RTCRtpContributingSource as GHCJS.DOM.RTCRtpContributingSource+          , GHCJS.DOM.JSFFI.Generated.RTCRtpEncodingParameters as GHCJS.DOM.RTCRtpEncodingParameters+          , GHCJS.DOM.JSFFI.Generated.RTCRtpHeaderExtensionCapability as GHCJS.DOM.RTCRtpHeaderExtensionCapability+          , GHCJS.DOM.JSFFI.Generated.RTCRtpHeaderExtensionParameters as GHCJS.DOM.RTCRtpHeaderExtensionParameters+          , GHCJS.DOM.JSFFI.Generated.RTCRtpParameters as GHCJS.DOM.RTCRtpParameters+          , GHCJS.DOM.JSFFI.Generated.RTCRtpReceiveParameters as GHCJS.DOM.RTCRtpReceiveParameters+          , GHCJS.DOM.JSFFI.Generated.RTCRtpReceiver as GHCJS.DOM.RTCRtpReceiver+          , GHCJS.DOM.JSFFI.Generated.RTCRtpSFrameDecryptor as GHCJS.DOM.RTCRtpSFrameDecryptor+          , GHCJS.DOM.JSFFI.Generated.RTCRtpSFrameEncryptor as GHCJS.DOM.RTCRtpSFrameEncryptor+          , GHCJS.DOM.JSFFI.Generated.RTCRtpScriptTransform as GHCJS.DOM.RTCRtpScriptTransform+          , GHCJS.DOM.JSFFI.Generated.RTCRtpScriptTransformer as GHCJS.DOM.RTCRtpScriptTransformer+          , GHCJS.DOM.JSFFI.Generated.RTCRtpSendParameters as GHCJS.DOM.RTCRtpSendParameters+          , GHCJS.DOM.JSFFI.Generated.RTCRtpSender as GHCJS.DOM.RTCRtpSender+          , GHCJS.DOM.JSFFI.Generated.RTCRtpSynchronizationSource as GHCJS.DOM.RTCRtpSynchronizationSource+          , GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiver as GHCJS.DOM.RTCRtpTransceiver+          , GHCJS.DOM.JSFFI.Generated.RTCRtpTransceiverInit as GHCJS.DOM.RTCRtpTransceiverInit+          , GHCJS.DOM.JSFFI.Generated.RTCSctpTransport as GHCJS.DOM.RTCSctpTransport+          , GHCJS.DOM.JSFFI.Generated.RTCSessionDescription as GHCJS.DOM.RTCSessionDescription+          , GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback as GHCJS.DOM.RTCSessionDescriptionCallback+          , GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionInit as GHCJS.DOM.RTCSessionDescriptionInit+          , GHCJS.DOM.JSFFI.Generated.RTCSetParameterOptions as GHCJS.DOM.RTCSetParameterOptions+          , GHCJS.DOM.JSFFI.Generated.RTCStatsReport as GHCJS.DOM.RTCStatsReport+          , GHCJS.DOM.JSFFI.Generated.RTCTrackEvent as GHCJS.DOM.RTCTrackEvent+          , GHCJS.DOM.JSFFI.Generated.RTCTrackEventInit as GHCJS.DOM.RTCTrackEventInit+          , GHCJS.DOM.JSFFI.Generated.RTCTransformEvent as GHCJS.DOM.RTCTransformEvent+          , GHCJS.DOM.JSFFI.Generated.RadioNodeList as GHCJS.DOM.RadioNodeList+          , GHCJS.DOM.JSFFI.Generated.Range as GHCJS.DOM.Range+          , GHCJS.DOM.JSFFI.Generated.ReadableByteStreamController as GHCJS.DOM.ReadableByteStreamController+          , GHCJS.DOM.JSFFI.Generated.ReadableStream as GHCJS.DOM.ReadableStream+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReader as GHCJS.DOM.ReadableStreamBYOBReader+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBReaderReadOptions as GHCJS.DOM.ReadableStreamBYOBReaderReadOptions+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamBYOBRequest as GHCJS.DOM.ReadableStreamBYOBRequest+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultController as GHCJS.DOM.ReadableStreamDefaultController+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamDefaultReader as GHCJS.DOM.ReadableStreamDefaultReader+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamGenericReader as GHCJS.DOM.ReadableStreamGenericReader+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamGetReaderOptions as GHCJS.DOM.ReadableStreamGetReaderOptions+          , GHCJS.DOM.JSFFI.Generated.ReadableStreamReadResult as GHCJS.DOM.ReadableStreamReadResult+          , GHCJS.DOM.JSFFI.Generated.ReadableWritablePair as GHCJS.DOM.ReadableWritablePair+          , GHCJS.DOM.JSFFI.Generated.RegistrationOptions as GHCJS.DOM.RegistrationOptions+          , GHCJS.DOM.JSFFI.Generated.RemotePlayback as GHCJS.DOM.RemotePlayback+          , GHCJS.DOM.JSFFI.Generated.RemotePlaybackAvailabilityCallback as GHCJS.DOM.RemotePlaybackAvailabilityCallback+          , GHCJS.DOM.JSFFI.Generated.Report as GHCJS.DOM.Report+          , GHCJS.DOM.JSFFI.Generated.ReportBody as GHCJS.DOM.ReportBody+          , GHCJS.DOM.JSFFI.Generated.ReportingObserver as GHCJS.DOM.ReportingObserver+          , GHCJS.DOM.JSFFI.Generated.ReportingObserverCallback as GHCJS.DOM.ReportingObserverCallback+          , GHCJS.DOM.JSFFI.Generated.ReportingObserverOptions as GHCJS.DOM.ReportingObserverOptions+          , GHCJS.DOM.JSFFI.Generated.Request as GHCJS.DOM.Request+          , GHCJS.DOM.JSFFI.Generated.RequestInit as GHCJS.DOM.RequestInit+          , GHCJS.DOM.JSFFI.Generated.ResizeObserver as GHCJS.DOM.ResizeObserver+          , GHCJS.DOM.JSFFI.Generated.ResizeObserverCallback as GHCJS.DOM.ResizeObserverCallback+          , GHCJS.DOM.JSFFI.Generated.ResizeObserverEntry as GHCJS.DOM.ResizeObserverEntry+          , GHCJS.DOM.JSFFI.Generated.ResizeObserverOptions as GHCJS.DOM.ResizeObserverOptions+          , GHCJS.DOM.JSFFI.Generated.ResizeObserverSize as GHCJS.DOM.ResizeObserverSize+          , GHCJS.DOM.JSFFI.Generated.Response as GHCJS.DOM.Response+          , GHCJS.DOM.JSFFI.Generated.ResponseInit as GHCJS.DOM.ResponseInit+          , GHCJS.DOM.JSFFI.Generated.RouterCondition as GHCJS.DOM.RouterCondition+          , GHCJS.DOM.JSFFI.Generated.RouterRule as GHCJS.DOM.RouterRule+          , GHCJS.DOM.JSFFI.Generated.RouterSourceDict as GHCJS.DOM.RouterSourceDict+          , GHCJS.DOM.JSFFI.Generated.RsaOtherPrimesInfo as GHCJS.DOM.RsaOtherPrimesInfo+          , GHCJS.DOM.JSFFI.Generated.SVGAElement as GHCJS.DOM.SVGAElement+          , GHCJS.DOM.JSFFI.Generated.SVGAngle as GHCJS.DOM.SVGAngle+          , GHCJS.DOM.JSFFI.Generated.SVGAnimateElement as GHCJS.DOM.SVGAnimateElement+          , GHCJS.DOM.JSFFI.Generated.SVGAnimateMotionElement as GHCJS.DOM.SVGAnimateMotionElement+          , GHCJS.DOM.JSFFI.Generated.SVGAnimateTransformElement as GHCJS.DOM.SVGAnimateTransformElement+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle as GHCJS.DOM.SVGAnimatedAngle+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean as GHCJS.DOM.SVGAnimatedBoolean+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration as GHCJS.DOM.SVGAnimatedEnumeration+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger as GHCJS.DOM.SVGAnimatedInteger+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength as GHCJS.DOM.SVGAnimatedLength+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList as GHCJS.DOM.SVGAnimatedLengthList+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber as GHCJS.DOM.SVGAnimatedNumber+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList as GHCJS.DOM.SVGAnimatedNumberList+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedPoints as GHCJS.DOM.SVGAnimatedPoints+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio as GHCJS.DOM.SVGAnimatedPreserveAspectRatio+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect as GHCJS.DOM.SVGAnimatedRect+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedString as GHCJS.DOM.SVGAnimatedString+          , GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList as GHCJS.DOM.SVGAnimatedTransformList+          , GHCJS.DOM.JSFFI.Generated.SVGAnimationElement as GHCJS.DOM.SVGAnimationElement+          , GHCJS.DOM.JSFFI.Generated.SVGBoundingBoxOptions as GHCJS.DOM.SVGBoundingBoxOptions+          , GHCJS.DOM.JSFFI.Generated.SVGCircleElement as GHCJS.DOM.SVGCircleElement+          , GHCJS.DOM.JSFFI.Generated.SVGClipPathElement as GHCJS.DOM.SVGClipPathElement+          , GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement as GHCJS.DOM.SVGComponentTransferFunctionElement+          , GHCJS.DOM.JSFFI.Generated.SVGDefsElement as GHCJS.DOM.SVGDefsElement+          , GHCJS.DOM.JSFFI.Generated.SVGDescElement as GHCJS.DOM.SVGDescElement+          , GHCJS.DOM.JSFFI.Generated.SVGElement as GHCJS.DOM.SVGElement+          , GHCJS.DOM.JSFFI.Generated.SVGEllipseElement as GHCJS.DOM.SVGEllipseElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement as GHCJS.DOM.SVGFEBlendElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement as GHCJS.DOM.SVGFEColorMatrixElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement as GHCJS.DOM.SVGFEComponentTransferElement+          , GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement as GHCJS.DOM.SVGFECompositeElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement as GHCJS.DOM.SVGFEConvolveMatrixElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement as GHCJS.DOM.SVGFEDiffuseLightingElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement as GHCJS.DOM.SVGFEDisplacementMapElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement as GHCJS.DOM.SVGFEDistantLightElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement as GHCJS.DOM.SVGFEDropShadowElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEFloodElement as GHCJS.DOM.SVGFEFloodElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEFuncAElement as GHCJS.DOM.SVGFEFuncAElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEFuncBElement as GHCJS.DOM.SVGFEFuncBElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEFuncGElement as GHCJS.DOM.SVGFEFuncGElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEFuncRElement as GHCJS.DOM.SVGFEFuncRElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement as GHCJS.DOM.SVGFEGaussianBlurElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEImageElement as GHCJS.DOM.SVGFEImageElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEMergeElement as GHCJS.DOM.SVGFEMergeElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement as GHCJS.DOM.SVGFEMergeNodeElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement as GHCJS.DOM.SVGFEMorphologyElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement as GHCJS.DOM.SVGFEOffsetElement+          , GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement as GHCJS.DOM.SVGFEPointLightElement+          , GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement as GHCJS.DOM.SVGFESpecularLightingElement+          , GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement as GHCJS.DOM.SVGFESpotLightElement+          , GHCJS.DOM.JSFFI.Generated.SVGFETileElement as GHCJS.DOM.SVGFETileElement+          , GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement as GHCJS.DOM.SVGFETurbulenceElement+          , GHCJS.DOM.JSFFI.Generated.SVGFilterElement as GHCJS.DOM.SVGFilterElement+          , GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes as GHCJS.DOM.SVGFilterPrimitiveStandardAttributes+          , GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox as GHCJS.DOM.SVGFitToViewBox+          , GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement as GHCJS.DOM.SVGForeignObjectElement+          , GHCJS.DOM.JSFFI.Generated.SVGGElement as GHCJS.DOM.SVGGElement+          , GHCJS.DOM.JSFFI.Generated.SVGGeometryElement as GHCJS.DOM.SVGGeometryElement+          , GHCJS.DOM.JSFFI.Generated.SVGGradientElement as GHCJS.DOM.SVGGradientElement+          , GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement as GHCJS.DOM.SVGGraphicsElement+          , GHCJS.DOM.JSFFI.Generated.SVGImageElement as GHCJS.DOM.SVGImageElement+          , GHCJS.DOM.JSFFI.Generated.SVGLength as GHCJS.DOM.SVGLength+          , GHCJS.DOM.JSFFI.Generated.SVGLengthList as GHCJS.DOM.SVGLengthList+          , GHCJS.DOM.JSFFI.Generated.SVGLineElement as GHCJS.DOM.SVGLineElement+          , GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement as GHCJS.DOM.SVGLinearGradientElement+          , GHCJS.DOM.JSFFI.Generated.SVGMPathElement as GHCJS.DOM.SVGMPathElement+          , GHCJS.DOM.JSFFI.Generated.SVGMarkerElement as GHCJS.DOM.SVGMarkerElement+          , GHCJS.DOM.JSFFI.Generated.SVGMaskElement as GHCJS.DOM.SVGMaskElement+          , GHCJS.DOM.JSFFI.Generated.SVGMetadataElement as GHCJS.DOM.SVGMetadataElement+          , GHCJS.DOM.JSFFI.Generated.SVGNumber as GHCJS.DOM.SVGNumber+          , GHCJS.DOM.JSFFI.Generated.SVGNumberList as GHCJS.DOM.SVGNumberList+          , GHCJS.DOM.JSFFI.Generated.SVGPathElement as GHCJS.DOM.SVGPathElement+          , GHCJS.DOM.JSFFI.Generated.SVGPatternElement as GHCJS.DOM.SVGPatternElement+          , GHCJS.DOM.JSFFI.Generated.SVGPointList as GHCJS.DOM.SVGPointList+          , GHCJS.DOM.JSFFI.Generated.SVGPolygonElement as GHCJS.DOM.SVGPolygonElement+          , GHCJS.DOM.JSFFI.Generated.SVGPolylineElement as GHCJS.DOM.SVGPolylineElement+          , GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio as GHCJS.DOM.SVGPreserveAspectRatio+          , GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement as GHCJS.DOM.SVGRadialGradientElement+          , GHCJS.DOM.JSFFI.Generated.SVGRectElement as GHCJS.DOM.SVGRectElement+          , GHCJS.DOM.JSFFI.Generated.SVGSVGElement as GHCJS.DOM.SVGSVGElement+          , GHCJS.DOM.JSFFI.Generated.SVGScriptElement as GHCJS.DOM.SVGScriptElement+          , GHCJS.DOM.JSFFI.Generated.SVGSetElement as GHCJS.DOM.SVGSetElement+          , GHCJS.DOM.JSFFI.Generated.SVGStopElement as GHCJS.DOM.SVGStopElement+          , GHCJS.DOM.JSFFI.Generated.SVGStringList as GHCJS.DOM.SVGStringList+          , GHCJS.DOM.JSFFI.Generated.SVGStyleElement as GHCJS.DOM.SVGStyleElement+          , GHCJS.DOM.JSFFI.Generated.SVGSwitchElement as GHCJS.DOM.SVGSwitchElement+          , GHCJS.DOM.JSFFI.Generated.SVGSymbolElement as GHCJS.DOM.SVGSymbolElement+          , GHCJS.DOM.JSFFI.Generated.SVGTSpanElement as GHCJS.DOM.SVGTSpanElement+          , GHCJS.DOM.JSFFI.Generated.SVGTests as GHCJS.DOM.SVGTests+          , GHCJS.DOM.JSFFI.Generated.SVGTextContentElement as GHCJS.DOM.SVGTextContentElement+          , GHCJS.DOM.JSFFI.Generated.SVGTextElement as GHCJS.DOM.SVGTextElement+          , GHCJS.DOM.JSFFI.Generated.SVGTextPathElement as GHCJS.DOM.SVGTextPathElement+          , GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement as GHCJS.DOM.SVGTextPositioningElement+          , GHCJS.DOM.JSFFI.Generated.SVGTitleElement as GHCJS.DOM.SVGTitleElement+          , GHCJS.DOM.JSFFI.Generated.SVGTransform as GHCJS.DOM.SVGTransform+          , GHCJS.DOM.JSFFI.Generated.SVGTransformList as GHCJS.DOM.SVGTransformList+          , GHCJS.DOM.JSFFI.Generated.SVGURIReference as GHCJS.DOM.SVGURIReference+          , GHCJS.DOM.JSFFI.Generated.SVGUnitTypes as GHCJS.DOM.SVGUnitTypes+          , GHCJS.DOM.JSFFI.Generated.SVGUseElement as GHCJS.DOM.SVGUseElement+          , GHCJS.DOM.JSFFI.Generated.SVGViewElement as GHCJS.DOM.SVGViewElement+          , GHCJS.DOM.JSFFI.Generated.Sanitizer as GHCJS.DOM.Sanitizer+          , GHCJS.DOM.JSFFI.Generated.SanitizerAttributeNamespace as GHCJS.DOM.SanitizerAttributeNamespace+          , GHCJS.DOM.JSFFI.Generated.SanitizerConfig as GHCJS.DOM.SanitizerConfig+          , GHCJS.DOM.JSFFI.Generated.SanitizerElementNamespace as GHCJS.DOM.SanitizerElementNamespace+          , GHCJS.DOM.JSFFI.Generated.SanitizerElementNamespaceWithAttributes as GHCJS.DOM.SanitizerElementNamespaceWithAttributes+          , GHCJS.DOM.JSFFI.Generated.SanitizerProcessingInstruction as GHCJS.DOM.SanitizerProcessingInstruction+          , GHCJS.DOM.JSFFI.Generated.Scheduler as GHCJS.DOM.Scheduler+          , GHCJS.DOM.JSFFI.Generated.SchedulerPostTaskCallback as GHCJS.DOM.SchedulerPostTaskCallback+          , GHCJS.DOM.JSFFI.Generated.SchedulerPostTaskOptions as GHCJS.DOM.SchedulerPostTaskOptions+          , GHCJS.DOM.JSFFI.Generated.Screen as GHCJS.DOM.Screen+          , GHCJS.DOM.JSFFI.Generated.ScreenDetailed as GHCJS.DOM.ScreenDetailed+          , GHCJS.DOM.JSFFI.Generated.ScreenOrientation as GHCJS.DOM.ScreenOrientation+          , GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode as GHCJS.DOM.ScriptProcessorNode+          , GHCJS.DOM.JSFFI.Generated.ScrollIntoViewOptions as GHCJS.DOM.ScrollIntoViewOptions+          , GHCJS.DOM.JSFFI.Generated.ScrollOptions as GHCJS.DOM.ScrollOptions+          , GHCJS.DOM.JSFFI.Generated.ScrollResult as GHCJS.DOM.ScrollResult+          , GHCJS.DOM.JSFFI.Generated.ScrollTimeline as GHCJS.DOM.ScrollTimeline+          , GHCJS.DOM.JSFFI.Generated.ScrollTimelineOptions as GHCJS.DOM.ScrollTimelineOptions+          , GHCJS.DOM.JSFFI.Generated.ScrollToOptions as GHCJS.DOM.ScrollToOptions+          , GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent as GHCJS.DOM.SecurityPolicyViolationEvent+          , GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEventInit as GHCJS.DOM.SecurityPolicyViolationEventInit+          , GHCJS.DOM.JSFFI.Generated.Segment as GHCJS.DOM.Segment+          , GHCJS.DOM.JSFFI.Generated.Selection as GHCJS.DOM.Selection+          , GHCJS.DOM.JSFFI.Generated.Serial as GHCJS.DOM.Serial+          , GHCJS.DOM.JSFFI.Generated.SerialInputSignals as GHCJS.DOM.SerialInputSignals+          , GHCJS.DOM.JSFFI.Generated.SerialOptions as GHCJS.DOM.SerialOptions+          , GHCJS.DOM.JSFFI.Generated.SerialOutputSignals as GHCJS.DOM.SerialOutputSignals+          , GHCJS.DOM.JSFFI.Generated.SerialPort as GHCJS.DOM.SerialPort+          , GHCJS.DOM.JSFFI.Generated.SerialPortFilter as GHCJS.DOM.SerialPortFilter+          , GHCJS.DOM.JSFFI.Generated.SerialPortInfo as GHCJS.DOM.SerialPortInfo+          , GHCJS.DOM.JSFFI.Generated.SerialPortRequestOptions as GHCJS.DOM.SerialPortRequestOptions+          , GHCJS.DOM.JSFFI.Generated.ServiceWorker as GHCJS.DOM.ServiceWorker+          , GHCJS.DOM.JSFFI.Generated.ServiceWorkerContainer as GHCJS.DOM.ServiceWorkerContainer+          , GHCJS.DOM.JSFFI.Generated.ServiceWorkerGlobalScope as GHCJS.DOM.ServiceWorkerGlobalScope+          , GHCJS.DOM.JSFFI.Generated.ServiceWorkerRegistration as GHCJS.DOM.ServiceWorkerRegistration+          , GHCJS.DOM.JSFFI.Generated.SetHTMLOptions as GHCJS.DOM.SetHTMLOptions+          , GHCJS.DOM.JSFFI.Generated.SetHTMLUnsafeOptions as GHCJS.DOM.SetHTMLUnsafeOptions+          , GHCJS.DOM.JSFFI.Generated.ShadowRoot as GHCJS.DOM.ShadowRoot+          , GHCJS.DOM.JSFFI.Generated.ShadowRootInit as GHCJS.DOM.ShadowRootInit+          , GHCJS.DOM.JSFFI.Generated.ShareData as GHCJS.DOM.ShareData+          , GHCJS.DOM.JSFFI.Generated.SharedWorker as GHCJS.DOM.SharedWorker+          , GHCJS.DOM.JSFFI.Generated.SharedWorkerGlobalScope as GHCJS.DOM.SharedWorkerGlobalScope+          , GHCJS.DOM.JSFFI.Generated.SharedWorkerOptions as GHCJS.DOM.SharedWorkerOptions+          , GHCJS.DOM.JSFFI.Generated.ShowPopoverOptions as GHCJS.DOM.ShowPopoverOptions+          , GHCJS.DOM.JSFFI.Generated.Slottable as GHCJS.DOM.Slottable+          , GHCJS.DOM.JSFFI.Generated.SourceBuffer as GHCJS.DOM.SourceBuffer+          , GHCJS.DOM.JSFFI.Generated.SourceBufferList as GHCJS.DOM.SourceBufferList+          , GHCJS.DOM.JSFFI.Generated.SpeechGrammar as GHCJS.DOM.SpeechGrammar+          , GHCJS.DOM.JSFFI.Generated.SpeechGrammarList as GHCJS.DOM.SpeechGrammarList+          , GHCJS.DOM.JSFFI.Generated.SpeechRecognition as GHCJS.DOM.SpeechRecognition+          , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionAlternative as GHCJS.DOM.SpeechRecognitionAlternative+          , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionErrorEvent as GHCJS.DOM.SpeechRecognitionErrorEvent+          , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionErrorEventInit as GHCJS.DOM.SpeechRecognitionErrorEventInit+          , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionEvent as GHCJS.DOM.SpeechRecognitionEvent+          , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionEventInit as GHCJS.DOM.SpeechRecognitionEventInit+          , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionOptions as GHCJS.DOM.SpeechRecognitionOptions+          , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionPhrase as GHCJS.DOM.SpeechRecognitionPhrase+          , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionResult as GHCJS.DOM.SpeechRecognitionResult+          , GHCJS.DOM.JSFFI.Generated.SpeechRecognitionResultList as GHCJS.DOM.SpeechRecognitionResultList+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesis as GHCJS.DOM.SpeechSynthesis+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisErrorEvent as GHCJS.DOM.SpeechSynthesisErrorEvent+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisErrorEventInit as GHCJS.DOM.SpeechSynthesisErrorEventInit+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent as GHCJS.DOM.SpeechSynthesisEvent+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEventInit as GHCJS.DOM.SpeechSynthesisEventInit+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance as GHCJS.DOM.SpeechSynthesisUtterance+          , GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice as GHCJS.DOM.SpeechSynthesisVoice+          , GHCJS.DOM.JSFFI.Generated.StartViewTransitionOptions as GHCJS.DOM.StartViewTransitionOptions+          , GHCJS.DOM.JSFFI.Generated.StaticRange as GHCJS.DOM.StaticRange+          , GHCJS.DOM.JSFFI.Generated.StaticRangeInit as GHCJS.DOM.StaticRangeInit+          , GHCJS.DOM.JSFFI.Generated.StereoPannerNode as GHCJS.DOM.StereoPannerNode+          , GHCJS.DOM.JSFFI.Generated.StereoPannerOptions as GHCJS.DOM.StereoPannerOptions+          , GHCJS.DOM.JSFFI.Generated.Storage as GHCJS.DOM.Storage+          , GHCJS.DOM.JSFFI.Generated.StorageEstimate as GHCJS.DOM.StorageEstimate+          , GHCJS.DOM.JSFFI.Generated.StorageEvent as GHCJS.DOM.StorageEvent+          , GHCJS.DOM.JSFFI.Generated.StorageEventInit as GHCJS.DOM.StorageEventInit+          , GHCJS.DOM.JSFFI.Generated.StorageManager as GHCJS.DOM.StorageManager+          , GHCJS.DOM.JSFFI.Generated.StreamPipeOptions as GHCJS.DOM.StreamPipeOptions+          , GHCJS.DOM.JSFFI.Generated.StructuredSerializeOptions as GHCJS.DOM.StructuredSerializeOptions+          , GHCJS.DOM.JSFFI.Generated.StylePropertyMap as GHCJS.DOM.StylePropertyMap+          , GHCJS.DOM.JSFFI.Generated.StylePropertyMapReadOnly as GHCJS.DOM.StylePropertyMapReadOnly+          , GHCJS.DOM.JSFFI.Generated.StyleSheet as GHCJS.DOM.StyleSheet+          , GHCJS.DOM.JSFFI.Generated.StyleSheetList as GHCJS.DOM.StyleSheetList+          , GHCJS.DOM.JSFFI.Generated.SubmitEvent as GHCJS.DOM.SubmitEvent+          , GHCJS.DOM.JSFFI.Generated.SubmitEventInit as GHCJS.DOM.SubmitEventInit+          , GHCJS.DOM.JSFFI.Generated.SubtleCrypto as GHCJS.DOM.SubtleCrypto+          , GHCJS.DOM.JSFFI.Generated.SvcOutputMetadata as GHCJS.DOM.SvcOutputMetadata+          , GHCJS.DOM.JSFFI.Generated.TaskController as GHCJS.DOM.TaskController+          , GHCJS.DOM.JSFFI.Generated.TaskControllerInit as GHCJS.DOM.TaskControllerInit+          , GHCJS.DOM.JSFFI.Generated.TaskPriorityChangeEvent as GHCJS.DOM.TaskPriorityChangeEvent+          , GHCJS.DOM.JSFFI.Generated.TaskPriorityChangeEventInit as GHCJS.DOM.TaskPriorityChangeEventInit+          , GHCJS.DOM.JSFFI.Generated.TaskSignal as GHCJS.DOM.TaskSignal+          , GHCJS.DOM.JSFFI.Generated.TaskSignalAnyInit as GHCJS.DOM.TaskSignalAnyInit+          , GHCJS.DOM.JSFFI.Generated.Text as GHCJS.DOM.Text+          , GHCJS.DOM.JSFFI.Generated.TextDecodeOptions as GHCJS.DOM.TextDecodeOptions+          , GHCJS.DOM.JSFFI.Generated.TextDecoder as GHCJS.DOM.TextDecoder+          , GHCJS.DOM.JSFFI.Generated.TextDecoderCommon as GHCJS.DOM.TextDecoderCommon+          , GHCJS.DOM.JSFFI.Generated.TextDecoderOptions as GHCJS.DOM.TextDecoderOptions+          , GHCJS.DOM.JSFFI.Generated.TextDecoderStream as GHCJS.DOM.TextDecoderStream+          , GHCJS.DOM.JSFFI.Generated.TextEncoder as GHCJS.DOM.TextEncoder+          , GHCJS.DOM.JSFFI.Generated.TextEncoderCommon as GHCJS.DOM.TextEncoderCommon+          , GHCJS.DOM.JSFFI.Generated.TextEncoderEncodeIntoResult as GHCJS.DOM.TextEncoderEncodeIntoResult+          , GHCJS.DOM.JSFFI.Generated.TextEncoderStream as GHCJS.DOM.TextEncoderStream+          , GHCJS.DOM.JSFFI.Generated.TextEvent as GHCJS.DOM.TextEvent+          , GHCJS.DOM.JSFFI.Generated.TextMetrics as GHCJS.DOM.TextMetrics+          , GHCJS.DOM.JSFFI.Generated.TextTrack as GHCJS.DOM.TextTrack+          , GHCJS.DOM.JSFFI.Generated.TextTrackCue as GHCJS.DOM.TextTrackCue+          , GHCJS.DOM.JSFFI.Generated.TextTrackCueList as GHCJS.DOM.TextTrackCueList+          , GHCJS.DOM.JSFFI.Generated.TextTrackList as GHCJS.DOM.TextTrackList+          , GHCJS.DOM.JSFFI.Generated.TimeRanges as GHCJS.DOM.TimeRanges+          , GHCJS.DOM.JSFFI.Generated.TimelineRangeOffset as GHCJS.DOM.TimelineRangeOffset+          , GHCJS.DOM.JSFFI.Generated.ToggleEvent as GHCJS.DOM.ToggleEvent+          , GHCJS.DOM.JSFFI.Generated.ToggleEventInit as GHCJS.DOM.ToggleEventInit+          , GHCJS.DOM.JSFFI.Generated.TogglePopoverOptions as GHCJS.DOM.TogglePopoverOptions+          , GHCJS.DOM.JSFFI.Generated.Touch as GHCJS.DOM.Touch+          , GHCJS.DOM.JSFFI.Generated.TouchEvent as GHCJS.DOM.TouchEvent+          , GHCJS.DOM.JSFFI.Generated.TouchEventInit as GHCJS.DOM.TouchEventInit+          , GHCJS.DOM.JSFFI.Generated.TouchInit as GHCJS.DOM.TouchInit+          , GHCJS.DOM.JSFFI.Generated.TouchList as GHCJS.DOM.TouchList+          , GHCJS.DOM.JSFFI.Generated.TrackEvent as GHCJS.DOM.TrackEvent+          , GHCJS.DOM.JSFFI.Generated.TrackEventInit as GHCJS.DOM.TrackEventInit+          , GHCJS.DOM.JSFFI.Generated.TransformStream as GHCJS.DOM.TransformStream+          , GHCJS.DOM.JSFFI.Generated.TransformStreamDefaultController as GHCJS.DOM.TransformStreamDefaultController+          , GHCJS.DOM.JSFFI.Generated.TransitionEvent as GHCJS.DOM.TransitionEvent+          , GHCJS.DOM.JSFFI.Generated.TransitionEventInit as GHCJS.DOM.TransitionEventInit+          , GHCJS.DOM.JSFFI.Generated.TreeWalker as GHCJS.DOM.TreeWalker+          , GHCJS.DOM.JSFFI.Generated.TrustedHTML as GHCJS.DOM.TrustedHTML+          , GHCJS.DOM.JSFFI.Generated.TrustedHTMLParserOptions as GHCJS.DOM.TrustedHTMLParserOptions+          , GHCJS.DOM.JSFFI.Generated.TrustedScript as GHCJS.DOM.TrustedScript+          , GHCJS.DOM.JSFFI.Generated.TrustedScriptURL as GHCJS.DOM.TrustedScriptURL+          , GHCJS.DOM.JSFFI.Generated.TrustedTypePolicy as GHCJS.DOM.TrustedTypePolicy+          , GHCJS.DOM.JSFFI.Generated.TrustedTypePolicyFactory as GHCJS.DOM.TrustedTypePolicyFactory+          , GHCJS.DOM.JSFFI.Generated.TrustedTypePolicyOptions as GHCJS.DOM.TrustedTypePolicyOptions+          , GHCJS.DOM.JSFFI.Generated.UIEvent as GHCJS.DOM.UIEvent+          , GHCJS.DOM.JSFFI.Generated.UIEventInit as GHCJS.DOM.UIEventInit+          , GHCJS.DOM.JSFFI.Generated.ULongRange as GHCJS.DOM.ULongRange+          , GHCJS.DOM.JSFFI.Generated.URL as GHCJS.DOM.URL+          , GHCJS.DOM.JSFFI.Generated.URLPattern as GHCJS.DOM.URLPattern+          , GHCJS.DOM.JSFFI.Generated.URLPatternComponentResult as GHCJS.DOM.URLPatternComponentResult+          , GHCJS.DOM.JSFFI.Generated.URLPatternInit as GHCJS.DOM.URLPatternInit+          , GHCJS.DOM.JSFFI.Generated.URLPatternOptions as GHCJS.DOM.URLPatternOptions+          , GHCJS.DOM.JSFFI.Generated.URLPatternResult as GHCJS.DOM.URLPatternResult+          , GHCJS.DOM.JSFFI.Generated.URLSearchParams as GHCJS.DOM.URLSearchParams+          , GHCJS.DOM.JSFFI.Generated.UnknownCredentialOptions as GHCJS.DOM.UnknownCredentialOptions+          , GHCJS.DOM.JSFFI.Generated.UserActivation as GHCJS.DOM.UserActivation+          , GHCJS.DOM.JSFFI.Generated.VTTCue as GHCJS.DOM.VTTCue+          , GHCJS.DOM.JSFFI.Generated.VTTRegion as GHCJS.DOM.VTTRegion+          , GHCJS.DOM.JSFFI.Generated.ValidityState as GHCJS.DOM.ValidityState+          , GHCJS.DOM.JSFFI.Generated.ValidityStateFlags as GHCJS.DOM.ValidityStateFlags+          , GHCJS.DOM.JSFFI.Generated.VideoColorSpace as GHCJS.DOM.VideoColorSpace+          , GHCJS.DOM.JSFFI.Generated.VideoColorSpaceInit as GHCJS.DOM.VideoColorSpaceInit+          , GHCJS.DOM.JSFFI.Generated.VideoConfiguration as GHCJS.DOM.VideoConfiguration+          , GHCJS.DOM.JSFFI.Generated.VideoDecoder as GHCJS.DOM.VideoDecoder+          , GHCJS.DOM.JSFFI.Generated.VideoDecoderConfig as GHCJS.DOM.VideoDecoderConfig+          , GHCJS.DOM.JSFFI.Generated.VideoDecoderInit as GHCJS.DOM.VideoDecoderInit+          , GHCJS.DOM.JSFFI.Generated.VideoDecoderSupport as GHCJS.DOM.VideoDecoderSupport+          , GHCJS.DOM.JSFFI.Generated.VideoEncoder as GHCJS.DOM.VideoEncoder+          , GHCJS.DOM.JSFFI.Generated.VideoEncoderConfig as GHCJS.DOM.VideoEncoderConfig+          , GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptions as GHCJS.DOM.VideoEncoderEncodeOptions+          , GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForAv1 as GHCJS.DOM.VideoEncoderEncodeOptionsForAv1+          , GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForAvc as GHCJS.DOM.VideoEncoderEncodeOptionsForAvc+          , GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForHevc as GHCJS.DOM.VideoEncoderEncodeOptionsForHevc+          , GHCJS.DOM.JSFFI.Generated.VideoEncoderEncodeOptionsForVp9 as GHCJS.DOM.VideoEncoderEncodeOptionsForVp9+          , GHCJS.DOM.JSFFI.Generated.VideoEncoderInit as GHCJS.DOM.VideoEncoderInit+          , GHCJS.DOM.JSFFI.Generated.VideoEncoderSupport as GHCJS.DOM.VideoEncoderSupport+          , GHCJS.DOM.JSFFI.Generated.VideoFrame as GHCJS.DOM.VideoFrame+          , GHCJS.DOM.JSFFI.Generated.VideoFrameBufferInit as GHCJS.DOM.VideoFrameBufferInit+          , GHCJS.DOM.JSFFI.Generated.VideoFrameCallbackMetadata as GHCJS.DOM.VideoFrameCallbackMetadata+          , GHCJS.DOM.JSFFI.Generated.VideoFrameCopyToOptions as GHCJS.DOM.VideoFrameCopyToOptions+          , GHCJS.DOM.JSFFI.Generated.VideoFrameInit as GHCJS.DOM.VideoFrameInit+          , GHCJS.DOM.JSFFI.Generated.VideoFrameMetadata as GHCJS.DOM.VideoFrameMetadata+          , GHCJS.DOM.JSFFI.Generated.VideoFrameOutputCallback as GHCJS.DOM.VideoFrameOutputCallback+          , GHCJS.DOM.JSFFI.Generated.VideoFrameRequestCallback as GHCJS.DOM.VideoFrameRequestCallback+          , GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality as GHCJS.DOM.VideoPlaybackQuality+          , GHCJS.DOM.JSFFI.Generated.VideoTrack as GHCJS.DOM.VideoTrack+          , GHCJS.DOM.JSFFI.Generated.VideoTrackList as GHCJS.DOM.VideoTrackList+          , GHCJS.DOM.JSFFI.Generated.ViewTimeline as GHCJS.DOM.ViewTimeline+          , GHCJS.DOM.JSFFI.Generated.ViewTimelineOptions as GHCJS.DOM.ViewTimelineOptions+          , GHCJS.DOM.JSFFI.Generated.ViewTransition as GHCJS.DOM.ViewTransition+          , GHCJS.DOM.JSFFI.Generated.ViewTransitionTypeSet as GHCJS.DOM.ViewTransitionTypeSet+          , GHCJS.DOM.JSFFI.Generated.ViewTransitionUpdateCallback as GHCJS.DOM.ViewTransitionUpdateCallback+          , GHCJS.DOM.JSFFI.Generated.VisualViewport as GHCJS.DOM.VisualViewport+          , GHCJS.DOM.JSFFI.Generated.VoidFunction as GHCJS.DOM.VoidFunction+          , GHCJS.DOM.JSFFI.Generated.WEBGL_color_buffer_float as GHCJS.DOM.WEBGL_color_buffer_float+          , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_astc as GHCJS.DOM.WEBGL_compressed_texture_astc+          , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_etc as GHCJS.DOM.WEBGL_compressed_texture_etc+          , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_etc1 as GHCJS.DOM.WEBGL_compressed_texture_etc1+          , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_pvrtc as GHCJS.DOM.WEBGL_compressed_texture_pvrtc+          , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_s3tc as GHCJS.DOM.WEBGL_compressed_texture_s3tc+          , GHCJS.DOM.JSFFI.Generated.WEBGL_compressed_texture_s3tc_srgb as GHCJS.DOM.WEBGL_compressed_texture_s3tc_srgb+          , GHCJS.DOM.JSFFI.Generated.WEBGL_debug_renderer_info as GHCJS.DOM.WEBGL_debug_renderer_info+          , GHCJS.DOM.JSFFI.Generated.WEBGL_debug_shaders as GHCJS.DOM.WEBGL_debug_shaders+          , GHCJS.DOM.JSFFI.Generated.WEBGL_depth_texture as GHCJS.DOM.WEBGL_depth_texture+          , GHCJS.DOM.JSFFI.Generated.WEBGL_draw_buffers as GHCJS.DOM.WEBGL_draw_buffers+          , GHCJS.DOM.JSFFI.Generated.WEBGL_lose_context as GHCJS.DOM.WEBGL_lose_context+          , GHCJS.DOM.JSFFI.Generated.WEBGL_multi_draw as GHCJS.DOM.WEBGL_multi_draw+          , GHCJS.DOM.JSFFI.Generated.WGSLLanguageFeatures as GHCJS.DOM.WGSLLanguageFeatures+          , GHCJS.DOM.JSFFI.Generated.WakeLock as GHCJS.DOM.WakeLock+          , GHCJS.DOM.JSFFI.Generated.WakeLockSentinel as GHCJS.DOM.WakeLockSentinel+          , GHCJS.DOM.JSFFI.Generated.WaveShaperNode as GHCJS.DOM.WaveShaperNode+          , GHCJS.DOM.JSFFI.Generated.WaveShaperOptions as GHCJS.DOM.WaveShaperOptions+          , GHCJS.DOM.JSFFI.Generated.WebCodecsErrorCallback as GHCJS.DOM.WebCodecsErrorCallback+          , GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext as GHCJS.DOM.WebGL2RenderingContext+          , GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContextBase as GHCJS.DOM.WebGL2RenderingContextBase+          , GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContextOverloads as GHCJS.DOM.WebGL2RenderingContextOverloads+          , GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo as GHCJS.DOM.WebGLActiveInfo+          , GHCJS.DOM.JSFFI.Generated.WebGLBuffer as GHCJS.DOM.WebGLBuffer+          , GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes as GHCJS.DOM.WebGLContextAttributes+          , GHCJS.DOM.JSFFI.Generated.WebGLContextEvent as GHCJS.DOM.WebGLContextEvent+          , GHCJS.DOM.JSFFI.Generated.WebGLContextEventInit as GHCJS.DOM.WebGLContextEventInit+          , GHCJS.DOM.JSFFI.Generated.WebGLFramebuffer as GHCJS.DOM.WebGLFramebuffer+          , GHCJS.DOM.JSFFI.Generated.WebGLObject as GHCJS.DOM.WebGLObject+          , GHCJS.DOM.JSFFI.Generated.WebGLProgram as GHCJS.DOM.WebGLProgram+          , GHCJS.DOM.JSFFI.Generated.WebGLQuery as GHCJS.DOM.WebGLQuery+          , GHCJS.DOM.JSFFI.Generated.WebGLRenderbuffer as GHCJS.DOM.WebGLRenderbuffer+          , GHCJS.DOM.JSFFI.Generated.WebGLRenderingContext as GHCJS.DOM.WebGLRenderingContext+          , GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase as GHCJS.DOM.WebGLRenderingContextBase+          , GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextOverloads as GHCJS.DOM.WebGLRenderingContextOverloads+          , GHCJS.DOM.JSFFI.Generated.WebGLSampler as GHCJS.DOM.WebGLSampler+          , GHCJS.DOM.JSFFI.Generated.WebGLShader as GHCJS.DOM.WebGLShader+          , GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat as GHCJS.DOM.WebGLShaderPrecisionFormat+          , GHCJS.DOM.JSFFI.Generated.WebGLSync as GHCJS.DOM.WebGLSync+          , GHCJS.DOM.JSFFI.Generated.WebGLTexture as GHCJS.DOM.WebGLTexture+          , GHCJS.DOM.JSFFI.Generated.WebGLTransformFeedback as GHCJS.DOM.WebGLTransformFeedback+          , GHCJS.DOM.JSFFI.Generated.WebGLUniformLocation as GHCJS.DOM.WebGLUniformLocation+          , GHCJS.DOM.JSFFI.Generated.WebGLVertexArrayObject as GHCJS.DOM.WebGLVertexArrayObject+          , GHCJS.DOM.JSFFI.Generated.WebGLVertexArrayObjectOES as GHCJS.DOM.WebGLVertexArrayObjectOES+          , GHCJS.DOM.JSFFI.Generated.WebSocket as GHCJS.DOM.WebSocket+          , GHCJS.DOM.JSFFI.Generated.WebTransport as GHCJS.DOM.WebTransport+          , GHCJS.DOM.JSFFI.Generated.WebTransportBidirectionalStream as GHCJS.DOM.WebTransportBidirectionalStream+          , GHCJS.DOM.JSFFI.Generated.WebTransportCloseInfo as GHCJS.DOM.WebTransportCloseInfo+          , GHCJS.DOM.JSFFI.Generated.WebTransportConnectionStats as GHCJS.DOM.WebTransportConnectionStats+          , GHCJS.DOM.JSFFI.Generated.WebTransportDatagramDuplexStream as GHCJS.DOM.WebTransportDatagramDuplexStream+          , GHCJS.DOM.JSFFI.Generated.WebTransportDatagramStats as GHCJS.DOM.WebTransportDatagramStats+          , GHCJS.DOM.JSFFI.Generated.WebTransportDatagramsWritable as GHCJS.DOM.WebTransportDatagramsWritable+          , GHCJS.DOM.JSFFI.Generated.WebTransportError as GHCJS.DOM.WebTransportError+          , GHCJS.DOM.JSFFI.Generated.WebTransportErrorOptions as GHCJS.DOM.WebTransportErrorOptions+          , GHCJS.DOM.JSFFI.Generated.WebTransportHash as GHCJS.DOM.WebTransportHash+          , GHCJS.DOM.JSFFI.Generated.WebTransportOptions as GHCJS.DOM.WebTransportOptions+          , GHCJS.DOM.JSFFI.Generated.WebTransportReceiveStream as GHCJS.DOM.WebTransportReceiveStream+          , GHCJS.DOM.JSFFI.Generated.WebTransportReceiveStreamStats as GHCJS.DOM.WebTransportReceiveStreamStats+          , GHCJS.DOM.JSFFI.Generated.WebTransportSendGroup as GHCJS.DOM.WebTransportSendGroup+          , GHCJS.DOM.JSFFI.Generated.WebTransportSendOptions as GHCJS.DOM.WebTransportSendOptions+          , GHCJS.DOM.JSFFI.Generated.WebTransportSendStream as GHCJS.DOM.WebTransportSendStream+          , GHCJS.DOM.JSFFI.Generated.WebTransportSendStreamOptions as GHCJS.DOM.WebTransportSendStreamOptions+          , GHCJS.DOM.JSFFI.Generated.WebTransportSendStreamStats as GHCJS.DOM.WebTransportSendStreamStats+          , GHCJS.DOM.JSFFI.Generated.WebTransportWriter as GHCJS.DOM.WebTransportWriter+          , GHCJS.DOM.JSFFI.Generated.WheelEvent as GHCJS.DOM.WheelEvent+          , GHCJS.DOM.JSFFI.Generated.WheelEventInit as GHCJS.DOM.WheelEventInit+          , GHCJS.DOM.JSFFI.Generated.Window as GHCJS.DOM.Window+          , GHCJS.DOM.JSFFI.Generated.WindowClient as GHCJS.DOM.WindowClient+          , GHCJS.DOM.JSFFI.Generated.WindowEventHandlers as GHCJS.DOM.WindowEventHandlers+          , GHCJS.DOM.JSFFI.Generated.WindowLocalStorage as GHCJS.DOM.WindowLocalStorage+          , GHCJS.DOM.JSFFI.Generated.WindowOrWorkerGlobalScope as GHCJS.DOM.WindowOrWorkerGlobalScope+          , GHCJS.DOM.JSFFI.Generated.WindowPostMessageOptions as GHCJS.DOM.WindowPostMessageOptions+          , GHCJS.DOM.JSFFI.Generated.WindowSessionStorage as GHCJS.DOM.WindowSessionStorage+          , GHCJS.DOM.JSFFI.Generated.Worker as GHCJS.DOM.Worker+          , GHCJS.DOM.JSFFI.Generated.WorkerAndParameters as GHCJS.DOM.WorkerAndParameters+          , GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope as GHCJS.DOM.WorkerGlobalScope+          , GHCJS.DOM.JSFFI.Generated.WorkerLocation as GHCJS.DOM.WorkerLocation+          , GHCJS.DOM.JSFFI.Generated.WorkerNavigator as GHCJS.DOM.WorkerNavigator+          , GHCJS.DOM.JSFFI.Generated.WorkerOptions as GHCJS.DOM.WorkerOptions+          , GHCJS.DOM.JSFFI.Generated.Worklet as GHCJS.DOM.Worklet+          , GHCJS.DOM.JSFFI.Generated.WorkletGlobalScope as GHCJS.DOM.WorkletGlobalScope+          , GHCJS.DOM.JSFFI.Generated.WorkletOptions as GHCJS.DOM.WorkletOptions+          , GHCJS.DOM.JSFFI.Generated.WritableStream as GHCJS.DOM.WritableStream+          , GHCJS.DOM.JSFFI.Generated.WritableStreamDefaultController as GHCJS.DOM.WritableStreamDefaultController+          , GHCJS.DOM.JSFFI.Generated.WritableStreamDefaultWriter as GHCJS.DOM.WritableStreamDefaultWriter+          , GHCJS.DOM.JSFFI.Generated.WriteParams as GHCJS.DOM.WriteParams+          , GHCJS.DOM.JSFFI.Generated.XMLDocument as GHCJS.DOM.XMLDocument+          , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestEventTarget as GHCJS.DOM.XMLHttpRequestEventTarget+          , GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload as GHCJS.DOM.XMLHttpRequestUpload+          , GHCJS.DOM.JSFFI.Generated.XMLSerializer as GHCJS.DOM.XMLSerializer+          , GHCJS.DOM.JSFFI.Generated.XPathEvaluator as GHCJS.DOM.XPathEvaluator+          , GHCJS.DOM.JSFFI.Generated.XPathEvaluatorBase as GHCJS.DOM.XPathEvaluatorBase+          , GHCJS.DOM.JSFFI.Generated.XPathExpression as GHCJS.DOM.XPathExpression+          , GHCJS.DOM.JSFFI.Generated.XPathNSResolver as GHCJS.DOM.XPathNSResolver+          , GHCJS.DOM.JSFFI.Generated.XPathResult as GHCJS.DOM.XPathResult+          , GHCJS.DOM.JSFFI.Generated.XSLTProcessor as GHCJS.DOM.XSLTProcessor+          , GHCJS.DOM.JSFFI.Generated.Enums as GHCJS.DOM.Enums
src/GHCJS/DOM/EventM.hs view
@@ -73,8 +73,6 @@ , mouseX , mouseY , mouseXY-, mouseFromElement-, mouseToElement ) where import           Control.Applicative ((<$>))@@ -113,12 +111,12 @@ -- | Add an EventListener to an EventTarget. addListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> IO () addListener target eventName (SaferEventListener l) useCapture =-    addEventListener target (eventNameString eventName) (Just l) useCapture+    addEventListener target (eventNameString eventName) (Just l) (Just useCapture)  -- | Remove an EventListener from an EventTarget. removeListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> IO () removeListener target eventName (SaferEventListener l) useCapture =-    removeEventListener target (eventNameString eventName) (Just l) useCapture+    removeEventListener target (eventNameString eventName) (Just l) (Just useCapture)  -- | Release the listener (deallocates callbacks). releaseListener :: (IsEventTarget t, IsEvent e) => SaferEventListener t e -> IO ()@@ -193,13 +191,13 @@ event = ask  eventTarget :: IsEvent e => EventM t e (Maybe EventTarget)-eventTarget = event >>= Event.getTarget+eventTarget = event >>= (Event.getTarget)  eventTargetUnsafe :: IsEvent e => EventM t e EventTarget-eventTargetUnsafe = event >>= Event.getTargetUnsafe+eventTargetUnsafe = event >>= (Event.getTargetUnsafe)  eventTargetUnchecked :: IsEvent e => EventM t e EventTarget-eventTargetUnchecked = event >>= Event.getTargetUnchecked+eventTargetUnchecked = event >>= (Event.getTargetUnchecked)  target :: (IsEvent e, IsGObject t) => EventM t e (Maybe t) target = eventTarget >>= mapM (liftJSM . fromJSValUnchecked . coerce)@@ -211,99 +209,102 @@ targetUnchecked = eventTargetUnchecked >>= (liftJSM . fromJSValUnchecked . coerce)  eventCurrentTarget :: IsEvent e => EventM t e (Maybe EventTarget)-eventCurrentTarget = event >>= Event.getCurrentTarget+eventCurrentTarget = event >>= (Event.getCurrentTarget)  eventCurrentTargetUnsafe :: IsEvent e => EventM t e EventTarget-eventCurrentTargetUnsafe = event >>= Event.getCurrentTargetUnsafe+eventCurrentTargetUnsafe = event >>= (Event.getCurrentTargetUnsafe)  eventCurrentTargetUnchecked :: IsEvent e => EventM t e EventTarget-eventCurrentTargetUnchecked = event >>= Event.getCurrentTargetUnchecked+eventCurrentTargetUnchecked = event >>= (Event.getCurrentTargetUnchecked)  eventPhase :: IsEvent e => EventM t e Word-eventPhase = event >>= Event.getEventPhase+eventPhase = event >>= (Event.getEventPhase)  bubbles :: IsEvent e => EventM t e Bool-bubbles = event >>= Event.getBubbles+bubbles = event >>= (Event.getBubbles)  cancelable :: IsEvent e => EventM t e Bool-cancelable = event >>= Event.getCancelable+cancelable = event >>= (Event.getCancelable) -timeStamp :: IsEvent e => EventM t e Word-timeStamp = event >>= Event.getTimeStamp+timeStamp :: IsEvent e => EventM t e Double+timeStamp = event >>= (Event.getTimeStamp)  stopPropagation :: IsEvent e => EventM t e ()-stopPropagation = event >>= Event.stopPropagation+stopPropagation = event >>= (Event.stopPropagation)  preventDefault :: IsEvent e => EventM t e ()-preventDefault = event >>= Event.preventDefault+preventDefault = event >>= (Event.preventDefault)  defaultPrevented :: IsEvent e => EventM t e Bool-defaultPrevented = event >>= Event.getDefaultPrevented+defaultPrevented = event >>= (Event.getDefaultPrevented)  stopImmediatePropagation :: IsEvent e => EventM t e ()-stopImmediatePropagation = event >>= Event.stopImmediatePropagation+stopImmediatePropagation = event >>= (Event.stopImmediatePropagation) -srcElement :: IsEvent e => EventM t e EventTarget-srcElement = event >>= Event.getSrcElement+srcElement :: IsEvent e => EventM t e (Maybe EventTarget)+srcElement = event >>= (Event.getSrcElement)  getCancelBubble :: IsEvent e => EventM t e Bool-getCancelBubble = event >>= Event.getCancelBubble+getCancelBubble = event >>= (Event.getCancelBubble)  cancelBubble :: IsEvent e => Bool -> EventM t e ()-cancelBubble f = event >>= flip Event.setCancelBubble f+cancelBubble f = event >>= (flip Event.setCancelBubble f)  getReturnValue :: IsEvent e => EventM t e Bool-getReturnValue = event >>= Event.getReturnValue+getReturnValue = event >>= (Event.getReturnValue)  returnValue :: IsEvent e => Bool -> EventM t e ()-returnValue f = event >>= flip Event.setReturnValue f+returnValue f = event >>= (flip Event.setReturnValue f) -uiView :: IsUIEvent e => EventM t e Window-uiView = event >>= UIEvent.getView+uiView :: IsUIEvent e => EventM t e (Maybe Window)+uiView = event >>= (UIEvent.getView)  uiDetail :: IsUIEvent e => EventM t e Int-uiDetail = event >>= UIEvent.getDetail+uiDetail = event >>= (UIEvent.getDetail)  uiKeyCode :: EventM t KeyboardEvent Word-uiKeyCode = event >>= KeyboardEvent.getKeyCode+uiKeyCode = event >>= (KeyboardEvent.getKeyCode)  uiCharCode :: EventM t KeyboardEvent Word-uiCharCode = event >>= KeyboardEvent.getCharCode+uiCharCode = event >>= (KeyboardEvent.getCharCode) -uiLayerX :: IsUIEvent e => EventM t e Int-uiLayerX = event >>= UIEvent.getLayerX+-- layerX/layerY and pageX/pageY are MouseEvent attributes in current specs+-- (they were on UIEvent in WebKit). -uiLayerY :: IsUIEvent e => EventM t e Int-uiLayerY = event >>= UIEvent.getLayerY+uiLayerX :: IsMouseEvent e => EventM t e Int+uiLayerX = event >>= (MouseEvent.getLayerX) -uiLayerXY :: IsUIEvent e => EventM t e (Int, Int)+uiLayerY :: IsMouseEvent e => EventM t e Int+uiLayerY = event >>= (MouseEvent.getLayerY)++uiLayerXY :: IsMouseEvent e => EventM t e (Int, Int) uiLayerXY = do     e <- event-    x <- UIEvent.getLayerX e-    y <- UIEvent.getLayerY e+    x <- MouseEvent.getLayerX e+    y <- MouseEvent.getLayerY e     return (x, y) -uiPageX :: IsUIEvent e => EventM t e Int-uiPageX = event >>= UIEvent.getPageX+uiPageX :: IsMouseEvent e => EventM t e Double+uiPageX = event >>= (MouseEvent.getPageX) -uiPageY :: IsUIEvent e => EventM t e Int-uiPageY = event >>= UIEvent.getPageY+uiPageY :: IsMouseEvent e => EventM t e Double+uiPageY = event >>= (MouseEvent.getPageY) -uiPageXY :: IsUIEvent e => EventM t e (Int, Int)+uiPageXY :: IsMouseEvent e => EventM t e (Double, Double) uiPageXY = do     e <- event-    x <- UIEvent.getPageX e-    y <- UIEvent.getPageY e+    x <- MouseEvent.getPageX e+    y <- MouseEvent.getPageY e     return (x, y) -uiWhich :: IsUIEvent e => EventM t e Int-uiWhich = event >>= UIEvent.getWhich+uiWhich :: IsUIEvent e => EventM t e Word+uiWhich = event >>= (UIEvent.getWhich)  mouseScreenX :: IsMouseEvent e => EventM t e Int-mouseScreenX = event >>= MouseEvent.getScreenX+mouseScreenX = event >>= (MouseEvent.getScreenX)  mouseScreenY :: IsMouseEvent e => EventM t e Int-mouseScreenY = event >>= MouseEvent.getScreenY+mouseScreenY = event >>= (MouseEvent.getScreenY)  mouseScreenXY :: IsMouseEvent e => EventM t e (Int, Int) mouseScreenXY = do@@ -313,10 +314,10 @@     return (x, y)  mouseClientX :: IsMouseEvent e => EventM t e Int-mouseClientX = event >>= MouseEvent.getClientX+mouseClientX = event >>= (MouseEvent.getClientX)  mouseClientY :: IsMouseEvent e => EventM t e Int-mouseClientY = event >>= MouseEvent.getClientY+mouseClientY = event >>= (MouseEvent.getClientY)  mouseClientXY :: IsMouseEvent e => EventM t e (Int, Int) mouseClientXY = do@@ -325,13 +326,13 @@     y <- MouseEvent.getClientY e     return (x, y) -mouseMovementX :: IsMouseEvent e => EventM t e Int-mouseMovementX = event >>= MouseEvent.getMovementX+mouseMovementX :: IsMouseEvent e => EventM t e Double+mouseMovementX = event >>= (MouseEvent.getMovementX) -mouseMovementY :: IsMouseEvent e => EventM t e Int-mouseMovementY = event >>= MouseEvent.getMovementY+mouseMovementY :: IsMouseEvent e => EventM t e Double+mouseMovementY = event >>= (MouseEvent.getMovementY) -mouseMovementXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseMovementXY :: IsMouseEvent e => EventM t e (Double, Double) mouseMovementXY = do     e <- event     x <- MouseEvent.getMovementX e@@ -339,52 +340,46 @@     return (x, y)  mouseCtrlKey :: IsMouseEvent e => EventM t e Bool-mouseCtrlKey = event >>= MouseEvent.getCtrlKey+mouseCtrlKey = event >>= (MouseEvent.getCtrlKey)  mouseShiftKey :: IsMouseEvent e => EventM t e Bool-mouseShiftKey = event >>= MouseEvent.getShiftKey+mouseShiftKey = event >>= (MouseEvent.getShiftKey)  mouseAltKey :: IsMouseEvent e => EventM t e Bool-mouseAltKey = event >>= MouseEvent.getAltKey+mouseAltKey = event >>= (MouseEvent.getAltKey)  mouseMetaKey :: IsMouseEvent e => EventM t e Bool-mouseMetaKey = event >>= MouseEvent.getMetaKey+mouseMetaKey = event >>= (MouseEvent.getMetaKey) -mouseButton :: IsMouseEvent e => EventM t e Word-mouseButton = event >>= MouseEvent.getButton+mouseButton :: IsMouseEvent e => EventM t e Int+mouseButton = event >>= (MouseEvent.getButton)  mouseRelatedTarget :: IsMouseEvent e => EventM t e (Maybe EventTarget)-mouseRelatedTarget = event >>= MouseEvent.getRelatedTarget+mouseRelatedTarget = event >>= (MouseEvent.getRelatedTarget) -mouseOffsetX :: IsMouseEvent e => EventM t e Int-mouseOffsetX = event >>= MouseEvent.getOffsetX+mouseOffsetX :: IsMouseEvent e => EventM t e Double+mouseOffsetX = event >>= (MouseEvent.getOffsetX) -mouseOffsetY :: IsMouseEvent e => EventM t e Int-mouseOffsetY = event >>= MouseEvent.getOffsetY+mouseOffsetY :: IsMouseEvent e => EventM t e Double+mouseOffsetY = event >>= (MouseEvent.getOffsetY) -mouseOffsetXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseOffsetXY :: IsMouseEvent e => EventM t e (Double, Double) mouseOffsetXY = do     e <- event     x <- MouseEvent.getOffsetX e     y <- MouseEvent.getOffsetY e     return (x, y) -mouseX :: IsMouseEvent e => EventM t e Int-mouseX = event >>= MouseEvent.getX+mouseX :: IsMouseEvent e => EventM t e Double+mouseX = event >>= (MouseEvent.getX) -mouseY :: IsMouseEvent e => EventM t e Int-mouseY = event >>= MouseEvent.getY+mouseY :: IsMouseEvent e => EventM t e Double+mouseY = event >>= (MouseEvent.getY) -mouseXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseXY :: IsMouseEvent e => EventM t e (Double, Double) mouseXY = do     e <- event     x <- MouseEvent.getX e     y <- MouseEvent.getY e     return (x, y)--mouseFromElement :: IsMouseEvent e => EventM t e (Maybe Node)-mouseFromElement = event >>= MouseEvent.getFromElement--mouseToElement :: IsMouseEvent e => EventM t e (Maybe Node)-mouseToElement = event >>= MouseEvent.getToElement 
− src/GHCJS/DOM/JSFFI/AudioContext.hs
@@ -1,35 +0,0 @@-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.JSFFI.AudioContext (-    module Generated-  , DecodeAudioError(..)-  , js_decodeAudioData-  , decodeAudioData-) where--import Control.Exception (Exception(..), throwIO)-import Control.Monad.IO.Class (MonadIO(..))--import GHCJS.Types (JSVal)-import GHCJS.Foreign (jsNull)-import GHCJS.Marshal (fromJSVal, fromJSValUnchecked)-import GHC.JS.Foreign.Callback (releaseCallback)-import GHCJS.DOM.Types--import GHCJS.DOM.JSFFI.Generated.AudioContext as Generated hiding (js_decodeAudioData, decodeAudioData)--data DecodeAudioError = DecodeAudioError deriving (Show, Eq)--instance Exception DecodeAudioError--foreign import javascript interruptible-        "$1[\"decodeAudioData\"]($2, $c, function() { $c(null); });" js_decodeAudioData ::-        AudioContext -> ArrayBuffer -> IO (Nullable AudioBuffer)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation>-decodeAudioData :: (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) =>-                   self -> audioData -> m AudioBuffer-decodeAudioData self audioData = liftIO $ nullableToMaybe <$> js_decodeAudioData-        (toAudioContext self)-        (toArrayBuffer audioData)-            >>= maybe (throwIO DecodeAudioError) return-
− src/GHCJS/DOM/JSFFI/DOMError.hs
@@ -1,20 +0,0 @@-{-# LANGUAGE RecordWildCards #-}-module GHCJS.DOM.JSFFI.DOMError (-    module Generated-  , DOMErrorException(..)-  , throwDOMErrorException-) where--import Control.Exception (Exception, throwIO)-import Control.Monad.IO.Class (MonadIO(..))--import GHCJS.DOM.JSFFI.Generated.DOMError as Generated--data DOMErrorException = DOMErrorException { domErrorName :: String } deriving (Show, Eq)--instance Exception DOMErrorException--throwDOMErrorException :: MonadIO m => DOMError -> m a-throwDOMErrorException error = do-    domErrorName <- getName error-    liftIO $ throwIO DOMErrorException{..}
− src/GHCJS/DOM/JSFFI/Database.hs
@@ -1,75 +0,0 @@-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.JSFFI.Database (-    module Generated-  , js_changeVersion-  , changeVersion'-  , changeVersion-  , js_transaction-  , transaction'-  , transaction-  , js_readTransaction-  , readTransaction'-  , readTransaction-) where--import Data.Maybe (fromJust, maybe)--import Control.Monad.IO.Class (MonadIO(..))-import Control.Exception (Exception, bracket)--import GHCJS.Types (JSVal, JSString)-import GHCJS.Foreign (jsNull)-import GHC.JS.Foreign.Callback (OnBlocked(..))-import GHCJS.Marshal (fromJSVal)-import GHCJS.Marshal.Pure (pToJSVal)-import GHC.JS.Foreign.Callback (releaseCallback)-import GHCJS.DOM.Types--import GHCJS.DOM.JSFFI.SQLError (throwSQLException)-import GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback (newSQLTransactionCallbackSync)-import GHCJS.DOM.JSFFI.Generated.Database as Generated hiding (js_changeVersion, changeVersion, js_transaction, transaction, js_readTransaction, readTransaction)--withSQLTransactionCallback :: (SQLTransaction -> IO ()) -> (SQLTransactionCallback -> IO a) -> IO a-withSQLTransactionCallback f = bracket (newSQLTransactionCallbackSync f) (\(SQLTransactionCallback c) -> releaseCallback c)--foreign import javascript interruptible-        "$1[\"changeVersion\"]($2, $3, $4, $c, function() { $c(null); });"-        js_changeVersion :: Database -> JSString -> JSString -> Nullable SQLTransactionCallback -> IO (Nullable SQLError)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation>-changeVersion' :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>-                  Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m (Maybe SQLError)-changeVersion' self oldVersion newVersion Nothing = liftIO $ nullableToMaybe <$>-    js_changeVersion self (toJSString oldVersion) (toJSString newVersion) (Nullable jsNull)-changeVersion' self oldVersion newVersion (Just callback) = liftIO $ nullableToMaybe <$>-    withSQLTransactionCallback callback-        (js_changeVersion self (toJSString oldVersion) (toJSString newVersion) . Nullable . pToJSVal)--changeVersion :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>-                 Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m ()-changeVersion self oldVersion newVersion callback =-    changeVersion' self oldVersion newVersion callback >>= maybe (return ()) throwSQLException--foreign import javascript interruptible "$1[\"transaction\"]($2, $c, function() { $c(null); });"-        js_transaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation>-transaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError)-transaction' self callback = liftIO $ nullableToMaybe <$>-    withSQLTransactionCallback callback-        (js_transaction self)--transaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m ()-transaction self callback = transaction' self callback >>= maybe (return ()) throwSQLException--foreign import javascript interruptible-        "$1[\"readTransaction\"]($2, $c, function() { $c(null); });"-        js_readTransaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation>-readTransaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError)-readTransaction' self callback = liftIO $ nullableToMaybe <$>-      withSQLTransactionCallback callback (js_readTransaction self)--readTransaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m ()-readTransaction self callback = readTransaction' self callback >>= maybe (return ()) throwSQLException
− src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs
@@ -1,71 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays-       (js_drawArraysInstancedANGLE, drawArraysInstancedANGLE,-        js_drawElementsInstancedANGLE, drawElementsInstancedANGLE,-        js_vertexAttribDivisorANGLE, vertexAttribDivisorANGLE,-        pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE,-        ANGLEInstancedArrays(..), gTypeANGLEInstancedArrays)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5) => { return $1[\"drawArraysInstancedANGLE\"]($2,\n$3, $4, $5); })"-        js_drawArraysInstancedANGLE ::-        ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawArraysInstancedANGLE Mozilla ANGLEInstancedArrays.drawArraysInstancedANGLE documentation> -drawArraysInstancedANGLE ::-                         (MonadIO m) =>-                           ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> m ()-drawArraysInstancedANGLE self mode first count primcount-  = liftIO-      (js_drawArraysInstancedANGLE self mode first count primcount)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6) => { return $1[\"drawElementsInstancedANGLE\"]($2,\n$3, $4, $5, $6); })"-        js_drawElementsInstancedANGLE ::-        ANGLEInstancedArrays ->-          Word -> Int -> Word -> Double -> Int -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawElementsInstancedANGLE Mozilla ANGLEInstancedArrays.drawElementsInstancedANGLE documentation> -drawElementsInstancedANGLE ::-                           (MonadIO m) =>-                             ANGLEInstancedArrays -> Word -> Int -> Word -> Int64 -> Int -> m ()-drawElementsInstancedANGLE self mode count type' offset primcount-  = liftIO-      (js_drawElementsInstancedANGLE self mode count type'-         (fromIntegral offset)-         primcount)- -foreign import javascript unsafe-        "(($1, $2, $3) => { return $1[\"vertexAttribDivisorANGLE\"]($2,\n$3); })"-        js_vertexAttribDivisorANGLE ::-        ANGLEInstancedArrays -> Word -> Word -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.vertexAttribDivisorANGLE Mozilla ANGLEInstancedArrays.vertexAttribDivisorANGLE documentation> -vertexAttribDivisorANGLE ::-                         (MonadIO m) => ANGLEInstancedArrays -> Word -> Word -> m ()-vertexAttribDivisorANGLE self index divisor-  = liftIO (js_vertexAttribDivisorANGLE self index divisor)-pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070
+ src/GHCJS/DOM/JSFFI/Generated/ANGLE_instanced_arrays.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from ANGLE_instanced_arrays (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ANGLE_instanced_arrays+       (js_drawArraysInstancedANGLE, js_drawElementsInstancedANGLE, js_vertexAttribDivisorANGLE, drawArraysInstancedANGLE, drawElementsInstancedANGLE, vertexAttribDivisorANGLE, pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE, ANGLE_instanced_arrays(..), gTypeANGLE_instanced_arrays)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"drawArraysInstancedANGLE\"]($2, $3, $4, $5); })"+        js_drawArraysInstancedANGLE :: ANGLE_instanced_arrays -> Word -> Int -> Int -> Int -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/ANGLE_instanced_arrays/drawArraysInstancedANGLE MDN ANGLE_instanced_arrays.drawArraysInstancedANGLE documentation>+drawArraysInstancedANGLE :: (MonadDOM m) => ANGLE_instanced_arrays -> Word -> Int -> Int -> Int -> m ()+drawArraysInstancedANGLE self mode first count primcount = liftDOM (void ((js_drawArraysInstancedANGLE (self) (mode) (first) (count) (primcount))))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"drawElementsInstancedANGLE\"]($2, $3, $4, $5, $6); })"+        js_drawElementsInstancedANGLE :: ANGLE_instanced_arrays -> Word -> Int -> Word -> JSVal -> Int -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/ANGLE_instanced_arrays/drawElementsInstancedANGLE MDN ANGLE_instanced_arrays.drawElementsInstancedANGLE documentation>+drawElementsInstancedANGLE :: (MonadDOM m) => ANGLE_instanced_arrays -> Word -> Int -> Word -> Int53 -> Int -> m ()+drawElementsInstancedANGLE self mode count type' offset primcount = liftDOM (void (((toJSVal offset) >>= \a5' -> js_drawElementsInstancedANGLE (self) (mode) (count) (type') a5' (primcount))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"vertexAttribDivisorANGLE\"]($2, $3); })"+        js_vertexAttribDivisorANGLE :: ANGLE_instanced_arrays -> Word -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/ANGLE_instanced_arrays/vertexAttribDivisorANGLE MDN ANGLE_instanced_arrays.vertexAttribDivisorANGLE documentation>+vertexAttribDivisorANGLE :: (MonadDOM m) => ANGLE_instanced_arrays -> Word -> Word -> m ()+vertexAttribDivisorANGLE self index divisor = liftDOM (void ((js_vertexAttribDivisorANGLE (self) (index) (divisor))))++pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 0x88FE
+ src/GHCJS/DOM/JSFFI/Generated/ARIAMixin.hs view
@@ -0,0 +1,1057 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from wai-aria-1.3 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ARIAMixin+       (js_setRole, js_getRole, js_setAriaActiveDescendantElement, js_getAriaActiveDescendantElement, js_setAriaAtomic, js_getAriaAtomic, js_setAriaAutoComplete, js_getAriaAutoComplete, js_setAriaBrailleLabel, js_getAriaBrailleLabel, js_setAriaBrailleRoleDescription, js_getAriaBrailleRoleDescription, js_setAriaBusy, js_getAriaBusy, js_setAriaChecked, js_getAriaChecked, js_setAriaColCount, js_getAriaColCount, js_setAriaColIndex, js_getAriaColIndex, js_setAriaColIndexText, js_getAriaColIndexText, js_setAriaColSpan, js_getAriaColSpan, js_setAriaControlsElements, js_getAriaControlsElements, js_setAriaCurrent, js_getAriaCurrent, js_setAriaDescribedByElements, js_getAriaDescribedByElements, js_setAriaDescription, js_getAriaDescription, js_setAriaDetailsElements, js_getAriaDetailsElements, js_setAriaDisabled, js_getAriaDisabled, js_setAriaErrorMessageElements, js_getAriaErrorMessageElements, js_setAriaExpanded, js_getAriaExpanded, js_setAriaFlowToElements, js_getAriaFlowToElements, js_setAriaHasPopup, js_getAriaHasPopup, js_setAriaHidden, js_getAriaHidden, js_setAriaInvalid, js_getAriaInvalid, js_setAriaKeyShortcuts, js_getAriaKeyShortcuts, js_setAriaLabel, js_getAriaLabel, js_setAriaLabelledByElements, js_getAriaLabelledByElements, js_setAriaLevel, js_getAriaLevel, js_setAriaLive, js_getAriaLive, js_setAriaModal, js_getAriaModal, js_setAriaMultiLine, js_getAriaMultiLine, js_setAriaMultiSelectable, js_getAriaMultiSelectable, js_setAriaOrientation, js_getAriaOrientation, js_setAriaOwnsElements, js_getAriaOwnsElements, js_setAriaPlaceholder, js_getAriaPlaceholder, js_setAriaPosInSet, js_getAriaPosInSet, js_setAriaPressed, js_getAriaPressed, js_setAriaReadOnly, js_getAriaReadOnly, js_setAriaRelevant, js_getAriaRelevant, js_setAriaRequired, js_getAriaRequired, js_setAriaRoleDescription, js_getAriaRoleDescription, js_setAriaRowCount, js_getAriaRowCount, js_setAriaRowIndex, js_getAriaRowIndex, js_setAriaRowIndexText, js_getAriaRowIndexText, js_setAriaRowSpan, js_getAriaRowSpan, js_setAriaSelected, js_getAriaSelected, js_setAriaSetSize, js_getAriaSetSize, js_setAriaSort, js_getAriaSort, js_setAriaValueMax, js_getAriaValueMax, js_setAriaValueMin, js_getAriaValueMin, js_setAriaValueNow, js_getAriaValueNow, js_setAriaValueText, js_getAriaValueText, setRole, getRole, getRoleUnsafe, getRoleUnchecked, setAriaActiveDescendantElement, getAriaActiveDescendantElement, getAriaActiveDescendantElementUnsafe, getAriaActiveDescendantElementUnchecked, setAriaAtomic, getAriaAtomic, getAriaAtomicUnsafe, getAriaAtomicUnchecked, setAriaAutoComplete, getAriaAutoComplete, getAriaAutoCompleteUnsafe, getAriaAutoCompleteUnchecked, setAriaBrailleLabel, getAriaBrailleLabel, getAriaBrailleLabelUnsafe, getAriaBrailleLabelUnchecked, setAriaBrailleRoleDescription, getAriaBrailleRoleDescription, getAriaBrailleRoleDescriptionUnsafe, getAriaBrailleRoleDescriptionUnchecked, setAriaBusy, getAriaBusy, getAriaBusyUnsafe, getAriaBusyUnchecked, setAriaChecked, getAriaChecked, getAriaCheckedUnsafe, getAriaCheckedUnchecked, setAriaColCount, getAriaColCount, getAriaColCountUnsafe, getAriaColCountUnchecked, setAriaColIndex, getAriaColIndex, getAriaColIndexUnsafe, getAriaColIndexUnchecked, setAriaColIndexText, getAriaColIndexText, getAriaColIndexTextUnsafe, getAriaColIndexTextUnchecked, setAriaColSpan, getAriaColSpan, getAriaColSpanUnsafe, getAriaColSpanUnchecked, setAriaControlsElements, getAriaControlsElements, getAriaControlsElementsUnsafe, getAriaControlsElementsUnchecked, setAriaCurrent, getAriaCurrent, getAriaCurrentUnsafe, getAriaCurrentUnchecked, setAriaDescribedByElements, getAriaDescribedByElements, getAriaDescribedByElementsUnsafe, getAriaDescribedByElementsUnchecked, setAriaDescription, getAriaDescription, getAriaDescriptionUnsafe, getAriaDescriptionUnchecked, setAriaDetailsElements, getAriaDetailsElements, getAriaDetailsElementsUnsafe, getAriaDetailsElementsUnchecked, setAriaDisabled, getAriaDisabled, getAriaDisabledUnsafe, getAriaDisabledUnchecked, setAriaErrorMessageElements, getAriaErrorMessageElements, getAriaErrorMessageElementsUnsafe, getAriaErrorMessageElementsUnchecked, setAriaExpanded, getAriaExpanded, getAriaExpandedUnsafe, getAriaExpandedUnchecked, setAriaFlowToElements, getAriaFlowToElements, getAriaFlowToElementsUnsafe, getAriaFlowToElementsUnchecked, setAriaHasPopup, getAriaHasPopup, getAriaHasPopupUnsafe, getAriaHasPopupUnchecked, setAriaHidden, getAriaHidden, getAriaHiddenUnsafe, getAriaHiddenUnchecked, setAriaInvalid, getAriaInvalid, getAriaInvalidUnsafe, getAriaInvalidUnchecked, setAriaKeyShortcuts, getAriaKeyShortcuts, getAriaKeyShortcutsUnsafe, getAriaKeyShortcutsUnchecked, setAriaLabel, getAriaLabel, getAriaLabelUnsafe, getAriaLabelUnchecked, setAriaLabelledByElements, getAriaLabelledByElements, getAriaLabelledByElementsUnsafe, getAriaLabelledByElementsUnchecked, setAriaLevel, getAriaLevel, getAriaLevelUnsafe, getAriaLevelUnchecked, setAriaLive, getAriaLive, getAriaLiveUnsafe, getAriaLiveUnchecked, setAriaModal, getAriaModal, getAriaModalUnsafe, getAriaModalUnchecked, setAriaMultiLine, getAriaMultiLine, getAriaMultiLineUnsafe, getAriaMultiLineUnchecked, setAriaMultiSelectable, getAriaMultiSelectable, getAriaMultiSelectableUnsafe, getAriaMultiSelectableUnchecked, setAriaOrientation, getAriaOrientation, getAriaOrientationUnsafe, getAriaOrientationUnchecked, setAriaOwnsElements, getAriaOwnsElements, getAriaOwnsElementsUnsafe, getAriaOwnsElementsUnchecked, setAriaPlaceholder, getAriaPlaceholder, getAriaPlaceholderUnsafe, getAriaPlaceholderUnchecked, setAriaPosInSet, getAriaPosInSet, getAriaPosInSetUnsafe, getAriaPosInSetUnchecked, setAriaPressed, getAriaPressed, getAriaPressedUnsafe, getAriaPressedUnchecked, setAriaReadOnly, getAriaReadOnly, getAriaReadOnlyUnsafe, getAriaReadOnlyUnchecked, setAriaRelevant, getAriaRelevant, getAriaRelevantUnsafe, getAriaRelevantUnchecked, setAriaRequired, getAriaRequired, getAriaRequiredUnsafe, getAriaRequiredUnchecked, setAriaRoleDescription, getAriaRoleDescription, getAriaRoleDescriptionUnsafe, getAriaRoleDescriptionUnchecked, setAriaRowCount, getAriaRowCount, getAriaRowCountUnsafe, getAriaRowCountUnchecked, setAriaRowIndex, getAriaRowIndex, getAriaRowIndexUnsafe, getAriaRowIndexUnchecked, setAriaRowIndexText, getAriaRowIndexText, getAriaRowIndexTextUnsafe, getAriaRowIndexTextUnchecked, setAriaRowSpan, getAriaRowSpan, getAriaRowSpanUnsafe, getAriaRowSpanUnchecked, setAriaSelected, getAriaSelected, getAriaSelectedUnsafe, getAriaSelectedUnchecked, setAriaSetSize, getAriaSetSize, getAriaSetSizeUnsafe, getAriaSetSizeUnchecked, setAriaSort, getAriaSort, getAriaSortUnsafe, getAriaSortUnchecked, setAriaValueMax, getAriaValueMax, getAriaValueMaxUnsafe, getAriaValueMaxUnchecked, setAriaValueMin, getAriaValueMin, getAriaValueMinUnsafe, getAriaValueMinUnchecked, setAriaValueNow, getAriaValueNow, getAriaValueNowUnsafe, getAriaValueNowUnchecked, setAriaValueText, getAriaValueText, getAriaValueTextUnsafe, getAriaValueTextUnchecked, ARIAMixin(..), gTypeARIAMixin, IsARIAMixin, toARIAMixin)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"role\"] = $2; })"+        js_setRole :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/role MDN ARIAMixin.role documentation>+setRole :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setRole self val = liftDOM (void ((js_setRole ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"role\"]; })"+        js_getRole :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/role MDN ARIAMixin.role documentation>+getRole :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getRole self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRole ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/role MDN ARIAMixin.role documentation>+getRoleUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getRoleUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRole ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/role MDN ARIAMixin.role documentation>+getRoleUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getRoleUnchecked self = liftDOM ((pFromJSVal <$> (js_getRole ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaActiveDescendantElement\"] = $2; })"+        js_setAriaActiveDescendantElement :: ARIAMixin -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaActiveDescendantElement MDN ARIAMixin.ariaActiveDescendantElement documentation>+setAriaActiveDescendantElement :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe val -> m ()+setAriaActiveDescendantElement self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaActiveDescendantElement ((Types.toARIAMixin self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"ariaActiveDescendantElement\"]; })"+        js_getAriaActiveDescendantElement :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaActiveDescendantElement MDN ARIAMixin.ariaActiveDescendantElement documentation>+getAriaActiveDescendantElement :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe Element)+getAriaActiveDescendantElement self = liftDOM (((js_getAriaActiveDescendantElement ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaActiveDescendantElement MDN ARIAMixin.ariaActiveDescendantElement documentation>+getAriaActiveDescendantElementUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m Element+getAriaActiveDescendantElementUnsafe self = liftDOM ((((js_getAriaActiveDescendantElement ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaActiveDescendantElement MDN ARIAMixin.ariaActiveDescendantElement documentation>+getAriaActiveDescendantElementUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m Element+getAriaActiveDescendantElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaActiveDescendantElement ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaAtomic\"] = $2; })"+        js_setAriaAtomic :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAtomic MDN ARIAMixin.ariaAtomic documentation>+setAriaAtomic :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaAtomic self val = liftDOM (void ((js_setAriaAtomic ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaAtomic\"]; })"+        js_getAriaAtomic :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAtomic MDN ARIAMixin.ariaAtomic documentation>+getAriaAtomic :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaAtomic self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaAtomic ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAtomic MDN ARIAMixin.ariaAtomic documentation>+getAriaAtomicUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaAtomicUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaAtomic ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAtomic MDN ARIAMixin.ariaAtomic documentation>+getAriaAtomicUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaAtomicUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaAtomic ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaAutoComplete\"] = $2; })"+        js_setAriaAutoComplete :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAutoComplete MDN ARIAMixin.ariaAutoComplete documentation>+setAriaAutoComplete :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaAutoComplete self val = liftDOM (void ((js_setAriaAutoComplete ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaAutoComplete\"]; })"+        js_getAriaAutoComplete :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAutoComplete MDN ARIAMixin.ariaAutoComplete documentation>+getAriaAutoComplete :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaAutoComplete self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaAutoComplete ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAutoComplete MDN ARIAMixin.ariaAutoComplete documentation>+getAriaAutoCompleteUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaAutoCompleteUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaAutoComplete ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAutoComplete MDN ARIAMixin.ariaAutoComplete documentation>+getAriaAutoCompleteUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaAutoCompleteUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaAutoComplete ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaBrailleLabel\"] = $2; })"+        js_setAriaBrailleLabel :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleLabel MDN ARIAMixin.ariaBrailleLabel documentation>+setAriaBrailleLabel :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaBrailleLabel self val = liftDOM (void ((js_setAriaBrailleLabel ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaBrailleLabel\"]; })"+        js_getAriaBrailleLabel :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleLabel MDN ARIAMixin.ariaBrailleLabel documentation>+getAriaBrailleLabel :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaBrailleLabel self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaBrailleLabel ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleLabel MDN ARIAMixin.ariaBrailleLabel documentation>+getAriaBrailleLabelUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaBrailleLabelUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaBrailleLabel ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleLabel MDN ARIAMixin.ariaBrailleLabel documentation>+getAriaBrailleLabelUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaBrailleLabelUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaBrailleLabel ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaBrailleRoleDescription\"] = $2; })"+        js_setAriaBrailleRoleDescription :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleRoleDescription MDN ARIAMixin.ariaBrailleRoleDescription documentation>+setAriaBrailleRoleDescription :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaBrailleRoleDescription self val = liftDOM (void ((js_setAriaBrailleRoleDescription ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaBrailleRoleDescription\"]; })"+        js_getAriaBrailleRoleDescription :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleRoleDescription MDN ARIAMixin.ariaBrailleRoleDescription documentation>+getAriaBrailleRoleDescription :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaBrailleRoleDescription self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaBrailleRoleDescription ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleRoleDescription MDN ARIAMixin.ariaBrailleRoleDescription documentation>+getAriaBrailleRoleDescriptionUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaBrailleRoleDescriptionUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaBrailleRoleDescription ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleRoleDescription MDN ARIAMixin.ariaBrailleRoleDescription documentation>+getAriaBrailleRoleDescriptionUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaBrailleRoleDescriptionUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaBrailleRoleDescription ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaBusy\"] = $2; })"+        js_setAriaBusy :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBusy MDN ARIAMixin.ariaBusy documentation>+setAriaBusy :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaBusy self val = liftDOM (void ((js_setAriaBusy ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaBusy\"]; })"+        js_getAriaBusy :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBusy MDN ARIAMixin.ariaBusy documentation>+getAriaBusy :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaBusy self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaBusy ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBusy MDN ARIAMixin.ariaBusy documentation>+getAriaBusyUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaBusyUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaBusy ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBusy MDN ARIAMixin.ariaBusy documentation>+getAriaBusyUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaBusyUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaBusy ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaChecked\"] = $2; })"+        js_setAriaChecked :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaChecked MDN ARIAMixin.ariaChecked documentation>+setAriaChecked :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaChecked self val = liftDOM (void ((js_setAriaChecked ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaChecked\"]; })"+        js_getAriaChecked :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaChecked MDN ARIAMixin.ariaChecked documentation>+getAriaChecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaChecked self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaChecked ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaChecked MDN ARIAMixin.ariaChecked documentation>+getAriaCheckedUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaCheckedUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaChecked ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaChecked MDN ARIAMixin.ariaChecked documentation>+getAriaCheckedUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaCheckedUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaChecked ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaColCount\"] = $2; })"+        js_setAriaColCount :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColCount MDN ARIAMixin.ariaColCount documentation>+setAriaColCount :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaColCount self val = liftDOM (void ((js_setAriaColCount ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaColCount\"]; })"+        js_getAriaColCount :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColCount MDN ARIAMixin.ariaColCount documentation>+getAriaColCount :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaColCount self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColCount ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColCount MDN ARIAMixin.ariaColCount documentation>+getAriaColCountUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaColCountUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaColCount ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColCount MDN ARIAMixin.ariaColCount documentation>+getAriaColCountUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaColCountUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaColCount ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaColIndex\"] = $2; })"+        js_setAriaColIndex :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndex MDN ARIAMixin.ariaColIndex documentation>+setAriaColIndex :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaColIndex self val = liftDOM (void ((js_setAriaColIndex ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaColIndex\"]; })"+        js_getAriaColIndex :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndex MDN ARIAMixin.ariaColIndex documentation>+getAriaColIndex :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaColIndex self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColIndex ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndex MDN ARIAMixin.ariaColIndex documentation>+getAriaColIndexUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaColIndexUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaColIndex ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndex MDN ARIAMixin.ariaColIndex documentation>+getAriaColIndexUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaColIndexUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaColIndex ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaColIndexText\"] = $2; })"+        js_setAriaColIndexText :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndexText MDN ARIAMixin.ariaColIndexText documentation>+setAriaColIndexText :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaColIndexText self val = liftDOM (void ((js_setAriaColIndexText ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaColIndexText\"]; })"+        js_getAriaColIndexText :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndexText MDN ARIAMixin.ariaColIndexText documentation>+getAriaColIndexText :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaColIndexText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColIndexText ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndexText MDN ARIAMixin.ariaColIndexText documentation>+getAriaColIndexTextUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaColIndexTextUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaColIndexText ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndexText MDN ARIAMixin.ariaColIndexText documentation>+getAriaColIndexTextUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaColIndexTextUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaColIndexText ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaColSpan\"] = $2; })"+        js_setAriaColSpan :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColSpan MDN ARIAMixin.ariaColSpan documentation>+setAriaColSpan :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaColSpan self val = liftDOM (void ((js_setAriaColSpan ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaColSpan\"]; })"+        js_getAriaColSpan :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColSpan MDN ARIAMixin.ariaColSpan documentation>+getAriaColSpan :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaColSpan self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColSpan ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColSpan MDN ARIAMixin.ariaColSpan documentation>+getAriaColSpanUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaColSpanUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaColSpan ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColSpan MDN ARIAMixin.ariaColSpan documentation>+getAriaColSpanUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaColSpanUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaColSpan ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaControlsElements\"] = $2; })"+        js_setAriaControlsElements :: ARIAMixin -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaControlsElements MDN ARIAMixin.ariaControlsElements documentation>+setAriaControlsElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m ()+setAriaControlsElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaControlsElements ((Types.toARIAMixin self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"ariaControlsElements\"]; })"+        js_getAriaControlsElements :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaControlsElements MDN ARIAMixin.ariaControlsElements documentation>+getAriaControlsElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaControlsElements self = liftDOM (((js_getAriaControlsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaControlsElements MDN ARIAMixin.ariaControlsElements documentation>+getAriaControlsElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element]+getAriaControlsElementsUnsafe self = liftDOM ((((js_getAriaControlsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaControlsElements MDN ARIAMixin.ariaControlsElements documentation>+getAriaControlsElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element]+getAriaControlsElementsUnchecked self = liftDOM (((js_getAriaControlsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"ariaCurrent\"] = $2; })"+        js_setAriaCurrent :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaCurrent MDN ARIAMixin.ariaCurrent documentation>+setAriaCurrent :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaCurrent self val = liftDOM (void ((js_setAriaCurrent ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaCurrent\"]; })"+        js_getAriaCurrent :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaCurrent MDN ARIAMixin.ariaCurrent documentation>+getAriaCurrent :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaCurrent self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaCurrent ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaCurrent MDN ARIAMixin.ariaCurrent documentation>+getAriaCurrentUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaCurrentUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaCurrent ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaCurrent MDN ARIAMixin.ariaCurrent documentation>+getAriaCurrentUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaCurrentUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaCurrent ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaDescribedByElements\"] = $2; })"+        js_setAriaDescribedByElements :: ARIAMixin -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescribedByElements MDN ARIAMixin.ariaDescribedByElements documentation>+setAriaDescribedByElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m ()+setAriaDescribedByElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaDescribedByElements ((Types.toARIAMixin self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"ariaDescribedByElements\"]; })"+        js_getAriaDescribedByElements :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescribedByElements MDN ARIAMixin.ariaDescribedByElements documentation>+getAriaDescribedByElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaDescribedByElements self = liftDOM (((js_getAriaDescribedByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescribedByElements MDN ARIAMixin.ariaDescribedByElements documentation>+getAriaDescribedByElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element]+getAriaDescribedByElementsUnsafe self = liftDOM ((((js_getAriaDescribedByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescribedByElements MDN ARIAMixin.ariaDescribedByElements documentation>+getAriaDescribedByElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element]+getAriaDescribedByElementsUnchecked self = liftDOM (((js_getAriaDescribedByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"ariaDescription\"] = $2; })"+        js_setAriaDescription :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescription MDN ARIAMixin.ariaDescription documentation>+setAriaDescription :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaDescription self val = liftDOM (void ((js_setAriaDescription ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaDescription\"]; })"+        js_getAriaDescription :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescription MDN ARIAMixin.ariaDescription documentation>+getAriaDescription :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaDescription self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaDescription ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescription MDN ARIAMixin.ariaDescription documentation>+getAriaDescriptionUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaDescriptionUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaDescription ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescription MDN ARIAMixin.ariaDescription documentation>+getAriaDescriptionUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaDescriptionUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaDescription ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaDetailsElements\"] = $2; })"+        js_setAriaDetailsElements :: ARIAMixin -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDetailsElements MDN ARIAMixin.ariaDetailsElements documentation>+setAriaDetailsElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m ()+setAriaDetailsElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaDetailsElements ((Types.toARIAMixin self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"ariaDetailsElements\"]; })"+        js_getAriaDetailsElements :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDetailsElements MDN ARIAMixin.ariaDetailsElements documentation>+getAriaDetailsElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaDetailsElements self = liftDOM (((js_getAriaDetailsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDetailsElements MDN ARIAMixin.ariaDetailsElements documentation>+getAriaDetailsElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element]+getAriaDetailsElementsUnsafe self = liftDOM ((((js_getAriaDetailsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDetailsElements MDN ARIAMixin.ariaDetailsElements documentation>+getAriaDetailsElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element]+getAriaDetailsElementsUnchecked self = liftDOM (((js_getAriaDetailsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"ariaDisabled\"] = $2; })"+        js_setAriaDisabled :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDisabled MDN ARIAMixin.ariaDisabled documentation>+setAriaDisabled :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaDisabled self val = liftDOM (void ((js_setAriaDisabled ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaDisabled\"]; })"+        js_getAriaDisabled :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDisabled MDN ARIAMixin.ariaDisabled documentation>+getAriaDisabled :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaDisabled self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaDisabled ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDisabled MDN ARIAMixin.ariaDisabled documentation>+getAriaDisabledUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaDisabledUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaDisabled ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDisabled MDN ARIAMixin.ariaDisabled documentation>+getAriaDisabledUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaDisabledUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaDisabled ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaErrorMessageElements\"] = $2; })"+        js_setAriaErrorMessageElements :: ARIAMixin -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaErrorMessageElements MDN ARIAMixin.ariaErrorMessageElements documentation>+setAriaErrorMessageElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m ()+setAriaErrorMessageElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaErrorMessageElements ((Types.toARIAMixin self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"ariaErrorMessageElements\"]; })"+        js_getAriaErrorMessageElements :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaErrorMessageElements MDN ARIAMixin.ariaErrorMessageElements documentation>+getAriaErrorMessageElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaErrorMessageElements self = liftDOM (((js_getAriaErrorMessageElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaErrorMessageElements MDN ARIAMixin.ariaErrorMessageElements documentation>+getAriaErrorMessageElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element]+getAriaErrorMessageElementsUnsafe self = liftDOM ((((js_getAriaErrorMessageElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaErrorMessageElements MDN ARIAMixin.ariaErrorMessageElements documentation>+getAriaErrorMessageElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element]+getAriaErrorMessageElementsUnchecked self = liftDOM (((js_getAriaErrorMessageElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"ariaExpanded\"] = $2; })"+        js_setAriaExpanded :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaExpanded MDN ARIAMixin.ariaExpanded documentation>+setAriaExpanded :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaExpanded self val = liftDOM (void ((js_setAriaExpanded ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaExpanded\"]; })"+        js_getAriaExpanded :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaExpanded MDN ARIAMixin.ariaExpanded documentation>+getAriaExpanded :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaExpanded self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaExpanded ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaExpanded MDN ARIAMixin.ariaExpanded documentation>+getAriaExpandedUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaExpandedUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaExpanded ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaExpanded MDN ARIAMixin.ariaExpanded documentation>+getAriaExpandedUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaExpandedUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaExpanded ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaFlowToElements\"] = $2; })"+        js_setAriaFlowToElements :: ARIAMixin -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaFlowToElements MDN ARIAMixin.ariaFlowToElements documentation>+setAriaFlowToElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m ()+setAriaFlowToElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaFlowToElements ((Types.toARIAMixin self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"ariaFlowToElements\"]; })"+        js_getAriaFlowToElements :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaFlowToElements MDN ARIAMixin.ariaFlowToElements documentation>+getAriaFlowToElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaFlowToElements self = liftDOM (((js_getAriaFlowToElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaFlowToElements MDN ARIAMixin.ariaFlowToElements documentation>+getAriaFlowToElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element]+getAriaFlowToElementsUnsafe self = liftDOM ((((js_getAriaFlowToElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaFlowToElements MDN ARIAMixin.ariaFlowToElements documentation>+getAriaFlowToElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element]+getAriaFlowToElementsUnchecked self = liftDOM (((js_getAriaFlowToElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"ariaHasPopup\"] = $2; })"+        js_setAriaHasPopup :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHasPopup MDN ARIAMixin.ariaHasPopup documentation>+setAriaHasPopup :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaHasPopup self val = liftDOM (void ((js_setAriaHasPopup ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaHasPopup\"]; })"+        js_getAriaHasPopup :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHasPopup MDN ARIAMixin.ariaHasPopup documentation>+getAriaHasPopup :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaHasPopup self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaHasPopup ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHasPopup MDN ARIAMixin.ariaHasPopup documentation>+getAriaHasPopupUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaHasPopupUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaHasPopup ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHasPopup MDN ARIAMixin.ariaHasPopup documentation>+getAriaHasPopupUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaHasPopupUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaHasPopup ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaHidden\"] = $2; })"+        js_setAriaHidden :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHidden MDN ARIAMixin.ariaHidden documentation>+setAriaHidden :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaHidden self val = liftDOM (void ((js_setAriaHidden ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaHidden\"]; })"+        js_getAriaHidden :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHidden MDN ARIAMixin.ariaHidden documentation>+getAriaHidden :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaHidden self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaHidden ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHidden MDN ARIAMixin.ariaHidden documentation>+getAriaHiddenUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaHiddenUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaHidden ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHidden MDN ARIAMixin.ariaHidden documentation>+getAriaHiddenUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaHiddenUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaHidden ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaInvalid\"] = $2; })"+        js_setAriaInvalid :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaInvalid MDN ARIAMixin.ariaInvalid documentation>+setAriaInvalid :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaInvalid self val = liftDOM (void ((js_setAriaInvalid ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaInvalid\"]; })"+        js_getAriaInvalid :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaInvalid MDN ARIAMixin.ariaInvalid documentation>+getAriaInvalid :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaInvalid self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaInvalid ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaInvalid MDN ARIAMixin.ariaInvalid documentation>+getAriaInvalidUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaInvalidUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaInvalid ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaInvalid MDN ARIAMixin.ariaInvalid documentation>+getAriaInvalidUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaInvalidUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaInvalid ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaKeyShortcuts\"] = $2; })"+        js_setAriaKeyShortcuts :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaKeyShortcuts MDN ARIAMixin.ariaKeyShortcuts documentation>+setAriaKeyShortcuts :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaKeyShortcuts self val = liftDOM (void ((js_setAriaKeyShortcuts ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaKeyShortcuts\"]; })"+        js_getAriaKeyShortcuts :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaKeyShortcuts MDN ARIAMixin.ariaKeyShortcuts documentation>+getAriaKeyShortcuts :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaKeyShortcuts self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaKeyShortcuts ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaKeyShortcuts MDN ARIAMixin.ariaKeyShortcuts documentation>+getAriaKeyShortcutsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaKeyShortcutsUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaKeyShortcuts ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaKeyShortcuts MDN ARIAMixin.ariaKeyShortcuts documentation>+getAriaKeyShortcutsUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaKeyShortcutsUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaKeyShortcuts ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaLabel\"] = $2; })"+        js_setAriaLabel :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabel MDN ARIAMixin.ariaLabel documentation>+setAriaLabel :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaLabel self val = liftDOM (void ((js_setAriaLabel ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaLabel\"]; })"+        js_getAriaLabel :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabel MDN ARIAMixin.ariaLabel documentation>+getAriaLabel :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaLabel self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaLabel ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabel MDN ARIAMixin.ariaLabel documentation>+getAriaLabelUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaLabelUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaLabel ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabel MDN ARIAMixin.ariaLabel documentation>+getAriaLabelUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaLabelUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaLabel ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaLabelledByElements\"] = $2; })"+        js_setAriaLabelledByElements :: ARIAMixin -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabelledByElements MDN ARIAMixin.ariaLabelledByElements documentation>+setAriaLabelledByElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m ()+setAriaLabelledByElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaLabelledByElements ((Types.toARIAMixin self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"ariaLabelledByElements\"]; })"+        js_getAriaLabelledByElements :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabelledByElements MDN ARIAMixin.ariaLabelledByElements documentation>+getAriaLabelledByElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaLabelledByElements self = liftDOM (((js_getAriaLabelledByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabelledByElements MDN ARIAMixin.ariaLabelledByElements documentation>+getAriaLabelledByElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element]+getAriaLabelledByElementsUnsafe self = liftDOM ((((js_getAriaLabelledByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabelledByElements MDN ARIAMixin.ariaLabelledByElements documentation>+getAriaLabelledByElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element]+getAriaLabelledByElementsUnchecked self = liftDOM (((js_getAriaLabelledByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"ariaLevel\"] = $2; })"+        js_setAriaLevel :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLevel MDN ARIAMixin.ariaLevel documentation>+setAriaLevel :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaLevel self val = liftDOM (void ((js_setAriaLevel ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaLevel\"]; })"+        js_getAriaLevel :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLevel MDN ARIAMixin.ariaLevel documentation>+getAriaLevel :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaLevel self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaLevel ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLevel MDN ARIAMixin.ariaLevel documentation>+getAriaLevelUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaLevelUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaLevel ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLevel MDN ARIAMixin.ariaLevel documentation>+getAriaLevelUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaLevelUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaLevel ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaLive\"] = $2; })"+        js_setAriaLive :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLive MDN ARIAMixin.ariaLive documentation>+setAriaLive :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaLive self val = liftDOM (void ((js_setAriaLive ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaLive\"]; })"+        js_getAriaLive :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLive MDN ARIAMixin.ariaLive documentation>+getAriaLive :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaLive self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaLive ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLive MDN ARIAMixin.ariaLive documentation>+getAriaLiveUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaLiveUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaLive ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLive MDN ARIAMixin.ariaLive documentation>+getAriaLiveUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaLiveUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaLive ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaModal\"] = $2; })"+        js_setAriaModal :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaModal MDN ARIAMixin.ariaModal documentation>+setAriaModal :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaModal self val = liftDOM (void ((js_setAriaModal ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaModal\"]; })"+        js_getAriaModal :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaModal MDN ARIAMixin.ariaModal documentation>+getAriaModal :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaModal self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaModal ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaModal MDN ARIAMixin.ariaModal documentation>+getAriaModalUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaModalUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaModal ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaModal MDN ARIAMixin.ariaModal documentation>+getAriaModalUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaModalUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaModal ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaMultiLine\"] = $2; })"+        js_setAriaMultiLine :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiLine MDN ARIAMixin.ariaMultiLine documentation>+setAriaMultiLine :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaMultiLine self val = liftDOM (void ((js_setAriaMultiLine ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaMultiLine\"]; })"+        js_getAriaMultiLine :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiLine MDN ARIAMixin.ariaMultiLine documentation>+getAriaMultiLine :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaMultiLine self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaMultiLine ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiLine MDN ARIAMixin.ariaMultiLine documentation>+getAriaMultiLineUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaMultiLineUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaMultiLine ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiLine MDN ARIAMixin.ariaMultiLine documentation>+getAriaMultiLineUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaMultiLineUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaMultiLine ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaMultiSelectable\"] = $2; })"+        js_setAriaMultiSelectable :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiSelectable MDN ARIAMixin.ariaMultiSelectable documentation>+setAriaMultiSelectable :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaMultiSelectable self val = liftDOM (void ((js_setAriaMultiSelectable ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaMultiSelectable\"]; })"+        js_getAriaMultiSelectable :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiSelectable MDN ARIAMixin.ariaMultiSelectable documentation>+getAriaMultiSelectable :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaMultiSelectable self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaMultiSelectable ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiSelectable MDN ARIAMixin.ariaMultiSelectable documentation>+getAriaMultiSelectableUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaMultiSelectableUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaMultiSelectable ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiSelectable MDN ARIAMixin.ariaMultiSelectable documentation>+getAriaMultiSelectableUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaMultiSelectableUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaMultiSelectable ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaOrientation\"] = $2; })"+        js_setAriaOrientation :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOrientation MDN ARIAMixin.ariaOrientation documentation>+setAriaOrientation :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaOrientation self val = liftDOM (void ((js_setAriaOrientation ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaOrientation\"]; })"+        js_getAriaOrientation :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOrientation MDN ARIAMixin.ariaOrientation documentation>+getAriaOrientation :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaOrientation self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaOrientation ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOrientation MDN ARIAMixin.ariaOrientation documentation>+getAriaOrientationUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaOrientationUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaOrientation ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOrientation MDN ARIAMixin.ariaOrientation documentation>+getAriaOrientationUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaOrientationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaOrientation ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaOwnsElements\"] = $2; })"+        js_setAriaOwnsElements :: ARIAMixin -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOwnsElements MDN ARIAMixin.ariaOwnsElements documentation>+setAriaOwnsElements :: (MonadDOM m, IsARIAMixin self, IsElement val) => self -> Maybe [val] -> m ()+setAriaOwnsElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAriaOwnsElements ((Types.toARIAMixin self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"ariaOwnsElements\"]; })"+        js_getAriaOwnsElements :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOwnsElements MDN ARIAMixin.ariaOwnsElements documentation>+getAriaOwnsElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaOwnsElements self = liftDOM (((js_getAriaOwnsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOwnsElements MDN ARIAMixin.ariaOwnsElements documentation>+getAriaOwnsElementsUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack) => self -> m [Element]+getAriaOwnsElementsUnsafe self = liftDOM ((((js_getAriaOwnsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOwnsElements MDN ARIAMixin.ariaOwnsElements documentation>+getAriaOwnsElementsUnchecked :: (MonadDOM m, IsARIAMixin self) => self -> m [Element]+getAriaOwnsElementsUnchecked self = liftDOM (((js_getAriaOwnsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"ariaPlaceholder\"] = $2; })"+        js_setAriaPlaceholder :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPlaceholder MDN ARIAMixin.ariaPlaceholder documentation>+setAriaPlaceholder :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaPlaceholder self val = liftDOM (void ((js_setAriaPlaceholder ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaPlaceholder\"]; })"+        js_getAriaPlaceholder :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPlaceholder MDN ARIAMixin.ariaPlaceholder documentation>+getAriaPlaceholder :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaPlaceholder self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaPlaceholder ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPlaceholder MDN ARIAMixin.ariaPlaceholder documentation>+getAriaPlaceholderUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaPlaceholderUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaPlaceholder ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPlaceholder MDN ARIAMixin.ariaPlaceholder documentation>+getAriaPlaceholderUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaPlaceholderUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaPlaceholder ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaPosInSet\"] = $2; })"+        js_setAriaPosInSet :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPosInSet MDN ARIAMixin.ariaPosInSet documentation>+setAriaPosInSet :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaPosInSet self val = liftDOM (void ((js_setAriaPosInSet ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaPosInSet\"]; })"+        js_getAriaPosInSet :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPosInSet MDN ARIAMixin.ariaPosInSet documentation>+getAriaPosInSet :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaPosInSet self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaPosInSet ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPosInSet MDN ARIAMixin.ariaPosInSet documentation>+getAriaPosInSetUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaPosInSetUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaPosInSet ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPosInSet MDN ARIAMixin.ariaPosInSet documentation>+getAriaPosInSetUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaPosInSetUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaPosInSet ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaPressed\"] = $2; })"+        js_setAriaPressed :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPressed MDN ARIAMixin.ariaPressed documentation>+setAriaPressed :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaPressed self val = liftDOM (void ((js_setAriaPressed ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaPressed\"]; })"+        js_getAriaPressed :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPressed MDN ARIAMixin.ariaPressed documentation>+getAriaPressed :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaPressed self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaPressed ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPressed MDN ARIAMixin.ariaPressed documentation>+getAriaPressedUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaPressedUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaPressed ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPressed MDN ARIAMixin.ariaPressed documentation>+getAriaPressedUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaPressedUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaPressed ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaReadOnly\"] = $2; })"+        js_setAriaReadOnly :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaReadOnly MDN ARIAMixin.ariaReadOnly documentation>+setAriaReadOnly :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaReadOnly self val = liftDOM (void ((js_setAriaReadOnly ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaReadOnly\"]; })"+        js_getAriaReadOnly :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaReadOnly MDN ARIAMixin.ariaReadOnly documentation>+getAriaReadOnly :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaReadOnly self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaReadOnly ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaReadOnly MDN ARIAMixin.ariaReadOnly documentation>+getAriaReadOnlyUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaReadOnlyUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaReadOnly ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaReadOnly MDN ARIAMixin.ariaReadOnly documentation>+getAriaReadOnlyUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaReadOnlyUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaReadOnly ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaRelevant\"] = $2; })"+        js_setAriaRelevant :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRelevant MDN ARIAMixin.ariaRelevant documentation>+setAriaRelevant :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaRelevant self val = liftDOM (void ((js_setAriaRelevant ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaRelevant\"]; })"+        js_getAriaRelevant :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRelevant MDN ARIAMixin.ariaRelevant documentation>+getAriaRelevant :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRelevant self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRelevant ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRelevant MDN ARIAMixin.ariaRelevant documentation>+getAriaRelevantUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaRelevantUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRelevant ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRelevant MDN ARIAMixin.ariaRelevant documentation>+getAriaRelevantUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaRelevantUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRelevant ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaRequired\"] = $2; })"+        js_setAriaRequired :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRequired MDN ARIAMixin.ariaRequired documentation>+setAriaRequired :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaRequired self val = liftDOM (void ((js_setAriaRequired ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaRequired\"]; })"+        js_getAriaRequired :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRequired MDN ARIAMixin.ariaRequired documentation>+getAriaRequired :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRequired self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRequired ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRequired MDN ARIAMixin.ariaRequired documentation>+getAriaRequiredUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaRequiredUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRequired ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRequired MDN ARIAMixin.ariaRequired documentation>+getAriaRequiredUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaRequiredUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRequired ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaRoleDescription\"] = $2; })"+        js_setAriaRoleDescription :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRoleDescription MDN ARIAMixin.ariaRoleDescription documentation>+setAriaRoleDescription :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaRoleDescription self val = liftDOM (void ((js_setAriaRoleDescription ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaRoleDescription\"]; })"+        js_getAriaRoleDescription :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRoleDescription MDN ARIAMixin.ariaRoleDescription documentation>+getAriaRoleDescription :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRoleDescription self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRoleDescription ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRoleDescription MDN ARIAMixin.ariaRoleDescription documentation>+getAriaRoleDescriptionUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaRoleDescriptionUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRoleDescription ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRoleDescription MDN ARIAMixin.ariaRoleDescription documentation>+getAriaRoleDescriptionUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaRoleDescriptionUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRoleDescription ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaRowCount\"] = $2; })"+        js_setAriaRowCount :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowCount MDN ARIAMixin.ariaRowCount documentation>+setAriaRowCount :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaRowCount self val = liftDOM (void ((js_setAriaRowCount ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaRowCount\"]; })"+        js_getAriaRowCount :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowCount MDN ARIAMixin.ariaRowCount documentation>+getAriaRowCount :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRowCount self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowCount ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowCount MDN ARIAMixin.ariaRowCount documentation>+getAriaRowCountUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaRowCountUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRowCount ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowCount MDN ARIAMixin.ariaRowCount documentation>+getAriaRowCountUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaRowCountUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRowCount ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaRowIndex\"] = $2; })"+        js_setAriaRowIndex :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndex MDN ARIAMixin.ariaRowIndex documentation>+setAriaRowIndex :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaRowIndex self val = liftDOM (void ((js_setAriaRowIndex ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaRowIndex\"]; })"+        js_getAriaRowIndex :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndex MDN ARIAMixin.ariaRowIndex documentation>+getAriaRowIndex :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRowIndex self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowIndex ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndex MDN ARIAMixin.ariaRowIndex documentation>+getAriaRowIndexUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaRowIndexUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRowIndex ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndex MDN ARIAMixin.ariaRowIndex documentation>+getAriaRowIndexUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaRowIndexUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRowIndex ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaRowIndexText\"] = $2; })"+        js_setAriaRowIndexText :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndexText MDN ARIAMixin.ariaRowIndexText documentation>+setAriaRowIndexText :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaRowIndexText self val = liftDOM (void ((js_setAriaRowIndexText ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaRowIndexText\"]; })"+        js_getAriaRowIndexText :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndexText MDN ARIAMixin.ariaRowIndexText documentation>+getAriaRowIndexText :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRowIndexText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowIndexText ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndexText MDN ARIAMixin.ariaRowIndexText documentation>+getAriaRowIndexTextUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaRowIndexTextUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRowIndexText ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndexText MDN ARIAMixin.ariaRowIndexText documentation>+getAriaRowIndexTextUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaRowIndexTextUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRowIndexText ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaRowSpan\"] = $2; })"+        js_setAriaRowSpan :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowSpan MDN ARIAMixin.ariaRowSpan documentation>+setAriaRowSpan :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaRowSpan self val = liftDOM (void ((js_setAriaRowSpan ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaRowSpan\"]; })"+        js_getAriaRowSpan :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowSpan MDN ARIAMixin.ariaRowSpan documentation>+getAriaRowSpan :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRowSpan self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowSpan ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowSpan MDN ARIAMixin.ariaRowSpan documentation>+getAriaRowSpanUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaRowSpanUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaRowSpan ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowSpan MDN ARIAMixin.ariaRowSpan documentation>+getAriaRowSpanUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaRowSpanUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaRowSpan ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaSelected\"] = $2; })"+        js_setAriaSelected :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSelected MDN ARIAMixin.ariaSelected documentation>+setAriaSelected :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaSelected self val = liftDOM (void ((js_setAriaSelected ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaSelected\"]; })"+        js_getAriaSelected :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSelected MDN ARIAMixin.ariaSelected documentation>+getAriaSelected :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaSelected self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaSelected ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSelected MDN ARIAMixin.ariaSelected documentation>+getAriaSelectedUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaSelectedUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaSelected ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSelected MDN ARIAMixin.ariaSelected documentation>+getAriaSelectedUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaSelectedUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaSelected ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaSetSize\"] = $2; })"+        js_setAriaSetSize :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSetSize MDN ARIAMixin.ariaSetSize documentation>+setAriaSetSize :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaSetSize self val = liftDOM (void ((js_setAriaSetSize ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaSetSize\"]; })"+        js_getAriaSetSize :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSetSize MDN ARIAMixin.ariaSetSize documentation>+getAriaSetSize :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaSetSize self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaSetSize ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSetSize MDN ARIAMixin.ariaSetSize documentation>+getAriaSetSizeUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaSetSizeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaSetSize ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSetSize MDN ARIAMixin.ariaSetSize documentation>+getAriaSetSizeUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaSetSizeUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaSetSize ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaSort\"] = $2; })"+        js_setAriaSort :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSort MDN ARIAMixin.ariaSort documentation>+setAriaSort :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaSort self val = liftDOM (void ((js_setAriaSort ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaSort\"]; })"+        js_getAriaSort :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSort MDN ARIAMixin.ariaSort documentation>+getAriaSort :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaSort self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaSort ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSort MDN ARIAMixin.ariaSort documentation>+getAriaSortUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaSortUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaSort ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSort MDN ARIAMixin.ariaSort documentation>+getAriaSortUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaSortUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaSort ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaValueMax\"] = $2; })"+        js_setAriaValueMax :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMax MDN ARIAMixin.ariaValueMax documentation>+setAriaValueMax :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaValueMax self val = liftDOM (void ((js_setAriaValueMax ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaValueMax\"]; })"+        js_getAriaValueMax :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMax MDN ARIAMixin.ariaValueMax documentation>+getAriaValueMax :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaValueMax self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueMax ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMax MDN ARIAMixin.ariaValueMax documentation>+getAriaValueMaxUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaValueMaxUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaValueMax ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMax MDN ARIAMixin.ariaValueMax documentation>+getAriaValueMaxUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaValueMaxUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaValueMax ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaValueMin\"] = $2; })"+        js_setAriaValueMin :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMin MDN ARIAMixin.ariaValueMin documentation>+setAriaValueMin :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaValueMin self val = liftDOM (void ((js_setAriaValueMin ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaValueMin\"]; })"+        js_getAriaValueMin :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMin MDN ARIAMixin.ariaValueMin documentation>+getAriaValueMin :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaValueMin self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueMin ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMin MDN ARIAMixin.ariaValueMin documentation>+getAriaValueMinUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaValueMinUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaValueMin ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMin MDN ARIAMixin.ariaValueMin documentation>+getAriaValueMinUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaValueMinUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaValueMin ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaValueNow\"] = $2; })"+        js_setAriaValueNow :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueNow MDN ARIAMixin.ariaValueNow documentation>+setAriaValueNow :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaValueNow self val = liftDOM (void ((js_setAriaValueNow ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaValueNow\"]; })"+        js_getAriaValueNow :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueNow MDN ARIAMixin.ariaValueNow documentation>+getAriaValueNow :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaValueNow self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueNow ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueNow MDN ARIAMixin.ariaValueNow documentation>+getAriaValueNowUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaValueNowUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaValueNow ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueNow MDN ARIAMixin.ariaValueNow documentation>+getAriaValueNowUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaValueNowUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaValueNow ((Types.toARIAMixin self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ariaValueText\"] = $2; })"+        js_setAriaValueText :: ARIAMixin -> (Nullable JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueText MDN ARIAMixin.ariaValueText documentation>+setAriaValueText :: (MonadDOM m, IsARIAMixin self, ToJSString val) => self -> Maybe val -> m ()+setAriaValueText self val = liftDOM (void ((js_setAriaValueText ((Types.toARIAMixin self)) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ariaValueText\"]; })"+        js_getAriaValueText :: ARIAMixin -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueText MDN ARIAMixin.ariaValueText documentation>+getAriaValueText :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaValueText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueText ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueText MDN ARIAMixin.ariaValueText documentation>+getAriaValueTextUnsafe :: (MonadDOM m, IsARIAMixin self, HasCallStack, FromJSString result) => self -> m result+getAriaValueTextUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAriaValueText ((Types.toARIAMixin self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueText MDN ARIAMixin.ariaValueText documentation>+getAriaValueTextUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaValueTextUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaValueText ((Types.toARIAMixin self)))))
+ src/GHCJS/DOM/JSFFI/Generated/ARIANotifyMixin.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from wai-aria-1.3 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ARIANotifyMixin+       (js_ariaNotify, ariaNotify, ARIANotifyMixin(..), gTypeARIANotifyMixin, IsARIANotifyMixin, toARIANotifyMixin)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return $1[\"ariaNotify\"]($2, $3); })"+        js_ariaNotify :: ARIANotifyMixin -> JSString -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/ariaNotify MDN ARIANotifyMixin.ariaNotify documentation>+ariaNotify :: (MonadDOM m, IsARIANotifyMixin self, ToJSString announcement) => self -> announcement -> Maybe AriaNotificationOptions -> m ()+ariaNotify self announcement options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_ariaNotify ((Types.toARIANotifyMixin self)) (toJSString announcement) a3')))
+ src/GHCJS/DOM/JSFFI/Generated/AacEncoderConfig.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs-aac-codec-registration (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AacEncoderConfig+       (js_newAacEncoderConfig, js_setFormat, js_getFormat, newAacEncoderConfig, setFormat, getFormat, getFormatUnsafe, getFormatUnchecked, AacEncoderConfig(..), gTypeAacEncoderConfig)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAacEncoderConfig :: IO AacEncoderConfig+-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dictdef-aacencoderconfig AacEncoderConfig specification>+newAacEncoderConfig :: (MonadDOM m) => m AacEncoderConfig+newAacEncoderConfig = liftDOM ((js_newAacEncoderConfig))++foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })"+        js_setFormat :: AacEncoderConfig -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-aacencoderconfig-format AacEncoderConfig.format specification>+setFormat :: (MonadDOM m) => AacEncoderConfig -> AacBitstreamFormat -> m ()+setFormat self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFormat (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })"+        js_getFormat :: AacEncoderConfig -> IO JSVal+-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-aacencoderconfig-format AacEncoderConfig.format specification>+getFormat :: (MonadDOM m) => AacEncoderConfig -> m (Maybe AacBitstreamFormat)+getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-aacencoderconfig-format AacEncoderConfig.format specification>+getFormatUnsafe :: (MonadDOM m, HasCallStack) => AacEncoderConfig -> m AacBitstreamFormat+getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-aacencoderconfig-format AacEncoderConfig.format specification>+getFormatUnchecked :: (MonadDOM m) => AacEncoderConfig -> m AacBitstreamFormat+getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AbortController.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AbortController+       (js_newAbortController, js_abort, js_getSignal, newAbortController, abort, getSignal, AbortController(..), gTypeAbortController, IsAbortController, toAbortController)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return new globalThis[\"AbortController\"](); })"+        js_newAbortController :: IO AbortController+-- | <https://developer.mozilla.org/docs/Web/API/AbortController/AbortController MDN AbortController. documentation>+newAbortController :: (MonadDOM m) => m AbortController+newAbortController = liftDOM ((js_newAbortController))++foreign import javascript safe "(($1, $2) => { return $1[\"abort\"]($2); })"+        js_abort :: AbortController -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AbortController/abort MDN AbortController.abort documentation>+abort :: (MonadDOM m, IsAbortController self) => self -> JSVal -> m ()+abort self reason = liftDOM (void ((js_abort ((Types.toAbortController self)) (reason))))++foreign import javascript unsafe "(($1) => { return $1[\"signal\"]; })"+        js_getSignal :: AbortController -> IO AbortSignal+-- | <https://developer.mozilla.org/docs/Web/API/AbortController/signal MDN AbortController.signal documentation>+getSignal :: (MonadDOM m, IsAbortController self) => self -> m AbortSignal+getSignal self = liftDOM ((js_getSignal ((Types.toAbortController self))))
+ src/GHCJS/DOM/JSFFI/Generated/AbortSignal.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AbortSignal+       (js_throwIfAborted, js_abort, js_any, js_timeout, js_getAborted, js_getReason, throwIfAborted, abort, abort_, any, any_, timeout, timeout_, getAborted, getReason, abortEvent, AbortSignal(..), gTypeAbortSignal, IsAbortSignal, toAbortSignal)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"throwIfAborted\"](); })"+        js_throwIfAborted :: AbortSignal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/throwIfAborted MDN AbortSignal.throwIfAborted documentation>+throwIfAborted :: (MonadDOM m, IsAbortSignal self) => self -> m ()+throwIfAborted self = liftDOM (void ((js_throwIfAborted ((Types.toAbortSignal self)))))++foreign import javascript safe "(($1) => { return globalThis[\"AbortSignal\"][\"abort\"]($1); })"+        js_abort :: JSVal -> IO AbortSignal+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/abort_static MDN AbortSignal.abort documentation>+abort :: (MonadDOM m) => JSVal -> m AbortSignal+abort reason = liftDOM ((js_abort (reason)))++-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/abort_static MDN AbortSignal.abort documentation>+abort_ :: (MonadDOM m) => JSVal -> m ()+abort_ reason = liftDOM (void ((js_abort (reason))))++foreign import javascript safe "(($1) => { return globalThis[\"AbortSignal\"][\"any\"]($1); })"+        js_any :: JSVal -> IO AbortSignal+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/any_static MDN AbortSignal.any documentation>+any :: (MonadDOM m, IsAbortSignal signals) => [signals] -> m AbortSignal+any signals = liftDOM (((toJSVal signals) >>= \a1' -> js_any a1'))++-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/any_static MDN AbortSignal.any documentation>+any_ :: (MonadDOM m, IsAbortSignal signals) => [signals] -> m ()+any_ signals = liftDOM (void (((toJSVal signals) >>= \a1' -> js_any a1')))++foreign import javascript safe "(($1) => { return globalThis[\"AbortSignal\"][\"timeout\"]($1); })"+        js_timeout :: JSVal -> IO AbortSignal+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/timeout_static MDN AbortSignal.timeout documentation>+timeout :: (MonadDOM m) => Word53 -> m AbortSignal+timeout milliseconds = liftDOM (((toJSVal milliseconds) >>= \a1' -> js_timeout a1'))++-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/timeout_static MDN AbortSignal.timeout documentation>+timeout_ :: (MonadDOM m) => Word53 -> m ()+timeout_ milliseconds = liftDOM (void (((toJSVal milliseconds) >>= \a1' -> js_timeout a1')))++foreign import javascript unsafe "(($1) => { return $1[\"aborted\"]; })"+        js_getAborted :: AbortSignal -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/aborted MDN AbortSignal.aborted documentation>+getAborted :: (MonadDOM m, IsAbortSignal self) => self -> m Bool+getAborted self = liftDOM ((js_getAborted ((Types.toAbortSignal self))))++foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })"+        js_getReason :: AbortSignal -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/reason MDN AbortSignal.reason documentation>+getReason :: (MonadDOM m, IsAbortSignal self) => self -> m JSVal+getReason self = liftDOM ((js_getReason ((Types.toAbortSignal self))))++-- | <https://dom.spec.whatwg.org/#dom-abortsignal-onabort abort event>+abortEvent :: (IsAbortSignal self, IsEventTarget self) => EventName self Event+abortEvent = unsafeEventNameAsync (toJSString "abort")
+ src/GHCJS/DOM/JSFFI/Generated/AbstractRange.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AbstractRange+       (js_getStartContainer, js_getStartOffset, js_getEndContainer, js_getEndOffset, js_getCollapsed, getStartContainer, getStartOffset, getEndContainer, getEndOffset, getCollapsed, AbstractRange(..), gTypeAbstractRange, IsAbstractRange, toAbstractRange)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"startContainer\"]; })"+        js_getStartContainer :: AbstractRange -> IO Node+-- | <https://developer.mozilla.org/docs/Web/API/AbstractRange/startContainer MDN AbstractRange.startContainer documentation>+getStartContainer :: (MonadDOM m, IsAbstractRange self) => self -> m Node+getStartContainer self = liftDOM ((js_getStartContainer ((Types.toAbstractRange self))))++foreign import javascript unsafe "(($1) => { return $1[\"startOffset\"]; })"+        js_getStartOffset :: AbstractRange -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AbstractRange/startOffset MDN AbstractRange.startOffset documentation>+getStartOffset :: (MonadDOM m, IsAbstractRange self) => self -> m Word+getStartOffset self = liftDOM ((js_getStartOffset ((Types.toAbstractRange self))))++foreign import javascript unsafe "(($1) => { return $1[\"endContainer\"]; })"+        js_getEndContainer :: AbstractRange -> IO Node+-- | <https://developer.mozilla.org/docs/Web/API/AbstractRange/endContainer MDN AbstractRange.endContainer documentation>+getEndContainer :: (MonadDOM m, IsAbstractRange self) => self -> m Node+getEndContainer self = liftDOM ((js_getEndContainer ((Types.toAbstractRange self))))++foreign import javascript unsafe "(($1) => { return $1[\"endOffset\"]; })"+        js_getEndOffset :: AbstractRange -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AbstractRange/endOffset MDN AbstractRange.endOffset documentation>+getEndOffset :: (MonadDOM m, IsAbstractRange self) => self -> m Word+getEndOffset self = liftDOM ((js_getEndOffset ((Types.toAbstractRange self))))++foreign import javascript unsafe "(($1) => { return $1[\"collapsed\"]; })"+        js_getCollapsed :: AbstractRange -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/AbstractRange/collapsed MDN AbstractRange.collapsed documentation>+getCollapsed :: (MonadDOM m, IsAbstractRange self) => self -> m Bool+getCollapsed self = liftDOM ((js_getCollapsed ((Types.toAbstractRange self))))
src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs view
@@ -1,33 +1,21 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AbstractWorker-       (error, AbstractWorker(..), gTypeAbstractWorker, IsAbstractWorker,-        toAbstractWorker)+       (error, AbstractWorker(..), gTypeAbstractWorker, IsAbstractWorker, toAbstractWorker)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums --- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractWorker.onerror Mozilla AbstractWorker.onerror documentation> -error ::-      (IsAbstractWorker self, IsEventTarget self) =>-        EventName self UIEvent+-- | <https://html.spec.whatwg.org/multipage/workers.html#handler-abstractworker-onerror error event>+error :: (IsAbstractWorker self, IsEventTarget self) => EventName self Event error = unsafeEventNameAsync (toJSString "error")
+ src/GHCJS/DOM/JSFFI/Generated/AddEventListenerOptions.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AddEventListenerOptions+       (js_newAddEventListenerOptions, js_setPassive, js_getPassive, js_setOnce, js_getOnce, js_setSignal, js_getSignal, newAddEventListenerOptions, setPassive, getPassive, getPassiveUnsafe, getPassiveUnchecked, setOnce, getOnce, getOnceUnsafe, getOnceUnchecked, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, AddEventListenerOptions(..), gTypeAddEventListenerOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAddEventListenerOptions :: IO AddEventListenerOptions+-- | <https://dom.spec.whatwg.org/#dictdef-addeventlisteneroptions AddEventListenerOptions specification>+newAddEventListenerOptions :: (MonadDOM m) => m AddEventListenerOptions+newAddEventListenerOptions = liftDOM ((js_newAddEventListenerOptions))++foreign import javascript safe "(($1, $2) => { $1[\"passive\"] = $2; })"+        js_setPassive :: AddEventListenerOptions -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-passive AddEventListenerOptions.passive specification>+setPassive :: (MonadDOM m) => AddEventListenerOptions -> Bool -> m ()+setPassive self val = liftDOM (void ((js_setPassive (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"passive\"]; })"+        js_getPassive :: AddEventListenerOptions -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-passive AddEventListenerOptions.passive specification>+getPassive :: (MonadDOM m) => AddEventListenerOptions -> m (Maybe Bool)+getPassive self = liftDOM (((js_getPassive (self)) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-passive AddEventListenerOptions.passive specification>+getPassiveUnsafe :: (MonadDOM m, HasCallStack) => AddEventListenerOptions -> m Bool+getPassiveUnsafe self = liftDOM ((((js_getPassive (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-passive AddEventListenerOptions.passive specification>+getPassiveUnchecked :: (MonadDOM m) => AddEventListenerOptions -> m Bool+getPassiveUnchecked self = liftDOM ((pFromJSVal <$> (js_getPassive (self))))++foreign import javascript safe "(($1, $2) => { $1[\"once\"] = $2; })"+        js_setOnce :: AddEventListenerOptions -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-once AddEventListenerOptions.once specification>+setOnce :: (MonadDOM m) => AddEventListenerOptions -> Bool -> m ()+setOnce self val = liftDOM (void ((js_setOnce (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"once\"]; })"+        js_getOnce :: AddEventListenerOptions -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-once AddEventListenerOptions.once specification>+getOnce :: (MonadDOM m) => AddEventListenerOptions -> m (Maybe Bool)+getOnce self = liftDOM (((js_getOnce (self)) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-once AddEventListenerOptions.once specification>+getOnceUnsafe :: (MonadDOM m, HasCallStack) => AddEventListenerOptions -> m Bool+getOnceUnsafe self = liftDOM ((((js_getOnce (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-once AddEventListenerOptions.once specification>+getOnceUnchecked :: (MonadDOM m) => AddEventListenerOptions -> m Bool+getOnceUnchecked self = liftDOM ((pFromJSVal <$> (js_getOnce (self))))++foreign import javascript safe "(($1, $2) => { $1[\"signal\"] = $2; })"+        js_setSignal :: AddEventListenerOptions -> AbortSignal -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-signal AddEventListenerOptions.signal specification>+setSignal :: (MonadDOM m, IsAbortSignal val) => AddEventListenerOptions -> val -> m ()+setSignal self val = liftDOM (void ((js_setSignal (self) (Types.toAbortSignal val))))++foreign import javascript unsafe "(($1) => { return $1[\"signal\"]; })"+        js_getSignal :: AddEventListenerOptions -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-signal AddEventListenerOptions.signal specification>+getSignal :: (MonadDOM m) => AddEventListenerOptions -> m (Maybe AbortSignal)+getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-signal AddEventListenerOptions.signal specification>+getSignalUnsafe :: (MonadDOM m, HasCallStack) => AddEventListenerOptions -> m AbortSignal+getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-signal AddEventListenerOptions.signal specification>+getSignalUnchecked :: (MonadDOM m) => AddEventListenerOptions -> m AbortSignal+getSignalUnchecked self = liftDOM ((pFromJSVal <$> (js_getSignal (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AddressErrors.hs view
@@ -0,0 +1,223 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from payment-request (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AddressErrors+       (js_newAddressErrors, js_setAddressLine, js_getAddressLine, js_setCity, js_getCity, js_setCountry, js_getCountry, js_setDependentLocality, js_getDependentLocality, js_setOrganization, js_getOrganization, js_setPhone, js_getPhone, js_setPostalCode, js_getPostalCode, js_setRecipient, js_getRecipient, js_setRegion, js_getRegion, js_setSortingCode, js_getSortingCode, newAddressErrors, setAddressLine, getAddressLine, getAddressLineUnsafe, getAddressLineUnchecked, setCity, getCity, getCityUnsafe, getCityUnchecked, setCountry, getCountry, getCountryUnsafe, getCountryUnchecked, setDependentLocality, getDependentLocality, getDependentLocalityUnsafe, getDependentLocalityUnchecked, setOrganization, getOrganization, getOrganizationUnsafe, getOrganizationUnchecked, setPhone, getPhone, getPhoneUnsafe, getPhoneUnchecked, setPostalCode, getPostalCode, getPostalCodeUnsafe, getPostalCodeUnchecked, setRecipient, getRecipient, getRecipientUnsafe, getRecipientUnchecked, setRegion, getRegion, getRegionUnsafe, getRegionUnchecked, setSortingCode, getSortingCode, getSortingCodeUnsafe, getSortingCodeUnchecked, AddressErrors(..), gTypeAddressErrors)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAddressErrors :: IO AddressErrors+-- | <https://w3c.github.io/payment-request/#dom-addresserrors AddressErrors specification>+newAddressErrors :: (MonadDOM m) => m AddressErrors+newAddressErrors = liftDOM ((js_newAddressErrors))++foreign import javascript safe "(($1, $2) => { $1[\"addressLine\"] = $2; })"+        js_setAddressLine :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-addressline AddressErrors.addressLine specification>+setAddressLine :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m ()+setAddressLine self val = liftDOM (void ((js_setAddressLine (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"addressLine\"]; })"+        js_getAddressLine :: AddressErrors -> IO JSVal+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-addressline AddressErrors.addressLine specification>+getAddressLine :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getAddressLine self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAddressLine (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-addressline AddressErrors.addressLine specification>+getAddressLineUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result+getAddressLineUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAddressLine (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-addressline AddressErrors.addressLine specification>+getAddressLineUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getAddressLineUnchecked self = liftDOM ((pFromJSVal <$> (js_getAddressLine (self))))++foreign import javascript safe "(($1, $2) => { $1[\"city\"] = $2; })"+        js_setCity :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-city AddressErrors.city specification>+setCity :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m ()+setCity self val = liftDOM (void ((js_setCity (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"city\"]; })"+        js_getCity :: AddressErrors -> IO JSVal+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-city AddressErrors.city specification>+getCity :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getCity self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCity (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-city AddressErrors.city specification>+getCityUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result+getCityUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getCity (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-city AddressErrors.city specification>+getCityUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getCityUnchecked self = liftDOM ((pFromJSVal <$> (js_getCity (self))))++foreign import javascript safe "(($1, $2) => { $1[\"country\"] = $2; })"+        js_setCountry :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-country AddressErrors.country specification>+setCountry :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m ()+setCountry self val = liftDOM (void ((js_setCountry (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"country\"]; })"+        js_getCountry :: AddressErrors -> IO JSVal+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-country AddressErrors.country specification>+getCountry :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getCountry self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCountry (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-country AddressErrors.country specification>+getCountryUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result+getCountryUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getCountry (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-country AddressErrors.country specification>+getCountryUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getCountryUnchecked self = liftDOM ((pFromJSVal <$> (js_getCountry (self))))++foreign import javascript safe "(($1, $2) => { $1[\"dependentLocality\"] = $2; })"+        js_setDependentLocality :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-dependentlocality AddressErrors.dependentLocality specification>+setDependentLocality :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m ()+setDependentLocality self val = liftDOM (void ((js_setDependentLocality (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"dependentLocality\"]; })"+        js_getDependentLocality :: AddressErrors -> IO JSVal+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-dependentlocality AddressErrors.dependentLocality specification>+getDependentLocality :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getDependentLocality self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getDependentLocality (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-dependentlocality AddressErrors.dependentLocality specification>+getDependentLocalityUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result+getDependentLocalityUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getDependentLocality (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-dependentlocality AddressErrors.dependentLocality specification>+getDependentLocalityUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getDependentLocalityUnchecked self = liftDOM ((pFromJSVal <$> (js_getDependentLocality (self))))++foreign import javascript safe "(($1, $2) => { $1[\"organization\"] = $2; })"+        js_setOrganization :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-organization AddressErrors.organization specification>+setOrganization :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m ()+setOrganization self val = liftDOM (void ((js_setOrganization (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"organization\"]; })"+        js_getOrganization :: AddressErrors -> IO JSVal+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-organization AddressErrors.organization specification>+getOrganization :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getOrganization self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getOrganization (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-organization AddressErrors.organization specification>+getOrganizationUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result+getOrganizationUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getOrganization (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-organization AddressErrors.organization specification>+getOrganizationUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getOrganizationUnchecked self = liftDOM ((pFromJSVal <$> (js_getOrganization (self))))++foreign import javascript safe "(($1, $2) => { $1[\"phone\"] = $2; })"+        js_setPhone :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-phone AddressErrors.phone specification>+setPhone :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m ()+setPhone self val = liftDOM (void ((js_setPhone (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"phone\"]; })"+        js_getPhone :: AddressErrors -> IO JSVal+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-phone AddressErrors.phone specification>+getPhone :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getPhone self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPhone (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-phone AddressErrors.phone specification>+getPhoneUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result+getPhoneUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPhone (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-phone AddressErrors.phone specification>+getPhoneUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getPhoneUnchecked self = liftDOM ((pFromJSVal <$> (js_getPhone (self))))++foreign import javascript safe "(($1, $2) => { $1[\"postalCode\"] = $2; })"+        js_setPostalCode :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-postalcode AddressErrors.postalCode specification>+setPostalCode :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m ()+setPostalCode self val = liftDOM (void ((js_setPostalCode (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"postalCode\"]; })"+        js_getPostalCode :: AddressErrors -> IO JSVal+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-postalcode AddressErrors.postalCode specification>+getPostalCode :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getPostalCode self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPostalCode (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-postalcode AddressErrors.postalCode specification>+getPostalCodeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result+getPostalCodeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPostalCode (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-postalcode AddressErrors.postalCode specification>+getPostalCodeUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getPostalCodeUnchecked self = liftDOM ((pFromJSVal <$> (js_getPostalCode (self))))++foreign import javascript safe "(($1, $2) => { $1[\"recipient\"] = $2; })"+        js_setRecipient :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-recipient AddressErrors.recipient specification>+setRecipient :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m ()+setRecipient self val = liftDOM (void ((js_setRecipient (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"recipient\"]; })"+        js_getRecipient :: AddressErrors -> IO JSVal+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-recipient AddressErrors.recipient specification>+getRecipient :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getRecipient self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRecipient (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-recipient AddressErrors.recipient specification>+getRecipientUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result+getRecipientUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRecipient (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-recipient AddressErrors.recipient specification>+getRecipientUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getRecipientUnchecked self = liftDOM ((pFromJSVal <$> (js_getRecipient (self))))++foreign import javascript safe "(($1, $2) => { $1[\"region\"] = $2; })"+        js_setRegion :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-region AddressErrors.region specification>+setRegion :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m ()+setRegion self val = liftDOM (void ((js_setRegion (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"region\"]; })"+        js_getRegion :: AddressErrors -> IO JSVal+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-region AddressErrors.region specification>+getRegion :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getRegion self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRegion (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-region AddressErrors.region specification>+getRegionUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result+getRegionUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRegion (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-region AddressErrors.region specification>+getRegionUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getRegionUnchecked self = liftDOM ((pFromJSVal <$> (js_getRegion (self))))++foreign import javascript safe "(($1, $2) => { $1[\"sortingCode\"] = $2; })"+        js_setSortingCode :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-sortingcode AddressErrors.sortingCode specification>+setSortingCode :: (MonadDOM m, ToJSString val) => AddressErrors -> val -> m ()+setSortingCode self val = liftDOM (void ((js_setSortingCode (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"sortingCode\"]; })"+        js_getSortingCode :: AddressErrors -> IO JSVal+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-sortingcode AddressErrors.sortingCode specification>+getSortingCode :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getSortingCode self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSortingCode (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-sortingcode AddressErrors.sortingCode specification>+getSortingCodeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AddressErrors -> m result+getSortingCodeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSortingCode (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-sortingcode AddressErrors.sortingCode specification>+getSortingCodeUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getSortingCodeUnchecked self = liftDOM ((pFromJSVal <$> (js_getSortingCode (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AllAcceptedCredentialsOptions.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AllAcceptedCredentialsOptions+       (js_newAllAcceptedCredentialsOptions, js_setRpId, js_getRpId, js_setUserId, js_getUserId, js_setAllAcceptedCredentialIds, js_getAllAcceptedCredentialIds, newAllAcceptedCredentialsOptions, setRpId, getRpId, setUserId, getUserId, setAllAcceptedCredentialIds, getAllAcceptedCredentialIds, AllAcceptedCredentialsOptions(..), gTypeAllAcceptedCredentialsOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return ({\"rpId\": $1, \"userId\": $2, \"allAcceptedCredentialIds\": $3}); })"+        js_newAllAcceptedCredentialsOptions :: JSString -> JSString -> JSVal -> IO AllAcceptedCredentialsOptions+-- | <https://w3c.github.io/webauthn/#dictdef-allacceptedcredentialsoptions AllAcceptedCredentialsOptions specification>+newAllAcceptedCredentialsOptions :: (MonadDOM m, ToJSString rpId, ToJSString userId, ToJSString allAcceptedCredentialIds) => rpId -> userId -> [allAcceptedCredentialIds] -> m AllAcceptedCredentialsOptions+newAllAcceptedCredentialsOptions rpId userId allAcceptedCredentialIds = liftDOM (((toJSVal allAcceptedCredentialIds) >>= \a3' -> js_newAllAcceptedCredentialsOptions (toJSString rpId) (toJSString userId) a3'))++foreign import javascript safe "(($1, $2) => { $1[\"rpId\"] = $2; })"+        js_setRpId :: AllAcceptedCredentialsOptions -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-rpid AllAcceptedCredentialsOptions.rpId specification>+setRpId :: (MonadDOM m, ToJSString val) => AllAcceptedCredentialsOptions -> val -> m ()+setRpId self val = liftDOM (void ((js_setRpId (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"rpId\"]; })"+        js_getRpId :: AllAcceptedCredentialsOptions -> IO JSString+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-rpid AllAcceptedCredentialsOptions.rpId specification>+getRpId :: (MonadDOM m, FromJSString result) => AllAcceptedCredentialsOptions -> m result+getRpId self = liftDOM ((fromJSString <$> (js_getRpId (self))))++foreign import javascript safe "(($1, $2) => { $1[\"userId\"] = $2; })"+        js_setUserId :: AllAcceptedCredentialsOptions -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-userid AllAcceptedCredentialsOptions.userId specification>+setUserId :: (MonadDOM m, ToJSString val) => AllAcceptedCredentialsOptions -> val -> m ()+setUserId self val = liftDOM (void ((js_setUserId (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"userId\"]; })"+        js_getUserId :: AllAcceptedCredentialsOptions -> IO JSString+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-userid AllAcceptedCredentialsOptions.userId specification>+getUserId :: (MonadDOM m, FromJSString result) => AllAcceptedCredentialsOptions -> m result+getUserId self = liftDOM ((fromJSString <$> (js_getUserId (self))))++foreign import javascript safe "(($1, $2) => { $1[\"allAcceptedCredentialIds\"] = $2; })"+        js_setAllAcceptedCredentialIds :: AllAcceptedCredentialsOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-allacceptedcredentialids AllAcceptedCredentialsOptions.allAcceptedCredentialIds specification>+setAllAcceptedCredentialIds :: (MonadDOM m, ToJSString val) => AllAcceptedCredentialsOptions -> [val] -> m ()+setAllAcceptedCredentialIds self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAllAcceptedCredentialIds (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"allAcceptedCredentialIds\"]; })"+        js_getAllAcceptedCredentialIds :: AllAcceptedCredentialsOptions -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-allacceptedcredentialids AllAcceptedCredentialsOptions.allAcceptedCredentialIds specification>+getAllAcceptedCredentialIds :: (MonadDOM m, FromJSString result) => AllAcceptedCredentialsOptions -> m [result]+getAllAcceptedCredentialIds self = liftDOM (((js_getAllAcceptedCredentialIds (self)) >>= fromJSValUnchecked))
src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs view
@@ -1,141 +1,101 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AnalyserNode-       (js_getFloatFrequencyData, getFloatFrequencyData,-        js_getByteFrequencyData, getByteFrequencyData,-        js_getByteTimeDomainData, getByteTimeDomainData, js_setFftSize,-        setFftSize, js_getFftSize, getFftSize, js_getFrequencyBinCount,-        getFrequencyBinCount, js_setMinDecibels, setMinDecibels,-        js_getMinDecibels, getMinDecibels, js_setMaxDecibels,-        setMaxDecibels, js_getMaxDecibels, getMaxDecibels,-        js_setSmoothingTimeConstant, setSmoothingTimeConstant,-        js_getSmoothingTimeConstant, getSmoothingTimeConstant,-        AnalyserNode(..), gTypeAnalyserNode)+       (js_newAnalyserNode, js_getByteFrequencyData, js_getByteTimeDomainData, js_getFloatFrequencyData, js_getFloatTimeDomainData, js_setFftSize, js_getFftSize, js_getFrequencyBinCount, js_setMinDecibels, js_getMinDecibels, js_setMaxDecibels, js_getMaxDecibels, js_setSmoothingTimeConstant, js_getSmoothingTimeConstant, newAnalyserNode, getByteFrequencyData, getByteTimeDomainData, getFloatFrequencyData, getFloatTimeDomainData, setFftSize, getFftSize, getFrequencyBinCount, setMinDecibels, getMinDecibels, setMaxDecibels, getMaxDecibels, setSmoothingTimeConstant, getSmoothingTimeConstant, AnalyserNode(..), gTypeAnalyserNode)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return $1[\"getFloatFrequencyData\"]($2); })" js_getFloatFrequencyData ::-        AnalyserNode -> Optional Float32Array -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getFloatFrequencyData Mozilla AnalyserNode.getFloatFrequencyData documentation> -getFloatFrequencyData ::-                      (MonadIO m, IsFloat32Array array) =>-                        AnalyserNode -> Maybe array -> m ()-getFloatFrequencyData self array-  = liftIO-      (js_getFloatFrequencyData self-         (maybeToOptional (fmap toFloat32Array array)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getByteFrequencyData\"]($2); })"-        js_getByteFrequencyData ::-        AnalyserNode -> Optional Uint8Array -> IO ()+foreign import javascript safe "(($1, $2) => { return new globalThis[\"AnalyserNode\"]($1, $2); })"+        js_newAnalyserNode :: BaseAudioContext -> JSVal -> IO AnalyserNode+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/AnalyserNode MDN AnalyserNode. documentation>+newAnalyserNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe AnalyserOptions -> m AnalyserNode+newAnalyserNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newAnalyserNode (Types.toBaseAudioContext context) a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteFrequencyData Mozilla AnalyserNode.getByteFrequencyData documentation> -getByteFrequencyData ::-                     (MonadIO m, IsUint8Array array) =>-                       AnalyserNode -> Maybe array -> m ()-getByteFrequencyData self array-  = liftIO-      (js_getByteFrequencyData self-         (maybeToOptional (fmap toUint8Array array)))- -foreign import javascript unsafe-        "(($1, $2) => { return $1[\"getByteTimeDomainData\"]($2); })" js_getByteTimeDomainData ::-        AnalyserNode -> Optional Uint8Array -> IO ()+foreign import javascript safe "(($1, $2) => { return $1[\"getByteFrequencyData\"]($2); })"+        js_getByteFrequencyData :: AnalyserNode -> Uint8Array -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/getByteFrequencyData MDN AnalyserNode.getByteFrequencyData documentation>+getByteFrequencyData :: (MonadDOM m, IsUint8Array array) => AnalyserNode -> array -> m ()+getByteFrequencyData self array = liftDOM (void ((js_getByteFrequencyData (self) (Types.toUint8Array array)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteTimeDomainData Mozilla AnalyserNode.getByteTimeDomainData documentation> -getByteTimeDomainData ::-                      (MonadIO m, IsUint8Array array) =>-                        AnalyserNode -> Maybe array -> m ()-getByteTimeDomainData self array-  = liftIO-      (js_getByteTimeDomainData self-         (maybeToOptional (fmap toUint8Array array)))- +foreign import javascript safe "(($1, $2) => { return $1[\"getByteTimeDomainData\"]($2); })"+        js_getByteTimeDomainData :: AnalyserNode -> Uint8Array -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/getByteTimeDomainData MDN AnalyserNode.getByteTimeDomainData documentation>+getByteTimeDomainData :: (MonadDOM m, IsUint8Array array) => AnalyserNode -> array -> m ()+getByteTimeDomainData self array = liftDOM (void ((js_getByteTimeDomainData (self) (Types.toUint8Array array))))++foreign import javascript safe "(($1, $2) => { return $1[\"getFloatFrequencyData\"]($2); })"+        js_getFloatFrequencyData :: AnalyserNode -> Float32Array -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/getFloatFrequencyData MDN AnalyserNode.getFloatFrequencyData documentation>+getFloatFrequencyData :: (MonadDOM m, IsFloat32Array array) => AnalyserNode -> array -> m ()+getFloatFrequencyData self array = liftDOM (void ((js_getFloatFrequencyData (self) (Types.toFloat32Array array))))++foreign import javascript safe "(($1, $2) => { return $1[\"getFloatTimeDomainData\"]($2); })"+        js_getFloatTimeDomainData :: AnalyserNode -> Float32Array -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/getFloatTimeDomainData MDN AnalyserNode.getFloatTimeDomainData documentation>+getFloatTimeDomainData :: (MonadDOM m, IsFloat32Array array) => AnalyserNode -> array -> m ()+getFloatTimeDomainData self array = liftDOM (void ((js_getFloatTimeDomainData (self) (Types.toFloat32Array array))))+ foreign import javascript safe "(($1, $2) => { $1[\"fftSize\"] = $2; })"         js_setFftSize :: AnalyserNode -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/fftSize MDN AnalyserNode.fftSize documentation>+setFftSize :: (MonadDOM m) => AnalyserNode -> Word -> m ()+setFftSize self val = liftDOM (void ((js_setFftSize (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation> -setFftSize :: (MonadIO m) => AnalyserNode -> Word -> m ()-setFftSize self val = liftIO (js_setFftSize self val)- -foreign import javascript unsafe "(($1) => { return $1[\"fftSize\"]; })" js_getFftSize ::-        AnalyserNode -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"fftSize\"]; })"+        js_getFftSize :: AnalyserNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/fftSize MDN AnalyserNode.fftSize documentation>+getFftSize :: (MonadDOM m) => AnalyserNode -> m Word+getFftSize self = liftDOM ((js_getFftSize (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation> -getFftSize :: (MonadIO m) => AnalyserNode -> m Word-getFftSize self = liftIO (js_getFftSize self)-  foreign import javascript unsafe "(($1) => { return $1[\"frequencyBinCount\"]; })"         js_getFrequencyBinCount :: AnalyserNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/frequencyBinCount MDN AnalyserNode.frequencyBinCount documentation>+getFrequencyBinCount :: (MonadDOM m) => AnalyserNode -> m Word+getFrequencyBinCount self = liftDOM ((js_getFrequencyBinCount (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.frequencyBinCount Mozilla AnalyserNode.frequencyBinCount documentation> -getFrequencyBinCount :: (MonadIO m) => AnalyserNode -> m Word-getFrequencyBinCount self = liftIO (js_getFrequencyBinCount self)-  foreign import javascript safe "(($1, $2) => { $1[\"minDecibels\"] = $2; })"         js_setMinDecibels :: AnalyserNode -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/minDecibels MDN AnalyserNode.minDecibels documentation>+setMinDecibels :: (MonadDOM m) => AnalyserNode -> Double -> m ()+setMinDecibels self val = liftDOM (void ((js_setMinDecibels (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation> -setMinDecibels :: (MonadIO m) => AnalyserNode -> Double -> m ()-setMinDecibels self val = liftIO (js_setMinDecibels self val)-  foreign import javascript unsafe "(($1) => { return $1[\"minDecibels\"]; })"         js_getMinDecibels :: AnalyserNode -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/minDecibels MDN AnalyserNode.minDecibels documentation>+getMinDecibels :: (MonadDOM m) => AnalyserNode -> m Double+getMinDecibels self = liftDOM ((js_getMinDecibels (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation> -getMinDecibels :: (MonadIO m) => AnalyserNode -> m Double-getMinDecibels self = liftIO (js_getMinDecibels self)-  foreign import javascript safe "(($1, $2) => { $1[\"maxDecibels\"] = $2; })"         js_setMaxDecibels :: AnalyserNode -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/maxDecibels MDN AnalyserNode.maxDecibels documentation>+setMaxDecibels :: (MonadDOM m) => AnalyserNode -> Double -> m ()+setMaxDecibels self val = liftDOM (void ((js_setMaxDecibels (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation> -setMaxDecibels :: (MonadIO m) => AnalyserNode -> Double -> m ()-setMaxDecibels self val = liftIO (js_setMaxDecibels self val)-  foreign import javascript unsafe "(($1) => { return $1[\"maxDecibels\"]; })"         js_getMaxDecibels :: AnalyserNode -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/maxDecibels MDN AnalyserNode.maxDecibels documentation>+getMaxDecibels :: (MonadDOM m) => AnalyserNode -> m Double+getMaxDecibels self = liftDOM ((js_getMaxDecibels (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation> -getMaxDecibels :: (MonadIO m) => AnalyserNode -> m Double-getMaxDecibels self = liftIO (js_getMaxDecibels self)- -foreign import javascript safe-        "(($1, $2) => { $1[\"smoothingTimeConstant\"] = $2; })" js_setSmoothingTimeConstant-        :: AnalyserNode -> Double -> IO ()+foreign import javascript safe "(($1, $2) => { $1[\"smoothingTimeConstant\"] = $2; })"+        js_setSmoothingTimeConstant :: AnalyserNode -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/smoothingTimeConstant MDN AnalyserNode.smoothingTimeConstant documentation>+setSmoothingTimeConstant :: (MonadDOM m) => AnalyserNode -> Double -> m ()+setSmoothingTimeConstant self val = liftDOM (void ((js_setSmoothingTimeConstant (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> -setSmoothingTimeConstant ::-                         (MonadIO m) => AnalyserNode -> Double -> m ()-setSmoothingTimeConstant self val-  = liftIO (js_setSmoothingTimeConstant self val)-  foreign import javascript unsafe "(($1) => { return $1[\"smoothingTimeConstant\"]; })"         js_getSmoothingTimeConstant :: AnalyserNode -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> -getSmoothingTimeConstant :: (MonadIO m) => AnalyserNode -> m Double-getSmoothingTimeConstant self-  = liftIO (js_getSmoothingTimeConstant self)+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/smoothingTimeConstant MDN AnalyserNode.smoothingTimeConstant documentation>+getSmoothingTimeConstant :: (MonadDOM m) => AnalyserNode -> m Double+getSmoothingTimeConstant self = liftDOM ((js_getSmoothingTimeConstant (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AnalyserOptions.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AnalyserOptions+       (js_newAnalyserOptions, js_setFftSize, js_getFftSize, js_setMaxDecibels, js_getMaxDecibels, js_setMinDecibels, js_getMinDecibels, js_setSmoothingTimeConstant, js_getSmoothingTimeConstant, newAnalyserOptions, setFftSize, getFftSize, getFftSizeUnsafe, getFftSizeUnchecked, setMaxDecibels, getMaxDecibels, getMaxDecibelsUnsafe, getMaxDecibelsUnchecked, setMinDecibels, getMinDecibels, getMinDecibelsUnsafe, getMinDecibelsUnchecked, setSmoothingTimeConstant, getSmoothingTimeConstant, getSmoothingTimeConstantUnsafe, getSmoothingTimeConstantUnchecked, AnalyserOptions(..), gTypeAnalyserOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAnalyserOptions :: IO AnalyserOptions+-- | <https://webaudio.github.io/web-audio-api/#AnalyserOptions AnalyserOptions specification>+newAnalyserOptions :: (MonadDOM m) => m AnalyserOptions+newAnalyserOptions = liftDOM ((js_newAnalyserOptions))++foreign import javascript safe "(($1, $2) => { $1[\"fftSize\"] = $2; })"+        js_setFftSize :: AnalyserOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-fftsize AnalyserOptions.fftSize specification>+setFftSize :: (MonadDOM m) => AnalyserOptions -> Word -> m ()+setFftSize self val = liftDOM (void ((js_setFftSize (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"fftSize\"]; })"+        js_getFftSize :: AnalyserOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-fftsize AnalyserOptions.fftSize specification>+getFftSize :: (MonadDOM m) => AnalyserOptions -> m (Maybe Word)+getFftSize self = liftDOM (((js_getFftSize (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-fftsize AnalyserOptions.fftSize specification>+getFftSizeUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Word+getFftSizeUnsafe self = liftDOM ((((js_getFftSize (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-fftsize AnalyserOptions.fftSize specification>+getFftSizeUnchecked :: (MonadDOM m) => AnalyserOptions -> m Word+getFftSizeUnchecked self = liftDOM ((pFromJSVal <$> (js_getFftSize (self))))++foreign import javascript safe "(($1, $2) => { $1[\"maxDecibels\"] = $2; })"+        js_setMaxDecibels :: AnalyserOptions -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-maxdecibels AnalyserOptions.maxDecibels specification>+setMaxDecibels :: (MonadDOM m) => AnalyserOptions -> Double -> m ()+setMaxDecibels self val = liftDOM (void ((js_setMaxDecibels (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"maxDecibels\"]; })"+        js_getMaxDecibels :: AnalyserOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-maxdecibels AnalyserOptions.maxDecibels specification>+getMaxDecibels :: (MonadDOM m) => AnalyserOptions -> m (Maybe Double)+getMaxDecibels self = liftDOM (((js_getMaxDecibels (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-maxdecibels AnalyserOptions.maxDecibels specification>+getMaxDecibelsUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Double+getMaxDecibelsUnsafe self = liftDOM ((((js_getMaxDecibels (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-maxdecibels AnalyserOptions.maxDecibels specification>+getMaxDecibelsUnchecked :: (MonadDOM m) => AnalyserOptions -> m Double+getMaxDecibelsUnchecked self = liftDOM ((pFromJSVal <$> (js_getMaxDecibels (self))))++foreign import javascript safe "(($1, $2) => { $1[\"minDecibels\"] = $2; })"+        js_setMinDecibels :: AnalyserOptions -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-mindecibels AnalyserOptions.minDecibels specification>+setMinDecibels :: (MonadDOM m) => AnalyserOptions -> Double -> m ()+setMinDecibels self val = liftDOM (void ((js_setMinDecibels (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"minDecibels\"]; })"+        js_getMinDecibels :: AnalyserOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-mindecibels AnalyserOptions.minDecibels specification>+getMinDecibels :: (MonadDOM m) => AnalyserOptions -> m (Maybe Double)+getMinDecibels self = liftDOM (((js_getMinDecibels (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-mindecibels AnalyserOptions.minDecibels specification>+getMinDecibelsUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Double+getMinDecibelsUnsafe self = liftDOM ((((js_getMinDecibels (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-mindecibels AnalyserOptions.minDecibels specification>+getMinDecibelsUnchecked :: (MonadDOM m) => AnalyserOptions -> m Double+getMinDecibelsUnchecked self = liftDOM ((pFromJSVal <$> (js_getMinDecibels (self))))++foreign import javascript safe "(($1, $2) => { $1[\"smoothingTimeConstant\"] = $2; })"+        js_setSmoothingTimeConstant :: AnalyserOptions -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-smoothingtimeconstant AnalyserOptions.smoothingTimeConstant specification>+setSmoothingTimeConstant :: (MonadDOM m) => AnalyserOptions -> Double -> m ()+setSmoothingTimeConstant self val = liftDOM (void ((js_setSmoothingTimeConstant (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"smoothingTimeConstant\"]; })"+        js_getSmoothingTimeConstant :: AnalyserOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-smoothingtimeconstant AnalyserOptions.smoothingTimeConstant specification>+getSmoothingTimeConstant :: (MonadDOM m) => AnalyserOptions -> m (Maybe Double)+getSmoothingTimeConstant self = liftDOM (((js_getSmoothingTimeConstant (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-smoothingtimeconstant AnalyserOptions.smoothingTimeConstant specification>+getSmoothingTimeConstantUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Double+getSmoothingTimeConstantUnsafe self = liftDOM ((((js_getSmoothingTimeConstant (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-smoothingtimeconstant AnalyserOptions.smoothingTimeConstant specification>+getSmoothingTimeConstantUnchecked :: (MonadDOM m) => AnalyserOptions -> m Double+getSmoothingTimeConstantUnchecked self = liftDOM ((pFromJSVal <$> (js_getSmoothingTimeConstant (self))))
src/GHCJS/DOM/JSFFI/Generated/Animatable.hs view
@@ -1,42 +1,47 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from web-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Animatable-       (js_getAnimations, getAnimations, getAnimations_, Animatable(..),-        gTypeAnimatable, IsAnimatable, toAnimatable)+       (js_animate, js_getAnimations, js_getAnimations', animate, animate_, getAnimations, getAnimations_, getAnimations', getAnimations'_, Animatable(..), gTypeAnimatable, IsAnimatable, toAnimatable)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"getAnimations\"](); })"++foreign import javascript safe "(($1, $2, $3) => { return $1[\"animate\"]($2, $3); })"+        js_animate :: Animatable -> JSVal -> JSVal -> IO Animation+-- | <https://developer.mozilla.org/docs/Web/API/Element/animate MDN Animatable.animate documentation>+animate :: (MonadDOM m, IsAnimatable self, IsDoubleOrKeyframeAnimationOptions options) => self -> Maybe GObject -> Maybe options -> m Animation+animate self keyframes options = liftDOM (((toJSVal keyframes) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_animate ((Types.toAnimatable self)) a2' a3'))++-- | <https://developer.mozilla.org/docs/Web/API/Element/animate MDN Animatable.animate documentation>+animate_ :: (MonadDOM m, IsAnimatable self, IsDoubleOrKeyframeAnimationOptions options) => self -> Maybe GObject -> Maybe options -> m ()+animate_ self keyframes options = liftDOM (void (((toJSVal keyframes) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_animate ((Types.toAnimatable self)) a2' a3')))++foreign import javascript safe "(($1) => { return $1[\"getAnimations\"](); })"         js_getAnimations :: Animatable -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAnimations MDN Animatable.getAnimations documentation>+getAnimations :: (MonadDOM m, IsAnimatable self) => self -> m [Animation]+getAnimations self = liftDOM (((js_getAnimations ((Types.toAnimatable self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animatable.getAnimations Mozilla Animatable.getAnimations documentation> -getAnimations ::-              (MonadIO m, IsAnimatable self) => self -> m [Animation]-getAnimations self-  = liftIO-      ((js_getAnimations (toAnimatable self)) >>= fromJSValUnchecked)+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAnimations MDN Animatable.getAnimations documentation>+getAnimations_ :: (MonadDOM m, IsAnimatable self) => self -> m ()+getAnimations_ self = liftDOM (void ((js_getAnimations ((Types.toAnimatable self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animatable.getAnimations Mozilla Animatable.getAnimations documentation> -getAnimations_ :: (MonadIO m, IsAnimatable self) => self -> m ()-getAnimations_ self-  = liftIO (void (js_getAnimations (toAnimatable self)))+foreign import javascript safe "(($1, $2) => { return $1[\"getAnimations\"]($2); })"+        js_getAnimations' :: Animatable -> JSVal -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAnimations MDN Animatable.getAnimations documentation>+getAnimations' :: (MonadDOM m, IsAnimatable self) => self -> Maybe GetAnimationsOptions -> m [Animation]+getAnimations' self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getAnimations' ((Types.toAnimatable self)) a2') >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAnimations MDN Animatable.getAnimations documentation>+getAnimations'_ :: (MonadDOM m, IsAnimatable self) => self -> Maybe GetAnimationsOptions -> m ()+getAnimations'_ self options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getAnimations' ((Types.toAnimatable self)) a2')))
src/GHCJS/DOM/JSFFI/Generated/Animation.hs view
@@ -1,87 +1,231 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from web-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Animation-       (js_newAnimation, newAnimation, js_getEffect, getEffect,-        getEffectUnsafe, getEffectUnchecked, js_getTimeline, getTimeline,-        getTimelineUnsafe, getTimelineUnchecked, Animation(..),-        gTypeAnimation)+       (js_newAnimation, js_cancel, js_commitStyles, js_finish, js_pause, js_persist, js_play, js_reverse, js_updatePlaybackRate, js_setId, js_getId, js_setEffect, js_getEffect, js_setTimeline, js_getTimeline, js_setPlaybackRate, js_getPlaybackRate, js_getPlayState, js_getReplaceState, js_getPending, js_getReady, js_getFinished, js_setStartTime, js_getStartTime, js_setCurrentTime, js_getCurrentTime, js_getOverallProgress, newAnimation, cancel, commitStyles, finish, pause, persist, play, reverse, updatePlaybackRate, setId, getId, setEffect, getEffect, getEffectUnsafe, getEffectUnchecked, setTimeline, getTimeline, getTimelineUnsafe, getTimelineUnchecked, setPlaybackRate, getPlaybackRate, getPlayState, getReplaceState, getPending, getReady, getFinished, setStartTime, getStartTime, getStartTimeUnsafe, getStartTimeUnchecked, setCurrentTime, getCurrentTime, getCurrentTimeUnsafe, getCurrentTimeUnchecked, getOverallProgress, getOverallProgressUnsafe, getOverallProgressUnchecked, finishEvent, cancelEvent, remove, Animation(..), gTypeAnimation, IsAnimation, toAnimation)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"Animation\"]($1, $2); })" js_newAnimation ::-        Optional AnimationEffect ->-          Optional AnimationTimeline -> IO Animation --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation Mozilla Animation documentation> -newAnimation ::-             (MonadIO m, IsAnimationEffect effect,-              IsAnimationTimeline timeline) =>-               Maybe effect -> Maybe timeline -> m Animation-newAnimation effect timeline-  = liftIO-      (js_newAnimation (maybeToOptional (fmap toAnimationEffect effect))-         (maybeToOptional (fmap toAnimationTimeline timeline)))- -foreign import javascript unsafe "(($1) => { return $1[\"effect\"]; })" js_getEffect ::-        Animation -> IO (Nullable AnimationEffect)+foreign import javascript safe "(($1, $2) => { return new globalThis[\"Animation\"]($1, $2); })"+        js_newAnimation :: JSVal -> JSVal -> IO Animation+-- | <https://developer.mozilla.org/docs/Web/API/Animation/Animation MDN Animation. documentation>+newAnimation :: (MonadDOM m, IsAnimationEffect effect, IsAnimationTimeline timeline) => Maybe effect -> Maybe timeline -> m Animation+newAnimation effect timeline = liftDOM (((toJSVal effect) >>= \a1' -> (toJSVal timeline) >>= \a2' -> js_newAnimation a1' a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> -getEffect :: (MonadIO m) => Animation -> m (Maybe AnimationEffect)-getEffect self = liftIO (nullableToMaybe <$> (js_getEffect self))+foreign import javascript safe "(($1) => { return $1[\"cancel\"](); })"+        js_cancel :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/cancel MDN Animation.cancel documentation>+cancel :: (MonadDOM m, IsAnimation self) => self -> m ()+cancel self = liftDOM (void ((js_cancel ((Types.toAnimation self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> -getEffectUnsafe ::-                (MonadIO m, HasCallStack) => Animation -> m AnimationEffect-getEffectUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getEffect self)) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript safe "(($1) => { return $1[\"commitStyles\"](); })"+        js_commitStyles :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/commitStyles MDN Animation.commitStyles documentation>+commitStyles :: (MonadDOM m, IsAnimation self) => self -> m ()+commitStyles self = liftDOM (void ((js_commitStyles ((Types.toAnimation self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> -getEffectUnchecked :: (MonadIO m) => Animation -> m AnimationEffect-getEffectUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getEffect self))- -foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })" js_getTimeline-        :: Animation -> IO (Nullable AnimationTimeline)+foreign import javascript safe "(($1) => { return $1[\"finish\"](); })"+        js_finish :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/finish MDN Animation.finish documentation>+finish :: (MonadDOM m, IsAnimation self) => self -> m ()+finish self = liftDOM (void ((js_finish ((Types.toAnimation self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> -getTimeline ::-            (MonadIO m) => Animation -> m (Maybe AnimationTimeline)-getTimeline self-  = liftIO (nullableToMaybe <$> (js_getTimeline self))+foreign import javascript safe "(($1) => { return $1[\"pause\"](); })"+        js_pause :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/pause MDN Animation.pause documentation>+pause :: (MonadDOM m, IsAnimation self) => self -> m ()+pause self = liftDOM (void ((js_pause ((Types.toAnimation self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> -getTimelineUnsafe ::-                  (MonadIO m, HasCallStack) => Animation -> m AnimationTimeline-getTimelineUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTimeline self)) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript safe "(($1) => { return $1[\"persist\"](); })"+        js_persist :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/persist MDN Animation.persist documentation>+persist :: (MonadDOM m, IsAnimation self) => self -> m ()+persist self = liftDOM (void ((js_persist ((Types.toAnimation self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> -getTimelineUnchecked ::-                     (MonadIO m) => Animation -> m AnimationTimeline-getTimelineUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getTimeline self))+foreign import javascript safe "(($1) => { return $1[\"play\"](); })"+        js_play :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/play MDN Animation.play documentation>+play :: (MonadDOM m, IsAnimation self) => self -> m ()+play self = liftDOM (void ((js_play ((Types.toAnimation self)))))++foreign import javascript safe "(($1) => { return $1[\"reverse\"](); })"+        js_reverse :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/reverse MDN Animation.reverse documentation>+reverse :: (MonadDOM m, IsAnimation self) => self -> m ()+reverse self = liftDOM (void ((js_reverse ((Types.toAnimation self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"updatePlaybackRate\"]($2); })"+        js_updatePlaybackRate :: Animation -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/updatePlaybackRate MDN Animation.updatePlaybackRate documentation>+updatePlaybackRate :: (MonadDOM m, IsAnimation self) => self -> Double -> m ()+updatePlaybackRate self playbackRate = liftDOM (void ((js_updatePlaybackRate ((Types.toAnimation self)) (playbackRate))))++foreign import javascript safe "(($1, $2) => { $1[\"id\"] = $2; })"+        js_setId :: Animation -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/id MDN Animation.id documentation>+setId :: (MonadDOM m, IsAnimation self, ToJSString val) => self -> val -> m ()+setId self val = liftDOM (void ((js_setId ((Types.toAnimation self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })"+        js_getId :: Animation -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Animation/id MDN Animation.id documentation>+getId :: (MonadDOM m, IsAnimation self, FromJSString result) => self -> m result+getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toAnimation self)))))++foreign import javascript safe "(($1, $2) => { $1[\"effect\"] = $2; })"+        js_setEffect :: Animation -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/effect MDN Animation.effect documentation>+setEffect :: (MonadDOM m, IsAnimation self, IsAnimationEffect val) => self -> Maybe val -> m ()+setEffect self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setEffect ((Types.toAnimation self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"effect\"]; })"+        js_getEffect :: Animation -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Animation/effect MDN Animation.effect documentation>+getEffect :: (MonadDOM m, IsAnimation self) => self -> m (Maybe AnimationEffect)+getEffect self = liftDOM (((js_getEffect ((Types.toAnimation self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/effect MDN Animation.effect documentation>+getEffectUnsafe :: (MonadDOM m, IsAnimation self, HasCallStack) => self -> m AnimationEffect+getEffectUnsafe self = liftDOM ((((js_getEffect ((Types.toAnimation self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/effect MDN Animation.effect documentation>+getEffectUnchecked :: (MonadDOM m, IsAnimation self) => self -> m AnimationEffect+getEffectUnchecked self = liftDOM ((pFromJSVal <$> (js_getEffect ((Types.toAnimation self)))))++foreign import javascript safe "(($1, $2) => { $1[\"timeline\"] = $2; })"+        js_setTimeline :: Animation -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/timeline MDN Animation.timeline documentation>+setTimeline :: (MonadDOM m, IsAnimation self, IsAnimationTimeline val) => self -> Maybe val -> m ()+setTimeline self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimeline ((Types.toAnimation self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })"+        js_getTimeline :: Animation -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Animation/timeline MDN Animation.timeline documentation>+getTimeline :: (MonadDOM m, IsAnimation self) => self -> m (Maybe AnimationTimeline)+getTimeline self = liftDOM (((js_getTimeline ((Types.toAnimation self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/timeline MDN Animation.timeline documentation>+getTimelineUnsafe :: (MonadDOM m, IsAnimation self, HasCallStack) => self -> m AnimationTimeline+getTimelineUnsafe self = liftDOM ((((js_getTimeline ((Types.toAnimation self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/timeline MDN Animation.timeline documentation>+getTimelineUnchecked :: (MonadDOM m, IsAnimation self) => self -> m AnimationTimeline+getTimelineUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimeline ((Types.toAnimation self)))))++foreign import javascript safe "(($1, $2) => { $1[\"playbackRate\"] = $2; })"+        js_setPlaybackRate :: Animation -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/playbackRate MDN Animation.playbackRate documentation>+setPlaybackRate :: (MonadDOM m, IsAnimation self) => self -> Double -> m ()+setPlaybackRate self val = liftDOM (void ((js_setPlaybackRate ((Types.toAnimation self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"playbackRate\"]; })"+        js_getPlaybackRate :: Animation -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/Animation/playbackRate MDN Animation.playbackRate documentation>+getPlaybackRate :: (MonadDOM m, IsAnimation self) => self -> m Double+getPlaybackRate self = liftDOM ((js_getPlaybackRate ((Types.toAnimation self))))++foreign import javascript unsafe "(($1) => { return $1[\"playState\"]; })"+        js_getPlayState :: Animation -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Animation/playState MDN Animation.playState documentation>+getPlayState :: (MonadDOM m, IsAnimation self) => self -> m AnimationPlayState+getPlayState self = liftDOM (((js_getPlayState ((Types.toAnimation self))) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"replaceState\"]; })"+        js_getReplaceState :: Animation -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Animation/replaceState MDN Animation.replaceState documentation>+getReplaceState :: (MonadDOM m, IsAnimation self) => self -> m AnimationReplaceState+getReplaceState self = liftDOM (((js_getReplaceState ((Types.toAnimation self))) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"pending\"]; })"+        js_getPending :: Animation -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Animation/pending MDN Animation.pending documentation>+getPending :: (MonadDOM m, IsAnimation self) => self -> m Bool+getPending self = liftDOM ((js_getPending ((Types.toAnimation self))))++foreign import javascript interruptible "(($1, $c) => { return $1[\"ready\"].then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_getReady :: Animation -> IO (JSVal, Animation)+-- | <https://developer.mozilla.org/docs/Web/API/Animation/ready MDN Animation.ready documentation>+getReady :: (MonadDOM m, IsAnimation self) => self -> m Animation+getReady self = liftDOM (((js_getReady ((Types.toAnimation self))) >>= checkPromiseResult))++foreign import javascript interruptible "(($1, $c) => { return $1[\"finished\"].then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_getFinished :: Animation -> IO (JSVal, Animation)+-- | <https://developer.mozilla.org/docs/Web/API/Animation/finished MDN Animation.finished documentation>+getFinished :: (MonadDOM m, IsAnimation self) => self -> m Animation+getFinished self = liftDOM (((js_getFinished ((Types.toAnimation self))) >>= checkPromiseResult))++foreign import javascript safe "(($1, $2) => { $1[\"startTime\"] = $2; })"+        js_setStartTime :: Animation -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/startTime MDN Animation.startTime documentation>+setStartTime :: (MonadDOM m, IsAnimation self, IsCSSNumberish val) => self -> Maybe val -> m ()+setStartTime self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setStartTime ((Types.toAnimation self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"startTime\"]; })"+        js_getStartTime :: Animation -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Animation/startTime MDN Animation.startTime documentation>+getStartTime :: (MonadDOM m, IsAnimation self) => self -> m (Maybe CSSNumberish)+getStartTime self = liftDOM (((js_getStartTime ((Types.toAnimation self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/startTime MDN Animation.startTime documentation>+getStartTimeUnsafe :: (MonadDOM m, IsAnimation self, HasCallStack) => self -> m CSSNumberish+getStartTimeUnsafe self = liftDOM ((((js_getStartTime ((Types.toAnimation self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/startTime MDN Animation.startTime documentation>+getStartTimeUnchecked :: (MonadDOM m, IsAnimation self) => self -> m CSSNumberish+getStartTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getStartTime ((Types.toAnimation self)))))++foreign import javascript safe "(($1, $2) => { $1[\"currentTime\"] = $2; })"+        js_setCurrentTime :: Animation -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/currentTime MDN Animation.currentTime documentation>+setCurrentTime :: (MonadDOM m, IsAnimation self, IsCSSNumberish val) => self -> Maybe val -> m ()+setCurrentTime self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setCurrentTime ((Types.toAnimation self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })"+        js_getCurrentTime :: Animation -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Animation/currentTime MDN Animation.currentTime documentation>+getCurrentTime :: (MonadDOM m, IsAnimation self) => self -> m (Maybe CSSNumberish)+getCurrentTime self = liftDOM (((js_getCurrentTime ((Types.toAnimation self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/currentTime MDN Animation.currentTime documentation>+getCurrentTimeUnsafe :: (MonadDOM m, IsAnimation self, HasCallStack) => self -> m CSSNumberish+getCurrentTimeUnsafe self = liftDOM ((((js_getCurrentTime ((Types.toAnimation self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/currentTime MDN Animation.currentTime documentation>+getCurrentTimeUnchecked :: (MonadDOM m, IsAnimation self) => self -> m CSSNumberish+getCurrentTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentTime ((Types.toAnimation self)))))++foreign import javascript unsafe "(($1) => { return $1[\"overallProgress\"]; })"+        js_getOverallProgress :: Animation -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Animation/overallProgress MDN Animation.overallProgress documentation>+getOverallProgress :: (MonadDOM m, IsAnimation self) => self -> m (Maybe Double)+getOverallProgress self = liftDOM (((js_getOverallProgress ((Types.toAnimation self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/overallProgress MDN Animation.overallProgress documentation>+getOverallProgressUnsafe :: (MonadDOM m, IsAnimation self, HasCallStack) => self -> m Double+getOverallProgressUnsafe self = liftDOM ((((js_getOverallProgress ((Types.toAnimation self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/overallProgress MDN Animation.overallProgress documentation>+getOverallProgressUnchecked :: (MonadDOM m, IsAnimation self) => self -> m Double+getOverallProgressUnchecked self = liftDOM ((pFromJSVal <$> (js_getOverallProgress ((Types.toAnimation self)))))++-- | <https://drafts.csswg.org/web-animations-1/#dom-animation-onfinish finish event>+finishEvent :: (IsAnimation self, IsEventTarget self) => EventName self AnimationPlaybackEvent+finishEvent = unsafeEventName (toJSString "finish")++-- | <https://drafts.csswg.org/web-animations-1/#dom-animation-oncancel cancel event>+cancelEvent :: (IsAnimation self, IsEventTarget self) => EventName self AnimationPlaybackEvent+cancelEvent = unsafeEventName (toJSString "cancel")++-- | <https://drafts.csswg.org/web-animations-1/#dom-animation-onremove remove event>+remove :: (IsAnimation self, IsEventTarget self) => EventName self AnimationPlaybackEvent+remove = unsafeEventName (toJSString "remove")
+ src/GHCJS/DOM/JSFFI/Generated/AnimationEffect.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from web-animations-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AnimationEffect+       (js_getComputedTiming, js_getTiming, js_updateTiming, getComputedTiming, getComputedTiming_, getTiming, getTiming_, updateTiming, AnimationEffect(..), gTypeAnimationEffect, IsAnimationEffect, toAnimationEffect)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"getComputedTiming\"](); })"+        js_getComputedTiming :: AnimationEffect -> IO ComputedEffectTiming+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEffect/getComputedTiming MDN AnimationEffect.getComputedTiming documentation>+getComputedTiming :: (MonadDOM m, IsAnimationEffect self) => self -> m ComputedEffectTiming+getComputedTiming self = liftDOM ((js_getComputedTiming ((Types.toAnimationEffect self))))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationEffect/getComputedTiming MDN AnimationEffect.getComputedTiming documentation>+getComputedTiming_ :: (MonadDOM m, IsAnimationEffect self) => self -> m ()+getComputedTiming_ self = liftDOM (void ((js_getComputedTiming ((Types.toAnimationEffect self)))))++foreign import javascript safe "(($1) => { return $1[\"getTiming\"](); })"+        js_getTiming :: AnimationEffect -> IO EffectTiming+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEffect/getTiming MDN AnimationEffect.getTiming documentation>+getTiming :: (MonadDOM m, IsAnimationEffect self) => self -> m EffectTiming+getTiming self = liftDOM ((js_getTiming ((Types.toAnimationEffect self))))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationEffect/getTiming MDN AnimationEffect.getTiming documentation>+getTiming_ :: (MonadDOM m, IsAnimationEffect self) => self -> m ()+getTiming_ self = liftDOM (void ((js_getTiming ((Types.toAnimationEffect self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"updateTiming\"]($2); })"+        js_updateTiming :: AnimationEffect -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEffect/updateTiming MDN AnimationEffect.updateTiming documentation>+updateTiming :: (MonadDOM m, IsAnimationEffect self) => self -> Maybe OptionalEffectTiming -> m ()+updateTiming self timing = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal timing) >>= \a2' -> js_updateTiming ((Types.toAnimationEffect self)) a2')))
src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs view
@@ -1,57 +1,55 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AnimationEvent-       (js_newAnimationEvent, newAnimationEvent, js_getAnimationName,-        getAnimationName, js_getElapsedTime, getElapsedTime,-        AnimationEvent(..), gTypeAnimationEvent)+       (js_newAnimationEvent, js_getAnimationName, js_getElapsedTime, js_getPseudoElement, js_getAnimation, newAnimationEvent, getAnimationName, getElapsedTime, getPseudoElement, getAnimation, getAnimationUnsafe, getAnimationUnchecked, AnimationEvent(..), gTypeAnimationEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"AnimationEvent\"]($1,\n$2); })" js_newAnimationEvent ::-        JSString -> Optional AnimationEventInit -> IO AnimationEvent --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent Mozilla AnimationEvent documentation> -newAnimationEvent ::-                  (MonadIO m, ToJSString type') =>-                    type' -> Maybe AnimationEventInit -> m AnimationEvent-newAnimationEvent type' animationEventInitDict-  = liftIO-      (js_newAnimationEvent (toJSString type')-         (maybeToOptional animationEventInitDict))- +foreign import javascript safe "(($1, $2) => { return new globalThis[\"AnimationEvent\"]($1, $2); })"+        js_newAnimationEvent :: JSString -> JSVal -> IO AnimationEvent+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/AnimationEvent MDN AnimationEvent. documentation>+newAnimationEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe AnimationEventInit -> m AnimationEvent+newAnimationEvent type' animationEventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal animationEventInitDict) >>= \a2' -> js_newAnimationEvent (toJSString type') a2'))+ foreign import javascript unsafe "(($1) => { return $1[\"animationName\"]; })"         js_getAnimationName :: AnimationEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/animationName MDN AnimationEvent.animationName documentation>+getAnimationName :: (MonadDOM m, FromJSString result) => AnimationEvent -> m result+getAnimationName self = liftDOM ((fromJSString <$> (js_getAnimationName (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.animationName Mozilla AnimationEvent.animationName documentation> -getAnimationName ::-                 (MonadIO m, FromJSString result) => AnimationEvent -> m result-getAnimationName self-  = liftIO (fromJSString <$> (js_getAnimationName self))-  foreign import javascript unsafe "(($1) => { return $1[\"elapsedTime\"]; })"         js_getElapsedTime :: AnimationEvent -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/elapsedTime MDN AnimationEvent.elapsedTime documentation>+getElapsedTime :: (MonadDOM m) => AnimationEvent -> m Double+getElapsedTime self = liftDOM ((js_getElapsedTime (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.elapsedTime Mozilla AnimationEvent.elapsedTime documentation> -getElapsedTime :: (MonadIO m) => AnimationEvent -> m Double-getElapsedTime self = liftIO (js_getElapsedTime self)+foreign import javascript unsafe "(($1) => { return $1[\"pseudoElement\"]; })"+        js_getPseudoElement :: AnimationEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/pseudoElement MDN AnimationEvent.pseudoElement documentation>+getPseudoElement :: (MonadDOM m, FromJSString result) => AnimationEvent -> m result+getPseudoElement self = liftDOM ((fromJSString <$> (js_getPseudoElement (self))))++foreign import javascript unsafe "(($1) => { return $1[\"animation\"]; })"+        js_getAnimation :: AnimationEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/animation MDN AnimationEvent.animation documentation>+getAnimation :: (MonadDOM m) => AnimationEvent -> m (Maybe CSSAnimation)+getAnimation self = liftDOM (((js_getAnimation (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/animation MDN AnimationEvent.animation documentation>+getAnimationUnsafe :: (MonadDOM m, HasCallStack) => AnimationEvent -> m CSSAnimation+getAnimationUnsafe self = liftDOM ((((js_getAnimation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/animation MDN AnimationEvent.animation documentation>+getAnimationUnchecked :: (MonadDOM m) => AnimationEvent -> m CSSAnimation+getAnimationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAnimation (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AnimationEventInit.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-animations-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AnimationEventInit+       (js_newAnimationEventInit, js_setAnimationName, js_getAnimationName, js_setElapsedTime, js_getElapsedTime, js_setPseudoElement, js_getPseudoElement, js_setAnimation, js_getAnimation, newAnimationEventInit, setAnimationName, getAnimationName, getAnimationNameUnsafe, getAnimationNameUnchecked, setElapsedTime, getElapsedTime, getElapsedTimeUnsafe, getElapsedTimeUnchecked, setPseudoElement, getPseudoElement, getPseudoElementUnsafe, getPseudoElementUnchecked, setAnimation, getAnimation, getAnimationUnsafe, getAnimationUnchecked, AnimationEventInit(..), gTypeAnimationEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAnimationEventInit :: IO AnimationEventInit+-- | <https://drafts.csswg.org/css-animations-1/#dictdef-animationeventinit AnimationEventInit specification>+newAnimationEventInit :: (MonadDOM m) => m AnimationEventInit+newAnimationEventInit = liftDOM ((js_newAnimationEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"animationName\"] = $2; })"+        js_setAnimationName :: AnimationEventInit -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>+setAnimationName :: (MonadDOM m, ToJSString val) => AnimationEventInit -> val -> m ()+setAnimationName self val = liftDOM (void ((js_setAnimationName (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"animationName\"]; })"+        js_getAnimationName :: AnimationEventInit -> IO JSVal+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>+getAnimationName :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m (Maybe result)+getAnimationName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAnimationName (self))))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>+getAnimationNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AnimationEventInit -> m result+getAnimationNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAnimationName (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>+getAnimationNameUnchecked :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m result+getAnimationNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getAnimationName (self))))++foreign import javascript safe "(($1, $2) => { $1[\"elapsedTime\"] = $2; })"+        js_setElapsedTime :: AnimationEventInit -> Double -> IO ()+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-elapsedtime AnimationEventInit.elapsedTime specification>+setElapsedTime :: (MonadDOM m) => AnimationEventInit -> Double -> m ()+setElapsedTime self val = liftDOM (void ((js_setElapsedTime (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"elapsedTime\"]; })"+        js_getElapsedTime :: AnimationEventInit -> IO JSVal+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-elapsedtime AnimationEventInit.elapsedTime specification>+getElapsedTime :: (MonadDOM m) => AnimationEventInit -> m (Maybe Double)+getElapsedTime self = liftDOM (((js_getElapsedTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-elapsedtime AnimationEventInit.elapsedTime specification>+getElapsedTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationEventInit -> m Double+getElapsedTimeUnsafe self = liftDOM ((((js_getElapsedTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-elapsedtime AnimationEventInit.elapsedTime specification>+getElapsedTimeUnchecked :: (MonadDOM m) => AnimationEventInit -> m Double+getElapsedTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getElapsedTime (self))))++foreign import javascript safe "(($1, $2) => { $1[\"pseudoElement\"] = $2; })"+        js_setPseudoElement :: AnimationEventInit -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>+setPseudoElement :: (MonadDOM m, ToJSString val) => AnimationEventInit -> val -> m ()+setPseudoElement self val = liftDOM (void ((js_setPseudoElement (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"pseudoElement\"]; })"+        js_getPseudoElement :: AnimationEventInit -> IO JSVal+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>+getPseudoElement :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m (Maybe result)+getPseudoElement self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPseudoElement (self))))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>+getPseudoElementUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AnimationEventInit -> m result+getPseudoElementUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPseudoElement (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>+getPseudoElementUnchecked :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m result+getPseudoElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getPseudoElement (self))))++foreign import javascript safe "(($1, $2) => { $1[\"animation\"] = $2; })"+        js_setAnimation :: AnimationEventInit -> JSVal -> IO ()+-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>+setAnimation :: (MonadDOM m) => AnimationEventInit -> Maybe CSSAnimation -> m ()+setAnimation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAnimation (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"animation\"]; })"+        js_getAnimation :: AnimationEventInit -> IO JSVal+-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>+getAnimation :: (MonadDOM m) => AnimationEventInit -> m (Maybe CSSAnimation)+getAnimation self = liftDOM (((js_getAnimation (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>+getAnimationUnsafe :: (MonadDOM m, HasCallStack) => AnimationEventInit -> m CSSAnimation+getAnimationUnsafe self = liftDOM ((((js_getAnimation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>+getAnimationUnchecked :: (MonadDOM m) => AnimationEventInit -> m CSSAnimation+getAnimationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAnimation (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AnimationFrameProvider.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AnimationFrameProvider+       (js_cancelAnimationFrame, js_requestAnimationFrame, cancelAnimationFrame, requestAnimationFrame, requestAnimationFrame_, AnimationFrameProvider(..), gTypeAnimationFrameProvider, IsAnimationFrameProvider, toAnimationFrameProvider)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return $1[\"cancelAnimationFrame\"]($2); })"+        js_cancelAnimationFrame :: AnimationFrameProvider -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/cancelAnimationFrame MDN AnimationFrameProvider.cancelAnimationFrame documentation>+cancelAnimationFrame :: (MonadDOM m, IsAnimationFrameProvider self) => self -> Word -> m ()+cancelAnimationFrame self handle = liftDOM (void ((js_cancelAnimationFrame ((Types.toAnimationFrameProvider self)) (handle))))++foreign import javascript safe "(($1, $2) => { return $1[\"requestAnimationFrame\"]($2); })"+        js_requestAnimationFrame :: AnimationFrameProvider -> JSVal -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/requestAnimationFrame MDN AnimationFrameProvider.requestAnimationFrame documentation>+requestAnimationFrame :: (MonadDOM m, IsAnimationFrameProvider self) => self -> FrameRequestCallback -> m Word+requestAnimationFrame self callback' = liftDOM (((toJSVal callback') >>= \a2' -> js_requestAnimationFrame ((Types.toAnimationFrameProvider self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/requestAnimationFrame MDN AnimationFrameProvider.requestAnimationFrame documentation>+requestAnimationFrame_ :: (MonadDOM m, IsAnimationFrameProvider self) => self -> FrameRequestCallback -> m ()+requestAnimationFrame_ self callback' = liftDOM (void (((toJSVal callback') >>= \a2' -> js_requestAnimationFrame ((Types.toAnimationFrameProvider self)) a2')))
+ src/GHCJS/DOM/JSFFI/Generated/AnimationPlaybackEvent.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from web-animations-2 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEvent+       (js_newAnimationPlaybackEvent, js_getCurrentTime, js_getTimelineTime, newAnimationPlaybackEvent, getCurrentTime, getCurrentTimeUnsafe, getCurrentTimeUnchecked, getTimelineTime, getTimelineTimeUnsafe, getTimelineTimeUnchecked, AnimationPlaybackEvent(..), gTypeAnimationPlaybackEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"AnimationPlaybackEvent\"]($1, $2); })"+        js_newAnimationPlaybackEvent :: JSString -> JSVal -> IO AnimationPlaybackEvent+-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/AnimationPlaybackEvent MDN AnimationPlaybackEvent. documentation>+newAnimationPlaybackEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe AnimationPlaybackEventInit -> m AnimationPlaybackEvent+newAnimationPlaybackEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newAnimationPlaybackEvent (toJSString type') a2'))++foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })"+        js_getCurrentTime :: AnimationPlaybackEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/currentTime MDN AnimationPlaybackEvent.currentTime documentation>+getCurrentTime :: (MonadDOM m) => AnimationPlaybackEvent -> m (Maybe CSSNumberish)+getCurrentTime self = liftDOM (((js_getCurrentTime (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/currentTime MDN AnimationPlaybackEvent.currentTime documentation>+getCurrentTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEvent -> m CSSNumberish+getCurrentTimeUnsafe self = liftDOM ((((js_getCurrentTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/currentTime MDN AnimationPlaybackEvent.currentTime documentation>+getCurrentTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEvent -> m CSSNumberish+getCurrentTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentTime (self))))++foreign import javascript unsafe "(($1) => { return $1[\"timelineTime\"]; })"+        js_getTimelineTime :: AnimationPlaybackEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/timelineTime MDN AnimationPlaybackEvent.timelineTime documentation>+getTimelineTime :: (MonadDOM m) => AnimationPlaybackEvent -> m (Maybe CSSNumberish)+getTimelineTime self = liftDOM (((js_getTimelineTime (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/timelineTime MDN AnimationPlaybackEvent.timelineTime documentation>+getTimelineTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEvent -> m CSSNumberish+getTimelineTimeUnsafe self = liftDOM ((((js_getTimelineTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/timelineTime MDN AnimationPlaybackEvent.timelineTime documentation>+getTimelineTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEvent -> m CSSNumberish+getTimelineTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimelineTime (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AnimationPlaybackEventInit.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from web-animations-2 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AnimationPlaybackEventInit+       (js_newAnimationPlaybackEventInit, js_setCurrentTime, js_getCurrentTime, js_setTimelineTime, js_getTimelineTime, newAnimationPlaybackEventInit, setCurrentTime, getCurrentTime, getCurrentTimeUnsafe, getCurrentTimeUnchecked, setTimelineTime, getTimelineTime, getTimelineTimeUnsafe, getTimelineTimeUnchecked, AnimationPlaybackEventInit(..), gTypeAnimationPlaybackEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAnimationPlaybackEventInit :: IO AnimationPlaybackEventInit+-- | <https://drafts.csswg.org/web-animations-2/#dictdef-animationplaybackeventinit AnimationPlaybackEventInit specification>+newAnimationPlaybackEventInit :: (MonadDOM m) => m AnimationPlaybackEventInit+newAnimationPlaybackEventInit = liftDOM ((js_newAnimationPlaybackEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"currentTime\"] = $2; })"+        js_setCurrentTime :: AnimationPlaybackEventInit -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-currenttime AnimationPlaybackEventInit.currentTime specification>+setCurrentTime :: (MonadDOM m, IsCSSNumberish val) => AnimationPlaybackEventInit -> Maybe val -> m ()+setCurrentTime self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setCurrentTime (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })"+        js_getCurrentTime :: AnimationPlaybackEventInit -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-currenttime AnimationPlaybackEventInit.currentTime specification>+getCurrentTime :: (MonadDOM m) => AnimationPlaybackEventInit -> m (Maybe CSSNumberish)+getCurrentTime self = liftDOM (((js_getCurrentTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-currenttime AnimationPlaybackEventInit.currentTime specification>+getCurrentTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEventInit -> m CSSNumberish+getCurrentTimeUnsafe self = liftDOM ((((js_getCurrentTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-currenttime AnimationPlaybackEventInit.currentTime specification>+getCurrentTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEventInit -> m CSSNumberish+getCurrentTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentTime (self))))++foreign import javascript safe "(($1, $2) => { $1[\"timelineTime\"] = $2; })"+        js_setTimelineTime :: AnimationPlaybackEventInit -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-timelinetime AnimationPlaybackEventInit.timelineTime specification>+setTimelineTime :: (MonadDOM m, IsCSSNumberish val) => AnimationPlaybackEventInit -> Maybe val -> m ()+setTimelineTime self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimelineTime (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"timelineTime\"]; })"+        js_getTimelineTime :: AnimationPlaybackEventInit -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-timelinetime AnimationPlaybackEventInit.timelineTime specification>+getTimelineTime :: (MonadDOM m) => AnimationPlaybackEventInit -> m (Maybe CSSNumberish)+getTimelineTime self = liftDOM (((js_getTimelineTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-timelinetime AnimationPlaybackEventInit.timelineTime specification>+getTimelineTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEventInit -> m CSSNumberish+getTimelineTimeUnsafe self = liftDOM ((((js_getTimelineTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-timelinetime AnimationPlaybackEventInit.timelineTime specification>+getTimelineTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEventInit -> m CSSNumberish+getTimelineTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimelineTime (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AnimationTimeline.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from web-animations-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AnimationTimeline+       (js_getCurrentTime, js_getDuration, getCurrentTime, getCurrentTimeUnsafe, getCurrentTimeUnchecked, getDuration, getDurationUnsafe, getDurationUnchecked, AnimationTimeline(..), gTypeAnimationTimeline, IsAnimationTimeline, toAnimationTimeline)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })"+        js_getCurrentTime :: AnimationTimeline -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/currentTime MDN AnimationTimeline.currentTime documentation>+getCurrentTime :: (MonadDOM m, IsAnimationTimeline self) => self -> m (Maybe CSSNumberish)+getCurrentTime self = liftDOM (((js_getCurrentTime ((Types.toAnimationTimeline self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/currentTime MDN AnimationTimeline.currentTime documentation>+getCurrentTimeUnsafe :: (MonadDOM m, IsAnimationTimeline self, HasCallStack) => self -> m CSSNumberish+getCurrentTimeUnsafe self = liftDOM ((((js_getCurrentTime ((Types.toAnimationTimeline self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/currentTime MDN AnimationTimeline.currentTime documentation>+getCurrentTimeUnchecked :: (MonadDOM m, IsAnimationTimeline self) => self -> m CSSNumberish+getCurrentTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentTime ((Types.toAnimationTimeline self)))))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+        js_getDuration :: AnimationTimeline -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/duration MDN AnimationTimeline.duration documentation>+getDuration :: (MonadDOM m, IsAnimationTimeline self) => self -> m (Maybe CSSNumberish)+getDuration self = liftDOM (((js_getDuration ((Types.toAnimationTimeline self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/duration MDN AnimationTimeline.duration documentation>+getDurationUnsafe :: (MonadDOM m, IsAnimationTimeline self, HasCallStack) => self -> m CSSNumberish+getDurationUnsafe self = liftDOM ((((js_getDuration ((Types.toAnimationTimeline self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/duration MDN AnimationTimeline.duration documentation>+getDurationUnchecked :: (MonadDOM m, IsAnimationTimeline self) => self -> m CSSNumberish+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration ((Types.toAnimationTimeline self)))))
+ src/GHCJS/DOM/JSFFI/Generated/AnimationTrigger.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from animation-triggers-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AnimationTrigger+       (AnimationTrigger(..), gTypeAnimationTrigger)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
− src/GHCJS/DOM/JSFFI/Generated/ApplePayError.hs
@@ -1,114 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.ApplePayError-       (js_newApplePayError, newApplePayError, js_setCode, setCode,-        js_getCode, getCode, js_setContactField, setContactField,-        js_getContactField, getContactField, getContactFieldUnsafe,-        getContactFieldUnchecked, js_setMessage, setMessage, js_getMessage,-        getMessage, ApplePayError(..), gTypeApplePayError)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2, $3) => { return new window[\"ApplePayError\"]($1,\n$2, $3); })" js_newApplePayError ::-        JSVal ->-          Optional ApplePayErrorContactField ->-            Optional JSString -> IO ApplePayError---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError Mozilla ApplePayError documentation> -newApplePayError ::-                 (MonadIO m, ToJSString message) =>-                   ApplePayErrorCode ->-                     Maybe ApplePayErrorContactField -> Maybe message -> m ApplePayError-newApplePayError errorCode contactField message-  = liftIO-      (js_newApplePayError (pToJSVal errorCode)-         (maybeToOptional contactField)-         (toOptionalJSString message))- -foreign import javascript unsafe "(($1, $2) => { $1[\"code\"] = $2; })" js_setCode ::-        ApplePayError -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.code Mozilla ApplePayError.code documentation> -setCode ::-        (MonadIO m) => ApplePayError -> ApplePayErrorCode -> m ()-setCode self val = liftIO (js_setCode self (pToJSVal val))- -foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })" js_getCode ::-        ApplePayError -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.code Mozilla ApplePayError.code documentation> -getCode :: (MonadIO m) => ApplePayError -> m ApplePayErrorCode-getCode self = liftIO ((js_getCode self) >>= fromJSValUnchecked)- -foreign import javascript unsafe "(($1, $2) => { $1[\"contactField\"] = $2; })"-        js_setContactField ::-        ApplePayError -> Optional ApplePayErrorContactField -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.contactField Mozilla ApplePayError.contactField documentation> -setContactField ::-                (MonadIO m) =>-                  ApplePayError -> Maybe ApplePayErrorContactField -> m ()-setContactField self val-  = liftIO (js_setContactField self (maybeToOptional val))- -foreign import javascript unsafe "(($1) => { return $1[\"contactField\"]; })"-        js_getContactField ::-        ApplePayError -> IO (Nullable ApplePayErrorContactField)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.contactField Mozilla ApplePayError.contactField documentation> -getContactField ::-                (MonadIO m) => ApplePayError -> m (Maybe ApplePayErrorContactField)-getContactField self-  = liftIO (nullableToMaybe <$> (js_getContactField self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.contactField Mozilla ApplePayError.contactField documentation> -getContactFieldUnsafe ::-                      (MonadIO m, HasCallStack) =>-                        ApplePayError -> m ApplePayErrorContactField-getContactFieldUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getContactField self)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.contactField Mozilla ApplePayError.contactField documentation> -getContactFieldUnchecked ::-                         (MonadIO m) => ApplePayError -> m ApplePayErrorContactField-getContactFieldUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getContactField self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"message\"] = $2; })"-        js_setMessage :: ApplePayError -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.message Mozilla ApplePayError.message documentation> -setMessage ::-           (MonadIO m, ToJSString val) => ApplePayError -> val -> m ()-setMessage self val = liftIO (js_setMessage self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" js_getMessage ::-        ApplePayError -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.message Mozilla ApplePayError.message documentation> -getMessage ::-           (MonadIO m, FromJSString result) => ApplePayError -> m result-getMessage self = liftIO (fromJSString <$> (js_getMessage self))
− src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentAuthorizedEvent.hs
@@ -1,35 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.ApplePayPaymentAuthorizedEvent-       (js_getPayment, getPayment, ApplePayPaymentAuthorizedEvent(..),-        gTypeApplePayPaymentAuthorizedEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"payment\"]; })" js_getPayment ::-        ApplePayPaymentAuthorizedEvent -> IO ApplePayPayment---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayPaymentAuthorizedEvent.payment Mozilla ApplePayPaymentAuthorizedEvent.payment documentation> -getPayment ::-           (MonadIO m) => ApplePayPaymentAuthorizedEvent -> m ApplePayPayment-getPayment self = liftIO (js_getPayment self)
− src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentMethodSelectedEvent.hs
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.ApplePayPaymentMethodSelectedEvent-       (js_getPaymentMethod, getPaymentMethod,-        ApplePayPaymentMethodSelectedEvent(..),-        gTypeApplePayPaymentMethodSelectedEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"paymentMethod\"]; })"-        js_getPaymentMethod ::-        ApplePayPaymentMethodSelectedEvent -> IO ApplePayPaymentMethod---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayPaymentMethodSelectedEvent.paymentMethod Mozilla ApplePayPaymentMethodSelectedEvent.paymentMethod documentation> -getPaymentMethod ::-                 (MonadIO m) =>-                   ApplePayPaymentMethodSelectedEvent -> m ApplePayPaymentMethod-getPaymentMethod self = liftIO (js_getPaymentMethod self)
− src/GHCJS/DOM/JSFFI/Generated/ApplePaySession.hs
@@ -1,309 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.ApplePaySession-       (js_newApplePaySession, newApplePaySession, js_supportsVersion,-        supportsVersion, supportsVersion_, js_canMakePayments,-        canMakePayments, canMakePayments_,-        js_canMakePaymentsWithActiveCard, canMakePaymentsWithActiveCard,-        canMakePaymentsWithActiveCard_, js_openPaymentSetup,-        openPaymentSetup, openPaymentSetup_, js_begin, begin, js_abort,-        abort, js_completeMerchantValidation, completeMerchantValidation,-        js_completeShippingMethodSelectionUpdate,-        completeShippingMethodSelectionUpdate,-        js_completeShippingContactSelectionUpdate,-        completeShippingContactSelectionUpdate,-        js_completePaymentMethodSelectionUpdate,-        completePaymentMethodSelectionUpdate, js_completePaymentResult,-        completePaymentResult, js_completeShippingMethodSelection,-        completeShippingMethodSelection,-        js_completeShippingContactSelection,-        completeShippingContactSelection,-        js_completePaymentMethodSelection, completePaymentMethodSelection,-        js_completePayment, completePayment, pattern STATUS_SUCCESS,-        pattern STATUS_FAILURE,-        pattern STATUS_INVALID_BILLING_POSTAL_ADDRESS,-        pattern STATUS_INVALID_SHIPPING_POSTAL_ADDRESS,-        pattern STATUS_INVALID_SHIPPING_CONTACT,-        pattern STATUS_PIN_REQUIRED, pattern STATUS_PIN_INCORRECT,-        pattern STATUS_PIN_LOCKOUT, validatemerchant,-        paymentmethodselected, paymentauthorized, shippingmethodselected,-        shippingcontactselected, cancel, ApplePaySession(..),-        gTypeApplePaySession)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe-        "(($1, $2) => { return new window[\"ApplePaySession\"]($1,\n$2); })" js_newApplePaySession ::-        Word -> ApplePayPaymentRequest -> IO ApplePaySession---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession Mozilla ApplePaySession documentation> -newApplePaySession ::-                   (MonadIO m) => Word -> ApplePayPaymentRequest -> m ApplePaySession-newApplePaySession version paymentRequest-  = liftIO (js_newApplePaySession version paymentRequest)- -foreign import javascript safe-        "(($1) => { return (window[\"ApplePaySession\"][\"supportsVersion\"]($1) ? 1 : 0); })"-        js_supportsVersion :: Word -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.supportsVersion Mozilla ApplePaySession.supportsVersion documentation> -supportsVersion :: (MonadIO m) => Word -> m Bool-supportsVersion version = liftIO (js_supportsVersion version)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.supportsVersion Mozilla ApplePaySession.supportsVersion documentation> -supportsVersion_ :: (MonadIO m) => Word -> m ()-supportsVersion_ version-  = liftIO (void (js_supportsVersion version))- -foreign import javascript safe-        "(() => { return (window[\"ApplePaySession\"][\"canMakePayments\"]() ? 1 : 0); })"-        js_canMakePayments :: IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePayments Mozilla ApplePaySession.canMakePayments documentation> -canMakePayments :: (MonadIO m) => m Bool-canMakePayments = liftIO (js_canMakePayments)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePayments Mozilla ApplePaySession.canMakePayments documentation> -canMakePayments_ :: (MonadIO m) => m ()-canMakePayments_ = liftIO (void (js_canMakePayments))- -foreign import javascript interruptible-        "(($1, $c) => { return window[\"ApplePaySession\"][\"canMakePaymentsWithActiveCard\"]($1).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"-        js_canMakePaymentsWithActiveCard :: JSString -> IO (JSVal, Bool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePaymentsWithActiveCard Mozilla ApplePaySession.canMakePaymentsWithActiveCard documentation> -canMakePaymentsWithActiveCard ::-                              (MonadIO m, ToJSString merchantIdentifier) =>-                                merchantIdentifier -> m Bool-canMakePaymentsWithActiveCard merchantIdentifier-  = liftIO-      ((js_canMakePaymentsWithActiveCard (toJSString merchantIdentifier))-         >>= checkPromiseResult)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePaymentsWithActiveCard Mozilla ApplePaySession.canMakePaymentsWithActiveCard documentation> -canMakePaymentsWithActiveCard_ ::-                               (MonadIO m, ToJSString merchantIdentifier) =>-                                 merchantIdentifier -> m ()-canMakePaymentsWithActiveCard_ merchantIdentifier-  = liftIO-      (void-         (js_canMakePaymentsWithActiveCard (toJSString merchantIdentifier)))- -foreign import javascript interruptible-        "(($1, $c) => { return window[\"ApplePaySession\"][\"openPaymentSetup\"]($1).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"-        js_openPaymentSetup :: JSString -> IO (JSVal, Bool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.openPaymentSetup Mozilla ApplePaySession.openPaymentSetup documentation> -openPaymentSetup ::-                 (MonadIO m, ToJSString merchantIdentifier) =>-                   merchantIdentifier -> m Bool-openPaymentSetup merchantIdentifier-  = liftIO-      ((js_openPaymentSetup (toJSString merchantIdentifier)) >>=-         checkPromiseResult)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.openPaymentSetup Mozilla ApplePaySession.openPaymentSetup documentation> -openPaymentSetup_ ::-                  (MonadIO m, ToJSString merchantIdentifier) =>-                    merchantIdentifier -> m ()-openPaymentSetup_ merchantIdentifier-  = liftIO-      (void (js_openPaymentSetup (toJSString merchantIdentifier)))- -foreign import javascript safe "(($1) => { return $1[\"begin\"](); })" js_begin ::-        ApplePaySession -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.begin Mozilla ApplePaySession.begin documentation> -begin :: (MonadIO m) => ApplePaySession -> m ()-begin self = liftIO (js_begin self)- -foreign import javascript safe "(($1) => { return $1[\"abort\"](); })" js_abort ::-        ApplePaySession -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.abort Mozilla ApplePaySession.abort documentation> -abort :: (MonadIO m) => ApplePaySession -> m ()-abort self = liftIO (js_abort self)- -foreign import javascript safe-        "(($1, $2) => { return $1[\"completeMerchantValidation\"]($2); })"-        js_completeMerchantValidation :: ApplePaySession -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeMerchantValidation Mozilla ApplePaySession.completeMerchantValidation documentation> -completeMerchantValidation ::-                           (MonadIO m, ToJSVal merchantSession) =>-                             ApplePaySession -> merchantSession -> m ()-completeMerchantValidation self merchantSession-  = liftIO-      (toJSVal merchantSession >>=-         \ merchantSession' ->-           js_completeMerchantValidation self merchantSession')- -foreign import javascript safe-        "(($1, $2) => { return $1[\"completeShippingMethodSelection\"]($2); })"-        js_completeShippingMethodSelectionUpdate ::-        ApplePaySession -> ApplePayShippingMethodUpdate -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeShippingMethodSelection Mozilla ApplePaySession.completeShippingMethodSelection documentation> -completeShippingMethodSelectionUpdate ::-                                      (MonadIO m) =>-                                        ApplePaySession -> ApplePayShippingMethodUpdate -> m ()-completeShippingMethodSelectionUpdate self update-  = liftIO (js_completeShippingMethodSelectionUpdate self update)- -foreign import javascript safe-        "(($1, $2) => { return $1[\"completeShippingContactSelection\"]($2); })"-        js_completeShippingContactSelectionUpdate ::-        ApplePaySession -> ApplePayShippingContactUpdate -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeShippingContactSelection Mozilla ApplePaySession.completeShippingContactSelection documentation> -completeShippingContactSelectionUpdate ::-                                       (MonadIO m) =>-                                         ApplePaySession -> ApplePayShippingContactUpdate -> m ()-completeShippingContactSelectionUpdate self update-  = liftIO (js_completeShippingContactSelectionUpdate self update)- -foreign import javascript safe-        "(($1, $2) => { return $1[\"completePaymentMethodSelection\"]($2); })"-        js_completePaymentMethodSelectionUpdate ::-        ApplePaySession -> ApplePayPaymentMethodUpdate -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completePaymentMethodSelection Mozilla ApplePaySession.completePaymentMethodSelection documentation> -completePaymentMethodSelectionUpdate ::-                                     (MonadIO m) =>-                                       ApplePaySession -> ApplePayPaymentMethodUpdate -> m ()-completePaymentMethodSelectionUpdate self update-  = liftIO (js_completePaymentMethodSelectionUpdate self update)- -foreign import javascript safe "(($1, $2) => { return $1[\"completePayment\"]($2); })"-        js_completePaymentResult ::-        ApplePaySession -> ApplePayPaymentAuthorizationResult -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completePayment Mozilla ApplePaySession.completePayment documentation> -completePaymentResult ::-                      (MonadIO m) =>-                        ApplePaySession -> ApplePayPaymentAuthorizationResult -> m ()-completePaymentResult self result-  = liftIO (js_completePaymentResult self result)- -foreign import javascript safe-        "(($1, $2, $3, $4) => { return $1[\"completeShippingMethodSelection\"]($2,\n$3, $4); })"-        js_completeShippingMethodSelection ::-        ApplePaySession -> Word -> ApplePayLineItem -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeShippingMethodSelection Mozilla ApplePaySession.completeShippingMethodSelection documentation> -completeShippingMethodSelection ::-                                (MonadIO m) =>-                                  ApplePaySession ->-                                    Word -> ApplePayLineItem -> [ApplePayLineItem] -> m ()-completeShippingMethodSelection self status newTotal newLineItems-  = liftIO-      (toJSVal newLineItems >>=-         \ newLineItems' ->-           js_completeShippingMethodSelection self status newTotal-             newLineItems')- -foreign import javascript safe-        "(($1, $2, $3, $4, $5) => { return $1[\"completeShippingContactSelection\"]($2,\n$3, $4, $5); })"-        js_completeShippingContactSelection ::-        ApplePaySession ->-          Word -> JSVal -> ApplePayLineItem -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeShippingContactSelection Mozilla ApplePaySession.completeShippingContactSelection documentation> -completeShippingContactSelection ::-                                 (MonadIO m) =>-                                   ApplePaySession ->-                                     Word ->-                                       [ApplePayShippingMethod] ->-                                         ApplePayLineItem -> [ApplePayLineItem] -> m ()-completeShippingContactSelection self status newShippingMethods-  newTotal newLineItems-  = liftIO-      (toJSVal newLineItems >>=-         \ newLineItems' ->-           toJSVal newShippingMethods >>=-             \ newShippingMethods' ->-               js_completeShippingContactSelection self status newShippingMethods'-             newTotal-             newLineItems')- -foreign import javascript safe-        "(($1, $2, $3) => { return $1[\"completePaymentMethodSelection\"]($2,\n$3); })"-        js_completePaymentMethodSelection ::-        ApplePaySession -> ApplePayLineItem -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completePaymentMethodSelection Mozilla ApplePaySession.completePaymentMethodSelection documentation> -completePaymentMethodSelection ::-                               (MonadIO m) =>-                                 ApplePaySession -> ApplePayLineItem -> [ApplePayLineItem] -> m ()-completePaymentMethodSelection self newTotal newLineItems-  = liftIO-      (toJSVal newLineItems >>=-         \ newLineItems' ->-           js_completePaymentMethodSelection self newTotal newLineItems')- -foreign import javascript safe "(($1, $2) => { return $1[\"completePayment\"]($2); })"-        js_completePayment :: ApplePaySession -> Word -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completePayment Mozilla ApplePaySession.completePayment documentation> -completePayment :: (MonadIO m) => ApplePaySession -> Word -> m ()-completePayment self status-  = liftIO (js_completePayment self status)-pattern STATUS_SUCCESS = 0-pattern STATUS_FAILURE = 1-pattern STATUS_INVALID_BILLING_POSTAL_ADDRESS = 2-pattern STATUS_INVALID_SHIPPING_POSTAL_ADDRESS = 3-pattern STATUS_INVALID_SHIPPING_CONTACT = 4-pattern STATUS_PIN_REQUIRED = 5-pattern STATUS_PIN_INCORRECT = 6-pattern STATUS_PIN_LOCKOUT = 7---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onvalidatemerchant Mozilla ApplePaySession.onvalidatemerchant documentation> -validatemerchant :: EventName ApplePaySession onvalidatemerchant-validatemerchant = unsafeEventName (toJSString "validatemerchant")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onpaymentmethodselected Mozilla ApplePaySession.onpaymentmethodselected documentation> -paymentmethodselected ::-                        EventName ApplePaySession onpaymentmethodselected-paymentmethodselected-  = unsafeEventName (toJSString "paymentmethodselected")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onpaymentauthorized Mozilla ApplePaySession.onpaymentauthorized documentation> -paymentauthorized :: EventName ApplePaySession onpaymentauthorized-paymentauthorized-  = unsafeEventName (toJSString "paymentauthorized")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onshippingmethodselected Mozilla ApplePaySession.onshippingmethodselected documentation> -shippingmethodselected ::-                         EventName ApplePaySession onshippingmethodselected-shippingmethodselected-  = unsafeEventName (toJSString "shippingmethodselected")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onshippingcontactselected Mozilla ApplePaySession.onshippingcontactselected documentation> -shippingcontactselected ::-                          EventName ApplePaySession onshippingcontactselected-shippingcontactselected-  = unsafeEventName (toJSString "shippingcontactselected")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.oncancel Mozilla ApplePaySession.oncancel documentation> -cancel :: EventName ApplePaySession oncancel-cancel = unsafeEventName (toJSString "cancel")
− src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingContactSelectedEvent.hs
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.ApplePayShippingContactSelectedEvent-       (js_getShippingContact, getShippingContact,-        ApplePayShippingContactSelectedEvent(..),-        gTypeApplePayShippingContactSelectedEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"shippingContact\"]; })"-        js_getShippingContact ::-        ApplePayShippingContactSelectedEvent -> IO ApplePayPaymentContact---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayShippingContactSelectedEvent.shippingContact Mozilla ApplePayShippingContactSelectedEvent.shippingContact documentation> -getShippingContact ::-                   (MonadIO m) =>-                     ApplePayShippingContactSelectedEvent -> m ApplePayPaymentContact-getShippingContact self = liftIO (js_getShippingContact self)
− src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingMethodSelectedEvent.hs
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.ApplePayShippingMethodSelectedEvent-       (js_getShippingMethod, getShippingMethod,-        ApplePayShippingMethodSelectedEvent(..),-        gTypeApplePayShippingMethodSelectedEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"shippingMethod\"]; })"-        js_getShippingMethod ::-        ApplePayShippingMethodSelectedEvent -> IO ApplePayShippingMethod---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayShippingMethodSelectedEvent.shippingMethod Mozilla ApplePayShippingMethodSelectedEvent.shippingMethod documentation> -getShippingMethod ::-                  (MonadIO m) =>-                    ApplePayShippingMethodSelectedEvent -> m ApplePayShippingMethod-getShippingMethod self = liftIO (js_getShippingMethod self)
− src/GHCJS/DOM/JSFFI/Generated/ApplePayValidateMerchantEvent.hs
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.ApplePayValidateMerchantEvent-       (js_getValidationURL, getValidationURL,-        ApplePayValidateMerchantEvent(..),-        gTypeApplePayValidateMerchantEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"validationURL\"]; })"-        js_getValidationURL :: ApplePayValidateMerchantEvent -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayValidateMerchantEvent.validationURL Mozilla ApplePayValidateMerchantEvent.validationURL documentation> -getValidationURL ::-                 (MonadIO m, FromJSString result) =>-                   ApplePayValidateMerchantEvent -> m result-getValidationURL self-  = liftIO (fromJSString <$> (js_getValidationURL self))
− src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs
@@ -1,97 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.ApplicationCache-       (js_update, update, js_swapCache, swapCache, js_abort, abort,-        pattern UNCACHED, pattern IDLE, pattern CHECKING,-        pattern DOWNLOADING, pattern UPDATEREADY, pattern OBSOLETE,-        js_getStatus, getStatus, checking, error, noUpdate, downloading,-        progress, updateReady, cached, obsolete, ApplicationCache(..),-        gTypeApplicationCache)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1) => { return $1[\"update\"](); })" js_update ::-        ApplicationCache -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.update Mozilla ApplicationCache.update documentation> -update :: (MonadIO m) => ApplicationCache -> m ()-update self = liftIO (js_update self)- -foreign import javascript safe "(($1) => { return $1[\"swapCache\"](); })" js_swapCache-        :: ApplicationCache -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.swapCache Mozilla ApplicationCache.swapCache documentation> -swapCache :: (MonadIO m) => ApplicationCache -> m ()-swapCache self = liftIO (js_swapCache self)- -foreign import javascript unsafe "(($1) => { return $1[\"abort\"](); })" js_abort ::-        ApplicationCache -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.abort Mozilla ApplicationCache.abort documentation> -abort :: (MonadIO m) => ApplicationCache -> m ()-abort self = liftIO (js_abort self)-pattern UNCACHED = 0-pattern IDLE = 1-pattern CHECKING = 2-pattern DOWNLOADING = 3-pattern UPDATEREADY = 4-pattern OBSOLETE = 5- -foreign import javascript unsafe "(($1) => { return $1[\"status\"]; })" js_getStatus ::-        ApplicationCache -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.status Mozilla ApplicationCache.status documentation> -getStatus :: (MonadIO m) => ApplicationCache -> m Word-getStatus self = liftIO (js_getStatus self)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onchecking Mozilla ApplicationCache.onchecking documentation> -checking :: EventName ApplicationCache Event-checking = unsafeEventName (toJSString "checking")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onerror Mozilla ApplicationCache.onerror documentation> -error :: EventName ApplicationCache UIEvent-error = unsafeEventNameAsync (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onnoupdate Mozilla ApplicationCache.onnoupdate documentation> -noUpdate :: EventName ApplicationCache Event-noUpdate = unsafeEventName (toJSString "noupdate")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.ondownloading Mozilla ApplicationCache.ondownloading documentation> -downloading :: EventName ApplicationCache Event-downloading = unsafeEventName (toJSString "downloading")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onprogress Mozilla ApplicationCache.onprogress documentation> -progress :: EventName ApplicationCache ProgressEvent-progress = unsafeEventNameAsync (toJSString "progress")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onupdateready Mozilla ApplicationCache.onupdateready documentation> -updateReady :: EventName ApplicationCache Event-updateReady = unsafeEventName (toJSString "updateready")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.oncached Mozilla ApplicationCache.oncached documentation> -cached :: EventName ApplicationCache Event-cached = unsafeEventName (toJSString "cached")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onobsolete Mozilla ApplicationCache.onobsolete documentation> -obsolete :: EventName ApplicationCache Event-obsolete = unsafeEventName (toJSString "obsolete")
+ src/GHCJS/DOM/JSFFI/Generated/AriaNotificationOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from wai-aria-1.3 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AriaNotificationOptions+       (js_newAriaNotificationOptions, js_setPriority, js_getPriority, newAriaNotificationOptions, setPriority, getPriority, getPriorityUnsafe, getPriorityUnchecked, AriaNotificationOptions(..), gTypeAriaNotificationOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAriaNotificationOptions :: IO AriaNotificationOptions+-- | <https://w3c.github.io/aria/#dom-arianotificationoptions AriaNotificationOptions specification>+newAriaNotificationOptions :: (MonadDOM m) => m AriaNotificationOptions+newAriaNotificationOptions = liftDOM ((js_newAriaNotificationOptions))++foreign import javascript safe "(($1, $2) => { $1[\"priority\"] = $2; })"+        js_setPriority :: AriaNotificationOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/aria/#dom-arianotificationoptions-priority AriaNotificationOptions.priority specification>+setPriority :: (MonadDOM m) => AriaNotificationOptions -> AriaNotifyPriority -> m ()+setPriority self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setPriority (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"priority\"]; })"+        js_getPriority :: AriaNotificationOptions -> IO JSVal+-- | <https://w3c.github.io/aria/#dom-arianotificationoptions-priority AriaNotificationOptions.priority specification>+getPriority :: (MonadDOM m) => AriaNotificationOptions -> m (Maybe AriaNotifyPriority)+getPriority self = liftDOM (((js_getPriority (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/aria/#dom-arianotificationoptions-priority AriaNotificationOptions.priority specification>+getPriorityUnsafe :: (MonadDOM m, HasCallStack) => AriaNotificationOptions -> m AriaNotifyPriority+getPriorityUnsafe self = liftDOM ((((js_getPriority (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/aria/#dom-arianotificationoptions-priority AriaNotificationOptions.priority specification>+getPriorityUnchecked :: (MonadDOM m) => AriaNotificationOptions -> m AriaNotifyPriority+getPriorityUnchecked self = liftDOM ((pFromJSVal <$> (js_getPriority (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AssignedNodesOptions.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AssignedNodesOptions+       (js_newAssignedNodesOptions, js_setFlatten, js_getFlatten, newAssignedNodesOptions, setFlatten, getFlatten, getFlattenUnsafe, getFlattenUnchecked, AssignedNodesOptions(..), gTypeAssignedNodesOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAssignedNodesOptions :: IO AssignedNodesOptions+-- | <https://html.spec.whatwg.org/multipage/scripting.html#assignednodesoptions AssignedNodesOptions specification>+newAssignedNodesOptions :: (MonadDOM m) => m AssignedNodesOptions+newAssignedNodesOptions = liftDOM ((js_newAssignedNodesOptions))++foreign import javascript safe "(($1, $2) => { $1[\"flatten\"] = $2; })"+        js_setFlatten :: AssignedNodesOptions -> Bool -> IO ()+setFlatten :: (MonadDOM m) => AssignedNodesOptions -> Bool -> m ()+setFlatten self val = liftDOM (void ((js_setFlatten (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"flatten\"]; })"+        js_getFlatten :: AssignedNodesOptions -> IO JSVal+getFlatten :: (MonadDOM m) => AssignedNodesOptions -> m (Maybe Bool)+getFlatten self = liftDOM (((js_getFlatten (self)) >>= fromJSValUnchecked))++getFlattenUnsafe :: (MonadDOM m, HasCallStack) => AssignedNodesOptions -> m Bool+getFlattenUnsafe self = liftDOM ((((js_getFlatten (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++getFlattenUnchecked :: (MonadDOM m) => AssignedNodesOptions -> m Bool+getFlattenUnchecked self = liftDOM ((pFromJSVal <$> (js_getFlatten (self))))
src/GHCJS/DOM/JSFFI/Generated/Attr.hs view
@@ -1,136 +1,89 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Attr-       (js_getNamespaceURI, getNamespaceURI, getNamespaceURIUnsafe,-        getNamespaceURIUnchecked, js_getPrefix, getPrefix, getPrefixUnsafe,-        getPrefixUnchecked, js_getLocalName, getLocalName, js_getName,-        getName, js_setValue, setValue, js_getValue, getValue,-        js_getOwnerElement, getOwnerElement, getOwnerElementUnsafe,-        getOwnerElementUnchecked, js_getSpecified, getSpecified, Attr(..),-        gTypeAttr)+       (js_getNamespaceURI, js_getPrefix, js_getLocalName, js_getName, js_setValue, js_getValue, js_getOwnerElement, js_getSpecified, 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, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- + foreign import javascript unsafe "(($1) => { return $1[\"namespaceURI\"]; })"-        js_getNamespaceURI :: Attr -> IO (Nullable JSString)+        js_getNamespaceURI :: Attr -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Attr/namespaceURI MDN Attr.namespaceURI documentation>+getNamespaceURI :: (MonadDOM m, FromJSString result) => Attr -> m (Maybe result)+getNamespaceURI self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getNamespaceURI (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.namespaceURI Mozilla Attr.namespaceURI documentation> -getNamespaceURI ::-                (MonadIO m, FromJSString result) => Attr -> m (Maybe result)-getNamespaceURI self-  = liftIO (fromMaybeJSString <$> (js_getNamespaceURI self))+-- | <https://developer.mozilla.org/docs/Web/API/Attr/namespaceURI MDN Attr.namespaceURI documentation>+getNamespaceURIUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => Attr -> m result+getNamespaceURIUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getNamespaceURI (self))) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.namespaceURI Mozilla Attr.namespaceURI documentation> -getNamespaceURIUnsafe ::-                      (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result-getNamespaceURIUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getNamespaceURI self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Attr/namespaceURI MDN Attr.namespaceURI documentation>+getNamespaceURIUnchecked :: (MonadDOM m, FromJSString result) => Attr -> m result+getNamespaceURIUnchecked self = liftDOM ((pFromJSVal <$> (js_getNamespaceURI (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.namespaceURI Mozilla Attr.namespaceURI documentation> -getNamespaceURIUnchecked ::-                         (MonadIO m, FromJSString result) => Attr -> m result-getNamespaceURIUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getNamespaceURI self))- -foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" js_getPrefix ::-        Attr -> IO (Nullable JSString)+foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })"+        js_getPrefix :: Attr -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Attr/prefix MDN Attr.prefix documentation>+getPrefix :: (MonadDOM m, FromJSString result) => Attr -> m (Maybe result)+getPrefix self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPrefix (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.prefix Mozilla Attr.prefix documentation> -getPrefix ::-          (MonadIO m, FromJSString result) => Attr -> m (Maybe result)-getPrefix self = liftIO (fromMaybeJSString <$> (js_getPrefix self))+-- | <https://developer.mozilla.org/docs/Web/API/Attr/prefix MDN Attr.prefix documentation>+getPrefixUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => Attr -> m result+getPrefixUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPrefix (self))) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.prefix Mozilla Attr.prefix documentation> -getPrefixUnsafe ::-                (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result-getPrefixUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getPrefix self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Attr/prefix MDN Attr.prefix documentation>+getPrefixUnchecked :: (MonadDOM m, FromJSString result) => Attr -> m result+getPrefixUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrefix (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.prefix Mozilla Attr.prefix documentation> -getPrefixUnchecked ::-                   (MonadIO m, FromJSString result) => Attr -> m result-getPrefixUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getPrefix self))-  foreign import javascript unsafe "(($1) => { return $1[\"localName\"]; })"         js_getLocalName :: Attr -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Attr/localName MDN Attr.localName documentation>+getLocalName :: (MonadDOM m, FromJSString result) => Attr -> m result+getLocalName self = liftDOM ((fromJSString <$> (js_getLocalName (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.localName Mozilla Attr.localName documentation> -getLocalName ::-             (MonadIO m, FromJSString result) => Attr -> m result-getLocalName self-  = liftIO (fromJSString <$> (js_getLocalName self))- -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName ::-        Attr -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: Attr -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Attr/name MDN Attr.name documentation>+getName :: (MonadDOM m, FromJSString result) => Attr -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation> -getName :: (MonadIO m, FromJSString result) => Attr -> m result-getName self = liftIO (fromJSString <$> (js_getName self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"value\"] = $2; })" js_setValue-        :: Attr -> JSString -> IO ()+foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })"+        js_setValue :: Attr -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Attr/value MDN Attr.value documentation>+setValue :: (MonadDOM m, ToJSString val) => Attr -> val -> m ()+setValue self val = liftDOM (void ((js_setValue (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> -setValue :: (MonadIO m, ToJSString val) => Attr -> val -> m ()-setValue self val = liftIO (js_setValue self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue ::-        Attr -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: Attr -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Attr/value MDN Attr.value documentation>+getValue :: (MonadDOM m, FromJSString result) => Attr -> m result+getValue self = liftDOM ((fromJSString <$> (js_getValue (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> -getValue :: (MonadIO m, FromJSString result) => Attr -> m result-getValue self = liftIO (fromJSString <$> (js_getValue self))-  foreign import javascript unsafe "(($1) => { return $1[\"ownerElement\"]; })"-        js_getOwnerElement :: Attr -> IO (Nullable Element)+        js_getOwnerElement :: Attr -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Attr/ownerElement MDN Attr.ownerElement documentation>+getOwnerElement :: (MonadDOM m) => Attr -> m (Maybe Element)+getOwnerElement self = liftDOM (((js_getOwnerElement (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> -getOwnerElement :: (MonadIO m) => Attr -> m (Maybe Element)-getOwnerElement self-  = liftIO (nullableToMaybe <$> (js_getOwnerElement self))+-- | <https://developer.mozilla.org/docs/Web/API/Attr/ownerElement MDN Attr.ownerElement documentation>+getOwnerElementUnsafe :: (MonadDOM m, HasCallStack) => Attr -> m Element+getOwnerElementUnsafe self = liftDOM ((((js_getOwnerElement (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> -getOwnerElementUnsafe ::-                      (MonadIO m, HasCallStack) => Attr -> m Element-getOwnerElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getOwnerElement self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Attr/ownerElement MDN Attr.ownerElement documentation>+getOwnerElementUnchecked :: (MonadDOM m) => Attr -> m Element+getOwnerElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getOwnerElement (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> -getOwnerElementUnchecked :: (MonadIO m) => Attr -> m Element-getOwnerElementUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getOwnerElement self))- -foreign import javascript unsafe "(($1) => { return ($1[\"specified\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"specified\"]; })"         js_getSpecified :: Attr -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.specified Mozilla Attr.specified documentation> -getSpecified :: (MonadIO m) => Attr -> m Bool-getSpecified self = liftIO (js_getSpecified self)+-- | <https://developer.mozilla.org/docs/Web/API/Attr/specified MDN Attr.specified documentation>+getSpecified :: (MonadDOM m) => Attr -> m Bool+getSpecified self = liftDOM ((js_getSpecified (self)))
src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs view
@@ -1,86 +1,69 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioBuffer-       (js_getChannelData, getChannelData, getChannelData_, js_getLength,-        getLength, js_getDuration, getDuration, js_getSampleRate,-        getSampleRate, js_setGain, setGain, js_getGain, getGain,-        js_getNumberOfChannels, getNumberOfChannels, AudioBuffer(..),-        gTypeAudioBuffer)+       (js_newAudioBuffer, js_copyFromChannel, js_copyToChannel, js_getChannelData, js_getSampleRate, js_getLength, js_getDuration, js_getNumberOfChannels, newAudioBuffer, copyFromChannel, copyToChannel, getChannelData, getChannelData_, getSampleRate, getLength, getDuration, getNumberOfChannels, AudioBuffer(..), gTypeAudioBuffer)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1, $2) => { return $1[\"getChannelData\"]($2); })"-        js_getChannelData :: AudioBuffer -> Word -> IO Float32Array --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> -getChannelData ::-               (MonadIO m) => AudioBuffer -> Word -> m Float32Array-getChannelData self channelIndex-  = liftIO (js_getChannelData self channelIndex)+foreign import javascript safe "(($1) => { return new globalThis[\"AudioBuffer\"]($1); })"+        js_newAudioBuffer :: AudioBufferOptions -> IO AudioBuffer+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/AudioBuffer MDN AudioBuffer. documentation>+newAudioBuffer :: (MonadDOM m) => AudioBufferOptions -> m AudioBuffer+newAudioBuffer options = liftDOM ((js_newAudioBuffer (options))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> -getChannelData_ :: (MonadIO m) => AudioBuffer -> Word -> m ()-getChannelData_ self channelIndex-  = liftIO (void (js_getChannelData self channelIndex))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::-        AudioBuffer -> IO Int+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"copyFromChannel\"]($2, $3, $4); })"+        js_copyFromChannel :: AudioBuffer -> Float32Array -> Word -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/copyFromChannel MDN AudioBuffer.copyFromChannel documentation>+copyFromChannel :: (MonadDOM m, IsFloat32Array destination) => AudioBuffer -> destination -> Word -> Maybe Word -> m ()+copyFromChannel self destination channelNumber bufferOffset = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bufferOffset) >>= \a4' -> js_copyFromChannel (self) (Types.toFloat32Array destination) (channelNumber) a4'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.length Mozilla AudioBuffer.length documentation> -getLength :: (MonadIO m) => AudioBuffer -> m Int-getLength self = liftIO (js_getLength self)- -foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })" js_getDuration-        :: AudioBuffer -> IO Float+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"copyToChannel\"]($2, $3, $4); })"+        js_copyToChannel :: AudioBuffer -> Float32Array -> Word -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/copyToChannel MDN AudioBuffer.copyToChannel documentation>+copyToChannel :: (MonadDOM m, IsFloat32Array source) => AudioBuffer -> source -> Word -> Maybe Word -> m ()+copyToChannel self source channelNumber bufferOffset = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bufferOffset) >>= \a4' -> js_copyToChannel (self) (Types.toFloat32Array source) (channelNumber) a4'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.duration Mozilla AudioBuffer.duration documentation> -getDuration :: (MonadIO m) => AudioBuffer -> m Float-getDuration self = liftIO (js_getDuration self)- +foreign import javascript safe "(($1, $2) => { return $1[\"getChannelData\"]($2); })"+        js_getChannelData :: AudioBuffer -> Word -> IO Float32Array+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/getChannelData MDN AudioBuffer.getChannelData documentation>+getChannelData :: (MonadDOM m) => AudioBuffer -> Word -> m Float32Array+getChannelData self channel = liftDOM ((js_getChannelData (self) (channel)))++-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/getChannelData MDN AudioBuffer.getChannelData documentation>+getChannelData_ :: (MonadDOM m) => AudioBuffer -> Word -> m ()+getChannelData_ self channel = liftDOM (void ((js_getChannelData (self) (channel))))+ foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"         js_getSampleRate :: AudioBuffer -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/sampleRate MDN AudioBuffer.sampleRate documentation>+getSampleRate :: (MonadDOM m) => AudioBuffer -> m Float+getSampleRate self = liftDOM ((js_getSampleRate (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.sampleRate Mozilla AudioBuffer.sampleRate documentation> -getSampleRate :: (MonadIO m) => AudioBuffer -> m Float-getSampleRate self = liftIO (js_getSampleRate self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"gain\"] = $2; })" js_setGain ::-        AudioBuffer -> Float -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: AudioBuffer -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/length MDN AudioBuffer.length documentation>+getLength :: (MonadDOM m) => AudioBuffer -> m Word+getLength self = liftDOM ((js_getLength (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation> -setGain :: (MonadIO m) => AudioBuffer -> Float -> m ()-setGain self val = liftIO (js_setGain self val)- -foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })" js_getGain ::-        AudioBuffer -> IO Float+foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+        js_getDuration :: AudioBuffer -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/duration MDN AudioBuffer.duration documentation>+getDuration :: (MonadDOM m) => AudioBuffer -> m Double+getDuration self = liftDOM ((js_getDuration (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation> -getGain :: (MonadIO m) => AudioBuffer -> m Float-getGain self = liftIO (js_getGain self)-  foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })"         js_getNumberOfChannels :: AudioBuffer -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.numberOfChannels Mozilla AudioBuffer.numberOfChannels documentation> -getNumberOfChannels :: (MonadIO m) => AudioBuffer -> m Word-getNumberOfChannels self = liftIO (js_getNumberOfChannels self)+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/numberOfChannels MDN AudioBuffer.numberOfChannels documentation>+getNumberOfChannels :: (MonadDOM m) => AudioBuffer -> m Word+getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self)))
− src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs
@@ -1,60 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.AudioBufferCallback-       (newAudioBufferCallback, newAudioBufferCallbackSync,-        newAudioBufferCallbackAsync, AudioBufferCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> -newAudioBufferCallback ::-                       (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback-newAudioBufferCallback callback-  = liftIO-      (AudioBufferCallback <$>-         syncCallback1 ThrowWouldBlock-           (\ audioBuffer ->-              fromJSValUnchecked audioBuffer >>=-                \ audioBuffer' -> callback audioBuffer'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> -newAudioBufferCallbackSync ::-                           (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback-newAudioBufferCallbackSync callback-  = liftIO-      (AudioBufferCallback <$>-         syncCallback1 ContinueAsync-           (\ audioBuffer ->-              fromJSValUnchecked audioBuffer >>=-                \ audioBuffer' -> callback audioBuffer'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> -newAudioBufferCallbackAsync ::-                            (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback-newAudioBufferCallbackAsync callback-  = liftIO-      (AudioBufferCallback <$>-         asyncCallback1-           (\ audioBuffer ->-              fromJSValUnchecked audioBuffer >>=-                \ audioBuffer' -> callback audioBuffer'))
+ src/GHCJS/DOM/JSFFI/Generated/AudioBufferOptions.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioBufferOptions+       (js_newAudioBufferOptions, js_setNumberOfChannels, js_getNumberOfChannels, js_setLength, js_getLength, js_setSampleRate, js_getSampleRate, newAudioBufferOptions, setNumberOfChannels, getNumberOfChannels, getNumberOfChannelsUnsafe, getNumberOfChannelsUnchecked, setLength, getLength, setSampleRate, getSampleRate, AudioBufferOptions(..), gTypeAudioBufferOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return ({\"length\": $1, \"sampleRate\": $2}); })"+        js_newAudioBufferOptions :: Word -> Float -> IO AudioBufferOptions+-- | <https://webaudio.github.io/web-audio-api/#AudioBufferOptions AudioBufferOptions specification>+newAudioBufferOptions :: (MonadDOM m) => Word -> Float -> m AudioBufferOptions+newAudioBufferOptions length sampleRate = liftDOM ((js_newAudioBufferOptions (length) (sampleRate)))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfChannels\"] = $2; })"+        js_setNumberOfChannels :: AudioBufferOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>+setNumberOfChannels :: (MonadDOM m) => AudioBufferOptions -> Word -> m ()+setNumberOfChannels self val = liftDOM (void ((js_setNumberOfChannels (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })"+        js_getNumberOfChannels :: AudioBufferOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>+getNumberOfChannels :: (MonadDOM m) => AudioBufferOptions -> m (Maybe Word)+getNumberOfChannels self = liftDOM (((js_getNumberOfChannels (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>+getNumberOfChannelsUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferOptions -> m Word+getNumberOfChannelsUnsafe self = liftDOM ((((js_getNumberOfChannels (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>+getNumberOfChannelsUnchecked :: (MonadDOM m) => AudioBufferOptions -> m Word+getNumberOfChannelsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfChannels (self))))++foreign import javascript safe "(($1, $2) => { $1[\"length\"] = $2; })"+        js_setLength :: AudioBufferOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-length AudioBufferOptions.length specification>+setLength :: (MonadDOM m) => AudioBufferOptions -> Word -> m ()+setLength self val = liftDOM (void ((js_setLength (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: AudioBufferOptions -> IO Word+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-length AudioBufferOptions.length specification>+getLength :: (MonadDOM m) => AudioBufferOptions -> m Word+getLength self = liftDOM ((js_getLength (self)))++foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })"+        js_setSampleRate :: AudioBufferOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-samplerate AudioBufferOptions.sampleRate specification>+setSampleRate :: (MonadDOM m) => AudioBufferOptions -> Float -> m ()+setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"+        js_getSampleRate :: AudioBufferOptions -> IO Float+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-samplerate AudioBufferOptions.sampleRate specification>+getSampleRate :: (MonadDOM m) => AudioBufferOptions -> m Float+getSampleRate self = liftDOM ((js_getSampleRate (self)))
src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs view
@@ -1,164 +1,97 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode-       (js_start, start, js_stop, stop, pattern UNSCHEDULED_STATE,-        pattern SCHEDULED_STATE, pattern PLAYING_STATE,-        pattern FINISHED_STATE, js_setBuffer, setBuffer, js_getBuffer,-        getBuffer, getBufferUnsafe, getBufferUnchecked,-        js_getPlaybackState, getPlaybackState, js_getGain, getGain,-        js_getPlaybackRate, getPlaybackRate, js_setLoop, setLoop,-        js_getLoop, getLoop, js_setLoopStart, setLoopStart,-        js_getLoopStart, getLoopStart, js_setLoopEnd, setLoopEnd,-        js_getLoopEnd, getLoopEnd, ended, AudioBufferSourceNode(..),-        gTypeAudioBufferSourceNode)+       (js_newAudioBufferSourceNode, js_start, js_setBuffer, js_getBuffer, js_getPlaybackRate, js_getDetune, js_setLoop, js_getLoop, js_setLoopStart, js_getLoopStart, js_setLoopEnd, js_getLoopEnd, newAudioBufferSourceNode, start, setBuffer, getBuffer, getBufferUnsafe, getBufferUnchecked, getPlaybackRate, getDetune, setLoop, getLoop, setLoopStart, getLoopStart, setLoopEnd, getLoopEnd, AudioBufferSourceNode(..), gTypeAudioBufferSourceNode)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"start\"]($2, $3, $4); })" js_start-        ::-        AudioBufferSourceNode ->-          Optional Double -> Optional Double -> Optional Double -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.start Mozilla AudioBufferSourceNode.start documentation> -start ::-      (MonadIO m) =>-        AudioBufferSourceNode ->-          Maybe Double -> Maybe Double -> Maybe Double -> m ()-start self when grainOffset grainDuration-  = liftIO-      (js_start self (maybeToOptional when) (maybeToOptional grainOffset)-         (maybeToOptional grainDuration))- -foreign import javascript safe "(($1, $2) => { return $1[\"stop\"]($2); })" js_stop ::-        AudioBufferSourceNode -> Optional Double -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.stop Mozilla AudioBufferSourceNode.stop documentation> -stop ::-     (MonadIO m) => AudioBufferSourceNode -> Maybe Double -> m ()-stop self when = liftIO (js_stop self (maybeToOptional when))-pattern UNSCHEDULED_STATE = 0-pattern SCHEDULED_STATE = 1-pattern PLAYING_STATE = 2-pattern FINISHED_STATE = 3- -foreign import javascript unsafe "(($1, $2) => { $1[\"buffer\"] = $2; })"-        js_setBuffer ::-        AudioBufferSourceNode -> Optional AudioBuffer -> IO ()+foreign import javascript safe "(($1, $2) => { return new globalThis[\"AudioBufferSourceNode\"]($1, $2); })"+        js_newAudioBufferSourceNode :: BaseAudioContext -> JSVal -> IO AudioBufferSourceNode+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/AudioBufferSourceNode MDN AudioBufferSourceNode. documentation>+newAudioBufferSourceNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe AudioBufferSourceOptions -> m AudioBufferSourceNode+newAudioBufferSourceNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newAudioBufferSourceNode (Types.toBaseAudioContext context) a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> -setBuffer ::-          (MonadIO m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m ()-setBuffer self val-  = liftIO (js_setBuffer self (maybeToOptional val))- -foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })" js_getBuffer ::-        AudioBufferSourceNode -> IO (Nullable AudioBuffer)+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"start\"]($2, $3, $4); })"+        js_start :: AudioBufferSourceNode -> JSVal -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/start MDN AudioBufferSourceNode.start documentation>+start :: (MonadDOM m) => AudioBufferSourceNode -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+start self when offset duration = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal when) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal offset) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal duration) >>= \a4' -> js_start (self) a2' a3' a4'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> -getBuffer ::-          (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioBuffer)-getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer self))+foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })"+        js_setBuffer :: AudioBufferSourceNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/buffer MDN AudioBufferSourceNode.buffer documentation>+setBuffer :: (MonadDOM m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m ()+setBuffer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBuffer (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> -getBufferUnsafe ::-                (MonadIO m, HasCallStack) => AudioBufferSourceNode -> m AudioBuffer-getBufferUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBuffer self)) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })"+        js_getBuffer :: AudioBufferSourceNode -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/buffer MDN AudioBufferSourceNode.buffer documentation>+getBuffer :: (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioBuffer)+getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> -getBufferUnchecked ::-                   (MonadIO m) => AudioBufferSourceNode -> m AudioBuffer-getBufferUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBuffer self))- -foreign import javascript unsafe "(($1) => { return $1[\"playbackState\"]; })"-        js_getPlaybackState :: AudioBufferSourceNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/buffer MDN AudioBufferSourceNode.buffer documentation>+getBufferUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceNode -> m AudioBuffer+getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackState Mozilla AudioBufferSourceNode.playbackState documentation> -getPlaybackState :: (MonadIO m) => AudioBufferSourceNode -> m Word-getPlaybackState self = liftIO (js_getPlaybackState self)- -foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })" js_getGain ::-        AudioBufferSourceNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/buffer MDN AudioBufferSourceNode.buffer documentation>+getBufferUnchecked :: (MonadDOM m) => AudioBufferSourceNode -> m AudioBuffer+getBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getBuffer (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation> -getGain :: (MonadIO m) => AudioBufferSourceNode -> m AudioParam-getGain self = liftIO (js_getGain self)-  foreign import javascript unsafe "(($1) => { return $1[\"playbackRate\"]; })"         js_getPlaybackRate :: AudioBufferSourceNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/playbackRate MDN AudioBufferSourceNode.playbackRate documentation>+getPlaybackRate :: (MonadDOM m) => AudioBufferSourceNode -> m AudioParam+getPlaybackRate self = liftDOM ((js_getPlaybackRate (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation> -getPlaybackRate ::-                (MonadIO m) => AudioBufferSourceNode -> m AudioParam-getPlaybackRate self = liftIO (js_getPlaybackRate self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"loop\"] = $2; })" js_setLoop ::-        AudioBufferSourceNode -> Bool -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"detune\"]; })"+        js_getDetune :: AudioBufferSourceNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/detune MDN AudioBufferSourceNode.detune documentation>+getDetune :: (MonadDOM m) => AudioBufferSourceNode -> m AudioParam+getDetune self = liftDOM ((js_getDetune (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation> -setLoop :: (MonadIO m) => AudioBufferSourceNode -> Bool -> m ()-setLoop self val = liftIO (js_setLoop self val)- -foreign import javascript unsafe "(($1) => { return ($1[\"loop\"] ? 1 : 0); })"+foreign import javascript safe "(($1, $2) => { $1[\"loop\"] = $2; })"+        js_setLoop :: AudioBufferSourceNode -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loop MDN AudioBufferSourceNode.loop documentation>+setLoop :: (MonadDOM m) => AudioBufferSourceNode -> Bool -> m ()+setLoop self val = liftDOM (void ((js_setLoop (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"loop\"]; })"         js_getLoop :: AudioBufferSourceNode -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loop MDN AudioBufferSourceNode.loop documentation>+getLoop :: (MonadDOM m) => AudioBufferSourceNode -> m Bool+getLoop self = liftDOM ((js_getLoop (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation> -getLoop :: (MonadIO m) => AudioBufferSourceNode -> m Bool-getLoop self = liftIO (js_getLoop self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"loopStart\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"loopStart\"] = $2; })"         js_setLoopStart :: AudioBufferSourceNode -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loopStart MDN AudioBufferSourceNode.loopStart documentation>+setLoopStart :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()+setLoopStart self val = liftDOM (void ((js_setLoopStart (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation> -setLoopStart ::-             (MonadIO m) => AudioBufferSourceNode -> Double -> m ()-setLoopStart self val = liftIO (js_setLoopStart self val)-  foreign import javascript unsafe "(($1) => { return $1[\"loopStart\"]; })"         js_getLoopStart :: AudioBufferSourceNode -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loopStart MDN AudioBufferSourceNode.loopStart documentation>+getLoopStart :: (MonadDOM m) => AudioBufferSourceNode -> m Double+getLoopStart self = liftDOM ((js_getLoopStart (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation> -getLoopStart :: (MonadIO m) => AudioBufferSourceNode -> m Double-getLoopStart self = liftIO (js_getLoopStart self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"loopEnd\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"loopEnd\"] = $2; })"         js_setLoopEnd :: AudioBufferSourceNode -> Double -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> -setLoopEnd ::-           (MonadIO m) => AudioBufferSourceNode -> Double -> m ()-setLoopEnd self val = liftIO (js_setLoopEnd self val)- -foreign import javascript unsafe "(($1) => { return $1[\"loopEnd\"]; })" js_getLoopEnd ::-        AudioBufferSourceNode -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> -getLoopEnd :: (MonadIO m) => AudioBufferSourceNode -> m Double-getLoopEnd self = liftIO (js_getLoopEnd self)+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loopEnd MDN AudioBufferSourceNode.loopEnd documentation>+setLoopEnd :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()+setLoopEnd self val = liftDOM (void ((js_setLoopEnd (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.onended Mozilla AudioBufferSourceNode.onended documentation> -ended :: EventName AudioBufferSourceNode Event-ended = unsafeEventName (toJSString "ended")+foreign import javascript unsafe "(($1) => { return $1[\"loopEnd\"]; })"+        js_getLoopEnd :: AudioBufferSourceNode -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loopEnd MDN AudioBufferSourceNode.loopEnd documentation>+getLoopEnd :: (MonadDOM m) => AudioBufferSourceNode -> m Double+getLoopEnd self = liftDOM ((js_getLoopEnd (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceOptions.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioBufferSourceOptions+       (js_newAudioBufferSourceOptions, js_setBuffer, js_getBuffer, js_setDetune, js_getDetune, js_setLoop, js_getLoop, js_setLoopEnd, js_getLoopEnd, js_setLoopStart, js_getLoopStart, js_setPlaybackRate, js_getPlaybackRate, newAudioBufferSourceOptions, setBuffer, getBuffer, getBufferUnsafe, getBufferUnchecked, setDetune, getDetune, getDetuneUnsafe, getDetuneUnchecked, setLoop, getLoop, getLoopUnsafe, getLoopUnchecked, setLoopEnd, getLoopEnd, getLoopEndUnsafe, getLoopEndUnchecked, setLoopStart, getLoopStart, getLoopStartUnsafe, getLoopStartUnchecked, setPlaybackRate, getPlaybackRate, getPlaybackRateUnsafe, getPlaybackRateUnchecked, AudioBufferSourceOptions(..), gTypeAudioBufferSourceOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAudioBufferSourceOptions :: IO AudioBufferSourceOptions+-- | <https://webaudio.github.io/web-audio-api/#AudioBufferSourceOptions AudioBufferSourceOptions specification>+newAudioBufferSourceOptions :: (MonadDOM m) => m AudioBufferSourceOptions+newAudioBufferSourceOptions = liftDOM ((js_newAudioBufferSourceOptions))++foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })"+        js_setBuffer :: AudioBufferSourceOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-buffer AudioBufferSourceOptions.buffer specification>+setBuffer :: (MonadDOM m) => AudioBufferSourceOptions -> Maybe AudioBuffer -> m ()+setBuffer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBuffer (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })"+        js_getBuffer :: AudioBufferSourceOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-buffer AudioBufferSourceOptions.buffer specification>+getBuffer :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe AudioBuffer)+getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-buffer AudioBufferSourceOptions.buffer specification>+getBufferUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m AudioBuffer+getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-buffer AudioBufferSourceOptions.buffer specification>+getBufferUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m AudioBuffer+getBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getBuffer (self))))++foreign import javascript safe "(($1, $2) => { $1[\"detune\"] = $2; })"+        js_setDetune :: AudioBufferSourceOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-detune AudioBufferSourceOptions.detune specification>+setDetune :: (MonadDOM m) => AudioBufferSourceOptions -> Float -> m ()+setDetune self val = liftDOM (void ((js_setDetune (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"detune\"]; })"+        js_getDetune :: AudioBufferSourceOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-detune AudioBufferSourceOptions.detune specification>+getDetune :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Float)+getDetune self = liftDOM (((js_getDetune (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-detune AudioBufferSourceOptions.detune specification>+getDetuneUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Float+getDetuneUnsafe self = liftDOM ((((js_getDetune (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-detune AudioBufferSourceOptions.detune specification>+getDetuneUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Float+getDetuneUnchecked self = liftDOM ((pFromJSVal <$> (js_getDetune (self))))++foreign import javascript safe "(($1, $2) => { $1[\"loop\"] = $2; })"+        js_setLoop :: AudioBufferSourceOptions -> Bool -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loop AudioBufferSourceOptions.loop specification>+setLoop :: (MonadDOM m) => AudioBufferSourceOptions -> Bool -> m ()+setLoop self val = liftDOM (void ((js_setLoop (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"loop\"]; })"+        js_getLoop :: AudioBufferSourceOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loop AudioBufferSourceOptions.loop specification>+getLoop :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Bool)+getLoop self = liftDOM (((js_getLoop (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loop AudioBufferSourceOptions.loop specification>+getLoopUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Bool+getLoopUnsafe self = liftDOM ((((js_getLoop (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loop AudioBufferSourceOptions.loop specification>+getLoopUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Bool+getLoopUnchecked self = liftDOM ((pFromJSVal <$> (js_getLoop (self))))++foreign import javascript safe "(($1, $2) => { $1[\"loopEnd\"] = $2; })"+        js_setLoopEnd :: AudioBufferSourceOptions -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopend AudioBufferSourceOptions.loopEnd specification>+setLoopEnd :: (MonadDOM m) => AudioBufferSourceOptions -> Double -> m ()+setLoopEnd self val = liftDOM (void ((js_setLoopEnd (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"loopEnd\"]; })"+        js_getLoopEnd :: AudioBufferSourceOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopend AudioBufferSourceOptions.loopEnd specification>+getLoopEnd :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Double)+getLoopEnd self = liftDOM (((js_getLoopEnd (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopend AudioBufferSourceOptions.loopEnd specification>+getLoopEndUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Double+getLoopEndUnsafe self = liftDOM ((((js_getLoopEnd (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopend AudioBufferSourceOptions.loopEnd specification>+getLoopEndUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Double+getLoopEndUnchecked self = liftDOM ((pFromJSVal <$> (js_getLoopEnd (self))))++foreign import javascript safe "(($1, $2) => { $1[\"loopStart\"] = $2; })"+        js_setLoopStart :: AudioBufferSourceOptions -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopstart AudioBufferSourceOptions.loopStart specification>+setLoopStart :: (MonadDOM m) => AudioBufferSourceOptions -> Double -> m ()+setLoopStart self val = liftDOM (void ((js_setLoopStart (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"loopStart\"]; })"+        js_getLoopStart :: AudioBufferSourceOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopstart AudioBufferSourceOptions.loopStart specification>+getLoopStart :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Double)+getLoopStart self = liftDOM (((js_getLoopStart (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopstart AudioBufferSourceOptions.loopStart specification>+getLoopStartUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Double+getLoopStartUnsafe self = liftDOM ((((js_getLoopStart (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopstart AudioBufferSourceOptions.loopStart specification>+getLoopStartUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Double+getLoopStartUnchecked self = liftDOM ((pFromJSVal <$> (js_getLoopStart (self))))++foreign import javascript safe "(($1, $2) => { $1[\"playbackRate\"] = $2; })"+        js_setPlaybackRate :: AudioBufferSourceOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-playbackrate AudioBufferSourceOptions.playbackRate specification>+setPlaybackRate :: (MonadDOM m) => AudioBufferSourceOptions -> Float -> m ()+setPlaybackRate self val = liftDOM (void ((js_setPlaybackRate (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"playbackRate\"]; })"+        js_getPlaybackRate :: AudioBufferSourceOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-playbackrate AudioBufferSourceOptions.playbackRate specification>+getPlaybackRate :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Float)+getPlaybackRate self = liftDOM (((js_getPlaybackRate (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-playbackrate AudioBufferSourceOptions.playbackRate specification>+getPlaybackRateUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Float+getPlaybackRateUnsafe self = liftDOM ((((js_getPlaybackRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-playbackrate AudioBufferSourceOptions.playbackRate specification>+getPlaybackRateUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Float+getPlaybackRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getPlaybackRate (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AudioConfiguration.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from media-capabilities (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioConfiguration+       (js_newAudioConfiguration, js_setContentType, js_getContentType, js_setChannels, js_getChannels, js_setBitrate, js_getBitrate, js_setSamplerate, js_getSamplerate, js_setSpatialRendering, js_getSpatialRendering, newAudioConfiguration, setContentType, getContentType, setChannels, getChannels, getChannelsUnsafe, getChannelsUnchecked, setBitrate, getBitrate, getBitrateUnsafe, getBitrateUnchecked, setSamplerate, getSamplerate, getSamplerateUnsafe, getSamplerateUnchecked, setSpatialRendering, getSpatialRendering, getSpatialRenderingUnsafe, getSpatialRenderingUnchecked, AudioConfiguration(..), gTypeAudioConfiguration)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"contentType\": $1}); })"+        js_newAudioConfiguration :: JSString -> IO AudioConfiguration+-- | <https://w3c.github.io/media-capabilities/#dictdef-audioconfiguration AudioConfiguration specification>+newAudioConfiguration :: (MonadDOM m, ToJSString contentType) => contentType -> m AudioConfiguration+newAudioConfiguration contentType = liftDOM ((js_newAudioConfiguration (toJSString contentType)))++foreign import javascript safe "(($1, $2) => { $1[\"contentType\"] = $2; })"+        js_setContentType :: AudioConfiguration -> JSString -> IO ()+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-contenttype AudioConfiguration.contentType specification>+setContentType :: (MonadDOM m, ToJSString val) => AudioConfiguration -> val -> m ()+setContentType self val = liftDOM (void ((js_setContentType (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"contentType\"]; })"+        js_getContentType :: AudioConfiguration -> IO JSString+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-contenttype AudioConfiguration.contentType specification>+getContentType :: (MonadDOM m, FromJSString result) => AudioConfiguration -> m result+getContentType self = liftDOM ((fromJSString <$> (js_getContentType (self))))++foreign import javascript safe "(($1, $2) => { $1[\"channels\"] = $2; })"+        js_setChannels :: AudioConfiguration -> JSString -> IO ()+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>+setChannels :: (MonadDOM m, ToJSString val) => AudioConfiguration -> val -> m ()+setChannels self val = liftDOM (void ((js_setChannels (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"channels\"]; })"+        js_getChannels :: AudioConfiguration -> IO JSVal+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>+getChannels :: (MonadDOM m, FromJSString result) => AudioConfiguration -> m (Maybe result)+getChannels self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getChannels (self))))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>+getChannelsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AudioConfiguration -> m result+getChannelsUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getChannels (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>+getChannelsUnchecked :: (MonadDOM m, FromJSString result) => AudioConfiguration -> m result+getChannelsUnchecked self = liftDOM ((pFromJSVal <$> (js_getChannels (self))))++foreign import javascript safe "(($1, $2) => { $1[\"bitrate\"] = $2; })"+        js_setBitrate :: AudioConfiguration -> JSVal -> IO ()+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>+setBitrate :: (MonadDOM m) => AudioConfiguration -> Word53 -> m ()+setBitrate self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBitrate (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"bitrate\"]; })"+        js_getBitrate :: AudioConfiguration -> IO JSVal+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>+getBitrate :: (MonadDOM m) => AudioConfiguration -> m (Maybe Word53)+getBitrate self = liftDOM (((js_getBitrate (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>+getBitrateUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Word53+getBitrateUnsafe self = liftDOM ((((js_getBitrate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>+getBitrateUnchecked :: (MonadDOM m) => AudioConfiguration -> m Word53+getBitrateUnchecked self = liftDOM ((pFromJSVal <$> (js_getBitrate (self))))++foreign import javascript safe "(($1, $2) => { $1[\"samplerate\"] = $2; })"+        js_setSamplerate :: AudioConfiguration -> Word -> IO ()+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>+setSamplerate :: (MonadDOM m) => AudioConfiguration -> Word -> m ()+setSamplerate self val = liftDOM (void ((js_setSamplerate (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"samplerate\"]; })"+        js_getSamplerate :: AudioConfiguration -> IO JSVal+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>+getSamplerate :: (MonadDOM m) => AudioConfiguration -> m (Maybe Word)+getSamplerate self = liftDOM (((js_getSamplerate (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>+getSamplerateUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Word+getSamplerateUnsafe self = liftDOM ((((js_getSamplerate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>+getSamplerateUnchecked :: (MonadDOM m) => AudioConfiguration -> m Word+getSamplerateUnchecked self = liftDOM ((pFromJSVal <$> (js_getSamplerate (self))))++foreign import javascript safe "(($1, $2) => { $1[\"spatialRendering\"] = $2; })"+        js_setSpatialRendering :: AudioConfiguration -> Bool -> IO ()+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>+setSpatialRendering :: (MonadDOM m) => AudioConfiguration -> Bool -> m ()+setSpatialRendering self val = liftDOM (void ((js_setSpatialRendering (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"spatialRendering\"]; })"+        js_getSpatialRendering :: AudioConfiguration -> IO JSVal+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>+getSpatialRendering :: (MonadDOM m) => AudioConfiguration -> m (Maybe Bool)+getSpatialRendering self = liftDOM (((js_getSpatialRendering (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>+getSpatialRenderingUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Bool+getSpatialRenderingUnsafe self = liftDOM ((((js_getSpatialRendering (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>+getSpatialRenderingUnchecked :: (MonadDOM m) => AudioConfiguration -> m Bool+getSpatialRenderingUnchecked self = liftDOM ((pFromJSVal <$> (js_getSpatialRendering (self))))
src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs view
@@ -1,552 +1,99 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioContext-       (js_newAudioContext, newAudioContext, js_suspend, suspend,-        js_resume, resume, js_close, close, js_createBuffer, createBuffer,-        createBuffer_, js_createBufferFromArrayBuffer,-        createBufferFromArrayBuffer, createBufferFromArrayBuffer_,-        js_decodeAudioData, decodeAudioData, js_createBufferSource,-        createBufferSource, createBufferSource_,-        js_createMediaElementSource, createMediaElementSource,-        createMediaElementSource_, js_createMediaStreamSource,-        createMediaStreamSource, createMediaStreamSource_,-        js_createMediaStreamDestination, createMediaStreamDestination,-        createMediaStreamDestination_, js_createGain, createGain,-        createGain_, js_createDelay, createDelay, createDelay_,-        js_createBiquadFilter, createBiquadFilter, createBiquadFilter_,-        js_createWaveShaper, createWaveShaper, createWaveShaper_,-        js_createPanner, createPanner, createPanner_, js_createConvolver,-        createConvolver, createConvolver_, js_createDynamicsCompressor,-        createDynamicsCompressor, createDynamicsCompressor_,-        js_createAnalyser, createAnalyser, createAnalyser_,-        js_createScriptProcessor, createScriptProcessor,-        createScriptProcessor_, js_createOscillator, createOscillator,-        createOscillator_, js_createPeriodicWave, createPeriodicWave,-        createPeriodicWave_, js_createChannelSplitter,-        createChannelSplitter, createChannelSplitter_,-        js_createChannelMerger, createChannelMerger, createChannelMerger_,-        js_startRendering, startRendering, js_getDestination,-        getDestination, js_getCurrentTime, getCurrentTime,-        js_getSampleRate, getSampleRate, js_getListener, getListener,-        js_getState, getState, statechange, js_getActiveSourceCount,-        getActiveSourceCount, complete, AudioContext(..),-        gTypeAudioContext, IsAudioContext, toAudioContext)+       (js_newAudioContext, js_newAudioContext', js_close, js_createMediaElementSource, js_createMediaStreamDestination, js_createMediaStreamSource, js_getOutputTimestamp, js_resume, js_suspend, js_getBaseLatency, js_getOutputLatency, newAudioContext, newAudioContext', close, createMediaElementSource, createMediaElementSource_, createMediaStreamDestination, createMediaStreamDestination_, createMediaStreamSource, createMediaStreamSource_, getOutputTimestamp, getOutputTimestamp_, resume, suspend, getBaseLatency, getOutputLatency, AudioContext(..), gTypeAudioContext)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(() => { return new (window[\"AudioContext\"]\n||\nwindow[\"webkitAudioContext\"])(); })"-        js_newAudioContext :: IO AudioContext --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext Mozilla AudioContext documentation> -newAudioContext :: (MonadIO m) => m AudioContext-newAudioContext = liftIO (js_newAudioContext)- -foreign import javascript interruptible-        "(($1, $c) => { return $1[\"suspend\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"-        js_suspend :: AudioContext -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.suspend Mozilla AudioContext.suspend documentation> -suspend :: (MonadIO m, IsAudioContext self) => self -> m ()-suspend self-  = liftIO-      ((js_suspend (toAudioContext self)) >>= maybeThrowPromiseRejected)- -foreign import javascript interruptible-        "(($1, $c) => { return $1[\"resume\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"-        js_resume :: AudioContext -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.resume Mozilla AudioContext.resume documentation> -resume :: (MonadIO m, IsAudioContext self) => self -> m ()-resume self-  = liftIO-      ((js_resume (toAudioContext self)) >>= maybeThrowPromiseRejected)- -foreign import javascript interruptible-        "(($1, $c) => { return $1[\"close\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"-        js_close :: AudioContext -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.close Mozilla AudioContext.close documentation> -close :: (MonadIO m, IsAudioContext self) => self -> m ()-close self-  = liftIO-      ((js_close (toAudioContext self)) >>= maybeThrowPromiseRejected)- -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createBuffer\"]($2, $3, $4); })"-        js_createBuffer ::-        AudioContext -> Word -> Word -> Float -> IO AudioBuffer---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBuffer ::-             (MonadIO m, IsAudioContext self) =>-               self -> Word -> Word -> Float -> m AudioBuffer-createBuffer self numberOfChannels numberOfFrames sampleRate-  = liftIO-      (js_createBuffer (toAudioContext self) numberOfChannels-         numberOfFrames-         sampleRate)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBuffer_ ::-              (MonadIO m, IsAudioContext self) =>-                self -> Word -> Word -> Float -> m ()-createBuffer_ self numberOfChannels numberOfFrames sampleRate-  = liftIO-      (void-         (js_createBuffer (toAudioContext self) numberOfChannels-            numberOfFrames-            sampleRate))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createBuffer\"]($2, $3); })"-        js_createBufferFromArrayBuffer ::-        AudioContext -> ArrayBuffer -> Bool -> IO AudioBuffer---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBufferFromArrayBuffer ::-                            (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>-                              self -> buffer -> Bool -> m AudioBuffer-createBufferFromArrayBuffer self buffer mixToMono-  = liftIO-      (js_createBufferFromArrayBuffer (toAudioContext self)-         (toArrayBuffer buffer)-         mixToMono)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBufferFromArrayBuffer_ ::-                             (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>-                               self -> buffer -> Bool -> m ()-createBufferFromArrayBuffer_ self buffer mixToMono-  = liftIO-      (void-         (js_createBufferFromArrayBuffer (toAudioContext self)-            (toArrayBuffer buffer)-            mixToMono))- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return $1[\"decodeAudioData\"]($2, $3,\n$4); })" js_decodeAudioData ::-        AudioContext ->-          ArrayBuffer ->-            Optional AudioBufferCallback ->-              Optional AudioBufferCallback -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation> -decodeAudioData ::-                (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) =>-                  self ->-                    audioData ->-                      Maybe AudioBufferCallback -> Maybe AudioBufferCallback -> m ()-decodeAudioData self audioData successCallback errorCallback-  = liftIO-      (js_decodeAudioData (toAudioContext self) (toArrayBuffer audioData)-         (maybeToOptional successCallback)-         (maybeToOptional errorCallback))- -foreign import javascript unsafe "(($1) => { return $1[\"createBufferSource\"](); })"-        js_createBufferSource :: AudioContext -> IO AudioBufferSourceNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> -createBufferSource ::-                   (MonadIO m, IsAudioContext self) => self -> m AudioBufferSourceNode-createBufferSource self-  = liftIO (js_createBufferSource (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> -createBufferSource_ ::-                    (MonadIO m, IsAudioContext self) => self -> m ()-createBufferSource_ self-  = liftIO (void (js_createBufferSource (toAudioContext self)))- -foreign import javascript safe-        "(($1, $2) => { return $1[\"createMediaElementSource\"]($2); })" js_createMediaElementSource-        ::-        AudioContext -> HTMLMediaElement -> IO MediaElementAudioSourceNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> -createMediaElementSource ::-                         (MonadIO m, IsAudioContext self,-                          IsHTMLMediaElement mediaElement) =>-                           self -> mediaElement -> m MediaElementAudioSourceNode-createMediaElementSource self mediaElement-  = liftIO-      (js_createMediaElementSource (toAudioContext self)-         (toHTMLMediaElement mediaElement))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> -createMediaElementSource_ ::-                          (MonadIO m, IsAudioContext self,-                           IsHTMLMediaElement mediaElement) =>-                            self -> mediaElement -> m ()-createMediaElementSource_ self mediaElement-  = liftIO-      (void-         (js_createMediaElementSource (toAudioContext self)-            (toHTMLMediaElement mediaElement)))- -foreign import javascript safe-        "(($1, $2) => { return $1[\"createMediaStreamSource\"]($2); })" js_createMediaStreamSource ::-        AudioContext -> MediaStream -> IO MediaStreamAudioSourceNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> -createMediaStreamSource ::-                        (MonadIO m, IsAudioContext self) =>-                          self -> MediaStream -> m MediaStreamAudioSourceNode-createMediaStreamSource self mediaStream-  = liftIO-      (js_createMediaStreamSource (toAudioContext self) mediaStream)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> -createMediaStreamSource_ ::-                         (MonadIO m, IsAudioContext self) => self -> MediaStream -> m ()-createMediaStreamSource_ self mediaStream-  = liftIO-      (void-         (js_createMediaStreamSource (toAudioContext self) mediaStream))- -foreign import javascript unsafe-        "(($1) => { return $1[\"createMediaStreamDestination\"](); })"-        js_createMediaStreamDestination ::-        AudioContext -> IO MediaStreamAudioDestinationNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> -createMediaStreamDestination ::-                             (MonadIO m, IsAudioContext self) =>-                               self -> m MediaStreamAudioDestinationNode-createMediaStreamDestination self-  = liftIO (js_createMediaStreamDestination (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> -createMediaStreamDestination_ ::-                              (MonadIO m, IsAudioContext self) => self -> m ()-createMediaStreamDestination_ self-  = liftIO-      (void (js_createMediaStreamDestination (toAudioContext self)))- -foreign import javascript unsafe "(($1) => { return $1[\"createGain\"](); })"-        js_createGain :: AudioContext -> IO GainNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> -createGain ::-           (MonadIO m, IsAudioContext self) => self -> m GainNode-createGain self = liftIO (js_createGain (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> -createGain_ :: (MonadIO m, IsAudioContext self) => self -> m ()-createGain_ self-  = liftIO (void (js_createGain (toAudioContext self)))- -foreign import javascript safe "(($1, $2) => { return $1[\"createDelay\"]($2); })"-        js_createDelay :: AudioContext -> Optional Double -> IO DelayNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> -createDelay ::-            (MonadIO m, IsAudioContext self) =>-              self -> Maybe Double -> m DelayNode-createDelay self maxDelayTime-  = liftIO-      (js_createDelay (toAudioContext self)-         (maybeToOptional maxDelayTime))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> -createDelay_ ::-             (MonadIO m, IsAudioContext self) => self -> Maybe Double -> m ()-createDelay_ self maxDelayTime-  = liftIO-      (void-         (js_createDelay (toAudioContext self)-            (maybeToOptional maxDelayTime)))- -foreign import javascript unsafe "(($1) => { return $1[\"createBiquadFilter\"](); })"-        js_createBiquadFilter :: AudioContext -> IO BiquadFilterNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> -createBiquadFilter ::-                   (MonadIO m, IsAudioContext self) => self -> m BiquadFilterNode-createBiquadFilter self-  = liftIO (js_createBiquadFilter (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> -createBiquadFilter_ ::-                    (MonadIO m, IsAudioContext self) => self -> m ()-createBiquadFilter_ self-  = liftIO (void (js_createBiquadFilter (toAudioContext self)))- -foreign import javascript unsafe "(($1) => { return $1[\"createWaveShaper\"](); })"-        js_createWaveShaper :: AudioContext -> IO WaveShaperNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> -createWaveShaper ::-                 (MonadIO m, IsAudioContext self) => self -> m WaveShaperNode-createWaveShaper self-  = liftIO (js_createWaveShaper (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> -createWaveShaper_ ::-                  (MonadIO m, IsAudioContext self) => self -> m ()-createWaveShaper_ self-  = liftIO (void (js_createWaveShaper (toAudioContext self)))- -foreign import javascript unsafe "(($1) => { return $1[\"createPanner\"](); })"-        js_createPanner :: AudioContext -> IO PannerNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> -createPanner ::-             (MonadIO m, IsAudioContext self) => self -> m PannerNode-createPanner self = liftIO (js_createPanner (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> -createPanner_ :: (MonadIO m, IsAudioContext self) => self -> m ()-createPanner_ self-  = liftIO (void (js_createPanner (toAudioContext self)))- -foreign import javascript unsafe "(($1) => { return $1[\"createConvolver\"](); })"-        js_createConvolver :: AudioContext -> IO ConvolverNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> -createConvolver ::-                (MonadIO m, IsAudioContext self) => self -> m ConvolverNode-createConvolver self-  = liftIO (js_createConvolver (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> -createConvolver_ ::-                 (MonadIO m, IsAudioContext self) => self -> m ()-createConvolver_ self-  = liftIO (void (js_createConvolver (toAudioContext self)))- -foreign import javascript unsafe-        "(($1) => { return $1[\"createDynamicsCompressor\"](); })" js_createDynamicsCompressor ::-        AudioContext -> IO DynamicsCompressorNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> -createDynamicsCompressor ::-                         (MonadIO m, IsAudioContext self) =>-                           self -> m DynamicsCompressorNode-createDynamicsCompressor self-  = liftIO (js_createDynamicsCompressor (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> -createDynamicsCompressor_ ::-                          (MonadIO m, IsAudioContext self) => self -> m ()-createDynamicsCompressor_ self-  = liftIO (void (js_createDynamicsCompressor (toAudioContext self)))- -foreign import javascript unsafe "(($1) => { return $1[\"createAnalyser\"](); })"-        js_createAnalyser :: AudioContext -> IO AnalyserNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> -createAnalyser ::-               (MonadIO m, IsAudioContext self) => self -> m AnalyserNode-createAnalyser self-  = liftIO (js_createAnalyser (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> -createAnalyser_ :: (MonadIO m, IsAudioContext self) => self -> m ()-createAnalyser_ self-  = liftIO (void (js_createAnalyser (toAudioContext self)))- -foreign import javascript safe-        "(($1, $2, $3, $4) => { return $1[\"createScriptProcessor\"]($2,\n$3, $4); })"-        js_createScriptProcessor ::-        AudioContext ->-          Word -> Optional Word -> Optional Word -> IO ScriptProcessorNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> -createScriptProcessor ::-                      (MonadIO m, IsAudioContext self) =>-                        self -> Word -> Maybe Word -> Maybe Word -> m ScriptProcessorNode-createScriptProcessor self bufferSize numberOfInputChannels-  numberOfOutputChannels-  = liftIO-      (js_createScriptProcessor (toAudioContext self) bufferSize-         (maybeToOptional numberOfInputChannels)-         (maybeToOptional numberOfOutputChannels))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> -createScriptProcessor_ ::-                       (MonadIO m, IsAudioContext self) =>-                         self -> Word -> Maybe Word -> Maybe Word -> m ()-createScriptProcessor_ self bufferSize numberOfInputChannels-  numberOfOutputChannels-  = liftIO-      (void-         (js_createScriptProcessor (toAudioContext self) bufferSize-            (maybeToOptional numberOfInputChannels)-            (maybeToOptional numberOfOutputChannels)))- -foreign import javascript unsafe "(($1) => { return $1[\"createOscillator\"](); })"-        js_createOscillator :: AudioContext -> IO OscillatorNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> -createOscillator ::-                 (MonadIO m, IsAudioContext self) => self -> m OscillatorNode-createOscillator self-  = liftIO (js_createOscillator (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> -createOscillator_ ::-                  (MonadIO m, IsAudioContext self) => self -> m ()-createOscillator_ self-  = liftIO (void (js_createOscillator (toAudioContext self)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createPeriodicWave\"]($2, $3); })"-        js_createPeriodicWave ::-        AudioContext -> Float32Array -> Float32Array -> IO PeriodicWave---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> -createPeriodicWave ::-                   (MonadIO m, IsAudioContext self, IsFloat32Array real,-                    IsFloat32Array imag) =>-                     self -> real -> imag -> m PeriodicWave-createPeriodicWave self real imag-  = liftIO-      (js_createPeriodicWave (toAudioContext self) (toFloat32Array real)-         (toFloat32Array imag))+foreign import javascript safe "(() => { return new globalThis[\"AudioContext\"](); })"+        js_newAudioContext :: IO AudioContext+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/AudioContext MDN AudioContext. documentation>+newAudioContext :: (MonadDOM m) => m AudioContext+newAudioContext = liftDOM ((js_newAudioContext)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> -createPeriodicWave_ ::-                    (MonadIO m, IsAudioContext self, IsFloat32Array real,-                     IsFloat32Array imag) =>-                      self -> real -> imag -> m ()-createPeriodicWave_ self real imag-  = liftIO-      (void-         (js_createPeriodicWave (toAudioContext self) (toFloat32Array real)-            (toFloat32Array imag)))- -foreign import javascript safe "(($1, $2) => { return $1[\"createChannelSplitter\"]($2); })"-        js_createChannelSplitter ::-        AudioContext -> Optional Word -> IO ChannelSplitterNode+foreign import javascript safe "(($1) => { return new globalThis[\"AudioContext\"]($1); })"+        js_newAudioContext' :: JSVal -> IO AudioContext+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/AudioContext MDN AudioContext. documentation>+newAudioContext' :: (MonadDOM m) => Maybe AudioContextOptions -> m AudioContext+newAudioContext' contextOptions = liftDOM (((P.maybe (P.return jsUndefined) toJSVal contextOptions) >>= \a1' -> js_newAudioContext' a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> -createChannelSplitter ::-                      (MonadIO m, IsAudioContext self) =>-                        self -> Maybe Word -> m ChannelSplitterNode-createChannelSplitter self numberOfOutputs-  = liftIO-      (js_createChannelSplitter (toAudioContext self)-         (maybeToOptional numberOfOutputs))+foreign import javascript interruptible "(($1, $c) => { return $1[\"close\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_close :: AudioContext -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/close MDN AudioContext.close documentation>+close :: (MonadDOM m) => AudioContext -> m ()+close self = liftDOM (void (((js_close (self)) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> -createChannelSplitter_ ::-                       (MonadIO m, IsAudioContext self) => self -> Maybe Word -> m ()-createChannelSplitter_ self numberOfOutputs-  = liftIO-      (void-         (js_createChannelSplitter (toAudioContext self)-            (maybeToOptional numberOfOutputs)))- -foreign import javascript safe "(($1, $2) => { return $1[\"createChannelMerger\"]($2); })"-        js_createChannelMerger ::-        AudioContext -> Optional Word -> IO ChannelMergerNode+foreign import javascript safe "(($1, $2) => { return $1[\"createMediaElementSource\"]($2); })"+        js_createMediaElementSource :: AudioContext -> HTMLMediaElement -> IO MediaElementAudioSourceNode+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaElementSource MDN AudioContext.createMediaElementSource documentation>+createMediaElementSource :: (MonadDOM m, IsHTMLMediaElement mediaElement) => AudioContext -> mediaElement -> m MediaElementAudioSourceNode+createMediaElementSource self mediaElement = liftDOM ((js_createMediaElementSource (self) (Types.toHTMLMediaElement mediaElement))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> -createChannelMerger ::-                    (MonadIO m, IsAudioContext self) =>-                      self -> Maybe Word -> m ChannelMergerNode-createChannelMerger self numberOfInputs-  = liftIO-      (js_createChannelMerger (toAudioContext self)-         (maybeToOptional numberOfInputs))+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaElementSource MDN AudioContext.createMediaElementSource documentation>+createMediaElementSource_ :: (MonadDOM m, IsHTMLMediaElement mediaElement) => AudioContext -> mediaElement -> m ()+createMediaElementSource_ self mediaElement = liftDOM (void ((js_createMediaElementSource (self) (Types.toHTMLMediaElement mediaElement)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> -createChannelMerger_ ::-                     (MonadIO m, IsAudioContext self) => self -> Maybe Word -> m ()-createChannelMerger_ self numberOfInputs-  = liftIO-      (void-         (js_createChannelMerger (toAudioContext self)-            (maybeToOptional numberOfInputs)))- -foreign import javascript unsafe "(($1) => { return $1[\"startRendering\"](); })"-        js_startRendering :: AudioContext -> IO ()+foreign import javascript safe "(($1) => { return $1[\"createMediaStreamDestination\"](); })"+        js_createMediaStreamDestination :: AudioContext -> IO MediaStreamAudioDestinationNode+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaStreamDestination MDN AudioContext.createMediaStreamDestination documentation>+createMediaStreamDestination :: (MonadDOM m) => AudioContext -> m MediaStreamAudioDestinationNode+createMediaStreamDestination self = liftDOM ((js_createMediaStreamDestination (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.startRendering Mozilla AudioContext.startRendering documentation> -startRendering :: (MonadIO m, IsAudioContext self) => self -> m ()-startRendering self-  = liftIO (js_startRendering (toAudioContext self))- -foreign import javascript unsafe "(($1) => { return $1[\"destination\"]; })"-        js_getDestination :: AudioContext -> IO AudioDestinationNode+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaStreamDestination MDN AudioContext.createMediaStreamDestination documentation>+createMediaStreamDestination_ :: (MonadDOM m) => AudioContext -> m ()+createMediaStreamDestination_ self = liftDOM (void ((js_createMediaStreamDestination (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation> -getDestination ::-               (MonadIO m, IsAudioContext self) => self -> m AudioDestinationNode-getDestination self-  = liftIO (js_getDestination (toAudioContext self))- -foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })"-        js_getCurrentTime :: AudioContext -> IO Double+foreign import javascript safe "(($1, $2) => { return $1[\"createMediaStreamSource\"]($2); })"+        js_createMediaStreamSource :: AudioContext -> MediaStream -> IO MediaStreamAudioSourceNode+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaStreamSource MDN AudioContext.createMediaStreamSource documentation>+createMediaStreamSource :: (MonadDOM m) => AudioContext -> MediaStream -> m MediaStreamAudioSourceNode+createMediaStreamSource self mediaStream = liftDOM ((js_createMediaStreamSource (self) (mediaStream))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.currentTime Mozilla AudioContext.currentTime documentation> -getCurrentTime ::-               (MonadIO m, IsAudioContext self) => self -> m Double-getCurrentTime self-  = liftIO (js_getCurrentTime (toAudioContext self))- -foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"-        js_getSampleRate :: AudioContext -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaStreamSource MDN AudioContext.createMediaStreamSource documentation>+createMediaStreamSource_ :: (MonadDOM m) => AudioContext -> MediaStream -> m ()+createMediaStreamSource_ self mediaStream = liftDOM (void ((js_createMediaStreamSource (self) (mediaStream)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.sampleRate Mozilla AudioContext.sampleRate documentation> -getSampleRate ::-              (MonadIO m, IsAudioContext self) => self -> m Float-getSampleRate self-  = liftIO (js_getSampleRate (toAudioContext self))- -foreign import javascript unsafe "(($1) => { return $1[\"listener\"]; })" js_getListener-        :: AudioContext -> IO AudioListener+foreign import javascript safe "(($1) => { return $1[\"getOutputTimestamp\"](); })"+        js_getOutputTimestamp :: AudioContext -> IO AudioTimestamp+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/getOutputTimestamp MDN AudioContext.getOutputTimestamp documentation>+getOutputTimestamp :: (MonadDOM m) => AudioContext -> m AudioTimestamp+getOutputTimestamp self = liftDOM ((js_getOutputTimestamp (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation> -getListener ::-            (MonadIO m, IsAudioContext self) => self -> m AudioListener-getListener self = liftIO (js_getListener (toAudioContext self))- -foreign import javascript unsafe "(($1) => { return $1[\"state\"]; })" js_getState ::-        AudioContext -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/getOutputTimestamp MDN AudioContext.getOutputTimestamp documentation>+getOutputTimestamp_ :: (MonadDOM m) => AudioContext -> m ()+getOutputTimestamp_ self = liftDOM (void ((js_getOutputTimestamp (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.state Mozilla AudioContext.state documentation> -getState ::-         (MonadIO m, IsAudioContext self) => self -> m AudioContextState-getState self-  = liftIO-      ((js_getState (toAudioContext self)) >>= fromJSValUnchecked)+foreign import javascript interruptible "(($1, $c) => { return $1[\"resume\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_resume :: AudioContext -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/resume MDN AudioContext.resume documentation>+resume :: (MonadDOM m) => AudioContext -> m ()+resume self = liftDOM (void (((js_resume (self)) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.onstatechange Mozilla AudioContext.onstatechange documentation> -statechange ::-            (IsAudioContext self, IsEventTarget self) =>-              EventName self onstatechange-statechange = unsafeEventName (toJSString "statechange")- -foreign import javascript unsafe "(($1) => { return $1[\"activeSourceCount\"]; })"-        js_getActiveSourceCount :: AudioContext -> IO Word+foreign import javascript interruptible "(($1, $c) => { return $1[\"suspend\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_suspend :: AudioContext -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/suspend MDN AudioContext.suspend documentation>+suspend :: (MonadDOM m) => AudioContext -> m ()+suspend self = liftDOM (void (((js_suspend (self)) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.activeSourceCount Mozilla AudioContext.activeSourceCount documentation> -getActiveSourceCount ::-                     (MonadIO m, IsAudioContext self) => self -> m Word-getActiveSourceCount self-  = liftIO (js_getActiveSourceCount (toAudioContext self))+foreign import javascript unsafe "(($1) => { return $1[\"baseLatency\"]; })"+        js_getBaseLatency :: AudioContext -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/baseLatency MDN AudioContext.baseLatency documentation>+getBaseLatency :: (MonadDOM m) => AudioContext -> m Double+getBaseLatency self = liftDOM ((js_getBaseLatency (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.oncomplete Mozilla AudioContext.oncomplete documentation> -complete ::-         (IsAudioContext self, IsEventTarget self) =>-           EventName self OfflineAudioCompletionEvent-complete = unsafeEventName (toJSString "complete")+foreign import javascript unsafe "(($1) => { return $1[\"outputLatency\"]; })"+        js_getOutputLatency :: AudioContext -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/outputLatency MDN AudioContext.outputLatency documentation>+getOutputLatency :: (MonadDOM m) => AudioContext -> m Double+getOutputLatency self = liftDOM ((js_getOutputLatency (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioContextOptions.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioContextOptions+       (js_newAudioContextOptions, js_setLatencyHint, js_getLatencyHint, js_setSampleRate, js_getSampleRate, js_setSinkId, js_getSinkId, js_setRenderSizeHint, js_getRenderSizeHint, newAudioContextOptions, setLatencyHint, getLatencyHint, getLatencyHintUnsafe, getLatencyHintUnchecked, setSampleRate, getSampleRate, getSampleRateUnsafe, getSampleRateUnchecked, setSinkId, getSinkId, getSinkIdUnsafe, getSinkIdUnchecked, setRenderSizeHint, getRenderSizeHint, getRenderSizeHintUnsafe, getRenderSizeHintUnchecked, AudioContextOptions(..), gTypeAudioContextOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAudioContextOptions :: IO AudioContextOptions+-- | <https://webaudio.github.io/web-audio-api/#AudioContextOptions AudioContextOptions specification>+newAudioContextOptions :: (MonadDOM m) => m AudioContextOptions+newAudioContextOptions = liftDOM ((js_newAudioContextOptions))++foreign import javascript safe "(($1, $2) => { $1[\"latencyHint\"] = $2; })"+        js_setLatencyHint :: AudioContextOptions -> AudioContextLatencyCategoryOrDouble -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-latencyhint AudioContextOptions.latencyHint specification>+setLatencyHint :: (MonadDOM m, IsAudioContextLatencyCategoryOrDouble val) => AudioContextOptions -> val -> m ()+setLatencyHint self val = liftDOM (void ((js_setLatencyHint (self) (Types.toAudioContextLatencyCategoryOrDouble val))))++foreign import javascript unsafe "(($1) => { return $1[\"latencyHint\"]; })"+        js_getLatencyHint :: AudioContextOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-latencyhint AudioContextOptions.latencyHint specification>+getLatencyHint :: (MonadDOM m) => AudioContextOptions -> m (Maybe AudioContextLatencyCategoryOrDouble)+getLatencyHint self = liftDOM (((js_getLatencyHint (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-latencyhint AudioContextOptions.latencyHint specification>+getLatencyHintUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m AudioContextLatencyCategoryOrDouble+getLatencyHintUnsafe self = liftDOM ((((js_getLatencyHint (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-latencyhint AudioContextOptions.latencyHint specification>+getLatencyHintUnchecked :: (MonadDOM m) => AudioContextOptions -> m AudioContextLatencyCategoryOrDouble+getLatencyHintUnchecked self = liftDOM ((pFromJSVal <$> (js_getLatencyHint (self))))++foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })"+        js_setSampleRate :: AudioContextOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-samplerate AudioContextOptions.sampleRate specification>+setSampleRate :: (MonadDOM m) => AudioContextOptions -> Float -> m ()+setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"+        js_getSampleRate :: AudioContextOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-samplerate AudioContextOptions.sampleRate specification>+getSampleRate :: (MonadDOM m) => AudioContextOptions -> m (Maybe Float)+getSampleRate self = liftDOM (((js_getSampleRate (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-samplerate AudioContextOptions.sampleRate specification>+getSampleRateUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m Float+getSampleRateUnsafe self = liftDOM ((((js_getSampleRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-samplerate AudioContextOptions.sampleRate specification>+getSampleRateUnchecked :: (MonadDOM m) => AudioContextOptions -> m Float+getSampleRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getSampleRate (self))))++foreign import javascript safe "(($1, $2) => { $1[\"sinkId\"] = $2; })"+        js_setSinkId :: AudioContextOptions -> StringOrAudioSinkOptions -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-sinkid AudioContextOptions.sinkId specification>+setSinkId :: (MonadDOM m, IsStringOrAudioSinkOptions val) => AudioContextOptions -> val -> m ()+setSinkId self val = liftDOM (void ((js_setSinkId (self) (Types.toStringOrAudioSinkOptions val))))++foreign import javascript unsafe "(($1) => { return $1[\"sinkId\"]; })"+        js_getSinkId :: AudioContextOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-sinkid AudioContextOptions.sinkId specification>+getSinkId :: (MonadDOM m) => AudioContextOptions -> m (Maybe StringOrAudioSinkOptions)+getSinkId self = liftDOM (((js_getSinkId (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-sinkid AudioContextOptions.sinkId specification>+getSinkIdUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m StringOrAudioSinkOptions+getSinkIdUnsafe self = liftDOM ((((js_getSinkId (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-sinkid AudioContextOptions.sinkId specification>+getSinkIdUnchecked :: (MonadDOM m) => AudioContextOptions -> m StringOrAudioSinkOptions+getSinkIdUnchecked self = liftDOM ((pFromJSVal <$> (js_getSinkId (self))))++foreign import javascript safe "(($1, $2) => { $1[\"renderSizeHint\"] = $2; })"+        js_setRenderSizeHint :: AudioContextOptions -> AudioContextRenderSizeCategoryOrWord -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-rendersizehint AudioContextOptions.renderSizeHint specification>+setRenderSizeHint :: (MonadDOM m, IsAudioContextRenderSizeCategoryOrWord val) => AudioContextOptions -> val -> m ()+setRenderSizeHint self val = liftDOM (void ((js_setRenderSizeHint (self) (Types.toAudioContextRenderSizeCategoryOrWord val))))++foreign import javascript unsafe "(($1) => { return $1[\"renderSizeHint\"]; })"+        js_getRenderSizeHint :: AudioContextOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-rendersizehint AudioContextOptions.renderSizeHint specification>+getRenderSizeHint :: (MonadDOM m) => AudioContextOptions -> m (Maybe AudioContextRenderSizeCategoryOrWord)+getRenderSizeHint self = liftDOM (((js_getRenderSizeHint (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-rendersizehint AudioContextOptions.renderSizeHint specification>+getRenderSizeHintUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m AudioContextRenderSizeCategoryOrWord+getRenderSizeHintUnsafe self = liftDOM ((((js_getRenderSizeHint (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-rendersizehint AudioContextOptions.renderSizeHint specification>+getRenderSizeHintUnchecked :: (MonadDOM m) => AudioContextOptions -> m AudioContextRenderSizeCategoryOrWord+getRenderSizeHintUnchecked self = liftDOM ((pFromJSVal <$> (js_getRenderSizeHint (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AudioData.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioData+       (js_newAudioData, js_allocationSize, js_clone, js_close, js_copyTo, js_getFormat, js_getSampleRate, js_getNumberOfFrames, js_getNumberOfChannels, js_getDuration, js_getTimestamp, newAudioData, allocationSize, allocationSize_, clone, clone_, close, copyTo, getFormat, getFormatUnsafe, getFormatUnchecked, getSampleRate, getNumberOfFrames, getNumberOfChannels, getDuration, getTimestamp, AudioData(..), gTypeAudioData)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"AudioData\"]($1); })"+        js_newAudioData :: AudioDataInit -> IO AudioData+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/AudioData MDN AudioData. documentation>+newAudioData :: (MonadDOM m) => AudioDataInit -> m AudioData+newAudioData init = liftDOM ((js_newAudioData (init)))++foreign import javascript safe "(($1, $2) => { return $1[\"allocationSize\"]($2); })"+        js_allocationSize :: AudioData -> AudioDataCopyToOptions -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/allocationSize MDN AudioData.allocationSize documentation>+allocationSize :: (MonadDOM m) => AudioData -> AudioDataCopyToOptions -> m Word+allocationSize self options = liftDOM ((js_allocationSize (self) (options)))++-- | <https://developer.mozilla.org/docs/Web/API/AudioData/allocationSize MDN AudioData.allocationSize documentation>+allocationSize_ :: (MonadDOM m) => AudioData -> AudioDataCopyToOptions -> m ()+allocationSize_ self options = liftDOM (void ((js_allocationSize (self) (options))))++foreign import javascript safe "(($1) => { return $1[\"clone\"](); })"+        js_clone :: AudioData -> IO AudioData+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/clone MDN AudioData.clone documentation>+clone :: (MonadDOM m) => AudioData -> m AudioData+clone self = liftDOM ((js_clone (self)))++-- | <https://developer.mozilla.org/docs/Web/API/AudioData/clone MDN AudioData.clone documentation>+clone_ :: (MonadDOM m) => AudioData -> m ()+clone_ self = liftDOM (void ((js_clone (self))))++foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+        js_close :: AudioData -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/close MDN AudioData.close documentation>+close :: (MonadDOM m) => AudioData -> m ()+close self = liftDOM (void ((js_close (self))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"copyTo\"]($2, $3); })"+        js_copyTo :: AudioData -> AllowSharedBufferSource -> AudioDataCopyToOptions -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/copyTo MDN AudioData.copyTo documentation>+copyTo :: (MonadDOM m, IsAllowSharedBufferSource destination) => AudioData -> destination -> AudioDataCopyToOptions -> m ()+copyTo self destination options = liftDOM (void ((js_copyTo (self) (Types.toAllowSharedBufferSource destination) (options))))++foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })"+        js_getFormat :: AudioData -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/format MDN AudioData.format documentation>+getFormat :: (MonadDOM m) => AudioData -> m (Maybe AudioSampleFormat)+getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AudioData/format MDN AudioData.format documentation>+getFormatUnsafe :: (MonadDOM m, HasCallStack) => AudioData -> m AudioSampleFormat+getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AudioData/format MDN AudioData.format documentation>+getFormatUnchecked :: (MonadDOM m) => AudioData -> m AudioSampleFormat+getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self))))++foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"+        js_getSampleRate :: AudioData -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/sampleRate MDN AudioData.sampleRate documentation>+getSampleRate :: (MonadDOM m) => AudioData -> m Float+getSampleRate self = liftDOM ((js_getSampleRate (self)))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfFrames\"]; })"+        js_getNumberOfFrames :: AudioData -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/numberOfFrames MDN AudioData.numberOfFrames documentation>+getNumberOfFrames :: (MonadDOM m) => AudioData -> m Word+getNumberOfFrames self = liftDOM ((js_getNumberOfFrames (self)))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })"+        js_getNumberOfChannels :: AudioData -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/numberOfChannels MDN AudioData.numberOfChannels documentation>+getNumberOfChannels :: (MonadDOM m) => AudioData -> m Word+getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self)))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+        js_getDuration :: AudioData -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/duration MDN AudioData.duration documentation>+getDuration :: (MonadDOM m) => AudioData -> m Word53+getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"+        js_getTimestamp :: AudioData -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/timestamp MDN AudioData.timestamp documentation>+getTimestamp :: (MonadDOM m) => AudioData -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/AudioDataCopyToOptions.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioDataCopyToOptions+       (js_newAudioDataCopyToOptions, js_setPlaneIndex, js_getPlaneIndex, js_setFrameOffset, js_getFrameOffset, js_setFrameCount, js_getFrameCount, js_setFormat, js_getFormat, newAudioDataCopyToOptions, setPlaneIndex, getPlaneIndex, setFrameOffset, getFrameOffset, getFrameOffsetUnsafe, getFrameOffsetUnchecked, setFrameCount, getFrameCount, getFrameCountUnsafe, getFrameCountUnchecked, setFormat, getFormat, getFormatUnsafe, getFormatUnchecked, AudioDataCopyToOptions(..), gTypeAudioDataCopyToOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"planeIndex\": $1}); })"+        js_newAudioDataCopyToOptions :: Word -> IO AudioDataCopyToOptions+-- | <https://w3c.github.io/webcodecs/#dictdef-audiodatacopytooptions AudioDataCopyToOptions specification>+newAudioDataCopyToOptions :: (MonadDOM m) => Word -> m AudioDataCopyToOptions+newAudioDataCopyToOptions planeIndex = liftDOM ((js_newAudioDataCopyToOptions (planeIndex)))++foreign import javascript safe "(($1, $2) => { $1[\"planeIndex\"] = $2; })"+        js_setPlaneIndex :: AudioDataCopyToOptions -> Word -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-planeindex AudioDataCopyToOptions.planeIndex specification>+setPlaneIndex :: (MonadDOM m) => AudioDataCopyToOptions -> Word -> m ()+setPlaneIndex self val = liftDOM (void ((js_setPlaneIndex (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"planeIndex\"]; })"+        js_getPlaneIndex :: AudioDataCopyToOptions -> IO Word+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-planeindex AudioDataCopyToOptions.planeIndex specification>+getPlaneIndex :: (MonadDOM m) => AudioDataCopyToOptions -> m Word+getPlaneIndex self = liftDOM ((js_getPlaneIndex (self)))++foreign import javascript safe "(($1, $2) => { $1[\"frameOffset\"] = $2; })"+        js_setFrameOffset :: AudioDataCopyToOptions -> Word -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-frameoffset AudioDataCopyToOptions.frameOffset specification>+setFrameOffset :: (MonadDOM m) => AudioDataCopyToOptions -> Word -> m ()+setFrameOffset self val = liftDOM (void ((js_setFrameOffset (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"frameOffset\"]; })"+        js_getFrameOffset :: AudioDataCopyToOptions -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-frameoffset AudioDataCopyToOptions.frameOffset specification>+getFrameOffset :: (MonadDOM m) => AudioDataCopyToOptions -> m (Maybe Word)+getFrameOffset self = liftDOM (((js_getFrameOffset (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-frameoffset AudioDataCopyToOptions.frameOffset specification>+getFrameOffsetUnsafe :: (MonadDOM m, HasCallStack) => AudioDataCopyToOptions -> m Word+getFrameOffsetUnsafe self = liftDOM ((((js_getFrameOffset (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-frameoffset AudioDataCopyToOptions.frameOffset specification>+getFrameOffsetUnchecked :: (MonadDOM m) => AudioDataCopyToOptions -> m Word+getFrameOffsetUnchecked self = liftDOM ((pFromJSVal <$> (js_getFrameOffset (self))))++foreign import javascript safe "(($1, $2) => { $1[\"frameCount\"] = $2; })"+        js_setFrameCount :: AudioDataCopyToOptions -> Word -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-framecount AudioDataCopyToOptions.frameCount specification>+setFrameCount :: (MonadDOM m) => AudioDataCopyToOptions -> Word -> m ()+setFrameCount self val = liftDOM (void ((js_setFrameCount (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"frameCount\"]; })"+        js_getFrameCount :: AudioDataCopyToOptions -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-framecount AudioDataCopyToOptions.frameCount specification>+getFrameCount :: (MonadDOM m) => AudioDataCopyToOptions -> m (Maybe Word)+getFrameCount self = liftDOM (((js_getFrameCount (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-framecount AudioDataCopyToOptions.frameCount specification>+getFrameCountUnsafe :: (MonadDOM m, HasCallStack) => AudioDataCopyToOptions -> m Word+getFrameCountUnsafe self = liftDOM ((((js_getFrameCount (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-framecount AudioDataCopyToOptions.frameCount specification>+getFrameCountUnchecked :: (MonadDOM m) => AudioDataCopyToOptions -> m Word+getFrameCountUnchecked self = liftDOM ((pFromJSVal <$> (js_getFrameCount (self))))++foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })"+        js_setFormat :: AudioDataCopyToOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-format AudioDataCopyToOptions.format specification>+setFormat :: (MonadDOM m) => AudioDataCopyToOptions -> AudioSampleFormat -> m ()+setFormat self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFormat (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })"+        js_getFormat :: AudioDataCopyToOptions -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-format AudioDataCopyToOptions.format specification>+getFormat :: (MonadDOM m) => AudioDataCopyToOptions -> m (Maybe AudioSampleFormat)+getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-format AudioDataCopyToOptions.format specification>+getFormatUnsafe :: (MonadDOM m, HasCallStack) => AudioDataCopyToOptions -> m AudioSampleFormat+getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-format AudioDataCopyToOptions.format specification>+getFormatUnchecked :: (MonadDOM m) => AudioDataCopyToOptions -> m AudioSampleFormat+getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AudioDataInit.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioDataInit+       (js_newAudioDataInit, js_setFormat, js_getFormat, js_setSampleRate, js_getSampleRate, js_setNumberOfFrames, js_getNumberOfFrames, js_setNumberOfChannels, js_getNumberOfChannels, js_setTimestamp, js_getTimestamp, js_setData, js_getData, js_setTransfer, js_getTransfer, newAudioDataInit, setFormat, getFormat, setSampleRate, getSampleRate, setNumberOfFrames, getNumberOfFrames, setNumberOfChannels, getNumberOfChannels, setTimestamp, getTimestamp, setData, getData, setTransfer, getTransfer, getTransferUnsafe, getTransferUnchecked, AudioDataInit(..), gTypeAudioDataInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return ({\"format\": $1, \"sampleRate\": $2, \"numberOfFrames\": $3, \"numberOfChannels\": $4, \"timestamp\": $5, \"data\": $6}); })"+        js_newAudioDataInit :: JSVal -> Float -> Word -> Word -> JSVal -> AllowSharedBufferSource -> IO AudioDataInit+-- | <https://w3c.github.io/webcodecs/#dictdef-audiodatainit AudioDataInit specification>+newAudioDataInit :: (MonadDOM m, IsAllowSharedBufferSource data') => AudioSampleFormat -> Float -> Word -> Word -> Int53 -> data' -> m AudioDataInit+newAudioDataInit format sampleRate numberOfFrames numberOfChannels timestamp data' = liftDOM (((toJSVal format) >>= \a1' -> (toJSVal timestamp) >>= \a5' -> js_newAudioDataInit a1' (sampleRate) (numberOfFrames) (numberOfChannels) a5' (Types.toAllowSharedBufferSource data')))++foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })"+        js_setFormat :: AudioDataInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-format AudioDataInit.format specification>+setFormat :: (MonadDOM m) => AudioDataInit -> AudioSampleFormat -> m ()+setFormat self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFormat (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })"+        js_getFormat :: AudioDataInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-format AudioDataInit.format specification>+getFormat :: (MonadDOM m) => AudioDataInit -> m AudioSampleFormat+getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })"+        js_setSampleRate :: AudioDataInit -> Float -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-samplerate AudioDataInit.sampleRate specification>+setSampleRate :: (MonadDOM m) => AudioDataInit -> Float -> m ()+setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"+        js_getSampleRate :: AudioDataInit -> IO Float+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-samplerate AudioDataInit.sampleRate specification>+getSampleRate :: (MonadDOM m) => AudioDataInit -> m Float+getSampleRate self = liftDOM ((js_getSampleRate (self)))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfFrames\"] = $2; })"+        js_setNumberOfFrames :: AudioDataInit -> Word -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-numberofframes AudioDataInit.numberOfFrames specification>+setNumberOfFrames :: (MonadDOM m) => AudioDataInit -> Word -> m ()+setNumberOfFrames self val = liftDOM (void ((js_setNumberOfFrames (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfFrames\"]; })"+        js_getNumberOfFrames :: AudioDataInit -> IO Word+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-numberofframes AudioDataInit.numberOfFrames specification>+getNumberOfFrames :: (MonadDOM m) => AudioDataInit -> m Word+getNumberOfFrames self = liftDOM ((js_getNumberOfFrames (self)))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfChannels\"] = $2; })"+        js_setNumberOfChannels :: AudioDataInit -> Word -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-numberofchannels AudioDataInit.numberOfChannels specification>+setNumberOfChannels :: (MonadDOM m) => AudioDataInit -> Word -> m ()+setNumberOfChannels self val = liftDOM (void ((js_setNumberOfChannels (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })"+        js_getNumberOfChannels :: AudioDataInit -> IO Word+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-numberofchannels AudioDataInit.numberOfChannels specification>+getNumberOfChannels :: (MonadDOM m) => AudioDataInit -> m Word+getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self)))++foreign import javascript safe "(($1, $2) => { $1[\"timestamp\"] = $2; })"+        js_setTimestamp :: AudioDataInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-timestamp AudioDataInit.timestamp specification>+setTimestamp :: (MonadDOM m) => AudioDataInit -> Int53 -> m ()+setTimestamp self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimestamp (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"+        js_getTimestamp :: AudioDataInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-timestamp AudioDataInit.timestamp specification>+getTimestamp :: (MonadDOM m) => AudioDataInit -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+        js_setData :: AudioDataInit -> AllowSharedBufferSource -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-data AudioDataInit.data specification>+setData :: (MonadDOM m, IsAllowSharedBufferSource val) => AudioDataInit -> val -> m ()+setData self val = liftDOM (void ((js_setData (self) (Types.toAllowSharedBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: AudioDataInit -> IO AllowSharedBufferSource+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-data AudioDataInit.data specification>+getData :: (MonadDOM m) => AudioDataInit -> m AllowSharedBufferSource+getData self = liftDOM ((js_getData (self)))++foreign import javascript safe "(($1, $2) => { $1[\"transfer\"] = $2; })"+        js_setTransfer :: AudioDataInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-transfer AudioDataInit.transfer specification>+setTransfer :: (MonadDOM m, IsArrayBuffer val) => AudioDataInit -> [val] -> m ()+setTransfer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTransfer (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"transfer\"]; })"+        js_getTransfer :: AudioDataInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-transfer AudioDataInit.transfer specification>+getTransfer :: (MonadDOM m) => AudioDataInit -> m (Maybe [ArrayBuffer])+getTransfer self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-transfer AudioDataInit.transfer specification>+getTransferUnsafe :: (MonadDOM m, HasCallStack) => AudioDataInit -> m [ArrayBuffer]+getTransferUnsafe self = liftDOM ((((js_getTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-transfer AudioDataInit.transfer specification>+getTransferUnchecked :: (MonadDOM m) => AudioDataInit -> m [ArrayBuffer]+getTransferUnchecked self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/AudioDataOutputCallback.hs view
@@ -0,0 +1,29 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioDataOutputCallback+       (newAudioDataOutputCallback, newAudioDataOutputCallbackSync, newAudioDataOutputCallbackAsync, AudioDataOutputCallback)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newAudioDataOutputCallback :: (MonadDOM m) => (AudioData -> IO ()) -> m AudioDataOutputCallback+newAudioDataOutputCallback callback = liftDOM ((AudioDataOutputCallback . coerce) <$> syncCallback1 ContinueAsync (\ output -> do+          output' <- fromJSValUnchecked output+          callback output'))++newAudioDataOutputCallbackSync :: (MonadDOM m) => (AudioData -> IO ()) -> m AudioDataOutputCallback+newAudioDataOutputCallbackSync callback = liftDOM ((AudioDataOutputCallback . coerce) <$> syncCallback1 ThrowWouldBlock (\ output -> do+          output' <- fromJSValUnchecked output+          callback output'))++newAudioDataOutputCallbackAsync :: (MonadDOM m) => (AudioData -> IO ()) -> m AudioDataOutputCallback+newAudioDataOutputCallbackAsync callback = liftDOM ((AudioDataOutputCallback . coerce) <$> asyncCallback1 (\ output -> do+          output' <- fromJSValUnchecked output+          callback output'))
+ src/GHCJS/DOM/JSFFI/Generated/AudioDecoder.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioDecoder+       (js_newAudioDecoder, js_close, js_configure, js_decode, js_flush, js_reset, js_isConfigSupported, js_getState, js_getDecodeQueueSize, newAudioDecoder, close, configure, decode, flush, reset, isConfigSupported, isConfigSupported_, getState, getDecodeQueueSize, dequeue, AudioDecoder(..), gTypeAudioDecoder)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"AudioDecoder\"]($1); })"+        js_newAudioDecoder :: AudioDecoderInit -> IO AudioDecoder+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/AudioDecoder MDN AudioDecoder. documentation>+newAudioDecoder :: (MonadDOM m) => AudioDecoderInit -> m AudioDecoder+newAudioDecoder init = liftDOM ((js_newAudioDecoder (init)))++foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+        js_close :: AudioDecoder -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/close MDN AudioDecoder.close documentation>+close :: (MonadDOM m) => AudioDecoder -> m ()+close self = liftDOM (void ((js_close (self))))++foreign import javascript safe "(($1, $2) => { return $1[\"configure\"]($2); })"+        js_configure :: AudioDecoder -> AudioDecoderConfig -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/configure MDN AudioDecoder.configure documentation>+configure :: (MonadDOM m) => AudioDecoder -> AudioDecoderConfig -> m ()+configure self config = liftDOM (void ((js_configure (self) (config))))++foreign import javascript safe "(($1, $2) => { return $1[\"decode\"]($2); })"+        js_decode :: AudioDecoder -> EncodedAudioChunk -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/decode MDN AudioDecoder.decode documentation>+decode :: (MonadDOM m) => AudioDecoder -> EncodedAudioChunk -> m ()+decode self chunk = liftDOM (void ((js_decode (self) (chunk))))++foreign import javascript interruptible "(($1, $c) => { return $1[\"flush\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_flush :: AudioDecoder -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/flush MDN AudioDecoder.flush documentation>+flush :: (MonadDOM m) => AudioDecoder -> m ()+flush self = liftDOM (void (((js_flush (self)) >>= checkPromiseResult)))++foreign import javascript safe "(($1) => { return $1[\"reset\"](); })"+        js_reset :: AudioDecoder -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/reset MDN AudioDecoder.reset documentation>+reset :: (MonadDOM m) => AudioDecoder -> m ()+reset self = liftDOM (void ((js_reset (self))))++foreign import javascript interruptible "(($1, $c) => { return globalThis[\"AudioDecoder\"][\"isConfigSupported\"]($1).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_isConfigSupported :: AudioDecoderConfig -> IO (JSVal, AudioDecoderSupport)+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/isConfigSupported_static MDN AudioDecoder.isConfigSupported documentation>+isConfigSupported :: (MonadDOM m) => AudioDecoderConfig -> m AudioDecoderSupport+isConfigSupported config = liftDOM (((js_isConfigSupported (config)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/isConfigSupported_static MDN AudioDecoder.isConfigSupported documentation>+isConfigSupported_ :: (MonadDOM m) => AudioDecoderConfig -> m ()+isConfigSupported_ config = liftDOM (void (((js_isConfigSupported (config)) >>= checkPromiseResult)))++foreign import javascript unsafe "(($1) => { return $1[\"state\"]; })"+        js_getState :: AudioDecoder -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/state MDN AudioDecoder.state documentation>+getState :: (MonadDOM m) => AudioDecoder -> m CodecState+getState self = liftDOM (((js_getState (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"decodeQueueSize\"]; })"+        js_getDecodeQueueSize :: AudioDecoder -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/decodeQueueSize MDN AudioDecoder.decodeQueueSize documentation>+getDecodeQueueSize :: (MonadDOM m) => AudioDecoder -> m Word+getDecodeQueueSize self = liftDOM ((js_getDecodeQueueSize (self)))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecoder-ondequeue dequeue event>+dequeue :: EventName AudioDecoder Event+dequeue = unsafeEventName (toJSString "dequeue")
+ src/GHCJS/DOM/JSFFI/Generated/AudioDecoderConfig.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioDecoderConfig+       (js_newAudioDecoderConfig, js_setCodec, js_getCodec, js_setSampleRate, js_getSampleRate, js_setNumberOfChannels, js_getNumberOfChannels, js_setDescription, js_getDescription, newAudioDecoderConfig, setCodec, getCodec, setSampleRate, getSampleRate, setNumberOfChannels, getNumberOfChannels, setDescription, getDescription, getDescriptionUnsafe, getDescriptionUnchecked, AudioDecoderConfig(..), gTypeAudioDecoderConfig)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return ({\"codec\": $1, \"sampleRate\": $2, \"numberOfChannels\": $3}); })"+        js_newAudioDecoderConfig :: JSString -> Word -> Word -> IO AudioDecoderConfig+-- | <https://w3c.github.io/webcodecs/#dictdef-audiodecoderconfig AudioDecoderConfig specification>+newAudioDecoderConfig :: (MonadDOM m, ToJSString codec) => codec -> Word -> Word -> m AudioDecoderConfig+newAudioDecoderConfig codec sampleRate numberOfChannels = liftDOM ((js_newAudioDecoderConfig (toJSString codec) (sampleRate) (numberOfChannels)))++foreign import javascript safe "(($1, $2) => { $1[\"codec\"] = $2; })"+        js_setCodec :: AudioDecoderConfig -> JSString -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-codec AudioDecoderConfig.codec specification>+setCodec :: (MonadDOM m, ToJSString val) => AudioDecoderConfig -> val -> m ()+setCodec self val = liftDOM (void ((js_setCodec (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"codec\"]; })"+        js_getCodec :: AudioDecoderConfig -> IO JSString+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-codec AudioDecoderConfig.codec specification>+getCodec :: (MonadDOM m, FromJSString result) => AudioDecoderConfig -> m result+getCodec self = liftDOM ((fromJSString <$> (js_getCodec (self))))++foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })"+        js_setSampleRate :: AudioDecoderConfig -> Word -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-samplerate AudioDecoderConfig.sampleRate specification>+setSampleRate :: (MonadDOM m) => AudioDecoderConfig -> Word -> m ()+setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"+        js_getSampleRate :: AudioDecoderConfig -> IO Word+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-samplerate AudioDecoderConfig.sampleRate specification>+getSampleRate :: (MonadDOM m) => AudioDecoderConfig -> m Word+getSampleRate self = liftDOM ((js_getSampleRate (self)))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfChannels\"] = $2; })"+        js_setNumberOfChannels :: AudioDecoderConfig -> Word -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-numberofchannels AudioDecoderConfig.numberOfChannels specification>+setNumberOfChannels :: (MonadDOM m) => AudioDecoderConfig -> Word -> m ()+setNumberOfChannels self val = liftDOM (void ((js_setNumberOfChannels (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })"+        js_getNumberOfChannels :: AudioDecoderConfig -> IO Word+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-numberofchannels AudioDecoderConfig.numberOfChannels specification>+getNumberOfChannels :: (MonadDOM m) => AudioDecoderConfig -> m Word+getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self)))++foreign import javascript safe "(($1, $2) => { $1[\"description\"] = $2; })"+        js_setDescription :: AudioDecoderConfig -> AllowSharedBufferSource -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-description AudioDecoderConfig.description specification>+setDescription :: (MonadDOM m, IsAllowSharedBufferSource val) => AudioDecoderConfig -> val -> m ()+setDescription self val = liftDOM (void ((js_setDescription (self) (Types.toAllowSharedBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"description\"]; })"+        js_getDescription :: AudioDecoderConfig -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-description AudioDecoderConfig.description specification>+getDescription :: (MonadDOM m) => AudioDecoderConfig -> m (Maybe AllowSharedBufferSource)+getDescription self = liftDOM (((js_getDescription (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-description AudioDecoderConfig.description specification>+getDescriptionUnsafe :: (MonadDOM m, HasCallStack) => AudioDecoderConfig -> m AllowSharedBufferSource+getDescriptionUnsafe self = liftDOM ((((js_getDescription (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-description AudioDecoderConfig.description specification>+getDescriptionUnchecked :: (MonadDOM m) => AudioDecoderConfig -> m AllowSharedBufferSource+getDescriptionUnchecked self = liftDOM ((pFromJSVal <$> (js_getDescription (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AudioDecoderInit.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioDecoderInit+       (js_newAudioDecoderInit, js_setOutput, js_setError, newAudioDecoderInit, setOutput, setError, AudioDecoderInit(..), gTypeAudioDecoderInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return ({\"output\": $1, \"error\": $2}); })"+        js_newAudioDecoderInit :: JSVal -> JSVal -> IO AudioDecoderInit+-- | <https://w3c.github.io/webcodecs/#dictdef-audiodecoderinit AudioDecoderInit specification>+newAudioDecoderInit :: (MonadDOM m) => AudioDataOutputCallback -> WebCodecsErrorCallback -> m AudioDecoderInit+newAudioDecoderInit output error = liftDOM (((toJSVal output) >>= \a1' -> (toJSVal error) >>= \a2' -> js_newAudioDecoderInit a1' a2'))++foreign import javascript safe "(($1, $2) => { $1[\"output\"] = $2; })"+        js_setOutput :: AudioDecoderInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderinit-output AudioDecoderInit.output specification>+setOutput :: (MonadDOM m) => AudioDecoderInit -> AudioDataOutputCallback -> m ()+setOutput self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setOutput (self) a2')))++foreign import javascript safe "(($1, $2) => { $1[\"error\"] = $2; })"+        js_setError :: AudioDecoderInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderinit-error AudioDecoderInit.error specification>+setError :: (MonadDOM m) => AudioDecoderInit -> WebCodecsErrorCallback -> m ()+setError self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setError (self) a2')))
+ src/GHCJS/DOM/JSFFI/Generated/AudioDecoderSupport.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioDecoderSupport+       (js_newAudioDecoderSupport, js_setSupported, js_getSupported, js_setConfig, js_getConfig, newAudioDecoderSupport, setSupported, getSupported, getSupportedUnsafe, getSupportedUnchecked, setConfig, getConfig, getConfigUnsafe, getConfigUnchecked, AudioDecoderSupport(..), gTypeAudioDecoderSupport)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAudioDecoderSupport :: IO AudioDecoderSupport+-- | <https://w3c.github.io/webcodecs/#dictdef-audiodecodersupport AudioDecoderSupport specification>+newAudioDecoderSupport :: (MonadDOM m) => m AudioDecoderSupport+newAudioDecoderSupport = liftDOM ((js_newAudioDecoderSupport))++foreign import javascript safe "(($1, $2) => { $1[\"supported\"] = $2; })"+        js_setSupported :: AudioDecoderSupport -> Bool -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-supported AudioDecoderSupport.supported specification>+setSupported :: (MonadDOM m) => AudioDecoderSupport -> Bool -> m ()+setSupported self val = liftDOM (void ((js_setSupported (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"supported\"]; })"+        js_getSupported :: AudioDecoderSupport -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-supported AudioDecoderSupport.supported specification>+getSupported :: (MonadDOM m) => AudioDecoderSupport -> m (Maybe Bool)+getSupported self = liftDOM (((js_getSupported (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-supported AudioDecoderSupport.supported specification>+getSupportedUnsafe :: (MonadDOM m, HasCallStack) => AudioDecoderSupport -> m Bool+getSupportedUnsafe self = liftDOM ((((js_getSupported (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-supported AudioDecoderSupport.supported specification>+getSupportedUnchecked :: (MonadDOM m) => AudioDecoderSupport -> m Bool+getSupportedUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupported (self))))++foreign import javascript safe "(($1, $2) => { $1[\"config\"] = $2; })"+        js_setConfig :: AudioDecoderSupport -> AudioDecoderConfig -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-config AudioDecoderSupport.config specification>+setConfig :: (MonadDOM m) => AudioDecoderSupport -> AudioDecoderConfig -> m ()+setConfig self val = liftDOM (void ((js_setConfig (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"config\"]; })"+        js_getConfig :: AudioDecoderSupport -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-config AudioDecoderSupport.config specification>+getConfig :: (MonadDOM m) => AudioDecoderSupport -> m (Maybe AudioDecoderConfig)+getConfig self = liftDOM (((js_getConfig (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-config AudioDecoderSupport.config specification>+getConfigUnsafe :: (MonadDOM m, HasCallStack) => AudioDecoderSupport -> m AudioDecoderConfig+getConfigUnsafe self = liftDOM ((((js_getConfig (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-config AudioDecoderSupport.config specification>+getConfigUnchecked :: (MonadDOM m) => AudioDecoderSupport -> m AudioDecoderConfig+getConfigUnchecked self = liftDOM ((pFromJSVal <$> (js_getConfig (self))))
src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs view
@@ -1,34 +1,23 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioDestinationNode-       (js_getMaxChannelCount, getMaxChannelCount,-        AudioDestinationNode(..), gTypeAudioDestinationNode)+       (js_getMaxChannelCount, getMaxChannelCount, AudioDestinationNode(..), gTypeAudioDestinationNode)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- + foreign import javascript unsafe "(($1) => { return $1[\"maxChannelCount\"]; })"         js_getMaxChannelCount :: AudioDestinationNode -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioDestinationNode.maxChannelCount Mozilla AudioDestinationNode.maxChannelCount documentation> -getMaxChannelCount :: (MonadIO m) => AudioDestinationNode -> m Word-getMaxChannelCount self = liftIO (js_getMaxChannelCount self)+-- | <https://developer.mozilla.org/docs/Web/API/AudioDestinationNode/maxChannelCount MDN AudioDestinationNode.maxChannelCount documentation>+getMaxChannelCount :: (MonadDOM m) => AudioDestinationNode -> m Word+getMaxChannelCount self = liftDOM ((js_getMaxChannelCount (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioEncoder.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioEncoder+       (js_newAudioEncoder, js_close, js_configure, js_encode, js_flush, js_reset, js_isConfigSupported, js_getState, js_getEncodeQueueSize, newAudioEncoder, close, configure, encode, flush, reset, isConfigSupported, isConfigSupported_, getState, getEncodeQueueSize, dequeue, AudioEncoder(..), gTypeAudioEncoder)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"AudioEncoder\"]($1); })"+        js_newAudioEncoder :: AudioEncoderInit -> IO AudioEncoder+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/AudioEncoder MDN AudioEncoder. documentation>+newAudioEncoder :: (MonadDOM m) => AudioEncoderInit -> m AudioEncoder+newAudioEncoder init = liftDOM ((js_newAudioEncoder (init)))++foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+        js_close :: AudioEncoder -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/close MDN AudioEncoder.close documentation>+close :: (MonadDOM m) => AudioEncoder -> m ()+close self = liftDOM (void ((js_close (self))))++foreign import javascript safe "(($1, $2) => { return $1[\"configure\"]($2); })"+        js_configure :: AudioEncoder -> AudioEncoderConfig -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/configure MDN AudioEncoder.configure documentation>+configure :: (MonadDOM m) => AudioEncoder -> AudioEncoderConfig -> m ()+configure self config = liftDOM (void ((js_configure (self) (config))))++foreign import javascript safe "(($1, $2) => { return $1[\"encode\"]($2); })"+        js_encode :: AudioEncoder -> AudioData -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/encode MDN AudioEncoder.encode documentation>+encode :: (MonadDOM m) => AudioEncoder -> AudioData -> m ()+encode self data' = liftDOM (void ((js_encode (self) (data'))))++foreign import javascript interruptible "(($1, $c) => { return $1[\"flush\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_flush :: AudioEncoder -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/flush MDN AudioEncoder.flush documentation>+flush :: (MonadDOM m) => AudioEncoder -> m ()+flush self = liftDOM (void (((js_flush (self)) >>= checkPromiseResult)))++foreign import javascript safe "(($1) => { return $1[\"reset\"](); })"+        js_reset :: AudioEncoder -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/reset MDN AudioEncoder.reset documentation>+reset :: (MonadDOM m) => AudioEncoder -> m ()+reset self = liftDOM (void ((js_reset (self))))++foreign import javascript interruptible "(($1, $c) => { return globalThis[\"AudioEncoder\"][\"isConfigSupported\"]($1).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_isConfigSupported :: AudioEncoderConfig -> IO (JSVal, AudioEncoderSupport)+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/isConfigSupported_static MDN AudioEncoder.isConfigSupported documentation>+isConfigSupported :: (MonadDOM m) => AudioEncoderConfig -> m AudioEncoderSupport+isConfigSupported config = liftDOM (((js_isConfigSupported (config)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/isConfigSupported_static MDN AudioEncoder.isConfigSupported documentation>+isConfigSupported_ :: (MonadDOM m) => AudioEncoderConfig -> m ()+isConfigSupported_ config = liftDOM (void (((js_isConfigSupported (config)) >>= checkPromiseResult)))++foreign import javascript unsafe "(($1) => { return $1[\"state\"]; })"+        js_getState :: AudioEncoder -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/state MDN AudioEncoder.state documentation>+getState :: (MonadDOM m) => AudioEncoder -> m CodecState+getState self = liftDOM (((js_getState (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"encodeQueueSize\"]; })"+        js_getEncodeQueueSize :: AudioEncoder -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/encodeQueueSize MDN AudioEncoder.encodeQueueSize documentation>+getEncodeQueueSize :: (MonadDOM m) => AudioEncoder -> m Word+getEncodeQueueSize self = liftDOM ((js_getEncodeQueueSize (self)))++-- | <https://w3c.github.io/webcodecs/#dom-audioencoder-ondequeue dequeue event>+dequeue :: EventName AudioEncoder Event+dequeue = unsafeEventName (toJSString "dequeue")
+ src/GHCJS/DOM/JSFFI/Generated/AudioEncoderConfig.hs view
@@ -0,0 +1,159 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioEncoderConfig+       (js_newAudioEncoderConfig, js_setCodec, js_getCodec, js_setSampleRate, js_getSampleRate, js_setNumberOfChannels, js_getNumberOfChannels, js_setBitrate, js_getBitrate, js_setBitrateMode, js_getBitrateMode, js_setAac, js_getAac, js_setFlac, js_getFlac, js_setOpus, js_getOpus, newAudioEncoderConfig, setCodec, getCodec, setSampleRate, getSampleRate, setNumberOfChannels, getNumberOfChannels, setBitrate, getBitrate, getBitrateUnsafe, getBitrateUnchecked, setBitrateMode, getBitrateMode, getBitrateModeUnsafe, getBitrateModeUnchecked, setAac, getAac, getAacUnsafe, getAacUnchecked, setFlac, getFlac, getFlacUnsafe, getFlacUnchecked, setOpus, getOpus, getOpusUnsafe, getOpusUnchecked, AudioEncoderConfig(..), gTypeAudioEncoderConfig)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return ({\"codec\": $1, \"sampleRate\": $2, \"numberOfChannels\": $3}); })"+        js_newAudioEncoderConfig :: JSString -> Word -> Word -> IO AudioEncoderConfig+-- | <https://w3c.github.io/webcodecs/#dictdef-audioencoderconfig AudioEncoderConfig specification>+newAudioEncoderConfig :: (MonadDOM m, ToJSString codec) => codec -> Word -> Word -> m AudioEncoderConfig+newAudioEncoderConfig codec sampleRate numberOfChannels = liftDOM ((js_newAudioEncoderConfig (toJSString codec) (sampleRate) (numberOfChannels)))++foreign import javascript safe "(($1, $2) => { $1[\"codec\"] = $2; })"+        js_setCodec :: AudioEncoderConfig -> JSString -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-codec AudioEncoderConfig.codec specification>+setCodec :: (MonadDOM m, ToJSString val) => AudioEncoderConfig -> val -> m ()+setCodec self val = liftDOM (void ((js_setCodec (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"codec\"]; })"+        js_getCodec :: AudioEncoderConfig -> IO JSString+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-codec AudioEncoderConfig.codec specification>+getCodec :: (MonadDOM m, FromJSString result) => AudioEncoderConfig -> m result+getCodec self = liftDOM ((fromJSString <$> (js_getCodec (self))))++foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })"+        js_setSampleRate :: AudioEncoderConfig -> Word -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-samplerate AudioEncoderConfig.sampleRate specification>+setSampleRate :: (MonadDOM m) => AudioEncoderConfig -> Word -> m ()+setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"+        js_getSampleRate :: AudioEncoderConfig -> IO Word+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-samplerate AudioEncoderConfig.sampleRate specification>+getSampleRate :: (MonadDOM m) => AudioEncoderConfig -> m Word+getSampleRate self = liftDOM ((js_getSampleRate (self)))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfChannels\"] = $2; })"+        js_setNumberOfChannels :: AudioEncoderConfig -> Word -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-numberofchannels AudioEncoderConfig.numberOfChannels specification>+setNumberOfChannels :: (MonadDOM m) => AudioEncoderConfig -> Word -> m ()+setNumberOfChannels self val = liftDOM (void ((js_setNumberOfChannels (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })"+        js_getNumberOfChannels :: AudioEncoderConfig -> IO Word+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-numberofchannels AudioEncoderConfig.numberOfChannels specification>+getNumberOfChannels :: (MonadDOM m) => AudioEncoderConfig -> m Word+getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self)))++foreign import javascript safe "(($1, $2) => { $1[\"bitrate\"] = $2; })"+        js_setBitrate :: AudioEncoderConfig -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitrate AudioEncoderConfig.bitrate specification>+setBitrate :: (MonadDOM m) => AudioEncoderConfig -> Word53 -> m ()+setBitrate self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBitrate (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"bitrate\"]; })"+        js_getBitrate :: AudioEncoderConfig -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitrate AudioEncoderConfig.bitrate specification>+getBitrate :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe Word53)+getBitrate self = liftDOM (((js_getBitrate (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitrate AudioEncoderConfig.bitrate specification>+getBitrateUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m Word53+getBitrateUnsafe self = liftDOM ((((js_getBitrate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitrate AudioEncoderConfig.bitrate specification>+getBitrateUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m Word53+getBitrateUnchecked self = liftDOM ((pFromJSVal <$> (js_getBitrate (self))))++foreign import javascript safe "(($1, $2) => { $1[\"bitrateMode\"] = $2; })"+        js_setBitrateMode :: AudioEncoderConfig -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitratemode AudioEncoderConfig.bitrateMode specification>+setBitrateMode :: (MonadDOM m) => AudioEncoderConfig -> BitrateMode -> m ()+setBitrateMode self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBitrateMode (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"bitrateMode\"]; })"+        js_getBitrateMode :: AudioEncoderConfig -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitratemode AudioEncoderConfig.bitrateMode specification>+getBitrateMode :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe BitrateMode)+getBitrateMode self = liftDOM (((js_getBitrateMode (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitratemode AudioEncoderConfig.bitrateMode specification>+getBitrateModeUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m BitrateMode+getBitrateModeUnsafe self = liftDOM ((((js_getBitrateMode (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitratemode AudioEncoderConfig.bitrateMode specification>+getBitrateModeUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m BitrateMode+getBitrateModeUnchecked self = liftDOM ((pFromJSVal <$> (js_getBitrateMode (self))))++foreign import javascript safe "(($1, $2) => { $1[\"aac\"] = $2; })"+        js_setAac :: AudioEncoderConfig -> AacEncoderConfig -> IO ()+-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-audioencoderconfig-aac AudioEncoderConfig.aac specification>+setAac :: (MonadDOM m) => AudioEncoderConfig -> AacEncoderConfig -> m ()+setAac self val = liftDOM (void ((js_setAac (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"aac\"]; })"+        js_getAac :: AudioEncoderConfig -> IO JSVal+-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-audioencoderconfig-aac AudioEncoderConfig.aac specification>+getAac :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe AacEncoderConfig)+getAac self = liftDOM (((js_getAac (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-audioencoderconfig-aac AudioEncoderConfig.aac specification>+getAacUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m AacEncoderConfig+getAacUnsafe self = liftDOM ((((js_getAac (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-audioencoderconfig-aac AudioEncoderConfig.aac specification>+getAacUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m AacEncoderConfig+getAacUnchecked self = liftDOM ((pFromJSVal <$> (js_getAac (self))))++foreign import javascript safe "(($1, $2) => { $1[\"flac\"] = $2; })"+        js_setFlac :: AudioEncoderConfig -> FlacEncoderConfig -> IO ()+-- | <https://w3c.github.io/webcodecs/flac_codec_registration.html#dom-audioencoderconfig-flac AudioEncoderConfig.flac specification>+setFlac :: (MonadDOM m) => AudioEncoderConfig -> FlacEncoderConfig -> m ()+setFlac self val = liftDOM (void ((js_setFlac (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"flac\"]; })"+        js_getFlac :: AudioEncoderConfig -> IO JSVal+-- | <https://w3c.github.io/webcodecs/flac_codec_registration.html#dom-audioencoderconfig-flac AudioEncoderConfig.flac specification>+getFlac :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe FlacEncoderConfig)+getFlac self = liftDOM (((js_getFlac (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/flac_codec_registration.html#dom-audioencoderconfig-flac AudioEncoderConfig.flac specification>+getFlacUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m FlacEncoderConfig+getFlacUnsafe self = liftDOM ((((js_getFlac (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/flac_codec_registration.html#dom-audioencoderconfig-flac AudioEncoderConfig.flac specification>+getFlacUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m FlacEncoderConfig+getFlacUnchecked self = liftDOM ((pFromJSVal <$> (js_getFlac (self))))++foreign import javascript safe "(($1, $2) => { $1[\"opus\"] = $2; })"+        js_setOpus :: AudioEncoderConfig -> OpusEncoderConfig -> IO ()+-- | <https://w3c.github.io/webcodecs/opus_codec_registration.html#dom-audioencoderconfig-opus AudioEncoderConfig.opus specification>+setOpus :: (MonadDOM m) => AudioEncoderConfig -> OpusEncoderConfig -> m ()+setOpus self val = liftDOM (void ((js_setOpus (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"opus\"]; })"+        js_getOpus :: AudioEncoderConfig -> IO JSVal+-- | <https://w3c.github.io/webcodecs/opus_codec_registration.html#dom-audioencoderconfig-opus AudioEncoderConfig.opus specification>+getOpus :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe OpusEncoderConfig)+getOpus self = liftDOM (((js_getOpus (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/opus_codec_registration.html#dom-audioencoderconfig-opus AudioEncoderConfig.opus specification>+getOpusUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m OpusEncoderConfig+getOpusUnsafe self = liftDOM ((((js_getOpus (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/opus_codec_registration.html#dom-audioencoderconfig-opus AudioEncoderConfig.opus specification>+getOpusUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m OpusEncoderConfig+getOpusUnchecked self = liftDOM ((pFromJSVal <$> (js_getOpus (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AudioEncoderInit.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioEncoderInit+       (js_newAudioEncoderInit, js_setOutput, js_setError, newAudioEncoderInit, setOutput, setError, AudioEncoderInit(..), gTypeAudioEncoderInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return ({\"output\": $1, \"error\": $2}); })"+        js_newAudioEncoderInit :: JSVal -> JSVal -> IO AudioEncoderInit+-- | <https://w3c.github.io/webcodecs/#dictdef-audioencoderinit AudioEncoderInit specification>+newAudioEncoderInit :: (MonadDOM m) => EncodedAudioChunkOutputCallback -> WebCodecsErrorCallback -> m AudioEncoderInit+newAudioEncoderInit output error = liftDOM (((toJSVal output) >>= \a1' -> (toJSVal error) >>= \a2' -> js_newAudioEncoderInit a1' a2'))++foreign import javascript safe "(($1, $2) => { $1[\"output\"] = $2; })"+        js_setOutput :: AudioEncoderInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderinit-output AudioEncoderInit.output specification>+setOutput :: (MonadDOM m) => AudioEncoderInit -> EncodedAudioChunkOutputCallback -> m ()+setOutput self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setOutput (self) a2')))++foreign import javascript safe "(($1, $2) => { $1[\"error\"] = $2; })"+        js_setError :: AudioEncoderInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderinit-error AudioEncoderInit.error specification>+setError :: (MonadDOM m) => AudioEncoderInit -> WebCodecsErrorCallback -> m ()+setError self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setError (self) a2')))
+ src/GHCJS/DOM/JSFFI/Generated/AudioEncoderSupport.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioEncoderSupport+       (js_newAudioEncoderSupport, js_setSupported, js_getSupported, js_setConfig, js_getConfig, newAudioEncoderSupport, setSupported, getSupported, getSupportedUnsafe, getSupportedUnchecked, setConfig, getConfig, getConfigUnsafe, getConfigUnchecked, AudioEncoderSupport(..), gTypeAudioEncoderSupport)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAudioEncoderSupport :: IO AudioEncoderSupport+-- | <https://w3c.github.io/webcodecs/#dictdef-audioencodersupport AudioEncoderSupport specification>+newAudioEncoderSupport :: (MonadDOM m) => m AudioEncoderSupport+newAudioEncoderSupport = liftDOM ((js_newAudioEncoderSupport))++foreign import javascript safe "(($1, $2) => { $1[\"supported\"] = $2; })"+        js_setSupported :: AudioEncoderSupport -> Bool -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-supported AudioEncoderSupport.supported specification>+setSupported :: (MonadDOM m) => AudioEncoderSupport -> Bool -> m ()+setSupported self val = liftDOM (void ((js_setSupported (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"supported\"]; })"+        js_getSupported :: AudioEncoderSupport -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-supported AudioEncoderSupport.supported specification>+getSupported :: (MonadDOM m) => AudioEncoderSupport -> m (Maybe Bool)+getSupported self = liftDOM (((js_getSupported (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-supported AudioEncoderSupport.supported specification>+getSupportedUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderSupport -> m Bool+getSupportedUnsafe self = liftDOM ((((js_getSupported (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-supported AudioEncoderSupport.supported specification>+getSupportedUnchecked :: (MonadDOM m) => AudioEncoderSupport -> m Bool+getSupportedUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupported (self))))++foreign import javascript safe "(($1, $2) => { $1[\"config\"] = $2; })"+        js_setConfig :: AudioEncoderSupport -> AudioEncoderConfig -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-config AudioEncoderSupport.config specification>+setConfig :: (MonadDOM m) => AudioEncoderSupport -> AudioEncoderConfig -> m ()+setConfig self val = liftDOM (void ((js_setConfig (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"config\"]; })"+        js_getConfig :: AudioEncoderSupport -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-config AudioEncoderSupport.config specification>+getConfig :: (MonadDOM m) => AudioEncoderSupport -> m (Maybe AudioEncoderConfig)+getConfig self = liftDOM (((js_getConfig (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-config AudioEncoderSupport.config specification>+getConfigUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderSupport -> m AudioEncoderConfig+getConfigUnsafe self = liftDOM ((((js_getConfig (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-config AudioEncoderSupport.config specification>+getConfigUnchecked :: (MonadDOM m) => AudioEncoderSupport -> m AudioEncoderConfig+getConfigUnchecked self = liftDOM ((pFromJSVal <$> (js_getConfig (self))))
src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs view
@@ -1,88 +1,83 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioListener-       (js_setPosition, setPosition, js_setOrientation, setOrientation,-        js_setVelocity, setVelocity, js_setDopplerFactor, setDopplerFactor,-        js_getDopplerFactor, getDopplerFactor, js_setSpeedOfSound,-        setSpeedOfSound, js_getSpeedOfSound, getSpeedOfSound,-        AudioListener(..), gTypeAudioListener)+       (js_setOrientation, js_setPosition, js_getPositionX, js_getPositionY, js_getPositionZ, js_getForwardX, js_getForwardY, js_getForwardZ, js_getUpX, js_getUpY, js_getUpZ, setOrientation, setPosition, getPositionX, getPositionY, getPositionZ, getForwardX, getForwardY, getForwardZ, getUpX, getUpY, getUpZ, AudioListener(..), gTypeAudioListener)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"setPosition\"]($2, $3, $4); })"++foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"setOrientation\"]($2, $3, $4, $5, $6, $7); })"+        js_setOrientation :: AudioListener -> Float -> Float -> Float -> Float -> Float -> Float -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/setOrientation MDN AudioListener.setOrientation documentation>+setOrientation :: (MonadDOM m) => AudioListener -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+setOrientation self x y z xUp yUp zUp = liftDOM (void ((js_setOrientation (self) (x) (y) (z) (xUp) (yUp) (zUp))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setPosition\"]($2, $3, $4); })"         js_setPosition :: AudioListener -> Float -> Float -> Float -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/setPosition MDN AudioListener.setPosition documentation>+setPosition :: (MonadDOM m) => AudioListener -> Float -> Float -> Float -> m ()+setPosition self x y z = liftDOM (void ((js_setPosition (self) (x) (y) (z)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setPosition Mozilla AudioListener.setPosition documentation> -setPosition ::-            (MonadIO m) => AudioListener -> Float -> Float -> Float -> m ()-setPosition self x y z = liftIO (js_setPosition self x y z)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"setOrientation\"]($2, $3, $4,\n$5, $6, $7); })" js_setOrientation-        ::-        AudioListener ->-          Float -> Float -> Float -> Float -> Float -> Float -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"positionX\"]; })"+        js_getPositionX :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/positionX MDN AudioListener.positionX documentation>+getPositionX :: (MonadDOM m) => AudioListener -> m AudioParam+getPositionX self = liftDOM ((js_getPositionX (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setOrientation Mozilla AudioListener.setOrientation documentation> -setOrientation ::-               (MonadIO m) =>-                 AudioListener ->-                   Float -> Float -> Float -> Float -> Float -> Float -> m ()-setOrientation self x y z xUp yUp zUp-  = liftIO (js_setOrientation self x y z xUp yUp zUp)- -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"setVelocity\"]($2, $3, $4); })"-        js_setVelocity :: AudioListener -> Float -> Float -> Float -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"positionY\"]; })"+        js_getPositionY :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/positionY MDN AudioListener.positionY documentation>+getPositionY :: (MonadDOM m) => AudioListener -> m AudioParam+getPositionY self = liftDOM ((js_getPositionY (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setVelocity Mozilla AudioListener.setVelocity documentation> -setVelocity ::-            (MonadIO m) => AudioListener -> Float -> Float -> Float -> m ()-setVelocity self x y z = liftIO (js_setVelocity self x y z)- -foreign import javascript unsafe "(($1, $2) => { $1[\"dopplerFactor\"] = $2; })"-        js_setDopplerFactor :: AudioListener -> Float -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"positionZ\"]; })"+        js_getPositionZ :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/positionZ MDN AudioListener.positionZ documentation>+getPositionZ :: (MonadDOM m) => AudioListener -> m AudioParam+getPositionZ self = liftDOM ((js_getPositionZ (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation> -setDopplerFactor :: (MonadIO m) => AudioListener -> Float -> m ()-setDopplerFactor self val = liftIO (js_setDopplerFactor self val)- -foreign import javascript unsafe "(($1) => { return $1[\"dopplerFactor\"]; })"-        js_getDopplerFactor :: AudioListener -> IO Float+foreign import javascript unsafe "(($1) => { return $1[\"forwardX\"]; })"+        js_getForwardX :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/forwardX MDN AudioListener.forwardX documentation>+getForwardX :: (MonadDOM m) => AudioListener -> m AudioParam+getForwardX self = liftDOM ((js_getForwardX (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation> -getDopplerFactor :: (MonadIO m) => AudioListener -> m Float-getDopplerFactor self = liftIO (js_getDopplerFactor self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"speedOfSound\"] = $2; })"-        js_setSpeedOfSound :: AudioListener -> Float -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"forwardY\"]; })"+        js_getForwardY :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/forwardY MDN AudioListener.forwardY documentation>+getForwardY :: (MonadDOM m) => AudioListener -> m AudioParam+getForwardY self = liftDOM ((js_getForwardY (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation> -setSpeedOfSound :: (MonadIO m) => AudioListener -> Float -> m ()-setSpeedOfSound self val = liftIO (js_setSpeedOfSound self val)- -foreign import javascript unsafe "(($1) => { return $1[\"speedOfSound\"]; })"-        js_getSpeedOfSound :: AudioListener -> IO Float+foreign import javascript unsafe "(($1) => { return $1[\"forwardZ\"]; })"+        js_getForwardZ :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/forwardZ MDN AudioListener.forwardZ documentation>+getForwardZ :: (MonadDOM m) => AudioListener -> m AudioParam+getForwardZ self = liftDOM ((js_getForwardZ (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation> -getSpeedOfSound :: (MonadIO m) => AudioListener -> m Float-getSpeedOfSound self = liftIO (js_getSpeedOfSound self)+foreign import javascript unsafe "(($1) => { return $1[\"upX\"]; })"+        js_getUpX :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/upX MDN AudioListener.upX documentation>+getUpX :: (MonadDOM m) => AudioListener -> m AudioParam+getUpX self = liftDOM ((js_getUpX (self)))++foreign import javascript unsafe "(($1) => { return $1[\"upY\"]; })"+        js_getUpY :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/upY MDN AudioListener.upY documentation>+getUpY :: (MonadDOM m) => AudioListener -> m AudioParam+getUpY self = liftDOM ((js_getUpY (self)))++foreign import javascript unsafe "(($1) => { return $1[\"upZ\"]; })"+        js_getUpZ :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/upZ MDN AudioListener.upZ documentation>+getUpZ :: (MonadDOM m) => AudioListener -> m AudioParam+getUpZ self = liftDOM ((js_getUpZ (self)))
src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs view
@@ -1,159 +1,129 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioNode-       (js_connect, connect, js_connectParam, connectParam, js_disconnect,-        disconnect, js_getContext, getContext, js_getNumberOfInputs,-        getNumberOfInputs, js_getNumberOfOutputs, getNumberOfOutputs,-        js_setChannelCount, setChannelCount, js_getChannelCount,-        getChannelCount, js_setChannelCountMode, setChannelCountMode,-        js_getChannelCountMode, getChannelCountMode,-        js_setChannelInterpretation, setChannelInterpretation,-        js_getChannelInterpretation, getChannelInterpretation,-        AudioNode(..), gTypeAudioNode, IsAudioNode, toAudioNode)+       (js_connect, js_connectParam, js_disconnect', js_disconnect, js_disconnectDestinationNode, js_disconnectDestinationNodeOutput, js_disconnectDestinationNodeOutputInput, js_disconnectDestinationParam, js_disconnectDestinationParamOutput, js_getContext, js_getNumberOfInputs, js_getNumberOfOutputs, js_setChannelCount, js_getChannelCount, js_setChannelCountMode, js_getChannelCountMode, js_setChannelInterpretation, js_getChannelInterpretation, connect, connect_, connectParam, disconnect', disconnect, disconnectDestinationNode, disconnectDestinationNodeOutput, disconnectDestinationNodeOutputInput, disconnectDestinationParam, disconnectDestinationParamOutput, getContext, getNumberOfInputs, getNumberOfOutputs, setChannelCount, getChannelCount, setChannelCountMode, getChannelCountMode, setChannelInterpretation, getChannelInterpretation, AudioNode(..), gTypeAudioNode, IsAudioNode, toAudioNode)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- + foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"connect\"]($2, $3, $4); })"-        js_connect ::-        AudioNode -> AudioNode -> Optional Word -> Optional Word -> IO ()+        js_connect :: AudioNode -> AudioNode -> JSVal -> JSVal -> IO AudioNode+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/connect MDN AudioNode.connect documentation>+connect :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> Maybe Word -> Maybe Word -> m AudioNode+connect self destinationNode output input = liftDOM (((P.maybe (P.return jsUndefined) toJSVal output) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal input) >>= \a4' -> js_connect ((Types.toAudioNode self)) (Types.toAudioNode destinationNode) a3' a4')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation> -connect ::-        (MonadIO m, IsAudioNode self, IsAudioNode destination) =>-          self -> destination -> Maybe Word -> Maybe Word -> m ()-connect self destination output input-  = liftIO-      (js_connect (toAudioNode self) (toAudioNode destination)-         (maybeToOptional output)-         (maybeToOptional input))- +-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/connect MDN AudioNode.connect documentation>+connect_ :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> Maybe Word -> Maybe Word -> m ()+connect_ self destinationNode output input = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal output) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal input) >>= \a4' -> js_connect ((Types.toAudioNode self)) (Types.toAudioNode destinationNode) a3' a4')))+ foreign import javascript safe "(($1, $2, $3) => { return $1[\"connect\"]($2, $3); })"-        js_connectParam ::-        AudioNode -> AudioParam -> Optional Word -> IO ()+        js_connectParam :: AudioNode -> AudioParam -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/connect MDN AudioNode.connect documentation>+connectParam :: (MonadDOM m, IsAudioNode self) => self -> AudioParam -> Maybe Word -> m ()+connectParam self destinationParam output = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal output) >>= \a3' -> js_connectParam ((Types.toAudioNode self)) (destinationParam) a3'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation> -connectParam ::-             (MonadIO m, IsAudioNode self) =>-               self -> AudioParam -> Maybe Word -> m ()-connectParam self destination output-  = liftIO-      (js_connectParam (toAudioNode self) destination-         (maybeToOptional output))- +foreign import javascript safe "(($1) => { return $1[\"disconnect\"](); })"+        js_disconnect' :: AudioNode -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+disconnect' :: (MonadDOM m, IsAudioNode self) => self -> m ()+disconnect' self = liftDOM (void ((js_disconnect' ((Types.toAudioNode self)))))+ foreign import javascript safe "(($1, $2) => { return $1[\"disconnect\"]($2); })"-        js_disconnect :: AudioNode -> Optional Word -> IO ()+        js_disconnect :: AudioNode -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+disconnect :: (MonadDOM m, IsAudioNode self) => self -> Word -> m ()+disconnect self output = liftDOM (void ((js_disconnect ((Types.toAudioNode self)) (output)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.disconnect Mozilla AudioNode.disconnect documentation> -disconnect ::-           (MonadIO m, IsAudioNode self) => self -> Maybe Word -> m ()-disconnect self output-  = liftIO-      (js_disconnect (toAudioNode self) (maybeToOptional output))- -foreign import javascript unsafe "(($1) => { return $1[\"context\"]; })" js_getContext ::-        AudioNode -> IO AudioContext+foreign import javascript safe "(($1, $2) => { return $1[\"disconnect\"]($2); })"+        js_disconnectDestinationNode :: AudioNode -> AudioNode -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+disconnectDestinationNode :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> m ()+disconnectDestinationNode self destinationNode = liftDOM (void ((js_disconnectDestinationNode ((Types.toAudioNode self)) (Types.toAudioNode destinationNode)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation> -getContext ::-           (MonadIO m, IsAudioNode self) => self -> m AudioContext-getContext self = liftIO (js_getContext (toAudioNode self))- +foreign import javascript safe "(($1, $2, $3) => { return $1[\"disconnect\"]($2, $3); })"+        js_disconnectDestinationNodeOutput :: AudioNode -> AudioNode -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+disconnectDestinationNodeOutput :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> Word -> m ()+disconnectDestinationNodeOutput self destinationNode output = liftDOM (void ((js_disconnectDestinationNodeOutput ((Types.toAudioNode self)) (Types.toAudioNode destinationNode) (output))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"disconnect\"]($2, $3, $4); })"+        js_disconnectDestinationNodeOutputInput :: AudioNode -> AudioNode -> Word -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+disconnectDestinationNodeOutputInput :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> Word -> Word -> m ()+disconnectDestinationNodeOutputInput self destinationNode output input = liftDOM (void ((js_disconnectDestinationNodeOutputInput ((Types.toAudioNode self)) (Types.toAudioNode destinationNode) (output) (input))))++foreign import javascript safe "(($1, $2) => { return $1[\"disconnect\"]($2); })"+        js_disconnectDestinationParam :: AudioNode -> AudioParam -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+disconnectDestinationParam :: (MonadDOM m, IsAudioNode self) => self -> AudioParam -> m ()+disconnectDestinationParam self destinationParam = liftDOM (void ((js_disconnectDestinationParam ((Types.toAudioNode self)) (destinationParam))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"disconnect\"]($2, $3); })"+        js_disconnectDestinationParamOutput :: AudioNode -> AudioParam -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+disconnectDestinationParamOutput :: (MonadDOM m, IsAudioNode self) => self -> AudioParam -> Word -> m ()+disconnectDestinationParamOutput self destinationParam output = liftDOM (void ((js_disconnectDestinationParamOutput ((Types.toAudioNode self)) (destinationParam) (output))))++foreign import javascript unsafe "(($1) => { return $1[\"context\"]; })"+        js_getContext :: AudioNode -> IO BaseAudioContext+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/context MDN AudioNode.context documentation>+getContext :: (MonadDOM m, IsAudioNode self) => self -> m BaseAudioContext+getContext self = liftDOM ((js_getContext ((Types.toAudioNode self))))+ foreign import javascript unsafe "(($1) => { return $1[\"numberOfInputs\"]; })"         js_getNumberOfInputs :: AudioNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/numberOfInputs MDN AudioNode.numberOfInputs documentation>+getNumberOfInputs :: (MonadDOM m, IsAudioNode self) => self -> m Word+getNumberOfInputs self = liftDOM ((js_getNumberOfInputs ((Types.toAudioNode self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfInputs Mozilla AudioNode.numberOfInputs documentation> -getNumberOfInputs ::-                  (MonadIO m, IsAudioNode self) => self -> m Word-getNumberOfInputs self-  = liftIO (js_getNumberOfInputs (toAudioNode self))-  foreign import javascript unsafe "(($1) => { return $1[\"numberOfOutputs\"]; })"         js_getNumberOfOutputs :: AudioNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/numberOfOutputs MDN AudioNode.numberOfOutputs documentation>+getNumberOfOutputs :: (MonadDOM m, IsAudioNode self) => self -> m Word+getNumberOfOutputs self = liftDOM ((js_getNumberOfOutputs ((Types.toAudioNode self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfOutputs Mozilla AudioNode.numberOfOutputs documentation> -getNumberOfOutputs ::-                   (MonadIO m, IsAudioNode self) => self -> m Word-getNumberOfOutputs self-  = liftIO (js_getNumberOfOutputs (toAudioNode self))-  foreign import javascript safe "(($1, $2) => { $1[\"channelCount\"] = $2; })"         js_setChannelCount :: AudioNode -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelCount MDN AudioNode.channelCount documentation>+setChannelCount :: (MonadDOM m, IsAudioNode self) => self -> Word -> m ()+setChannelCount self val = liftDOM (void ((js_setChannelCount ((Types.toAudioNode self)) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation> -setChannelCount ::-                (MonadIO m, IsAudioNode self) => self -> Word -> m ()-setChannelCount self val-  = liftIO (js_setChannelCount (toAudioNode self) val)-  foreign import javascript unsafe "(($1) => { return $1[\"channelCount\"]; })"         js_getChannelCount :: AudioNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelCount MDN AudioNode.channelCount documentation>+getChannelCount :: (MonadDOM m, IsAudioNode self) => self -> m Word+getChannelCount self = liftDOM ((js_getChannelCount ((Types.toAudioNode self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation> -getChannelCount :: (MonadIO m, IsAudioNode self) => self -> m Word-getChannelCount self-  = liftIO (js_getChannelCount (toAudioNode self))-  foreign import javascript safe "(($1, $2) => { $1[\"channelCountMode\"] = $2; })"-        js_setChannelCountMode :: AudioNode -> JSString -> IO ()+        js_setChannelCountMode :: AudioNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelCountMode MDN AudioNode.channelCountMode documentation>+setChannelCountMode :: (MonadDOM m, IsAudioNode self) => self -> ChannelCountMode -> m ()+setChannelCountMode self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChannelCountMode ((Types.toAudioNode self)) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation> -setChannelCountMode ::-                    (MonadIO m, IsAudioNode self, ToJSString val) =>-                      self -> val -> m ()-setChannelCountMode self val-  = liftIO-      (js_setChannelCountMode (toAudioNode self) (toJSString val))-  foreign import javascript unsafe "(($1) => { return $1[\"channelCountMode\"]; })"-        js_getChannelCountMode :: AudioNode -> IO JSString+        js_getChannelCountMode :: AudioNode -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelCountMode MDN AudioNode.channelCountMode documentation>+getChannelCountMode :: (MonadDOM m, IsAudioNode self) => self -> m ChannelCountMode+getChannelCountMode self = liftDOM (((js_getChannelCountMode ((Types.toAudioNode self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation> -getChannelCountMode ::-                    (MonadIO m, IsAudioNode self, FromJSString result) =>-                      self -> m result-getChannelCountMode self-  = liftIO-      (fromJSString <$> (js_getChannelCountMode (toAudioNode self)))- -foreign import javascript safe-        "(($1, $2) => { $1[\"channelInterpretation\"] = $2; })" js_setChannelInterpretation-        :: AudioNode -> JSString -> IO ()+foreign import javascript safe "(($1, $2) => { $1[\"channelInterpretation\"] = $2; })"+        js_setChannelInterpretation :: AudioNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelInterpretation MDN AudioNode.channelInterpretation documentation>+setChannelInterpretation :: (MonadDOM m, IsAudioNode self) => self -> ChannelInterpretation -> m ()+setChannelInterpretation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChannelInterpretation ((Types.toAudioNode self)) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> -setChannelInterpretation ::-                         (MonadIO m, IsAudioNode self, ToJSString val) =>-                           self -> val -> m ()-setChannelInterpretation self val-  = liftIO-      (js_setChannelInterpretation (toAudioNode self) (toJSString val))-  foreign import javascript unsafe "(($1) => { return $1[\"channelInterpretation\"]; })"-        js_getChannelInterpretation :: AudioNode -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> -getChannelInterpretation ::-                         (MonadIO m, IsAudioNode self, FromJSString result) =>-                           self -> m result-getChannelInterpretation self-  = liftIO-      (fromJSString <$> (js_getChannelInterpretation (toAudioNode self)))+        js_getChannelInterpretation :: AudioNode -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelInterpretation MDN AudioNode.channelInterpretation documentation>+getChannelInterpretation :: (MonadDOM m, IsAudioNode self) => self -> m ChannelInterpretation+getChannelInterpretation self = liftDOM (((js_getChannelInterpretation ((Types.toAudioNode self))) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/AudioNodeOptions.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioNodeOptions+       (js_newAudioNodeOptions, js_setChannelCount, js_getChannelCount, js_setChannelCountMode, js_getChannelCountMode, js_setChannelInterpretation, js_getChannelInterpretation, newAudioNodeOptions, setChannelCount, getChannelCount, getChannelCountUnsafe, getChannelCountUnchecked, setChannelCountMode, getChannelCountMode, getChannelCountModeUnsafe, getChannelCountModeUnchecked, setChannelInterpretation, getChannelInterpretation, getChannelInterpretationUnsafe, getChannelInterpretationUnchecked, AudioNodeOptions(..), gTypeAudioNodeOptions, IsAudioNodeOptions, toAudioNodeOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAudioNodeOptions :: IO AudioNodeOptions+-- | <https://webaudio.github.io/web-audio-api/#AudioNodeOptions AudioNodeOptions specification>+newAudioNodeOptions :: (MonadDOM m) => m AudioNodeOptions+newAudioNodeOptions = liftDOM ((js_newAudioNodeOptions))++foreign import javascript safe "(($1, $2) => { $1[\"channelCount\"] = $2; })"+        js_setChannelCount :: AudioNodeOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcount AudioNodeOptions.channelCount specification>+setChannelCount :: (MonadDOM m, IsAudioNodeOptions self) => self -> Word -> m ()+setChannelCount self val = liftDOM (void ((js_setChannelCount ((Types.toAudioNodeOptions self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"channelCount\"]; })"+        js_getChannelCount :: AudioNodeOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcount AudioNodeOptions.channelCount specification>+getChannelCount :: (MonadDOM m, IsAudioNodeOptions self) => self -> m (Maybe Word)+getChannelCount self = liftDOM (((js_getChannelCount ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcount AudioNodeOptions.channelCount specification>+getChannelCountUnsafe :: (MonadDOM m, IsAudioNodeOptions self, HasCallStack) => self -> m Word+getChannelCountUnsafe self = liftDOM ((((js_getChannelCount ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcount AudioNodeOptions.channelCount specification>+getChannelCountUnchecked :: (MonadDOM m, IsAudioNodeOptions self) => self -> m Word+getChannelCountUnchecked self = liftDOM ((pFromJSVal <$> (js_getChannelCount ((Types.toAudioNodeOptions self)))))++foreign import javascript safe "(($1, $2) => { $1[\"channelCountMode\"] = $2; })"+        js_setChannelCountMode :: AudioNodeOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcountmode AudioNodeOptions.channelCountMode specification>+setChannelCountMode :: (MonadDOM m, IsAudioNodeOptions self) => self -> ChannelCountMode -> m ()+setChannelCountMode self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChannelCountMode ((Types.toAudioNodeOptions self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"channelCountMode\"]; })"+        js_getChannelCountMode :: AudioNodeOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcountmode AudioNodeOptions.channelCountMode specification>+getChannelCountMode :: (MonadDOM m, IsAudioNodeOptions self) => self -> m (Maybe ChannelCountMode)+getChannelCountMode self = liftDOM (((js_getChannelCountMode ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcountmode AudioNodeOptions.channelCountMode specification>+getChannelCountModeUnsafe :: (MonadDOM m, IsAudioNodeOptions self, HasCallStack) => self -> m ChannelCountMode+getChannelCountModeUnsafe self = liftDOM ((((js_getChannelCountMode ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcountmode AudioNodeOptions.channelCountMode specification>+getChannelCountModeUnchecked :: (MonadDOM m, IsAudioNodeOptions self) => self -> m ChannelCountMode+getChannelCountModeUnchecked self = liftDOM ((pFromJSVal <$> (js_getChannelCountMode ((Types.toAudioNodeOptions self)))))++foreign import javascript safe "(($1, $2) => { $1[\"channelInterpretation\"] = $2; })"+        js_setChannelInterpretation :: AudioNodeOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelinterpretation AudioNodeOptions.channelInterpretation specification>+setChannelInterpretation :: (MonadDOM m, IsAudioNodeOptions self) => self -> ChannelInterpretation -> m ()+setChannelInterpretation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChannelInterpretation ((Types.toAudioNodeOptions self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"channelInterpretation\"]; })"+        js_getChannelInterpretation :: AudioNodeOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelinterpretation AudioNodeOptions.channelInterpretation specification>+getChannelInterpretation :: (MonadDOM m, IsAudioNodeOptions self) => self -> m (Maybe ChannelInterpretation)+getChannelInterpretation self = liftDOM (((js_getChannelInterpretation ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelinterpretation AudioNodeOptions.channelInterpretation specification>+getChannelInterpretationUnsafe :: (MonadDOM m, IsAudioNodeOptions self, HasCallStack) => self -> m ChannelInterpretation+getChannelInterpretationUnsafe self = liftDOM ((((js_getChannelInterpretation ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelinterpretation AudioNodeOptions.channelInterpretation specification>+getChannelInterpretationUnchecked :: (MonadDOM m, IsAudioNodeOptions self) => self -> m ChannelInterpretation+getChannelInterpretationUnchecked self = liftDOM ((pFromJSVal <$> (js_getChannelInterpretation ((Types.toAudioNodeOptions self)))))
src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs view
@@ -1,148 +1,129 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioParam-       (js_setValueAtTime, setValueAtTime, js_linearRampToValueAtTime,-        linearRampToValueAtTime, js_exponentialRampToValueAtTime,-        exponentialRampToValueAtTime, js_setTargetAtTime, setTargetAtTime,-        js_setValueCurveAtTime, setValueCurveAtTime,-        js_cancelScheduledValues, cancelScheduledValues, js_setValue,-        setValue, js_getValue, getValue, js_getMinValue, getMinValue,-        js_getMaxValue, getMaxValue, js_getDefaultValue, getDefaultValue,-        js_getName, getName, js_getUnits, getUnits, AudioParam(..),-        gTypeAudioParam)+       (js_cancelAndHoldAtTime, js_cancelScheduledValues, js_exponentialRampToValueAtTime, js_linearRampToValueAtTime, js_setTargetAtTime, js_setValueAtTime, js_setValueCurveAtTime, js_setValue, js_getValue, js_setAutomationRate, js_getAutomationRate, js_getDefaultValue, js_getMinValue, js_getMaxValue, cancelAndHoldAtTime, cancelAndHoldAtTime_, cancelScheduledValues, cancelScheduledValues_, exponentialRampToValueAtTime, exponentialRampToValueAtTime_, linearRampToValueAtTime, linearRampToValueAtTime_, setTargetAtTime, setTargetAtTime_, setValueAtTime, setValueAtTime_, setValueCurveAtTime, setValueCurveAtTime_, setValue, getValue, setAutomationRate, getAutomationRate, getDefaultValue, getMinValue, getMaxValue, AudioParam(..), gTypeAudioParam)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setValueAtTime\"]($2, $3); })"-        js_setValueAtTime :: AudioParam -> Float -> Float -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueAtTime Mozilla AudioParam.setValueAtTime documentation> -setValueAtTime ::-               (MonadIO m) => AudioParam -> Float -> Float -> m ()-setValueAtTime self value time-  = liftIO (js_setValueAtTime self value time)- -foreign import javascript unsafe-        "(($1, $2, $3) => { return $1[\"linearRampToValueAtTime\"]($2,\n$3); })"-        js_linearRampToValueAtTime :: AudioParam -> Float -> Float -> IO ()+foreign import javascript safe "(($1, $2) => { return $1[\"cancelAndHoldAtTime\"]($2); })"+        js_cancelAndHoldAtTime :: AudioParam -> Double -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/cancelAndHoldAtTime MDN AudioParam.cancelAndHoldAtTime documentation>+cancelAndHoldAtTime :: (MonadDOM m) => AudioParam -> Double -> m AudioParam+cancelAndHoldAtTime self cancelTime = liftDOM ((js_cancelAndHoldAtTime (self) (cancelTime))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.linearRampToValueAtTime Mozilla AudioParam.linearRampToValueAtTime documentation> -linearRampToValueAtTime ::-                        (MonadIO m) => AudioParam -> Float -> Float -> m ()-linearRampToValueAtTime self value time-  = liftIO (js_linearRampToValueAtTime self value time)- -foreign import javascript unsafe-        "(($1, $2, $3) => { return $1[\"exponentialRampToValueAtTime\"]($2,\n$3); })"-        js_exponentialRampToValueAtTime ::-        AudioParam -> Float -> Float -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/cancelAndHoldAtTime MDN AudioParam.cancelAndHoldAtTime documentation>+cancelAndHoldAtTime_ :: (MonadDOM m) => AudioParam -> Double -> m ()+cancelAndHoldAtTime_ self cancelTime = liftDOM (void ((js_cancelAndHoldAtTime (self) (cancelTime)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.exponentialRampToValueAtTime Mozilla AudioParam.exponentialRampToValueAtTime documentation> -exponentialRampToValueAtTime ::-                             (MonadIO m) => AudioParam -> Float -> Float -> m ()-exponentialRampToValueAtTime self value time-  = liftIO (js_exponentialRampToValueAtTime self value time)- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return $1[\"setTargetAtTime\"]($2, $3,\n$4); })" js_setTargetAtTime ::-        AudioParam -> Float -> Float -> Float -> IO ()+foreign import javascript safe "(($1, $2) => { return $1[\"cancelScheduledValues\"]($2); })"+        js_cancelScheduledValues :: AudioParam -> Double -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/cancelScheduledValues MDN AudioParam.cancelScheduledValues documentation>+cancelScheduledValues :: (MonadDOM m) => AudioParam -> Double -> m AudioParam+cancelScheduledValues self cancelTime = liftDOM ((js_cancelScheduledValues (self) (cancelTime))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setTargetAtTime Mozilla AudioParam.setTargetAtTime documentation> -setTargetAtTime ::-                (MonadIO m) => AudioParam -> Float -> Float -> Float -> m ()-setTargetAtTime self target time timeConstant-  = liftIO (js_setTargetAtTime self target time timeConstant)- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return $1[\"setValueCurveAtTime\"]($2,\n$3, $4); })" js_setValueCurveAtTime-        :: AudioParam -> Optional Float32Array -> Float -> Float -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/cancelScheduledValues MDN AudioParam.cancelScheduledValues documentation>+cancelScheduledValues_ :: (MonadDOM m) => AudioParam -> Double -> m ()+cancelScheduledValues_ self cancelTime = liftDOM (void ((js_cancelScheduledValues (self) (cancelTime)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueCurveAtTime Mozilla AudioParam.setValueCurveAtTime documentation> -setValueCurveAtTime ::-                    (MonadIO m, IsFloat32Array values) =>-                      AudioParam -> Maybe values -> Float -> Float -> m ()-setValueCurveAtTime self values time duration-  = liftIO-      (js_setValueCurveAtTime self-         (maybeToOptional (fmap toFloat32Array values))-         time-         duration)- -foreign import javascript unsafe-        "(($1, $2) => { return $1[\"cancelScheduledValues\"]($2); })" js_cancelScheduledValues ::-        AudioParam -> Float -> IO ()+foreign import javascript safe "(($1, $2, $3) => { return $1[\"exponentialRampToValueAtTime\"]($2, $3); })"+        js_exponentialRampToValueAtTime :: AudioParam -> Float -> Double -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/exponentialRampToValueAtTime MDN AudioParam.exponentialRampToValueAtTime documentation>+exponentialRampToValueAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> m AudioParam+exponentialRampToValueAtTime self value endTime = liftDOM ((js_exponentialRampToValueAtTime (self) (value) (endTime))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.cancelScheduledValues Mozilla AudioParam.cancelScheduledValues documentation> -cancelScheduledValues :: (MonadIO m) => AudioParam -> Float -> m ()-cancelScheduledValues self startTime-  = liftIO (js_cancelScheduledValues self startTime)- -foreign import javascript unsafe "(($1, $2) => { $1[\"value\"] = $2; })" js_setValue-        :: AudioParam -> Float -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/exponentialRampToValueAtTime MDN AudioParam.exponentialRampToValueAtTime documentation>+exponentialRampToValueAtTime_ :: (MonadDOM m) => AudioParam -> Float -> Double -> m ()+exponentialRampToValueAtTime_ self value endTime = liftDOM (void ((js_exponentialRampToValueAtTime (self) (value) (endTime)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation> -setValue :: (MonadIO m) => AudioParam -> Float -> m ()-setValue self val = liftIO (js_setValue self val)- -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue ::-        AudioParam -> IO Float+foreign import javascript safe "(($1, $2, $3) => { return $1[\"linearRampToValueAtTime\"]($2, $3); })"+        js_linearRampToValueAtTime :: AudioParam -> Float -> Double -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/linearRampToValueAtTime MDN AudioParam.linearRampToValueAtTime documentation>+linearRampToValueAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> m AudioParam+linearRampToValueAtTime self value endTime = liftDOM ((js_linearRampToValueAtTime (self) (value) (endTime))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation> -getValue :: (MonadIO m) => AudioParam -> m Float-getValue self = liftIO (js_getValue self)- -foreign import javascript unsafe "(($1) => { return $1[\"minValue\"]; })" js_getMinValue-        :: AudioParam -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/linearRampToValueAtTime MDN AudioParam.linearRampToValueAtTime documentation>+linearRampToValueAtTime_ :: (MonadDOM m) => AudioParam -> Float -> Double -> m ()+linearRampToValueAtTime_ self value endTime = liftDOM (void ((js_linearRampToValueAtTime (self) (value) (endTime)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.minValue Mozilla AudioParam.minValue documentation> -getMinValue :: (MonadIO m) => AudioParam -> m Float-getMinValue self = liftIO (js_getMinValue self)- -foreign import javascript unsafe "(($1) => { return $1[\"maxValue\"]; })" js_getMaxValue-        :: AudioParam -> IO Float+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setTargetAtTime\"]($2, $3, $4); })"+        js_setTargetAtTime :: AudioParam -> Float -> Double -> Float -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setTargetAtTime MDN AudioParam.setTargetAtTime documentation>+setTargetAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> Float -> m AudioParam+setTargetAtTime self target startTime timeConstant = liftDOM ((js_setTargetAtTime (self) (target) (startTime) (timeConstant))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.maxValue Mozilla AudioParam.maxValue documentation> -getMaxValue :: (MonadIO m) => AudioParam -> m Float-getMaxValue self = liftIO (js_getMaxValue self)- +-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setTargetAtTime MDN AudioParam.setTargetAtTime documentation>+setTargetAtTime_ :: (MonadDOM m) => AudioParam -> Float -> Double -> Float -> m ()+setTargetAtTime_ self target startTime timeConstant = liftDOM (void ((js_setTargetAtTime (self) (target) (startTime) (timeConstant))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"setValueAtTime\"]($2, $3); })"+        js_setValueAtTime :: AudioParam -> Float -> Double -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setValueAtTime MDN AudioParam.setValueAtTime documentation>+setValueAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> m AudioParam+setValueAtTime self value startTime = liftDOM ((js_setValueAtTime (self) (value) (startTime)))++-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setValueAtTime MDN AudioParam.setValueAtTime documentation>+setValueAtTime_ :: (MonadDOM m) => AudioParam -> Float -> Double -> m ()+setValueAtTime_ self value startTime = liftDOM (void ((js_setValueAtTime (self) (value) (startTime))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setValueCurveAtTime\"]($2, $3, $4); })"+        js_setValueCurveAtTime :: AudioParam -> JSVal -> Double -> Double -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setValueCurveAtTime MDN AudioParam.setValueCurveAtTime documentation>+setValueCurveAtTime :: (MonadDOM m) => AudioParam -> [Float] -> Double -> Double -> m AudioParam+setValueCurveAtTime self values startTime duration = liftDOM (((toJSVal values) >>= \a2' -> js_setValueCurveAtTime (self) a2' (startTime) (duration)))++-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setValueCurveAtTime MDN AudioParam.setValueCurveAtTime documentation>+setValueCurveAtTime_ :: (MonadDOM m) => AudioParam -> [Float] -> Double -> Double -> m ()+setValueCurveAtTime_ self values startTime duration = liftDOM (void (((toJSVal values) >>= \a2' -> js_setValueCurveAtTime (self) a2' (startTime) (duration))))++foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })"+        js_setValue :: AudioParam -> Float -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/value MDN AudioParam.value documentation>+setValue :: (MonadDOM m) => AudioParam -> Float -> m ()+setValue self val = liftDOM (void ((js_setValue (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: AudioParam -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/value MDN AudioParam.value documentation>+getValue :: (MonadDOM m) => AudioParam -> m Float+getValue self = liftDOM ((js_getValue (self)))++foreign import javascript safe "(($1, $2) => { $1[\"automationRate\"] = $2; })"+        js_setAutomationRate :: AudioParam -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioparam-automationrate AudioParam.automationRate specification>+setAutomationRate :: (MonadDOM m) => AudioParam -> AutomationRate -> m ()+setAutomationRate self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAutomationRate (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"automationRate\"]; })"+        js_getAutomationRate :: AudioParam -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audioparam-automationrate AudioParam.automationRate specification>+getAutomationRate :: (MonadDOM m) => AudioParam -> m AutomationRate+getAutomationRate self = liftDOM (((js_getAutomationRate (self)) >>= fromJSValUnchecked))+ foreign import javascript unsafe "(($1) => { return $1[\"defaultValue\"]; })"         js_getDefaultValue :: AudioParam -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.defaultValue Mozilla AudioParam.defaultValue documentation> -getDefaultValue :: (MonadIO m) => AudioParam -> m Float-getDefaultValue self = liftIO (js_getDefaultValue self)- -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName ::-        AudioParam -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/defaultValue MDN AudioParam.defaultValue documentation>+getDefaultValue :: (MonadDOM m) => AudioParam -> m Float+getDefaultValue self = liftDOM ((js_getDefaultValue (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.name Mozilla AudioParam.name documentation> -getName ::-        (MonadIO m, FromJSString result) => AudioParam -> m result-getName self = liftIO (fromJSString <$> (js_getName self))- -foreign import javascript unsafe "(($1) => { return $1[\"units\"]; })" js_getUnits ::-        AudioParam -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"minValue\"]; })"+        js_getMinValue :: AudioParam -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/minValue MDN AudioParam.minValue documentation>+getMinValue :: (MonadDOM m) => AudioParam -> m Float+getMinValue self = liftDOM ((js_getMinValue (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.units Mozilla AudioParam.units documentation> -getUnits :: (MonadIO m) => AudioParam -> m Word-getUnits self = liftIO (js_getUnits self)+foreign import javascript unsafe "(($1) => { return $1[\"maxValue\"]; })"+        js_getMaxValue :: AudioParam -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/maxValue MDN AudioParam.maxValue documentation>+getMaxValue :: (MonadDOM m) => AudioParam -> m Float+getMaxValue self = liftDOM ((js_getMaxValue (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioParamMap.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioParamMap+       (AudioParamMap(..), gTypeAudioParamMap)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs view
@@ -1,51 +1,41 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent-       (js_getPlaybackTime, getPlaybackTime, js_getInputBuffer,-        getInputBuffer, js_getOutputBuffer, getOutputBuffer,-        AudioProcessingEvent(..), gTypeAudioProcessingEvent)+       (js_newAudioProcessingEvent, js_getPlaybackTime, js_getInputBuffer, js_getOutputBuffer, newAudioProcessingEvent, getPlaybackTime, getInputBuffer, getOutputBuffer, AudioProcessingEvent(..), gTypeAudioProcessingEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- ++foreign import javascript safe "(($1, $2) => { return new globalThis[\"AudioProcessingEvent\"]($1, $2); })"+        js_newAudioProcessingEvent :: JSString -> AudioProcessingEventInit -> IO AudioProcessingEvent+-- | <https://developer.mozilla.org/docs/Web/API/AudioProcessingEvent/AudioProcessingEvent MDN AudioProcessingEvent. documentation>+newAudioProcessingEvent :: (MonadDOM m, ToJSString type') => type' -> AudioProcessingEventInit -> m AudioProcessingEvent+newAudioProcessingEvent type' eventInitDict = liftDOM ((js_newAudioProcessingEvent (toJSString type') (eventInitDict)))+ foreign import javascript unsafe "(($1) => { return $1[\"playbackTime\"]; })"         js_getPlaybackTime :: AudioProcessingEvent -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioProcessingEvent/playbackTime MDN AudioProcessingEvent.playbackTime documentation>+getPlaybackTime :: (MonadDOM m) => AudioProcessingEvent -> m Double+getPlaybackTime self = liftDOM ((js_getPlaybackTime (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.playbackTime Mozilla AudioProcessingEvent.playbackTime documentation> -getPlaybackTime :: (MonadIO m) => AudioProcessingEvent -> m Double-getPlaybackTime self = liftIO (js_getPlaybackTime self)-  foreign import javascript unsafe "(($1) => { return $1[\"inputBuffer\"]; })"         js_getInputBuffer :: AudioProcessingEvent -> IO AudioBuffer+-- | <https://developer.mozilla.org/docs/Web/API/AudioProcessingEvent/inputBuffer MDN AudioProcessingEvent.inputBuffer documentation>+getInputBuffer :: (MonadDOM m) => AudioProcessingEvent -> m AudioBuffer+getInputBuffer self = liftDOM ((js_getInputBuffer (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation> -getInputBuffer ::-               (MonadIO m) => AudioProcessingEvent -> m AudioBuffer-getInputBuffer self = liftIO (js_getInputBuffer self)-  foreign import javascript unsafe "(($1) => { return $1[\"outputBuffer\"]; })"         js_getOutputBuffer :: AudioProcessingEvent -> IO AudioBuffer---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation> -getOutputBuffer ::-                (MonadIO m) => AudioProcessingEvent -> m AudioBuffer-getOutputBuffer self = liftIO (js_getOutputBuffer self)+-- | <https://developer.mozilla.org/docs/Web/API/AudioProcessingEvent/outputBuffer MDN AudioProcessingEvent.outputBuffer documentation>+getOutputBuffer :: (MonadDOM m) => AudioProcessingEvent -> m AudioBuffer+getOutputBuffer self = liftDOM ((js_getOutputBuffer (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEventInit.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioProcessingEventInit+       (js_newAudioProcessingEventInit, js_setPlaybackTime, js_getPlaybackTime, js_setInputBuffer, js_getInputBuffer, js_setOutputBuffer, js_getOutputBuffer, newAudioProcessingEventInit, setPlaybackTime, getPlaybackTime, setInputBuffer, getInputBuffer, setOutputBuffer, getOutputBuffer, AudioProcessingEventInit(..), gTypeAudioProcessingEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return ({\"playbackTime\": $1, \"inputBuffer\": $2, \"outputBuffer\": $3}); })"+        js_newAudioProcessingEventInit :: Double -> AudioBuffer -> AudioBuffer -> IO AudioProcessingEventInit+-- | <https://webaudio.github.io/web-audio-api/#AudioProcessingEventInit AudioProcessingEventInit specification>+newAudioProcessingEventInit :: (MonadDOM m) => Double -> AudioBuffer -> AudioBuffer -> m AudioProcessingEventInit+newAudioProcessingEventInit playbackTime inputBuffer outputBuffer = liftDOM ((js_newAudioProcessingEventInit (playbackTime) (inputBuffer) (outputBuffer)))++foreign import javascript safe "(($1, $2) => { $1[\"playbackTime\"] = $2; })"+        js_setPlaybackTime :: AudioProcessingEventInit -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-playbacktime AudioProcessingEventInit.playbackTime specification>+setPlaybackTime :: (MonadDOM m) => AudioProcessingEventInit -> Double -> m ()+setPlaybackTime self val = liftDOM (void ((js_setPlaybackTime (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"playbackTime\"]; })"+        js_getPlaybackTime :: AudioProcessingEventInit -> IO Double+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-playbacktime AudioProcessingEventInit.playbackTime specification>+getPlaybackTime :: (MonadDOM m) => AudioProcessingEventInit -> m Double+getPlaybackTime self = liftDOM ((js_getPlaybackTime (self)))++foreign import javascript safe "(($1, $2) => { $1[\"inputBuffer\"] = $2; })"+        js_setInputBuffer :: AudioProcessingEventInit -> AudioBuffer -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-inputbuffer AudioProcessingEventInit.inputBuffer specification>+setInputBuffer :: (MonadDOM m) => AudioProcessingEventInit -> AudioBuffer -> m ()+setInputBuffer self val = liftDOM (void ((js_setInputBuffer (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"inputBuffer\"]; })"+        js_getInputBuffer :: AudioProcessingEventInit -> IO AudioBuffer+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-inputbuffer AudioProcessingEventInit.inputBuffer specification>+getInputBuffer :: (MonadDOM m) => AudioProcessingEventInit -> m AudioBuffer+getInputBuffer self = liftDOM ((js_getInputBuffer (self)))++foreign import javascript safe "(($1, $2) => { $1[\"outputBuffer\"] = $2; })"+        js_setOutputBuffer :: AudioProcessingEventInit -> AudioBuffer -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-outputbuffer AudioProcessingEventInit.outputBuffer specification>+setOutputBuffer :: (MonadDOM m) => AudioProcessingEventInit -> AudioBuffer -> m ()+setOutputBuffer self val = liftDOM (void ((js_setOutputBuffer (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"outputBuffer\"]; })"+        js_getOutputBuffer :: AudioProcessingEventInit -> IO AudioBuffer+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-outputbuffer AudioProcessingEventInit.outputBuffer specification>+getOutputBuffer :: (MonadDOM m) => AudioProcessingEventInit -> m AudioBuffer+getOutputBuffer self = liftDOM ((js_getOutputBuffer (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioScheduledSourceNode.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioScheduledSourceNode+       (js_start, js_stop, start, stop, ended, AudioScheduledSourceNode(..), gTypeAudioScheduledSourceNode, IsAudioScheduledSourceNode, toAudioScheduledSourceNode)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return $1[\"start\"]($2); })"+        js_start :: AudioScheduledSourceNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioScheduledSourceNode/start MDN AudioScheduledSourceNode.start documentation>+start :: (MonadDOM m, IsAudioScheduledSourceNode self) => self -> Maybe Double -> m ()+start self when = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal when) >>= \a2' -> js_start ((Types.toAudioScheduledSourceNode self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"stop\"]($2); })"+        js_stop :: AudioScheduledSourceNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioScheduledSourceNode/stop MDN AudioScheduledSourceNode.stop documentation>+stop :: (MonadDOM m, IsAudioScheduledSourceNode self) => self -> Maybe Double -> m ()+stop self when = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal when) >>= \a2' -> js_stop ((Types.toAudioScheduledSourceNode self)) a2')))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioscheduledsourcenode-onended ended event>+ended :: (IsAudioScheduledSourceNode self, IsEventTarget self) => EventName self Event+ended = unsafeEventName (toJSString "ended")
+ src/GHCJS/DOM/JSFFI/Generated/AudioSinkOptions.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioSinkOptions+       (js_newAudioSinkOptions, js_setType, js_getType, newAudioSinkOptions, setType, getType, AudioSinkOptions(..), gTypeAudioSinkOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"type\": $1}); })"+        js_newAudioSinkOptions :: JSVal -> IO AudioSinkOptions+-- | <https://webaudio.github.io/web-audio-api/#AudioSinkOptions AudioSinkOptions specification>+newAudioSinkOptions :: (MonadDOM m) => AudioSinkType -> m AudioSinkOptions+newAudioSinkOptions type' = liftDOM (((toJSVal type') >>= \a1' -> js_newAudioSinkOptions a1'))++foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+        js_setType :: AudioSinkOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiosinkoptions-type AudioSinkOptions.type specification>+setType :: (MonadDOM m) => AudioSinkOptions -> AudioSinkType -> m ()+setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: AudioSinkOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiosinkoptions-type AudioSinkOptions.type specification>+getType :: (MonadDOM m) => AudioSinkOptions -> m AudioSinkType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/AudioTimestamp.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioTimestamp+       (js_newAudioTimestamp, js_setContextTime, js_getContextTime, js_setPerformanceTime, js_getPerformanceTime, newAudioTimestamp, setContextTime, getContextTime, getContextTimeUnsafe, getContextTimeUnchecked, setPerformanceTime, getPerformanceTime, getPerformanceTimeUnsafe, getPerformanceTimeUnchecked, AudioTimestamp(..), gTypeAudioTimestamp)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAudioTimestamp :: IO AudioTimestamp+-- | <https://webaudio.github.io/web-audio-api/#AudioTimestamp AudioTimestamp specification>+newAudioTimestamp :: (MonadDOM m) => m AudioTimestamp+newAudioTimestamp = liftDOM ((js_newAudioTimestamp))++foreign import javascript safe "(($1, $2) => { $1[\"contextTime\"] = $2; })"+        js_setContextTime :: AudioTimestamp -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-contexttime AudioTimestamp.contextTime specification>+setContextTime :: (MonadDOM m) => AudioTimestamp -> Double -> m ()+setContextTime self val = liftDOM (void ((js_setContextTime (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"contextTime\"]; })"+        js_getContextTime :: AudioTimestamp -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-contexttime AudioTimestamp.contextTime specification>+getContextTime :: (MonadDOM m) => AudioTimestamp -> m (Maybe Double)+getContextTime self = liftDOM (((js_getContextTime (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-contexttime AudioTimestamp.contextTime specification>+getContextTimeUnsafe :: (MonadDOM m, HasCallStack) => AudioTimestamp -> m Double+getContextTimeUnsafe self = liftDOM ((((js_getContextTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-contexttime AudioTimestamp.contextTime specification>+getContextTimeUnchecked :: (MonadDOM m) => AudioTimestamp -> m Double+getContextTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getContextTime (self))))++foreign import javascript safe "(($1, $2) => { $1[\"performanceTime\"] = $2; })"+        js_setPerformanceTime :: AudioTimestamp -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-performancetime AudioTimestamp.performanceTime specification>+setPerformanceTime :: (MonadDOM m) => AudioTimestamp -> Double -> m ()+setPerformanceTime self val = liftDOM (void ((js_setPerformanceTime (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"performanceTime\"]; })"+        js_getPerformanceTime :: AudioTimestamp -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-performancetime AudioTimestamp.performanceTime specification>+getPerformanceTime :: (MonadDOM m) => AudioTimestamp -> m (Maybe Double)+getPerformanceTime self = liftDOM (((js_getPerformanceTime (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-performancetime AudioTimestamp.performanceTime specification>+getPerformanceTimeUnsafe :: (MonadDOM m, HasCallStack) => AudioTimestamp -> m Double+getPerformanceTimeUnsafe self = liftDOM ((((js_getPerformanceTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-performancetime AudioTimestamp.performanceTime specification>+getPerformanceTimeUnchecked :: (MonadDOM m) => AudioTimestamp -> m Double+getPerformanceTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getPerformanceTime (self))))
src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs view
@@ -1,98 +1,67 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioTrack-       (js_getId, getId, js_setKind, setKind, js_getKind, getKind,-        js_getLabel, getLabel, js_setLanguage, setLanguage, js_getLanguage,-        getLanguage, js_setEnabled, setEnabled, js_getEnabled, getEnabled,-        js_getSourceBuffer, getSourceBuffer, AudioTrack(..),-        gTypeAudioTrack)+       (js_getId, js_getKind, js_getLabel, js_getLanguage, js_setEnabled, js_getEnabled, js_getSourceBuffer, getId, getKind, getLabel, getLanguage, setEnabled, getEnabled, getSourceBuffer, getSourceBufferUnsafe, getSourceBufferUnchecked, AudioTrack(..), gTypeAudioTrack)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" js_getId ::-        AudioTrack -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.id Mozilla AudioTrack.id documentation> -getId :: (MonadIO m, FromJSString result) => AudioTrack -> m result-getId self = liftIO (fromJSString <$> (js_getId self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"kind\"] = $2; })" js_setKind ::-        AudioTrack -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> -setKind :: (MonadIO m, ToJSString val) => AudioTrack -> val -> m ()-setKind self val = liftIO (js_setKind self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"kind\"]; })" js_getKind ::-        AudioTrack -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })"+        js_getId :: AudioTrack -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/id MDN AudioTrack.id documentation>+getId :: (MonadDOM m, FromJSString result) => AudioTrack -> m result+getId self = liftDOM ((fromJSString <$> (js_getId (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> -getKind ::-        (MonadIO m, FromJSString result) => AudioTrack -> m result-getKind self = liftIO (fromJSString <$> (js_getKind self))- -foreign import javascript unsafe "(($1) => { return $1[\"label\"]; })" js_getLabel ::-        AudioTrack -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"kind\"]; })"+        js_getKind :: AudioTrack -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/kind MDN AudioTrack.kind documentation>+getKind :: (MonadDOM m, FromJSString result) => AudioTrack -> m result+getKind self = liftDOM ((fromJSString <$> (js_getKind (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.label Mozilla AudioTrack.label documentation> -getLabel ::-         (MonadIO m, FromJSString result) => AudioTrack -> m result-getLabel self = liftIO (fromJSString <$> (js_getLabel self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"language\"] = $2; })"-        js_setLanguage :: AudioTrack -> JSString -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"label\"]; })"+        js_getLabel :: AudioTrack -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/label MDN AudioTrack.label documentation>+getLabel :: (MonadDOM m, FromJSString result) => AudioTrack -> m result+getLabel self = liftDOM ((fromJSString <$> (js_getLabel (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation> -setLanguage ::-            (MonadIO m, ToJSString val) => AudioTrack -> val -> m ()-setLanguage self val-  = liftIO (js_setLanguage self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"language\"]; })" js_getLanguage-        :: AudioTrack -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"language\"]; })"+        js_getLanguage :: AudioTrack -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/language MDN AudioTrack.language documentation>+getLanguage :: (MonadDOM m, FromJSString result) => AudioTrack -> m result+getLanguage self = liftDOM ((fromJSString <$> (js_getLanguage (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation> -getLanguage ::-            (MonadIO m, FromJSString result) => AudioTrack -> m result-getLanguage self = liftIO (fromJSString <$> (js_getLanguage self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"enabled\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"enabled\"] = $2; })"         js_setEnabled :: AudioTrack -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/enabled MDN AudioTrack.enabled documentation>+setEnabled :: (MonadDOM m) => AudioTrack -> Bool -> m ()+setEnabled self val = liftDOM (void ((js_setEnabled (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation> -setEnabled :: (MonadIO m) => AudioTrack -> Bool -> m ()-setEnabled self val = liftIO (js_setEnabled self val)- -foreign import javascript unsafe "(($1) => { return ($1[\"enabled\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"enabled\"]; })"         js_getEnabled :: AudioTrack -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/enabled MDN AudioTrack.enabled documentation>+getEnabled :: (MonadDOM m) => AudioTrack -> m Bool+getEnabled self = liftDOM ((js_getEnabled (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation> -getEnabled :: (MonadIO m) => AudioTrack -> m Bool-getEnabled self = liftIO (js_getEnabled self)-  foreign import javascript unsafe "(($1) => { return $1[\"sourceBuffer\"]; })"-        js_getSourceBuffer :: AudioTrack -> IO SourceBuffer+        js_getSourceBuffer :: AudioTrack -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/sourceBuffer MDN AudioTrack.sourceBuffer documentation>+getSourceBuffer :: (MonadDOM m) => AudioTrack -> m (Maybe SourceBuffer)+getSourceBuffer self = liftDOM (((js_getSourceBuffer (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation> -getSourceBuffer :: (MonadIO m) => AudioTrack -> m SourceBuffer-getSourceBuffer self = liftIO (js_getSourceBuffer self)+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/sourceBuffer MDN AudioTrack.sourceBuffer documentation>+getSourceBufferUnsafe :: (MonadDOM m, HasCallStack) => AudioTrack -> m SourceBuffer+getSourceBufferUnsafe self = liftDOM ((((js_getSourceBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/sourceBuffer MDN AudioTrack.sourceBuffer documentation>+getSourceBufferUnchecked :: (MonadDOM m) => AudioTrack -> m SourceBuffer+getSourceBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getSourceBuffer (self))))
src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs view
@@ -1,73 +1,53 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.AudioTrackList-       (js_item, item, item_, js_getTrackById, getTrackById,-        getTrackById_, js_getLength, getLength, change, addTrack,-        removeTrack, AudioTrackList(..), gTypeAudioTrackList)+       (js_getTrackById, js_getLength, getTrackById, getTrackById_, getTrackByIdUnsafe, getTrackByIdUnchecked, getLength, change, addTrack, removeTrack, AudioTrackList(..), gTypeAudioTrackList)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item ::-        AudioTrackList -> Word -> IO AudioTrack --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> -item :: (MonadIO m) => AudioTrackList -> Word -> m AudioTrack-item self index = liftIO (js_item self index)+foreign import javascript safe "(($1, $2) => { return $1[\"getTrackById\"]($2); })"+        js_getTrackById :: AudioTrackList -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrackList/getTrackById MDN AudioTrackList.getTrackById documentation>+getTrackById :: (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m (Maybe AudioTrack)+getTrackById self id = liftDOM (((js_getTrackById (self) (toJSString id)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> -item_ :: (MonadIO m) => AudioTrackList -> Word -> m ()-item_ self index = liftIO (void (js_item self index))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getTrackById\"]($2); })"-        js_getTrackById :: AudioTrackList -> JSString -> IO AudioTrack+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrackList/getTrackById MDN AudioTrackList.getTrackById documentation>+getTrackById_ :: (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m ()+getTrackById_ self id = liftDOM (void ((js_getTrackById (self) (toJSString id)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> -getTrackById ::-             (MonadIO m, ToJSString id) => AudioTrackList -> id -> m AudioTrack-getTrackById self id-  = liftIO (js_getTrackById self (toJSString id))+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrackList/getTrackById MDN AudioTrackList.getTrackById documentation>+getTrackByIdUnsafe :: (MonadDOM m, ToJSString id, HasCallStack) => AudioTrackList -> id -> m AudioTrack+getTrackByIdUnsafe self id = liftDOM ((((js_getTrackById (self) (toJSString id)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> -getTrackById_ ::-              (MonadIO m, ToJSString id) => AudioTrackList -> id -> m ()-getTrackById_ self id-  = liftIO (void (js_getTrackById self (toJSString id)))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::-        AudioTrackList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrackList/getTrackById MDN AudioTrackList.getTrackById documentation>+getTrackByIdUnchecked :: (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m AudioTrack+getTrackByIdUnchecked self id = liftDOM ((pFromJSVal <$> (js_getTrackById (self) (toJSString id)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.length Mozilla AudioTrackList.length documentation> -getLength :: (MonadIO m) => AudioTrackList -> m Word-getLength self = liftIO (js_getLength self)+foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: AudioTrackList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrackList/length MDN AudioTrackList.length documentation>+getLength :: (MonadDOM m) => AudioTrackList -> m Word+getLength self = liftDOM ((js_getLength (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onchange Mozilla AudioTrackList.onchange documentation> +-- | <https://html.spec.whatwg.org/multipage/media.html#handler-tracklist-onchange change event> change :: EventName AudioTrackList Event change = unsafeEventName (toJSString "change") --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onaddtrack Mozilla AudioTrackList.onaddtrack documentation> -addTrack :: EventName AudioTrackList Event+-- | <https://html.spec.whatwg.org/multipage/media.html#handler-tracklist-onaddtrack addtrack event>+addTrack :: EventName AudioTrackList TrackEvent addTrack = unsafeEventName (toJSString "addtrack") --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onremovetrack Mozilla AudioTrackList.onremovetrack documentation> -removeTrack :: EventName AudioTrackList Event+-- | <https://html.spec.whatwg.org/multipage/media.html#handler-tracklist-onremovetrack removetrack event>+removeTrack :: EventName AudioTrackList TrackEvent removeTrack = unsafeEventName (toJSString "removetrack")
+ src/GHCJS/DOM/JSFFI/Generated/AudioWorklet.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioWorklet+       (AudioWorklet(..), gTypeAudioWorklet)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
+ src/GHCJS/DOM/JSFFI/Generated/AudioWorkletGlobalScope.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioWorkletGlobalScope+       (js_registerProcessor, js_getCurrentFrame, js_getCurrentTime, js_getSampleRate, registerProcessor, getCurrentFrame, getCurrentTime, getSampleRate, AudioWorkletGlobalScope(..), gTypeAudioWorkletGlobalScope)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return $1[\"registerProcessor\"]($2, $3); })"+        js_registerProcessor :: AudioWorkletGlobalScope -> JSString -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletGlobalScope/registerProcessor MDN AudioWorkletGlobalScope.registerProcessor documentation>+registerProcessor :: (MonadDOM m, ToJSString name) => AudioWorkletGlobalScope -> name -> AudioWorkletProcessorConstructor -> m ()+registerProcessor self name processorCtor = liftDOM (void (((toJSVal processorCtor) >>= \a3' -> js_registerProcessor (self) (toJSString name) a3')))++foreign import javascript unsafe "(($1) => { return $1[\"currentFrame\"]; })"+        js_getCurrentFrame :: AudioWorkletGlobalScope -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletGlobalScope/currentFrame MDN AudioWorkletGlobalScope.currentFrame documentation>+getCurrentFrame :: (MonadDOM m) => AudioWorkletGlobalScope -> m Word53+getCurrentFrame self = liftDOM (((js_getCurrentFrame (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })"+        js_getCurrentTime :: AudioWorkletGlobalScope -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletGlobalScope/currentTime MDN AudioWorkletGlobalScope.currentTime documentation>+getCurrentTime :: (MonadDOM m) => AudioWorkletGlobalScope -> m Double+getCurrentTime self = liftDOM ((js_getCurrentTime (self)))++foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"+        js_getSampleRate :: AudioWorkletGlobalScope -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletGlobalScope/sampleRate MDN AudioWorkletGlobalScope.sampleRate documentation>+getSampleRate :: (MonadDOM m) => AudioWorkletGlobalScope -> m Float+getSampleRate self = liftDOM ((js_getSampleRate (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioWorkletNode.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioWorkletNode+       (js_newAudioWorkletNode, js_getParameters, js_getPort, newAudioWorkletNode, getParameters, getPort, processorerror, AudioWorkletNode(..), gTypeAudioWorkletNode)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return new globalThis[\"AudioWorkletNode\"]($1, $2, $3); })"+        js_newAudioWorkletNode :: BaseAudioContext -> JSString -> JSVal -> IO AudioWorkletNode+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletNode/AudioWorkletNode MDN AudioWorkletNode. documentation>+newAudioWorkletNode :: (MonadDOM m, IsBaseAudioContext context, ToJSString name) => context -> name -> Maybe AudioWorkletNodeOptions -> m AudioWorkletNode+newAudioWorkletNode context name options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_newAudioWorkletNode (Types.toBaseAudioContext context) (toJSString name) a3'))++foreign import javascript unsafe "(($1) => { return $1[\"parameters\"]; })"+        js_getParameters :: AudioWorkletNode -> IO AudioParamMap+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletNode/parameters MDN AudioWorkletNode.parameters documentation>+getParameters :: (MonadDOM m) => AudioWorkletNode -> m AudioParamMap+getParameters self = liftDOM ((js_getParameters (self)))++foreign import javascript unsafe "(($1) => { return $1[\"port\"]; })"+        js_getPort :: AudioWorkletNode -> IO MessagePort+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletNode/port MDN AudioWorkletNode.port documentation>+getPort :: (MonadDOM m) => AudioWorkletNode -> m MessagePort+getPort self = liftDOM ((js_getPort (self)))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnode-onprocessorerror processorerror event>+processorerror :: EventName AudioWorkletNode ErrorEvent+processorerror = unsafeEventName (toJSString "processorerror")
+ src/GHCJS/DOM/JSFFI/Generated/AudioWorkletNodeOptions.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioWorkletNodeOptions+       (js_newAudioWorkletNodeOptions, js_setNumberOfInputs, js_getNumberOfInputs, js_setNumberOfOutputs, js_getNumberOfOutputs, js_setOutputChannelCount, js_getOutputChannelCount, js_setParameterData, js_getParameterData, js_setProcessorOptions, js_getProcessorOptions, newAudioWorkletNodeOptions, setNumberOfInputs, getNumberOfInputs, getNumberOfInputsUnsafe, getNumberOfInputsUnchecked, setNumberOfOutputs, getNumberOfOutputs, getNumberOfOutputsUnsafe, getNumberOfOutputsUnchecked, setOutputChannelCount, getOutputChannelCount, getOutputChannelCountUnsafe, getOutputChannelCountUnchecked, setParameterData, getParameterData, getParameterDataUnsafe, getParameterDataUnchecked, setProcessorOptions, getProcessorOptions, getProcessorOptionsUnsafe, getProcessorOptionsUnchecked, AudioWorkletNodeOptions(..), gTypeAudioWorkletNodeOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAudioWorkletNodeOptions :: IO AudioWorkletNodeOptions+-- | <https://webaudio.github.io/web-audio-api/#AudioWorkletNodeOptions AudioWorkletNodeOptions specification>+newAudioWorkletNodeOptions :: (MonadDOM m) => m AudioWorkletNodeOptions+newAudioWorkletNodeOptions = liftDOM ((js_newAudioWorkletNodeOptions))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfInputs\"] = $2; })"+        js_setNumberOfInputs :: AudioWorkletNodeOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofinputs AudioWorkletNodeOptions.numberOfInputs specification>+setNumberOfInputs :: (MonadDOM m) => AudioWorkletNodeOptions -> Word -> m ()+setNumberOfInputs self val = liftDOM (void ((js_setNumberOfInputs (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfInputs\"]; })"+        js_getNumberOfInputs :: AudioWorkletNodeOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofinputs AudioWorkletNodeOptions.numberOfInputs specification>+getNumberOfInputs :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe Word)+getNumberOfInputs self = liftDOM (((js_getNumberOfInputs (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofinputs AudioWorkletNodeOptions.numberOfInputs specification>+getNumberOfInputsUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m Word+getNumberOfInputsUnsafe self = liftDOM ((((js_getNumberOfInputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofinputs AudioWorkletNodeOptions.numberOfInputs specification>+getNumberOfInputsUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m Word+getNumberOfInputsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfInputs (self))))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfOutputs\"] = $2; })"+        js_setNumberOfOutputs :: AudioWorkletNodeOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofoutputs AudioWorkletNodeOptions.numberOfOutputs specification>+setNumberOfOutputs :: (MonadDOM m) => AudioWorkletNodeOptions -> Word -> m ()+setNumberOfOutputs self val = liftDOM (void ((js_setNumberOfOutputs (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfOutputs\"]; })"+        js_getNumberOfOutputs :: AudioWorkletNodeOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofoutputs AudioWorkletNodeOptions.numberOfOutputs specification>+getNumberOfOutputs :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe Word)+getNumberOfOutputs self = liftDOM (((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofoutputs AudioWorkletNodeOptions.numberOfOutputs specification>+getNumberOfOutputsUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m Word+getNumberOfOutputsUnsafe self = liftDOM ((((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofoutputs AudioWorkletNodeOptions.numberOfOutputs specification>+getNumberOfOutputsUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m Word+getNumberOfOutputsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfOutputs (self))))++foreign import javascript safe "(($1, $2) => { $1[\"outputChannelCount\"] = $2; })"+        js_setOutputChannelCount :: AudioWorkletNodeOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-outputchannelcount AudioWorkletNodeOptions.outputChannelCount specification>+setOutputChannelCount :: (MonadDOM m) => AudioWorkletNodeOptions -> [Word] -> m ()+setOutputChannelCount self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setOutputChannelCount (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"outputChannelCount\"]; })"+        js_getOutputChannelCount :: AudioWorkletNodeOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-outputchannelcount AudioWorkletNodeOptions.outputChannelCount specification>+getOutputChannelCount :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe [Word])+getOutputChannelCount self = liftDOM (((js_getOutputChannelCount (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-outputchannelcount AudioWorkletNodeOptions.outputChannelCount specification>+getOutputChannelCountUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m [Word]+getOutputChannelCountUnsafe self = liftDOM ((((js_getOutputChannelCount (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-outputchannelcount AudioWorkletNodeOptions.outputChannelCount specification>+getOutputChannelCountUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m [Word]+getOutputChannelCountUnchecked self = liftDOM (((js_getOutputChannelCount (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"parameterData\"] = $2; })"+        js_setParameterData :: AudioWorkletNodeOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-parameterdata AudioWorkletNodeOptions.parameterData specification>+setParameterData :: (MonadDOM m) => AudioWorkletNodeOptions -> (Record JSString JSVal) -> m ()+setParameterData self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setParameterData (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"parameterData\"]; })"+        js_getParameterData :: AudioWorkletNodeOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-parameterdata AudioWorkletNodeOptions.parameterData specification>+getParameterData :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe (Record JSString JSVal))+getParameterData self = liftDOM (((js_getParameterData (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-parameterdata AudioWorkletNodeOptions.parameterData specification>+getParameterDataUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m (Record JSString JSVal)+getParameterDataUnsafe self = liftDOM ((((js_getParameterData (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-parameterdata AudioWorkletNodeOptions.parameterData specification>+getParameterDataUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Record JSString JSVal)+getParameterDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getParameterData (self))))++foreign import javascript safe "(($1, $2) => { $1[\"processorOptions\"] = $2; })"+        js_setProcessorOptions :: AudioWorkletNodeOptions -> GObject -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-processoroptions AudioWorkletNodeOptions.processorOptions specification>+setProcessorOptions :: (MonadDOM m) => AudioWorkletNodeOptions -> GObject -> m ()+setProcessorOptions self val = liftDOM (void ((js_setProcessorOptions (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"processorOptions\"]; })"+        js_getProcessorOptions :: AudioWorkletNodeOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-processoroptions AudioWorkletNodeOptions.processorOptions specification>+getProcessorOptions :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe GObject)+getProcessorOptions self = liftDOM (((js_getProcessorOptions (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-processoroptions AudioWorkletNodeOptions.processorOptions specification>+getProcessorOptionsUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m GObject+getProcessorOptionsUnsafe self = liftDOM ((((js_getProcessorOptions (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-processoroptions AudioWorkletNodeOptions.processorOptions specification>+getProcessorOptionsUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m GObject+getProcessorOptionsUnchecked self = liftDOM ((pFromJSVal <$> (js_getProcessorOptions (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AudioWorkletProcessor.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessor+       (js_newAudioWorkletProcessor, js_getPort, newAudioWorkletProcessor, getPort, AudioWorkletProcessor(..), gTypeAudioWorkletProcessor)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return new globalThis[\"AudioWorkletProcessor\"](); })"+        js_newAudioWorkletProcessor :: IO AudioWorkletProcessor+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletProcessor/AudioWorkletProcessor MDN AudioWorkletProcessor. documentation>+newAudioWorkletProcessor :: (MonadDOM m) => m AudioWorkletProcessor+newAudioWorkletProcessor = liftDOM ((js_newAudioWorkletProcessor))++foreign import javascript unsafe "(($1) => { return $1[\"port\"]; })"+        js_getPort :: AudioWorkletProcessor -> IO MessagePort+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletProcessor/port MDN AudioWorkletProcessor.port documentation>+getPort :: (MonadDOM m) => AudioWorkletProcessor -> m MessagePort+getPort self = liftDOM ((js_getPort (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AudioWorkletProcessorConstructor.hs view
@@ -0,0 +1,29 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AudioWorkletProcessorConstructor+       (newAudioWorkletProcessorConstructor, newAudioWorkletProcessorConstructorSync, newAudioWorkletProcessorConstructorAsync, AudioWorkletProcessorConstructor)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newAudioWorkletProcessorConstructor :: (MonadDOM m) => (GObject -> IO ()) -> m AudioWorkletProcessorConstructor+newAudioWorkletProcessorConstructor callback = liftDOM ((AudioWorkletProcessorConstructor . coerce) <$> syncCallback1 ContinueAsync (\ options -> do+          options' <- fromJSValUnchecked options+          callback options'))++newAudioWorkletProcessorConstructorSync :: (MonadDOM m) => (GObject -> IO ()) -> m AudioWorkletProcessorConstructor+newAudioWorkletProcessorConstructorSync callback = liftDOM ((AudioWorkletProcessorConstructor . coerce) <$> syncCallback1 ThrowWouldBlock (\ options -> do+          options' <- fromJSValUnchecked options+          callback options'))++newAudioWorkletProcessorConstructorAsync :: (MonadDOM m) => (GObject -> IO ()) -> m AudioWorkletProcessorConstructor+newAudioWorkletProcessorConstructorAsync callback = liftDOM ((AudioWorkletProcessorConstructor . coerce) <$> asyncCallback1 (\ options -> do+          options' <- fromJSValUnchecked options+          callback options'))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientInputs.hs view
@@ -0,0 +1,323 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputs+       (js_newAuthenticationExtensionsClientInputs, js_setCredentialProtectionPolicy, js_getCredentialProtectionPolicy, js_setEnforceCredentialProtectionPolicy, js_getEnforceCredentialProtectionPolicy, js_setCredBlob, js_getCredBlob, js_setGetCredBlob, js_getGetCredBlob, js_setMinPinLength, js_getMinPinLength, js_setPinComplexityPolicy, js_getPinComplexityPolicy, js_setHmacCreateSecret, js_getHmacCreateSecret, js_setHmacGetSecret, js_getHmacGetSecret, js_setPayment, js_getPayment, js_setAppid, js_getAppid, js_setAppidExclude, js_getAppidExclude, js_setCredProps, js_getCredProps, js_setPrf, js_getPrf, js_setLargeBlob, js_getLargeBlob, js_setRemoteClientDataJSON, js_getRemoteClientDataJSON, newAuthenticationExtensionsClientInputs, setCredentialProtectionPolicy, getCredentialProtectionPolicy, getCredentialProtectionPolicyUnsafe, getCredentialProtectionPolicyUnchecked, setEnforceCredentialProtectionPolicy, getEnforceCredentialProtectionPolicy, getEnforceCredentialProtectionPolicyUnsafe, getEnforceCredentialProtectionPolicyUnchecked, setCredBlob, getCredBlob, getCredBlobUnsafe, getCredBlobUnchecked, setGetCredBlob, getGetCredBlob, getGetCredBlobUnsafe, getGetCredBlobUnchecked, setMinPinLength, getMinPinLength, getMinPinLengthUnsafe, getMinPinLengthUnchecked, setPinComplexityPolicy, getPinComplexityPolicy, getPinComplexityPolicyUnsafe, getPinComplexityPolicyUnchecked, setHmacCreateSecret, getHmacCreateSecret, getHmacCreateSecretUnsafe, getHmacCreateSecretUnchecked, setHmacGetSecret, getHmacGetSecret, getHmacGetSecretUnsafe, getHmacGetSecretUnchecked, setPayment, getPayment, getPaymentUnsafe, getPaymentUnchecked, setAppid, getAppid, getAppidUnsafe, getAppidUnchecked, setAppidExclude, getAppidExclude, getAppidExcludeUnsafe, getAppidExcludeUnchecked, setCredProps, getCredProps, getCredPropsUnsafe, getCredPropsUnchecked, setPrf, getPrf, getPrfUnsafe, getPrfUnchecked, setLargeBlob, getLargeBlob, getLargeBlobUnsafe, getLargeBlobUnchecked, setRemoteClientDataJSON, getRemoteClientDataJSON, getRemoteClientDataJSONUnsafe, getRemoteClientDataJSONUnchecked, AuthenticationExtensionsClientInputs(..), gTypeAuthenticationExtensionsClientInputs)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsClientInputs :: IO AuthenticationExtensionsClientInputs+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsclientinputs AuthenticationExtensionsClientInputs specification>+newAuthenticationExtensionsClientInputs :: (MonadDOM m) => m AuthenticationExtensionsClientInputs+newAuthenticationExtensionsClientInputs = liftDOM ((js_newAuthenticationExtensionsClientInputs))++foreign import javascript safe "(($1, $2) => { $1[\"credentialProtectionPolicy\"] = $2; })"+        js_setCredentialProtectionPolicy :: AuthenticationExtensionsClientInputs -> JSString -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credentialprotectionpolicy AuthenticationExtensionsClientInputs.credentialProtectionPolicy specification>+setCredentialProtectionPolicy :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputs -> val -> m ()+setCredentialProtectionPolicy self val = liftDOM (void ((js_setCredentialProtectionPolicy (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"credentialProtectionPolicy\"]; })"+        js_getCredentialProtectionPolicy :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credentialprotectionpolicy AuthenticationExtensionsClientInputs.credentialProtectionPolicy specification>+getCredentialProtectionPolicy :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result)+getCredentialProtectionPolicy self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCredentialProtectionPolicy (self))))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credentialprotectionpolicy AuthenticationExtensionsClientInputs.credentialProtectionPolicy specification>+getCredentialProtectionPolicyUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputs -> m result+getCredentialProtectionPolicyUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getCredentialProtectionPolicy (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credentialprotectionpolicy AuthenticationExtensionsClientInputs.credentialProtectionPolicy specification>+getCredentialProtectionPolicyUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m result+getCredentialProtectionPolicyUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredentialProtectionPolicy (self))))++foreign import javascript safe "(($1, $2) => { $1[\"enforceCredentialProtectionPolicy\"] = $2; })"+        js_setEnforceCredentialProtectionPolicy :: AuthenticationExtensionsClientInputs -> Bool -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-enforcecredentialprotectionpolicy AuthenticationExtensionsClientInputs.enforceCredentialProtectionPolicy specification>+setEnforceCredentialProtectionPolicy :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m ()+setEnforceCredentialProtectionPolicy self val = liftDOM (void ((js_setEnforceCredentialProtectionPolicy (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"enforceCredentialProtectionPolicy\"]; })"+        js_getEnforceCredentialProtectionPolicy :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-enforcecredentialprotectionpolicy AuthenticationExtensionsClientInputs.enforceCredentialProtectionPolicy specification>+getEnforceCredentialProtectionPolicy :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getEnforceCredentialProtectionPolicy self = liftDOM (((js_getEnforceCredentialProtectionPolicy (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-enforcecredentialprotectionpolicy AuthenticationExtensionsClientInputs.enforceCredentialProtectionPolicy specification>+getEnforceCredentialProtectionPolicyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getEnforceCredentialProtectionPolicyUnsafe self = liftDOM ((((js_getEnforceCredentialProtectionPolicy (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-enforcecredentialprotectionpolicy AuthenticationExtensionsClientInputs.enforceCredentialProtectionPolicy specification>+getEnforceCredentialProtectionPolicyUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool+getEnforceCredentialProtectionPolicyUnchecked self = liftDOM ((pFromJSVal <$> (js_getEnforceCredentialProtectionPolicy (self))))++foreign import javascript safe "(($1, $2) => { $1[\"credBlob\"] = $2; })"+        js_setCredBlob :: AuthenticationExtensionsClientInputs -> ArrayBuffer -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credblob AuthenticationExtensionsClientInputs.credBlob specification>+setCredBlob :: (MonadDOM m, IsArrayBuffer val) => AuthenticationExtensionsClientInputs -> val -> m ()+setCredBlob self val = liftDOM (void ((js_setCredBlob (self) (Types.toArrayBuffer val))))++foreign import javascript unsafe "(($1) => { return $1[\"credBlob\"]; })"+        js_getCredBlob :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credblob AuthenticationExtensionsClientInputs.credBlob specification>+getCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe ArrayBuffer)+getCredBlob self = liftDOM (((js_getCredBlob (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credblob AuthenticationExtensionsClientInputs.credBlob specification>+getCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m ArrayBuffer+getCredBlobUnsafe self = liftDOM ((((js_getCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credblob AuthenticationExtensionsClientInputs.credBlob specification>+getCredBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m ArrayBuffer+getCredBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredBlob (self))))++foreign import javascript safe "(($1, $2) => { $1[\"getCredBlob\"] = $2; })"+        js_setGetCredBlob :: AuthenticationExtensionsClientInputs -> Bool -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-getcredblob AuthenticationExtensionsClientInputs.getCredBlob specification>+setGetCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m ()+setGetCredBlob self val = liftDOM (void ((js_setGetCredBlob (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"getCredBlob\"]; })"+        js_getGetCredBlob :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-getcredblob AuthenticationExtensionsClientInputs.getCredBlob specification>+getGetCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getGetCredBlob self = liftDOM (((js_getGetCredBlob (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-getcredblob AuthenticationExtensionsClientInputs.getCredBlob specification>+getGetCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getGetCredBlobUnsafe self = liftDOM ((((js_getGetCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-getcredblob AuthenticationExtensionsClientInputs.getCredBlob specification>+getGetCredBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool+getGetCredBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getGetCredBlob (self))))++foreign import javascript safe "(($1, $2) => { $1[\"minPinLength\"] = $2; })"+        js_setMinPinLength :: AuthenticationExtensionsClientInputs -> Bool -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-minpinlength AuthenticationExtensionsClientInputs.minPinLength specification>+setMinPinLength :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m ()+setMinPinLength self val = liftDOM (void ((js_setMinPinLength (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"minPinLength\"]; })"+        js_getMinPinLength :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-minpinlength AuthenticationExtensionsClientInputs.minPinLength specification>+getMinPinLength :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getMinPinLength self = liftDOM (((js_getMinPinLength (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-minpinlength AuthenticationExtensionsClientInputs.minPinLength specification>+getMinPinLengthUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getMinPinLengthUnsafe self = liftDOM ((((js_getMinPinLength (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-minpinlength AuthenticationExtensionsClientInputs.minPinLength specification>+getMinPinLengthUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool+getMinPinLengthUnchecked self = liftDOM ((pFromJSVal <$> (js_getMinPinLength (self))))++foreign import javascript safe "(($1, $2) => { $1[\"pinComplexityPolicy\"] = $2; })"+        js_setPinComplexityPolicy :: AuthenticationExtensionsClientInputs -> Bool -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-pincomplexitypolicy AuthenticationExtensionsClientInputs.pinComplexityPolicy specification>+setPinComplexityPolicy :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m ()+setPinComplexityPolicy self val = liftDOM (void ((js_setPinComplexityPolicy (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"pinComplexityPolicy\"]; })"+        js_getPinComplexityPolicy :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-pincomplexitypolicy AuthenticationExtensionsClientInputs.pinComplexityPolicy specification>+getPinComplexityPolicy :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getPinComplexityPolicy self = liftDOM (((js_getPinComplexityPolicy (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-pincomplexitypolicy AuthenticationExtensionsClientInputs.pinComplexityPolicy specification>+getPinComplexityPolicyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getPinComplexityPolicyUnsafe self = liftDOM ((((js_getPinComplexityPolicy (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-pincomplexitypolicy AuthenticationExtensionsClientInputs.pinComplexityPolicy specification>+getPinComplexityPolicyUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool+getPinComplexityPolicyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPinComplexityPolicy (self))))++foreign import javascript safe "(($1, $2) => { $1[\"hmacCreateSecret\"] = $2; })"+        js_setHmacCreateSecret :: AuthenticationExtensionsClientInputs -> Bool -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmaccreatesecret AuthenticationExtensionsClientInputs.hmacCreateSecret specification>+setHmacCreateSecret :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m ()+setHmacCreateSecret self val = liftDOM (void ((js_setHmacCreateSecret (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"hmacCreateSecret\"]; })"+        js_getHmacCreateSecret :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmaccreatesecret AuthenticationExtensionsClientInputs.hmacCreateSecret specification>+getHmacCreateSecret :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getHmacCreateSecret self = liftDOM (((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmaccreatesecret AuthenticationExtensionsClientInputs.hmacCreateSecret specification>+getHmacCreateSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getHmacCreateSecretUnsafe self = liftDOM ((((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmaccreatesecret AuthenticationExtensionsClientInputs.hmacCreateSecret specification>+getHmacCreateSecretUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool+getHmacCreateSecretUnchecked self = liftDOM ((pFromJSVal <$> (js_getHmacCreateSecret (self))))++foreign import javascript safe "(($1, $2) => { $1[\"hmacGetSecret\"] = $2; })"+        js_setHmacGetSecret :: AuthenticationExtensionsClientInputs -> HMACGetSecretInput -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmacgetsecret AuthenticationExtensionsClientInputs.hmacGetSecret specification>+setHmacGetSecret :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> HMACGetSecretInput -> m ()+setHmacGetSecret self val = liftDOM (void ((js_setHmacGetSecret (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"hmacGetSecret\"]; })"+        js_getHmacGetSecret :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmacgetsecret AuthenticationExtensionsClientInputs.hmacGetSecret specification>+getHmacGetSecret :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe HMACGetSecretInput)+getHmacGetSecret self = liftDOM (((js_getHmacGetSecret (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmacgetsecret AuthenticationExtensionsClientInputs.hmacGetSecret specification>+getHmacGetSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m HMACGetSecretInput+getHmacGetSecretUnsafe self = liftDOM ((((js_getHmacGetSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmacgetsecret AuthenticationExtensionsClientInputs.hmacGetSecret specification>+getHmacGetSecretUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m HMACGetSecretInput+getHmacGetSecretUnchecked self = liftDOM ((pFromJSVal <$> (js_getHmacGetSecret (self))))++foreign import javascript safe "(($1, $2) => { $1[\"payment\"] = $2; })"+        js_setPayment :: AuthenticationExtensionsClientInputs -> AuthenticationExtensionsPaymentInputs -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientinputs-payment AuthenticationExtensionsClientInputs.payment specification>+setPayment :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> AuthenticationExtensionsPaymentInputs -> m ()+setPayment self val = liftDOM (void ((js_setPayment (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"payment\"]; })"+        js_getPayment :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientinputs-payment AuthenticationExtensionsClientInputs.payment specification>+getPayment :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe AuthenticationExtensionsPaymentInputs)+getPayment self = liftDOM (((js_getPayment (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientinputs-payment AuthenticationExtensionsClientInputs.payment specification>+getPaymentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsPaymentInputs+getPaymentUnsafe self = liftDOM ((((js_getPayment (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientinputs-payment AuthenticationExtensionsClientInputs.payment specification>+getPaymentUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsPaymentInputs+getPaymentUnchecked self = liftDOM ((pFromJSVal <$> (js_getPayment (self))))++foreign import javascript safe "(($1, $2) => { $1[\"appid\"] = $2; })"+        js_setAppid :: AuthenticationExtensionsClientInputs -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appid AuthenticationExtensionsClientInputs.appid specification>+setAppid :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputs -> val -> m ()+setAppid self val = liftDOM (void ((js_setAppid (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"appid\"]; })"+        js_getAppid :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appid AuthenticationExtensionsClientInputs.appid specification>+getAppid :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result)+getAppid self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppid (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appid AuthenticationExtensionsClientInputs.appid specification>+getAppidUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputs -> m result+getAppidUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAppid (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appid AuthenticationExtensionsClientInputs.appid specification>+getAppidUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m result+getAppidUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppid (self))))++foreign import javascript safe "(($1, $2) => { $1[\"appidExclude\"] = $2; })"+        js_setAppidExclude :: AuthenticationExtensionsClientInputs -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appidexclude AuthenticationExtensionsClientInputs.appidExclude specification>+setAppidExclude :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputs -> val -> m ()+setAppidExclude self val = liftDOM (void ((js_setAppidExclude (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"appidExclude\"]; })"+        js_getAppidExclude :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appidexclude AuthenticationExtensionsClientInputs.appidExclude specification>+getAppidExclude :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result)+getAppidExclude self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppidExclude (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appidexclude AuthenticationExtensionsClientInputs.appidExclude specification>+getAppidExcludeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputs -> m result+getAppidExcludeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAppidExclude (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appidexclude AuthenticationExtensionsClientInputs.appidExclude specification>+getAppidExcludeUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m result+getAppidExcludeUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppidExclude (self))))++foreign import javascript safe "(($1, $2) => { $1[\"credProps\"] = $2; })"+        js_setCredProps :: AuthenticationExtensionsClientInputs -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-credprops AuthenticationExtensionsClientInputs.credProps specification>+setCredProps :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> Bool -> m ()+setCredProps self val = liftDOM (void ((js_setCredProps (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"credProps\"]; })"+        js_getCredProps :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-credprops AuthenticationExtensionsClientInputs.credProps specification>+getCredProps :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getCredProps self = liftDOM (((js_getCredProps (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-credprops AuthenticationExtensionsClientInputs.credProps specification>+getCredPropsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getCredPropsUnsafe self = liftDOM ((((js_getCredProps (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-credprops AuthenticationExtensionsClientInputs.credProps specification>+getCredPropsUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m Bool+getCredPropsUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredProps (self))))++foreign import javascript safe "(($1, $2) => { $1[\"prf\"] = $2; })"+        js_setPrf :: AuthenticationExtensionsClientInputs -> AuthenticationExtensionsPRFInputs -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-prf AuthenticationExtensionsClientInputs.prf specification>+setPrf :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> AuthenticationExtensionsPRFInputs -> m ()+setPrf self val = liftDOM (void ((js_setPrf (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"prf\"]; })"+        js_getPrf :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-prf AuthenticationExtensionsClientInputs.prf specification>+getPrf :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe AuthenticationExtensionsPRFInputs)+getPrf self = liftDOM (((js_getPrf (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-prf AuthenticationExtensionsClientInputs.prf specification>+getPrfUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsPRFInputs+getPrfUnsafe self = liftDOM ((((js_getPrf (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-prf AuthenticationExtensionsClientInputs.prf specification>+getPrfUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsPRFInputs+getPrfUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrf (self))))++foreign import javascript safe "(($1, $2) => { $1[\"largeBlob\"] = $2; })"+        js_setLargeBlob :: AuthenticationExtensionsClientInputs -> AuthenticationExtensionsLargeBlobInputs -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-largeblob AuthenticationExtensionsClientInputs.largeBlob specification>+setLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> AuthenticationExtensionsLargeBlobInputs -> m ()+setLargeBlob self val = liftDOM (void ((js_setLargeBlob (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"largeBlob\"]; })"+        js_getLargeBlob :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-largeblob AuthenticationExtensionsClientInputs.largeBlob specification>+getLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe AuthenticationExtensionsLargeBlobInputs)+getLargeBlob self = liftDOM (((js_getLargeBlob (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-largeblob AuthenticationExtensionsClientInputs.largeBlob specification>+getLargeBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsLargeBlobInputs+getLargeBlobUnsafe self = liftDOM ((((js_getLargeBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-largeblob AuthenticationExtensionsClientInputs.largeBlob specification>+getLargeBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsLargeBlobInputs+getLargeBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getLargeBlob (self))))++foreign import javascript safe "(($1, $2) => { $1[\"remoteClientDataJSON\"] = $2; })"+        js_setRemoteClientDataJSON :: AuthenticationExtensionsClientInputs -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-remoteclientdatajson AuthenticationExtensionsClientInputs.remoteClientDataJSON specification>+setRemoteClientDataJSON :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputs -> val -> m ()+setRemoteClientDataJSON self val = liftDOM (void ((js_setRemoteClientDataJSON (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"remoteClientDataJSON\"]; })"+        js_getRemoteClientDataJSON :: AuthenticationExtensionsClientInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-remoteclientdatajson AuthenticationExtensionsClientInputs.remoteClientDataJSON specification>+getRemoteClientDataJSON :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result)+getRemoteClientDataJSON self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRemoteClientDataJSON (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-remoteclientdatajson AuthenticationExtensionsClientInputs.remoteClientDataJSON specification>+getRemoteClientDataJSONUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputs -> m result+getRemoteClientDataJSONUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRemoteClientDataJSON (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-remoteclientdatajson AuthenticationExtensionsClientInputs.remoteClientDataJSON specification>+getRemoteClientDataJSONUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m result+getRemoteClientDataJSONUnchecked self = liftDOM ((pFromJSVal <$> (js_getRemoteClientDataJSON (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientInputsJSON.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientInputsJSON+       (js_newAuthenticationExtensionsClientInputsJSON, js_setAppid, js_getAppid, js_setAppidExclude, js_getAppidExclude, js_setCredProps, js_getCredProps, js_setPrf, js_getPrf, js_setLargeBlob, js_getLargeBlob, js_setRemoteClientDataJSON, js_getRemoteClientDataJSON, newAuthenticationExtensionsClientInputsJSON, setAppid, getAppid, getAppidUnsafe, getAppidUnchecked, setAppidExclude, getAppidExclude, getAppidExcludeUnsafe, getAppidExcludeUnchecked, setCredProps, getCredProps, getCredPropsUnsafe, getCredPropsUnchecked, setPrf, getPrf, getPrfUnsafe, getPrfUnchecked, setLargeBlob, getLargeBlob, getLargeBlobUnsafe, getLargeBlobUnchecked, setRemoteClientDataJSON, getRemoteClientDataJSON, getRemoteClientDataJSONUnsafe, getRemoteClientDataJSONUnchecked, AuthenticationExtensionsClientInputsJSON(..), gTypeAuthenticationExtensionsClientInputsJSON)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsClientInputsJSON :: IO AuthenticationExtensionsClientInputsJSON+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsclientinputsjson AuthenticationExtensionsClientInputsJSON specification>+newAuthenticationExtensionsClientInputsJSON :: (MonadDOM m) => m AuthenticationExtensionsClientInputsJSON+newAuthenticationExtensionsClientInputsJSON = liftDOM ((js_newAuthenticationExtensionsClientInputsJSON))++foreign import javascript safe "(($1, $2) => { $1[\"appid\"] = $2; })"+        js_setAppid :: AuthenticationExtensionsClientInputsJSON -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appid AuthenticationExtensionsClientInputsJSON.appid specification>+setAppid :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputsJSON -> val -> m ()+setAppid self val = liftDOM (void ((js_setAppid (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"appid\"]; })"+        js_getAppid :: AuthenticationExtensionsClientInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appid AuthenticationExtensionsClientInputsJSON.appid specification>+getAppid :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m (Maybe result)+getAppid self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppid (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appid AuthenticationExtensionsClientInputsJSON.appid specification>+getAppidUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result+getAppidUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAppid (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appid AuthenticationExtensionsClientInputsJSON.appid specification>+getAppidUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result+getAppidUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppid (self))))++foreign import javascript safe "(($1, $2) => { $1[\"appidExclude\"] = $2; })"+        js_setAppidExclude :: AuthenticationExtensionsClientInputsJSON -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appidexclude AuthenticationExtensionsClientInputsJSON.appidExclude specification>+setAppidExclude :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputsJSON -> val -> m ()+setAppidExclude self val = liftDOM (void ((js_setAppidExclude (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"appidExclude\"]; })"+        js_getAppidExclude :: AuthenticationExtensionsClientInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appidexclude AuthenticationExtensionsClientInputsJSON.appidExclude specification>+getAppidExclude :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m (Maybe result)+getAppidExclude self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppidExclude (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appidexclude AuthenticationExtensionsClientInputsJSON.appidExclude specification>+getAppidExcludeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result+getAppidExcludeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAppidExclude (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appidexclude AuthenticationExtensionsClientInputsJSON.appidExclude specification>+getAppidExcludeUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result+getAppidExcludeUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppidExclude (self))))++foreign import javascript safe "(($1, $2) => { $1[\"credProps\"] = $2; })"+        js_setCredProps :: AuthenticationExtensionsClientInputsJSON -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-credprops AuthenticationExtensionsClientInputsJSON.credProps specification>+setCredProps :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> Bool -> m ()+setCredProps self val = liftDOM (void ((js_setCredProps (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"credProps\"]; })"+        js_getCredProps :: AuthenticationExtensionsClientInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-credprops AuthenticationExtensionsClientInputsJSON.credProps specification>+getCredProps :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m (Maybe Bool)+getCredProps self = liftDOM (((js_getCredProps (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-credprops AuthenticationExtensionsClientInputsJSON.credProps specification>+getCredPropsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputsJSON -> m Bool+getCredPropsUnsafe self = liftDOM ((((js_getCredProps (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-credprops AuthenticationExtensionsClientInputsJSON.credProps specification>+getCredPropsUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m Bool+getCredPropsUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredProps (self))))++foreign import javascript safe "(($1, $2) => { $1[\"prf\"] = $2; })"+        js_setPrf :: AuthenticationExtensionsClientInputsJSON -> AuthenticationExtensionsPRFInputsJSON -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-prf AuthenticationExtensionsClientInputsJSON.prf specification>+setPrf :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> AuthenticationExtensionsPRFInputsJSON -> m ()+setPrf self val = liftDOM (void ((js_setPrf (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"prf\"]; })"+        js_getPrf :: AuthenticationExtensionsClientInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-prf AuthenticationExtensionsClientInputsJSON.prf specification>+getPrf :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m (Maybe AuthenticationExtensionsPRFInputsJSON)+getPrf self = liftDOM (((js_getPrf (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-prf AuthenticationExtensionsClientInputsJSON.prf specification>+getPrfUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputsJSON -> m AuthenticationExtensionsPRFInputsJSON+getPrfUnsafe self = liftDOM ((((js_getPrf (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-prf AuthenticationExtensionsClientInputsJSON.prf specification>+getPrfUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m AuthenticationExtensionsPRFInputsJSON+getPrfUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrf (self))))++foreign import javascript safe "(($1, $2) => { $1[\"largeBlob\"] = $2; })"+        js_setLargeBlob :: AuthenticationExtensionsClientInputsJSON -> AuthenticationExtensionsLargeBlobInputsJSON -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-largeblob AuthenticationExtensionsClientInputsJSON.largeBlob specification>+setLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> AuthenticationExtensionsLargeBlobInputsJSON -> m ()+setLargeBlob self val = liftDOM (void ((js_setLargeBlob (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"largeBlob\"]; })"+        js_getLargeBlob :: AuthenticationExtensionsClientInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-largeblob AuthenticationExtensionsClientInputsJSON.largeBlob specification>+getLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m (Maybe AuthenticationExtensionsLargeBlobInputsJSON)+getLargeBlob self = liftDOM (((js_getLargeBlob (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-largeblob AuthenticationExtensionsClientInputsJSON.largeBlob specification>+getLargeBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputsJSON -> m AuthenticationExtensionsLargeBlobInputsJSON+getLargeBlobUnsafe self = liftDOM ((((js_getLargeBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-largeblob AuthenticationExtensionsClientInputsJSON.largeBlob specification>+getLargeBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m AuthenticationExtensionsLargeBlobInputsJSON+getLargeBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getLargeBlob (self))))++foreign import javascript safe "(($1, $2) => { $1[\"remoteClientDataJSON\"] = $2; })"+        js_setRemoteClientDataJSON :: AuthenticationExtensionsClientInputsJSON -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-remoteclientdatajson AuthenticationExtensionsClientInputsJSON.remoteClientDataJSON specification>+setRemoteClientDataJSON :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsClientInputsJSON -> val -> m ()+setRemoteClientDataJSON self val = liftDOM (void ((js_setRemoteClientDataJSON (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"remoteClientDataJSON\"]; })"+        js_getRemoteClientDataJSON :: AuthenticationExtensionsClientInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-remoteclientdatajson AuthenticationExtensionsClientInputsJSON.remoteClientDataJSON specification>+getRemoteClientDataJSON :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m (Maybe result)+getRemoteClientDataJSON self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRemoteClientDataJSON (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-remoteclientdatajson AuthenticationExtensionsClientInputsJSON.remoteClientDataJSON specification>+getRemoteClientDataJSONUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result+getRemoteClientDataJSONUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRemoteClientDataJSON (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-remoteclientdatajson AuthenticationExtensionsClientInputsJSON.remoteClientDataJSON specification>+getRemoteClientDataJSONUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result+getRemoteClientDataJSONUnchecked self = liftDOM ((pFromJSVal <$> (js_getRemoteClientDataJSON (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientOutputs.hs view
@@ -0,0 +1,243 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsClientOutputs+       (js_newAuthenticationExtensionsClientOutputs, js_setCredBlob, js_getCredBlob, js_setGetCredBlob, js_getGetCredBlob, js_setHmacCreateSecret, js_getHmacCreateSecret, js_setHmacGetSecret, js_getHmacGetSecret, js_setPayment, js_getPayment, js_setAppid, js_getAppid, js_setAppidExclude, js_getAppidExclude, js_setCredProps, js_getCredProps, js_setPrf, js_getPrf, js_setLargeBlob, js_getLargeBlob, js_setRemoteClientDataJSON, js_getRemoteClientDataJSON, newAuthenticationExtensionsClientOutputs, setCredBlob, getCredBlob, getCredBlobUnsafe, getCredBlobUnchecked, setGetCredBlob, getGetCredBlob, getGetCredBlobUnsafe, getGetCredBlobUnchecked, setHmacCreateSecret, getHmacCreateSecret, getHmacCreateSecretUnsafe, getHmacCreateSecretUnchecked, setHmacGetSecret, getHmacGetSecret, getHmacGetSecretUnsafe, getHmacGetSecretUnchecked, setPayment, getPayment, getPaymentUnsafe, getPaymentUnchecked, setAppid, getAppid, getAppidUnsafe, getAppidUnchecked, setAppidExclude, getAppidExclude, getAppidExcludeUnsafe, getAppidExcludeUnchecked, setCredProps, getCredProps, getCredPropsUnsafe, getCredPropsUnchecked, setPrf, getPrf, getPrfUnsafe, getPrfUnchecked, setLargeBlob, getLargeBlob, getLargeBlobUnsafe, getLargeBlobUnchecked, setRemoteClientDataJSON, getRemoteClientDataJSON, getRemoteClientDataJSONUnsafe, getRemoteClientDataJSONUnchecked, AuthenticationExtensionsClientOutputs(..), gTypeAuthenticationExtensionsClientOutputs)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsClientOutputs :: IO AuthenticationExtensionsClientOutputs+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsclientoutputs AuthenticationExtensionsClientOutputs specification>+newAuthenticationExtensionsClientOutputs :: (MonadDOM m) => m AuthenticationExtensionsClientOutputs+newAuthenticationExtensionsClientOutputs = liftDOM ((js_newAuthenticationExtensionsClientOutputs))++foreign import javascript safe "(($1, $2) => { $1[\"credBlob\"] = $2; })"+        js_setCredBlob :: AuthenticationExtensionsClientOutputs -> Bool -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-credblob AuthenticationExtensionsClientOutputs.credBlob specification>+setCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> Bool -> m ()+setCredBlob self val = liftDOM (void ((js_setCredBlob (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"credBlob\"]; })"+        js_getCredBlob :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-credblob AuthenticationExtensionsClientOutputs.credBlob specification>+getCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool)+getCredBlob self = liftDOM (((js_getCredBlob (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-credblob AuthenticationExtensionsClientOutputs.credBlob specification>+getCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool+getCredBlobUnsafe self = liftDOM ((((js_getCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-credblob AuthenticationExtensionsClientOutputs.credBlob specification>+getCredBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool+getCredBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredBlob (self))))++foreign import javascript safe "(($1, $2) => { $1[\"getCredBlob\"] = $2; })"+        js_setGetCredBlob :: AuthenticationExtensionsClientOutputs -> ArrayBuffer -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-getcredblob AuthenticationExtensionsClientOutputs.getCredBlob specification>+setGetCredBlob :: (MonadDOM m, IsArrayBuffer val) => AuthenticationExtensionsClientOutputs -> val -> m ()+setGetCredBlob self val = liftDOM (void ((js_setGetCredBlob (self) (Types.toArrayBuffer val))))++foreign import javascript unsafe "(($1) => { return $1[\"getCredBlob\"]; })"+        js_getGetCredBlob :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-getcredblob AuthenticationExtensionsClientOutputs.getCredBlob specification>+getGetCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe ArrayBuffer)+getGetCredBlob self = liftDOM (((js_getGetCredBlob (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-getcredblob AuthenticationExtensionsClientOutputs.getCredBlob specification>+getGetCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m ArrayBuffer+getGetCredBlobUnsafe self = liftDOM ((((js_getGetCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-getcredblob AuthenticationExtensionsClientOutputs.getCredBlob specification>+getGetCredBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m ArrayBuffer+getGetCredBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getGetCredBlob (self))))++foreign import javascript safe "(($1, $2) => { $1[\"hmacCreateSecret\"] = $2; })"+        js_setHmacCreateSecret :: AuthenticationExtensionsClientOutputs -> Bool -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmaccreatesecret AuthenticationExtensionsClientOutputs.hmacCreateSecret specification>+setHmacCreateSecret :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> Bool -> m ()+setHmacCreateSecret self val = liftDOM (void ((js_setHmacCreateSecret (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"hmacCreateSecret\"]; })"+        js_getHmacCreateSecret :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmaccreatesecret AuthenticationExtensionsClientOutputs.hmacCreateSecret specification>+getHmacCreateSecret :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool)+getHmacCreateSecret self = liftDOM (((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmaccreatesecret AuthenticationExtensionsClientOutputs.hmacCreateSecret specification>+getHmacCreateSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool+getHmacCreateSecretUnsafe self = liftDOM ((((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmaccreatesecret AuthenticationExtensionsClientOutputs.hmacCreateSecret specification>+getHmacCreateSecretUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool+getHmacCreateSecretUnchecked self = liftDOM ((pFromJSVal <$> (js_getHmacCreateSecret (self))))++foreign import javascript safe "(($1, $2) => { $1[\"hmacGetSecret\"] = $2; })"+        js_setHmacGetSecret :: AuthenticationExtensionsClientOutputs -> HMACGetSecretOutput -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmacgetsecret AuthenticationExtensionsClientOutputs.hmacGetSecret specification>+setHmacGetSecret :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> HMACGetSecretOutput -> m ()+setHmacGetSecret self val = liftDOM (void ((js_setHmacGetSecret (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"hmacGetSecret\"]; })"+        js_getHmacGetSecret :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmacgetsecret AuthenticationExtensionsClientOutputs.hmacGetSecret specification>+getHmacGetSecret :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe HMACGetSecretOutput)+getHmacGetSecret self = liftDOM (((js_getHmacGetSecret (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmacgetsecret AuthenticationExtensionsClientOutputs.hmacGetSecret specification>+getHmacGetSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m HMACGetSecretOutput+getHmacGetSecretUnsafe self = liftDOM ((((js_getHmacGetSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmacgetsecret AuthenticationExtensionsClientOutputs.hmacGetSecret specification>+getHmacGetSecretUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m HMACGetSecretOutput+getHmacGetSecretUnchecked self = liftDOM ((pFromJSVal <$> (js_getHmacGetSecret (self))))++foreign import javascript safe "(($1, $2) => { $1[\"payment\"] = $2; })"+        js_setPayment :: AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsPaymentOutputs -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientoutputs-payment AuthenticationExtensionsClientOutputs.payment specification>+setPayment :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsPaymentOutputs -> m ()+setPayment self val = liftDOM (void ((js_setPayment (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"payment\"]; })"+        js_getPayment :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientoutputs-payment AuthenticationExtensionsClientOutputs.payment specification>+getPayment :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe AuthenticationExtensionsPaymentOutputs)+getPayment self = liftDOM (((js_getPayment (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientoutputs-payment AuthenticationExtensionsClientOutputs.payment specification>+getPaymentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsPaymentOutputs+getPaymentUnsafe self = liftDOM ((((js_getPayment (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientoutputs-payment AuthenticationExtensionsClientOutputs.payment specification>+getPaymentUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsPaymentOutputs+getPaymentUnchecked self = liftDOM ((pFromJSVal <$> (js_getPayment (self))))++foreign import javascript safe "(($1, $2) => { $1[\"appid\"] = $2; })"+        js_setAppid :: AuthenticationExtensionsClientOutputs -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appid AuthenticationExtensionsClientOutputs.appid specification>+setAppid :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> Bool -> m ()+setAppid self val = liftDOM (void ((js_setAppid (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"appid\"]; })"+        js_getAppid :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appid AuthenticationExtensionsClientOutputs.appid specification>+getAppid :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool)+getAppid self = liftDOM (((js_getAppid (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appid AuthenticationExtensionsClientOutputs.appid specification>+getAppidUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool+getAppidUnsafe self = liftDOM ((((js_getAppid (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appid AuthenticationExtensionsClientOutputs.appid specification>+getAppidUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool+getAppidUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppid (self))))++foreign import javascript safe "(($1, $2) => { $1[\"appidExclude\"] = $2; })"+        js_setAppidExclude :: AuthenticationExtensionsClientOutputs -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appidexclude AuthenticationExtensionsClientOutputs.appidExclude specification>+setAppidExclude :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> Bool -> m ()+setAppidExclude self val = liftDOM (void ((js_setAppidExclude (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"appidExclude\"]; })"+        js_getAppidExclude :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appidexclude AuthenticationExtensionsClientOutputs.appidExclude specification>+getAppidExclude :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool)+getAppidExclude self = liftDOM (((js_getAppidExclude (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appidexclude AuthenticationExtensionsClientOutputs.appidExclude specification>+getAppidExcludeUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool+getAppidExcludeUnsafe self = liftDOM ((((js_getAppidExclude (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appidexclude AuthenticationExtensionsClientOutputs.appidExclude specification>+getAppidExcludeUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool+getAppidExcludeUnchecked self = liftDOM ((pFromJSVal <$> (js_getAppidExclude (self))))++foreign import javascript safe "(($1, $2) => { $1[\"credProps\"] = $2; })"+        js_setCredProps :: AuthenticationExtensionsClientOutputs -> CredentialPropertiesOutput -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-credprops AuthenticationExtensionsClientOutputs.credProps specification>+setCredProps :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> CredentialPropertiesOutput -> m ()+setCredProps self val = liftDOM (void ((js_setCredProps (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"credProps\"]; })"+        js_getCredProps :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-credprops AuthenticationExtensionsClientOutputs.credProps specification>+getCredProps :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe CredentialPropertiesOutput)+getCredProps self = liftDOM (((js_getCredProps (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-credprops AuthenticationExtensionsClientOutputs.credProps specification>+getCredPropsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m CredentialPropertiesOutput+getCredPropsUnsafe self = liftDOM ((((js_getCredProps (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-credprops AuthenticationExtensionsClientOutputs.credProps specification>+getCredPropsUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m CredentialPropertiesOutput+getCredPropsUnchecked self = liftDOM ((pFromJSVal <$> (js_getCredProps (self))))++foreign import javascript safe "(($1, $2) => { $1[\"prf\"] = $2; })"+        js_setPrf :: AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsPRFOutputs -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-prf AuthenticationExtensionsClientOutputs.prf specification>+setPrf :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsPRFOutputs -> m ()+setPrf self val = liftDOM (void ((js_setPrf (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"prf\"]; })"+        js_getPrf :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-prf AuthenticationExtensionsClientOutputs.prf specification>+getPrf :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe AuthenticationExtensionsPRFOutputs)+getPrf self = liftDOM (((js_getPrf (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-prf AuthenticationExtensionsClientOutputs.prf specification>+getPrfUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsPRFOutputs+getPrfUnsafe self = liftDOM ((((js_getPrf (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-prf AuthenticationExtensionsClientOutputs.prf specification>+getPrfUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsPRFOutputs+getPrfUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrf (self))))++foreign import javascript safe "(($1, $2) => { $1[\"largeBlob\"] = $2; })"+        js_setLargeBlob :: AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsLargeBlobOutputs -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-largeblob AuthenticationExtensionsClientOutputs.largeBlob specification>+setLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> AuthenticationExtensionsLargeBlobOutputs -> m ()+setLargeBlob self val = liftDOM (void ((js_setLargeBlob (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"largeBlob\"]; })"+        js_getLargeBlob :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-largeblob AuthenticationExtensionsClientOutputs.largeBlob specification>+getLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe AuthenticationExtensionsLargeBlobOutputs)+getLargeBlob self = liftDOM (((js_getLargeBlob (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-largeblob AuthenticationExtensionsClientOutputs.largeBlob specification>+getLargeBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsLargeBlobOutputs+getLargeBlobUnsafe self = liftDOM ((((js_getLargeBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-largeblob AuthenticationExtensionsClientOutputs.largeBlob specification>+getLargeBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsLargeBlobOutputs+getLargeBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getLargeBlob (self))))++foreign import javascript safe "(($1, $2) => { $1[\"remoteClientDataJSON\"] = $2; })"+        js_setRemoteClientDataJSON :: AuthenticationExtensionsClientOutputs -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-remoteclientdatajson AuthenticationExtensionsClientOutputs.remoteClientDataJSON specification>+setRemoteClientDataJSON :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> Bool -> m ()+setRemoteClientDataJSON self val = liftDOM (void ((js_setRemoteClientDataJSON (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"remoteClientDataJSON\"]; })"+        js_getRemoteClientDataJSON :: AuthenticationExtensionsClientOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-remoteclientdatajson AuthenticationExtensionsClientOutputs.remoteClientDataJSON specification>+getRemoteClientDataJSON :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool)+getRemoteClientDataJSON self = liftDOM (((js_getRemoteClientDataJSON (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-remoteclientdatajson AuthenticationExtensionsClientOutputs.remoteClientDataJSON specification>+getRemoteClientDataJSONUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool+getRemoteClientDataJSONUnsafe self = liftDOM ((((js_getRemoteClientDataJSON (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-remoteclientdatajson AuthenticationExtensionsClientOutputs.remoteClientDataJSON specification>+getRemoteClientDataJSONUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool+getRemoteClientDataJSONUnchecked self = liftDOM ((pFromJSVal <$> (js_getRemoteClientDataJSON (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobInputs.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputs+       (js_newAuthenticationExtensionsLargeBlobInputs, js_setSupport, js_getSupport, js_setRead, js_getRead, js_setWrite, js_getWrite, newAuthenticationExtensionsLargeBlobInputs, setSupport, getSupport, getSupportUnsafe, getSupportUnchecked, setRead, getRead, getReadUnsafe, getReadUnchecked, setWrite, getWrite, getWriteUnsafe, getWriteUnchecked, AuthenticationExtensionsLargeBlobInputs(..), gTypeAuthenticationExtensionsLargeBlobInputs)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsLargeBlobInputs :: IO AuthenticationExtensionsLargeBlobInputs+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionslargeblobinputs AuthenticationExtensionsLargeBlobInputs specification>+newAuthenticationExtensionsLargeBlobInputs :: (MonadDOM m) => m AuthenticationExtensionsLargeBlobInputs+newAuthenticationExtensionsLargeBlobInputs = liftDOM ((js_newAuthenticationExtensionsLargeBlobInputs))++foreign import javascript safe "(($1, $2) => { $1[\"support\"] = $2; })"+        js_setSupport :: AuthenticationExtensionsLargeBlobInputs -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-support AuthenticationExtensionsLargeBlobInputs.support specification>+setSupport :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsLargeBlobInputs -> val -> m ()+setSupport self val = liftDOM (void ((js_setSupport (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"support\"]; })"+        js_getSupport :: AuthenticationExtensionsLargeBlobInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-support AuthenticationExtensionsLargeBlobInputs.support specification>+getSupport :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputs -> m (Maybe result)+getSupport self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSupport (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-support AuthenticationExtensionsLargeBlobInputs.support specification>+getSupportUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsLargeBlobInputs -> m result+getSupportUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSupport (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-support AuthenticationExtensionsLargeBlobInputs.support specification>+getSupportUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputs -> m result+getSupportUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupport (self))))++foreign import javascript safe "(($1, $2) => { $1[\"read\"] = $2; })"+        js_setRead :: AuthenticationExtensionsLargeBlobInputs -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-read AuthenticationExtensionsLargeBlobInputs.read specification>+setRead :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> Bool -> m ()+setRead self val = liftDOM (void ((js_setRead (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"read\"]; })"+        js_getRead :: AuthenticationExtensionsLargeBlobInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-read AuthenticationExtensionsLargeBlobInputs.read specification>+getRead :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m (Maybe Bool)+getRead self = liftDOM (((js_getRead (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-read AuthenticationExtensionsLargeBlobInputs.read specification>+getReadUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobInputs -> m Bool+getReadUnsafe self = liftDOM ((((js_getRead (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-read AuthenticationExtensionsLargeBlobInputs.read specification>+getReadUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m Bool+getReadUnchecked self = liftDOM ((pFromJSVal <$> (js_getRead (self))))++foreign import javascript safe "(($1, $2) => { $1[\"write\"] = $2; })"+        js_setWrite :: AuthenticationExtensionsLargeBlobInputs -> BufferSource -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-write AuthenticationExtensionsLargeBlobInputs.write specification>+setWrite :: (MonadDOM m, IsBufferSource val) => AuthenticationExtensionsLargeBlobInputs -> val -> m ()+setWrite self val = liftDOM (void ((js_setWrite (self) (Types.toBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"write\"]; })"+        js_getWrite :: AuthenticationExtensionsLargeBlobInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-write AuthenticationExtensionsLargeBlobInputs.write specification>+getWrite :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m (Maybe BufferSource)+getWrite self = liftDOM (((js_getWrite (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-write AuthenticationExtensionsLargeBlobInputs.write specification>+getWriteUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobInputs -> m BufferSource+getWriteUnsafe self = liftDOM ((((js_getWrite (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-write AuthenticationExtensionsLargeBlobInputs.write specification>+getWriteUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m BufferSource+getWriteUnchecked self = liftDOM ((pFromJSVal <$> (js_getWrite (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobInputsJSON.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobInputsJSON+       (js_newAuthenticationExtensionsLargeBlobInputsJSON, js_setSupport, js_getSupport, js_setRead, js_getRead, js_setWrite, js_getWrite, newAuthenticationExtensionsLargeBlobInputsJSON, setSupport, getSupport, getSupportUnsafe, getSupportUnchecked, setRead, getRead, getReadUnsafe, getReadUnchecked, setWrite, getWrite, getWriteUnsafe, getWriteUnchecked, AuthenticationExtensionsLargeBlobInputsJSON(..), gTypeAuthenticationExtensionsLargeBlobInputsJSON)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsLargeBlobInputsJSON :: IO AuthenticationExtensionsLargeBlobInputsJSON+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionslargeblobinputsjson AuthenticationExtensionsLargeBlobInputsJSON specification>+newAuthenticationExtensionsLargeBlobInputsJSON :: (MonadDOM m) => m AuthenticationExtensionsLargeBlobInputsJSON+newAuthenticationExtensionsLargeBlobInputsJSON = liftDOM ((js_newAuthenticationExtensionsLargeBlobInputsJSON))++foreign import javascript safe "(($1, $2) => { $1[\"support\"] = $2; })"+        js_setSupport :: AuthenticationExtensionsLargeBlobInputsJSON -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-support AuthenticationExtensionsLargeBlobInputsJSON.support specification>+setSupport :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsLargeBlobInputsJSON -> val -> m ()+setSupport self val = liftDOM (void ((js_setSupport (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"support\"]; })"+        js_getSupport :: AuthenticationExtensionsLargeBlobInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-support AuthenticationExtensionsLargeBlobInputsJSON.support specification>+getSupport :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m (Maybe result)+getSupport self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSupport (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-support AuthenticationExtensionsLargeBlobInputsJSON.support specification>+getSupportUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m result+getSupportUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSupport (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-support AuthenticationExtensionsLargeBlobInputsJSON.support specification>+getSupportUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m result+getSupportUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupport (self))))++foreign import javascript safe "(($1, $2) => { $1[\"read\"] = $2; })"+        js_setRead :: AuthenticationExtensionsLargeBlobInputsJSON -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-read AuthenticationExtensionsLargeBlobInputsJSON.read specification>+setRead :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputsJSON -> Bool -> m ()+setRead self val = liftDOM (void ((js_setRead (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"read\"]; })"+        js_getRead :: AuthenticationExtensionsLargeBlobInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-read AuthenticationExtensionsLargeBlobInputsJSON.read specification>+getRead :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputsJSON -> m (Maybe Bool)+getRead self = liftDOM (((js_getRead (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-read AuthenticationExtensionsLargeBlobInputsJSON.read specification>+getReadUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobInputsJSON -> m Bool+getReadUnsafe self = liftDOM ((((js_getRead (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-read AuthenticationExtensionsLargeBlobInputsJSON.read specification>+getReadUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputsJSON -> m Bool+getReadUnchecked self = liftDOM ((pFromJSVal <$> (js_getRead (self))))++foreign import javascript safe "(($1, $2) => { $1[\"write\"] = $2; })"+        js_setWrite :: AuthenticationExtensionsLargeBlobInputsJSON -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-write AuthenticationExtensionsLargeBlobInputsJSON.write specification>+setWrite :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsLargeBlobInputsJSON -> val -> m ()+setWrite self val = liftDOM (void ((js_setWrite (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"write\"]; })"+        js_getWrite :: AuthenticationExtensionsLargeBlobInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-write AuthenticationExtensionsLargeBlobInputsJSON.write specification>+getWrite :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m (Maybe result)+getWrite self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getWrite (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-write AuthenticationExtensionsLargeBlobInputsJSON.write specification>+getWriteUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m result+getWriteUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getWrite (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-write AuthenticationExtensionsLargeBlobInputsJSON.write specification>+getWriteUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m result+getWriteUnchecked self = liftDOM ((pFromJSVal <$> (js_getWrite (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobOutputs.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsLargeBlobOutputs+       (js_newAuthenticationExtensionsLargeBlobOutputs, js_setSupported, js_getSupported, js_setBlob, js_getBlob, js_setWritten, js_getWritten, newAuthenticationExtensionsLargeBlobOutputs, setSupported, getSupported, getSupportedUnsafe, getSupportedUnchecked, setBlob, getBlob, getBlobUnsafe, getBlobUnchecked, setWritten, getWritten, getWrittenUnsafe, getWrittenUnchecked, AuthenticationExtensionsLargeBlobOutputs(..), gTypeAuthenticationExtensionsLargeBlobOutputs)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsLargeBlobOutputs :: IO AuthenticationExtensionsLargeBlobOutputs+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionslargebloboutputs AuthenticationExtensionsLargeBlobOutputs specification>+newAuthenticationExtensionsLargeBlobOutputs :: (MonadDOM m) => m AuthenticationExtensionsLargeBlobOutputs+newAuthenticationExtensionsLargeBlobOutputs = liftDOM ((js_newAuthenticationExtensionsLargeBlobOutputs))++foreign import javascript safe "(($1, $2) => { $1[\"supported\"] = $2; })"+        js_setSupported :: AuthenticationExtensionsLargeBlobOutputs -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-supported AuthenticationExtensionsLargeBlobOutputs.supported specification>+setSupported :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> Bool -> m ()+setSupported self val = liftDOM (void ((js_setSupported (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"supported\"]; })"+        js_getSupported :: AuthenticationExtensionsLargeBlobOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-supported AuthenticationExtensionsLargeBlobOutputs.supported specification>+getSupported :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m (Maybe Bool)+getSupported self = liftDOM (((js_getSupported (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-supported AuthenticationExtensionsLargeBlobOutputs.supported specification>+getSupportedUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobOutputs -> m Bool+getSupportedUnsafe self = liftDOM ((((js_getSupported (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-supported AuthenticationExtensionsLargeBlobOutputs.supported specification>+getSupportedUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m Bool+getSupportedUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupported (self))))++foreign import javascript safe "(($1, $2) => { $1[\"blob\"] = $2; })"+        js_setBlob :: AuthenticationExtensionsLargeBlobOutputs -> ArrayBuffer -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-blob AuthenticationExtensionsLargeBlobOutputs.blob specification>+setBlob :: (MonadDOM m, IsArrayBuffer val) => AuthenticationExtensionsLargeBlobOutputs -> val -> m ()+setBlob self val = liftDOM (void ((js_setBlob (self) (Types.toArrayBuffer val))))++foreign import javascript unsafe "(($1) => { return $1[\"blob\"]; })"+        js_getBlob :: AuthenticationExtensionsLargeBlobOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-blob AuthenticationExtensionsLargeBlobOutputs.blob specification>+getBlob :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m (Maybe ArrayBuffer)+getBlob self = liftDOM (((js_getBlob (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-blob AuthenticationExtensionsLargeBlobOutputs.blob specification>+getBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobOutputs -> m ArrayBuffer+getBlobUnsafe self = liftDOM ((((js_getBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-blob AuthenticationExtensionsLargeBlobOutputs.blob specification>+getBlobUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m ArrayBuffer+getBlobUnchecked self = liftDOM ((pFromJSVal <$> (js_getBlob (self))))++foreign import javascript safe "(($1, $2) => { $1[\"written\"] = $2; })"+        js_setWritten :: AuthenticationExtensionsLargeBlobOutputs -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-written AuthenticationExtensionsLargeBlobOutputs.written specification>+setWritten :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> Bool -> m ()+setWritten self val = liftDOM (void ((js_setWritten (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"written\"]; })"+        js_getWritten :: AuthenticationExtensionsLargeBlobOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-written AuthenticationExtensionsLargeBlobOutputs.written specification>+getWritten :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m (Maybe Bool)+getWritten self = liftDOM (((js_getWritten (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-written AuthenticationExtensionsLargeBlobOutputs.written specification>+getWrittenUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobOutputs -> m Bool+getWrittenUnsafe self = liftDOM ((((js_getWritten (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-written AuthenticationExtensionsLargeBlobOutputs.written specification>+getWrittenUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m Bool+getWrittenUnchecked self = liftDOM ((pFromJSVal <$> (js_getWritten (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFInputs.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputs+       (js_newAuthenticationExtensionsPRFInputs, js_setEval, js_getEval, js_setEvalByCredential, js_getEvalByCredential, newAuthenticationExtensionsPRFInputs, setEval, getEval, getEvalUnsafe, getEvalUnchecked, setEvalByCredential, getEvalByCredential, getEvalByCredentialUnsafe, getEvalByCredentialUnchecked, AuthenticationExtensionsPRFInputs(..), gTypeAuthenticationExtensionsPRFInputs)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsPRFInputs :: IO AuthenticationExtensionsPRFInputs+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsprfinputs AuthenticationExtensionsPRFInputs specification>+newAuthenticationExtensionsPRFInputs :: (MonadDOM m) => m AuthenticationExtensionsPRFInputs+newAuthenticationExtensionsPRFInputs = liftDOM ((js_newAuthenticationExtensionsPRFInputs))++foreign import javascript safe "(($1, $2) => { $1[\"eval\"] = $2; })"+        js_setEval :: AuthenticationExtensionsPRFInputs -> AuthenticationExtensionsPRFValues -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>+setEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> AuthenticationExtensionsPRFValues -> m ()+setEval self val = liftDOM (void ((js_setEval (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"eval\"]; })"+        js_getEval :: AuthenticationExtensionsPRFInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>+getEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Maybe AuthenticationExtensionsPRFValues)+getEval self = liftDOM (((js_getEval (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>+getEvalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputs -> m AuthenticationExtensionsPRFValues+getEvalUnsafe self = liftDOM ((((js_getEval (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>+getEvalUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m AuthenticationExtensionsPRFValues+getEvalUnchecked self = liftDOM ((pFromJSVal <$> (js_getEval (self))))++foreign import javascript safe "(($1, $2) => { $1[\"evalByCredential\"] = $2; })"+        js_setEvalByCredential :: AuthenticationExtensionsPRFInputs -> JSVal -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>+setEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> (Record JSString JSVal) -> m ()+setEvalByCredential self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setEvalByCredential (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"evalByCredential\"]; })"+        js_getEvalByCredential :: AuthenticationExtensionsPRFInputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>+getEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Maybe (Record JSString JSVal))+getEvalByCredential self = liftDOM (((js_getEvalByCredential (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>+getEvalByCredentialUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputs -> m (Record JSString JSVal)+getEvalByCredentialUnsafe self = liftDOM ((((js_getEvalByCredential (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>+getEvalByCredentialUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Record JSString JSVal)+getEvalByCredentialUnchecked self = liftDOM ((pFromJSVal <$> (js_getEvalByCredential (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFInputsJSON.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFInputsJSON+       (js_newAuthenticationExtensionsPRFInputsJSON, js_setEval, js_getEval, js_setEvalByCredential, js_getEvalByCredential, newAuthenticationExtensionsPRFInputsJSON, setEval, getEval, getEvalUnsafe, getEvalUnchecked, setEvalByCredential, getEvalByCredential, getEvalByCredentialUnsafe, getEvalByCredentialUnchecked, AuthenticationExtensionsPRFInputsJSON(..), gTypeAuthenticationExtensionsPRFInputsJSON)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsPRFInputsJSON :: IO AuthenticationExtensionsPRFInputsJSON+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsprfinputsjson AuthenticationExtensionsPRFInputsJSON specification>+newAuthenticationExtensionsPRFInputsJSON :: (MonadDOM m) => m AuthenticationExtensionsPRFInputsJSON+newAuthenticationExtensionsPRFInputsJSON = liftDOM ((js_newAuthenticationExtensionsPRFInputsJSON))++foreign import javascript safe "(($1, $2) => { $1[\"eval\"] = $2; })"+        js_setEval :: AuthenticationExtensionsPRFInputsJSON -> AuthenticationExtensionsPRFValuesJSON -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-eval AuthenticationExtensionsPRFInputsJSON.eval specification>+setEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> AuthenticationExtensionsPRFValuesJSON -> m ()+setEval self val = liftDOM (void ((js_setEval (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"eval\"]; })"+        js_getEval :: AuthenticationExtensionsPRFInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-eval AuthenticationExtensionsPRFInputsJSON.eval specification>+getEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m (Maybe AuthenticationExtensionsPRFValuesJSON)+getEval self = liftDOM (((js_getEval (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-eval AuthenticationExtensionsPRFInputsJSON.eval specification>+getEvalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputsJSON -> m AuthenticationExtensionsPRFValuesJSON+getEvalUnsafe self = liftDOM ((((js_getEval (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-eval AuthenticationExtensionsPRFInputsJSON.eval specification>+getEvalUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m AuthenticationExtensionsPRFValuesJSON+getEvalUnchecked self = liftDOM ((pFromJSVal <$> (js_getEval (self))))++foreign import javascript safe "(($1, $2) => { $1[\"evalByCredential\"] = $2; })"+        js_setEvalByCredential :: AuthenticationExtensionsPRFInputsJSON -> JSVal -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-evalbycredential AuthenticationExtensionsPRFInputsJSON.evalByCredential specification>+setEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> (Record JSString JSVal) -> m ()+setEvalByCredential self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setEvalByCredential (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"evalByCredential\"]; })"+        js_getEvalByCredential :: AuthenticationExtensionsPRFInputsJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-evalbycredential AuthenticationExtensionsPRFInputsJSON.evalByCredential specification>+getEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m (Maybe (Record JSString JSVal))+getEvalByCredential self = liftDOM (((js_getEvalByCredential (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-evalbycredential AuthenticationExtensionsPRFInputsJSON.evalByCredential specification>+getEvalByCredentialUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputsJSON -> m (Record JSString JSVal)+getEvalByCredentialUnsafe self = liftDOM ((((js_getEvalByCredential (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-evalbycredential AuthenticationExtensionsPRFInputsJSON.evalByCredential specification>+getEvalByCredentialUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m (Record JSString JSVal)+getEvalByCredentialUnchecked self = liftDOM ((pFromJSVal <$> (js_getEvalByCredential (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFOutputs.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFOutputs+       (js_newAuthenticationExtensionsPRFOutputs, js_setEnabled, js_getEnabled, js_setResults, js_getResults, newAuthenticationExtensionsPRFOutputs, setEnabled, getEnabled, getEnabledUnsafe, getEnabledUnchecked, setResults, getResults, getResultsUnsafe, getResultsUnchecked, AuthenticationExtensionsPRFOutputs(..), gTypeAuthenticationExtensionsPRFOutputs)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsPRFOutputs :: IO AuthenticationExtensionsPRFOutputs+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsprfoutputs AuthenticationExtensionsPRFOutputs specification>+newAuthenticationExtensionsPRFOutputs :: (MonadDOM m) => m AuthenticationExtensionsPRFOutputs+newAuthenticationExtensionsPRFOutputs = liftDOM ((js_newAuthenticationExtensionsPRFOutputs))++foreign import javascript safe "(($1, $2) => { $1[\"enabled\"] = $2; })"+        js_setEnabled :: AuthenticationExtensionsPRFOutputs -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-enabled AuthenticationExtensionsPRFOutputs.enabled specification>+setEnabled :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> Bool -> m ()+setEnabled self val = liftDOM (void ((js_setEnabled (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"enabled\"]; })"+        js_getEnabled :: AuthenticationExtensionsPRFOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-enabled AuthenticationExtensionsPRFOutputs.enabled specification>+getEnabled :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m (Maybe Bool)+getEnabled self = liftDOM (((js_getEnabled (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-enabled AuthenticationExtensionsPRFOutputs.enabled specification>+getEnabledUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFOutputs -> m Bool+getEnabledUnsafe self = liftDOM ((((js_getEnabled (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-enabled AuthenticationExtensionsPRFOutputs.enabled specification>+getEnabledUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m Bool+getEnabledUnchecked self = liftDOM ((pFromJSVal <$> (js_getEnabled (self))))++foreign import javascript safe "(($1, $2) => { $1[\"results\"] = $2; })"+        js_setResults :: AuthenticationExtensionsPRFOutputs -> AuthenticationExtensionsPRFValues -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-results AuthenticationExtensionsPRFOutputs.results specification>+setResults :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> AuthenticationExtensionsPRFValues -> m ()+setResults self val = liftDOM (void ((js_setResults (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"results\"]; })"+        js_getResults :: AuthenticationExtensionsPRFOutputs -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-results AuthenticationExtensionsPRFOutputs.results specification>+getResults :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m (Maybe AuthenticationExtensionsPRFValues)+getResults self = liftDOM (((js_getResults (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-results AuthenticationExtensionsPRFOutputs.results specification>+getResultsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFOutputs -> m AuthenticationExtensionsPRFValues+getResultsUnsafe self = liftDOM ((((js_getResults (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-results AuthenticationExtensionsPRFOutputs.results specification>+getResultsUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m AuthenticationExtensionsPRFValues+getResultsUnchecked self = liftDOM ((pFromJSVal <$> (js_getResults (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFValues.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValues+       (js_newAuthenticationExtensionsPRFValues, js_setFirst, js_getFirst, js_setSecond, js_getSecond, newAuthenticationExtensionsPRFValues, setFirst, getFirst, setSecond, getSecond, getSecondUnsafe, getSecondUnchecked, AuthenticationExtensionsPRFValues(..), gTypeAuthenticationExtensionsPRFValues)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"first\": $1}); })"+        js_newAuthenticationExtensionsPRFValues :: BufferSource -> IO AuthenticationExtensionsPRFValues+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsprfvalues AuthenticationExtensionsPRFValues specification>+newAuthenticationExtensionsPRFValues :: (MonadDOM m, IsBufferSource first) => first -> m AuthenticationExtensionsPRFValues+newAuthenticationExtensionsPRFValues first = liftDOM ((js_newAuthenticationExtensionsPRFValues (Types.toBufferSource first)))++foreign import javascript safe "(($1, $2) => { $1[\"first\"] = $2; })"+        js_setFirst :: AuthenticationExtensionsPRFValues -> BufferSource -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-first AuthenticationExtensionsPRFValues.first specification>+setFirst :: (MonadDOM m, IsBufferSource val) => AuthenticationExtensionsPRFValues -> val -> m ()+setFirst self val = liftDOM (void ((js_setFirst (self) (Types.toBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"first\"]; })"+        js_getFirst :: AuthenticationExtensionsPRFValues -> IO BufferSource+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-first AuthenticationExtensionsPRFValues.first specification>+getFirst :: (MonadDOM m) => AuthenticationExtensionsPRFValues -> m BufferSource+getFirst self = liftDOM ((js_getFirst (self)))++foreign import javascript safe "(($1, $2) => { $1[\"second\"] = $2; })"+        js_setSecond :: AuthenticationExtensionsPRFValues -> BufferSource -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-second AuthenticationExtensionsPRFValues.second specification>+setSecond :: (MonadDOM m, IsBufferSource val) => AuthenticationExtensionsPRFValues -> val -> m ()+setSecond self val = liftDOM (void ((js_setSecond (self) (Types.toBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"second\"]; })"+        js_getSecond :: AuthenticationExtensionsPRFValues -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-second AuthenticationExtensionsPRFValues.second specification>+getSecond :: (MonadDOM m) => AuthenticationExtensionsPRFValues -> m (Maybe BufferSource)+getSecond self = liftDOM (((js_getSecond (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-second AuthenticationExtensionsPRFValues.second specification>+getSecondUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFValues -> m BufferSource+getSecondUnsafe self = liftDOM ((((js_getSecond (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-second AuthenticationExtensionsPRFValues.second specification>+getSecondUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFValues -> m BufferSource+getSecondUnchecked self = liftDOM ((pFromJSVal <$> (js_getSecond (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFValuesJSON.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPRFValuesJSON+       (js_newAuthenticationExtensionsPRFValuesJSON, js_setFirst, js_getFirst, js_setSecond, js_getSecond, newAuthenticationExtensionsPRFValuesJSON, setFirst, getFirst, setSecond, getSecond, getSecondUnsafe, getSecondUnchecked, AuthenticationExtensionsPRFValuesJSON(..), gTypeAuthenticationExtensionsPRFValuesJSON)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"first\": $1}); })"+        js_newAuthenticationExtensionsPRFValuesJSON :: JSString -> IO AuthenticationExtensionsPRFValuesJSON+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsprfvaluesjson AuthenticationExtensionsPRFValuesJSON specification>+newAuthenticationExtensionsPRFValuesJSON :: (MonadDOM m, ToJSString first) => first -> m AuthenticationExtensionsPRFValuesJSON+newAuthenticationExtensionsPRFValuesJSON first = liftDOM ((js_newAuthenticationExtensionsPRFValuesJSON (toJSString first)))++foreign import javascript safe "(($1, $2) => { $1[\"first\"] = $2; })"+        js_setFirst :: AuthenticationExtensionsPRFValuesJSON -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-first AuthenticationExtensionsPRFValuesJSON.first specification>+setFirst :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPRFValuesJSON -> val -> m ()+setFirst self val = liftDOM (void ((js_setFirst (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"first\"]; })"+        js_getFirst :: AuthenticationExtensionsPRFValuesJSON -> IO JSString+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-first AuthenticationExtensionsPRFValuesJSON.first specification>+getFirst :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPRFValuesJSON -> m result+getFirst self = liftDOM ((fromJSString <$> (js_getFirst (self))))++foreign import javascript safe "(($1, $2) => { $1[\"second\"] = $2; })"+        js_setSecond :: AuthenticationExtensionsPRFValuesJSON -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-second AuthenticationExtensionsPRFValuesJSON.second specification>+setSecond :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPRFValuesJSON -> val -> m ()+setSecond self val = liftDOM (void ((js_setSecond (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"second\"]; })"+        js_getSecond :: AuthenticationExtensionsPRFValuesJSON -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-second AuthenticationExtensionsPRFValuesJSON.second specification>+getSecond :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPRFValuesJSON -> m (Maybe result)+getSecond self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSecond (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-second AuthenticationExtensionsPRFValuesJSON.second specification>+getSecondUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPRFValuesJSON -> m result+getSecondUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSecond (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-second AuthenticationExtensionsPRFValuesJSON.second specification>+getSecondUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPRFValuesJSON -> m result+getSecondUnchecked self = liftDOM ((pFromJSVal <$> (js_getSecond (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPaymentInputs.hs view
@@ -0,0 +1,203 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from secure-payment-confirmation (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentInputs+       (js_newAuthenticationExtensionsPaymentInputs, js_setIsPayment, js_getIsPayment, js_setBrowserBoundPubKeyCredParams, js_getBrowserBoundPubKeyCredParams, js_setRpId, js_getRpId, js_setTopOrigin, js_getTopOrigin, js_setPayeeName, js_getPayeeName, js_setPayeeOrigin, js_getPayeeOrigin, js_setPaymentEntitiesLogos, js_getPaymentEntitiesLogos, js_setTotal, js_getTotal, js_setInstrument, js_getInstrument, newAuthenticationExtensionsPaymentInputs, setIsPayment, getIsPayment, getIsPaymentUnsafe, getIsPaymentUnchecked, setBrowserBoundPubKeyCredParams, getBrowserBoundPubKeyCredParams, getBrowserBoundPubKeyCredParamsUnsafe, getBrowserBoundPubKeyCredParamsUnchecked, setRpId, getRpId, getRpIdUnsafe, getRpIdUnchecked, setTopOrigin, getTopOrigin, getTopOriginUnsafe, getTopOriginUnchecked, setPayeeName, getPayeeName, getPayeeNameUnsafe, getPayeeNameUnchecked, setPayeeOrigin, getPayeeOrigin, getPayeeOriginUnsafe, getPayeeOriginUnchecked, setPaymentEntitiesLogos, getPaymentEntitiesLogos, getPaymentEntitiesLogosUnsafe, getPaymentEntitiesLogosUnchecked, setTotal, getTotal, getTotalUnsafe, getTotalUnchecked, setInstrument, getInstrument, getInstrumentUnsafe, getInstrumentUnchecked, AuthenticationExtensionsPaymentInputs(..), gTypeAuthenticationExtensionsPaymentInputs)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsPaymentInputs :: IO AuthenticationExtensionsPaymentInputs+-- | <https://w3c.github.io/secure-payment-confirmation/#dictdef-authenticationextensionspaymentinputs AuthenticationExtensionsPaymentInputs specification>+newAuthenticationExtensionsPaymentInputs :: (MonadDOM m) => m AuthenticationExtensionsPaymentInputs+newAuthenticationExtensionsPaymentInputs = liftDOM ((js_newAuthenticationExtensionsPaymentInputs))++foreign import javascript safe "(($1, $2) => { $1[\"isPayment\"] = $2; })"+        js_setIsPayment :: AuthenticationExtensionsPaymentInputs -> Bool -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>+setIsPayment :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> Bool -> m ()+setIsPayment self val = liftDOM (void ((js_setIsPayment (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"isPayment\"]; })"+        js_getIsPayment :: AuthenticationExtensionsPaymentInputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>+getIsPayment :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe Bool)+getIsPayment self = liftDOM (((js_getIsPayment (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>+getIsPaymentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m Bool+getIsPaymentUnsafe self = liftDOM ((((js_getIsPayment (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>+getIsPaymentUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m Bool+getIsPaymentUnchecked self = liftDOM ((pFromJSVal <$> (js_getIsPayment (self))))++foreign import javascript safe "(($1, $2) => { $1[\"browserBoundPubKeyCredParams\"] = $2; })"+        js_setBrowserBoundPubKeyCredParams :: AuthenticationExtensionsPaymentInputs -> JSVal -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>+setBrowserBoundPubKeyCredParams :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> [PublicKeyCredentialParameters] -> m ()+setBrowserBoundPubKeyCredParams self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBrowserBoundPubKeyCredParams (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"browserBoundPubKeyCredParams\"]; })"+        js_getBrowserBoundPubKeyCredParams :: AuthenticationExtensionsPaymentInputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>+getBrowserBoundPubKeyCredParams :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe [PublicKeyCredentialParameters])+getBrowserBoundPubKeyCredParams self = liftDOM (((js_getBrowserBoundPubKeyCredParams (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>+getBrowserBoundPubKeyCredParamsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m [PublicKeyCredentialParameters]+getBrowserBoundPubKeyCredParamsUnsafe self = liftDOM ((((js_getBrowserBoundPubKeyCredParams (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>+getBrowserBoundPubKeyCredParamsUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m [PublicKeyCredentialParameters]+getBrowserBoundPubKeyCredParamsUnchecked self = liftDOM (((js_getBrowserBoundPubKeyCredParams (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"rpId\"] = $2; })"+        js_setRpId :: AuthenticationExtensionsPaymentInputs -> JSString -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>+setRpId :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m ()+setRpId self val = liftDOM (void ((js_setRpId (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"rpId\"]; })"+        js_getRpId :: AuthenticationExtensionsPaymentInputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>+getRpId :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)+getRpId self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRpId (self))))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>+getRpIdUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result+getRpIdUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getRpId (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>+getRpIdUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result+getRpIdUnchecked self = liftDOM ((pFromJSVal <$> (js_getRpId (self))))++foreign import javascript safe "(($1, $2) => { $1[\"topOrigin\"] = $2; })"+        js_setTopOrigin :: AuthenticationExtensionsPaymentInputs -> JSString -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>+setTopOrigin :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m ()+setTopOrigin self val = liftDOM (void ((js_setTopOrigin (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"topOrigin\"]; })"+        js_getTopOrigin :: AuthenticationExtensionsPaymentInputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>+getTopOrigin :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)+getTopOrigin self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getTopOrigin (self))))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>+getTopOriginUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result+getTopOriginUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getTopOrigin (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>+getTopOriginUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result+getTopOriginUnchecked self = liftDOM ((pFromJSVal <$> (js_getTopOrigin (self))))++foreign import javascript safe "(($1, $2) => { $1[\"payeeName\"] = $2; })"+        js_setPayeeName :: AuthenticationExtensionsPaymentInputs -> JSString -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>+setPayeeName :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m ()+setPayeeName self val = liftDOM (void ((js_setPayeeName (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"payeeName\"]; })"+        js_getPayeeName :: AuthenticationExtensionsPaymentInputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>+getPayeeName :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)+getPayeeName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPayeeName (self))))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>+getPayeeNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result+getPayeeNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPayeeName (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>+getPayeeNameUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result+getPayeeNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getPayeeName (self))))++foreign import javascript safe "(($1, $2) => { $1[\"payeeOrigin\"] = $2; })"+        js_setPayeeOrigin :: AuthenticationExtensionsPaymentInputs -> JSString -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>+setPayeeOrigin :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m ()+setPayeeOrigin self val = liftDOM (void ((js_setPayeeOrigin (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"payeeOrigin\"]; })"+        js_getPayeeOrigin :: AuthenticationExtensionsPaymentInputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>+getPayeeOrigin :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)+getPayeeOrigin self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPayeeOrigin (self))))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>+getPayeeOriginUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result+getPayeeOriginUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPayeeOrigin (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>+getPayeeOriginUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result+getPayeeOriginUnchecked self = liftDOM ((pFromJSVal <$> (js_getPayeeOrigin (self))))++foreign import javascript safe "(($1, $2) => { $1[\"paymentEntitiesLogos\"] = $2; })"+        js_setPaymentEntitiesLogos :: AuthenticationExtensionsPaymentInputs -> JSVal -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>+setPaymentEntitiesLogos :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> [PaymentEntityLogo] -> m ()+setPaymentEntitiesLogos self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setPaymentEntitiesLogos (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"paymentEntitiesLogos\"]; })"+        js_getPaymentEntitiesLogos :: AuthenticationExtensionsPaymentInputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>+getPaymentEntitiesLogos :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe [PaymentEntityLogo])+getPaymentEntitiesLogos self = liftDOM (((js_getPaymentEntitiesLogos (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>+getPaymentEntitiesLogosUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m [PaymentEntityLogo]+getPaymentEntitiesLogosUnsafe self = liftDOM ((((js_getPaymentEntitiesLogos (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>+getPaymentEntitiesLogosUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m [PaymentEntityLogo]+getPaymentEntitiesLogosUnchecked self = liftDOM (((js_getPaymentEntitiesLogos (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"total\"] = $2; })"+        js_setTotal :: AuthenticationExtensionsPaymentInputs -> PaymentCurrencyAmount -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>+setTotal :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> PaymentCurrencyAmount -> m ()+setTotal self val = liftDOM (void ((js_setTotal (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"total\"]; })"+        js_getTotal :: AuthenticationExtensionsPaymentInputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>+getTotal :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe PaymentCurrencyAmount)+getTotal self = liftDOM (((js_getTotal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>+getTotalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m PaymentCurrencyAmount+getTotalUnsafe self = liftDOM ((((js_getTotal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>+getTotalUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m PaymentCurrencyAmount+getTotalUnchecked self = liftDOM ((pFromJSVal <$> (js_getTotal (self))))++foreign import javascript safe "(($1, $2) => { $1[\"instrument\"] = $2; })"+        js_setInstrument :: AuthenticationExtensionsPaymentInputs -> PaymentCredentialInstrument -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>+setInstrument :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> PaymentCredentialInstrument -> m ()+setInstrument self val = liftDOM (void ((js_setInstrument (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"instrument\"]; })"+        js_getInstrument :: AuthenticationExtensionsPaymentInputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>+getInstrument :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe PaymentCredentialInstrument)+getInstrument self = liftDOM (((js_getInstrument (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>+getInstrumentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m PaymentCredentialInstrument+getInstrumentUnsafe self = liftDOM ((((js_getInstrument (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>+getInstrumentUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m PaymentCredentialInstrument+getInstrumentUnchecked self = liftDOM ((pFromJSVal <$> (js_getInstrument (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPaymentOutputs.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from secure-payment-confirmation (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticationExtensionsPaymentOutputs+       (js_newAuthenticationExtensionsPaymentOutputs, js_setBrowserBoundSignature, js_getBrowserBoundSignature, newAuthenticationExtensionsPaymentOutputs, setBrowserBoundSignature, getBrowserBoundSignature, getBrowserBoundSignatureUnsafe, getBrowserBoundSignatureUnchecked, AuthenticationExtensionsPaymentOutputs(..), gTypeAuthenticationExtensionsPaymentOutputs)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticationExtensionsPaymentOutputs :: IO AuthenticationExtensionsPaymentOutputs+-- | <https://w3c.github.io/secure-payment-confirmation/#dictdef-authenticationextensionspaymentoutputs AuthenticationExtensionsPaymentOutputs specification>+newAuthenticationExtensionsPaymentOutputs :: (MonadDOM m) => m AuthenticationExtensionsPaymentOutputs+newAuthenticationExtensionsPaymentOutputs = liftDOM ((js_newAuthenticationExtensionsPaymentOutputs))++foreign import javascript safe "(($1, $2) => { $1[\"browserBoundSignature\"] = $2; })"+        js_setBrowserBoundSignature :: AuthenticationExtensionsPaymentOutputs -> BrowserBoundSignature -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentoutputs-browserboundsignature AuthenticationExtensionsPaymentOutputs.browserBoundSignature specification>+setBrowserBoundSignature :: (MonadDOM m) => AuthenticationExtensionsPaymentOutputs -> BrowserBoundSignature -> m ()+setBrowserBoundSignature self val = liftDOM (void ((js_setBrowserBoundSignature (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"browserBoundSignature\"]; })"+        js_getBrowserBoundSignature :: AuthenticationExtensionsPaymentOutputs -> IO JSVal+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentoutputs-browserboundsignature AuthenticationExtensionsPaymentOutputs.browserBoundSignature specification>+getBrowserBoundSignature :: (MonadDOM m) => AuthenticationExtensionsPaymentOutputs -> m (Maybe BrowserBoundSignature)+getBrowserBoundSignature self = liftDOM (((js_getBrowserBoundSignature (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentoutputs-browserboundsignature AuthenticationExtensionsPaymentOutputs.browserBoundSignature specification>+getBrowserBoundSignatureUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentOutputs -> m BrowserBoundSignature+getBrowserBoundSignatureUnsafe self = liftDOM ((((js_getBrowserBoundSignature (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentoutputs-browserboundsignature AuthenticationExtensionsPaymentOutputs.browserBoundSignature specification>+getBrowserBoundSignatureUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentOutputs -> m BrowserBoundSignature+getBrowserBoundSignatureUnchecked self = liftDOM ((pFromJSVal <$> (js_getBrowserBoundSignature (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticatorAssertionResponse.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticatorAssertionResponse+       (js_getAuthenticatorData, js_getSignature, js_getUserHandle, getAuthenticatorData, getSignature, getUserHandle, getUserHandleUnsafe, getUserHandleUnchecked, AuthenticatorAssertionResponse(..), gTypeAuthenticatorAssertionResponse)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"authenticatorData\"]; })"+        js_getAuthenticatorData :: AuthenticatorAssertionResponse -> IO ArrayBuffer+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAssertionResponse/authenticatorData MDN AuthenticatorAssertionResponse.authenticatorData documentation>+getAuthenticatorData :: (MonadDOM m) => AuthenticatorAssertionResponse -> m ArrayBuffer+getAuthenticatorData self = liftDOM ((js_getAuthenticatorData (self)))++foreign import javascript unsafe "(($1) => { return $1[\"signature\"]; })"+        js_getSignature :: AuthenticatorAssertionResponse -> IO ArrayBuffer+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAssertionResponse/signature MDN AuthenticatorAssertionResponse.signature documentation>+getSignature :: (MonadDOM m) => AuthenticatorAssertionResponse -> m ArrayBuffer+getSignature self = liftDOM ((js_getSignature (self)))++foreign import javascript unsafe "(($1) => { return $1[\"userHandle\"]; })"+        js_getUserHandle :: AuthenticatorAssertionResponse -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAssertionResponse/userHandle MDN AuthenticatorAssertionResponse.userHandle documentation>+getUserHandle :: (MonadDOM m) => AuthenticatorAssertionResponse -> m (Maybe ArrayBuffer)+getUserHandle self = liftDOM (((js_getUserHandle (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAssertionResponse/userHandle MDN AuthenticatorAssertionResponse.userHandle documentation>+getUserHandleUnsafe :: (MonadDOM m, HasCallStack) => AuthenticatorAssertionResponse -> m ArrayBuffer+getUserHandleUnsafe self = liftDOM ((((js_getUserHandle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAssertionResponse/userHandle MDN AuthenticatorAssertionResponse.userHandle documentation>+getUserHandleUnchecked :: (MonadDOM m) => AuthenticatorAssertionResponse -> m ArrayBuffer+getUserHandleUnchecked self = liftDOM ((pFromJSVal <$> (js_getUserHandle (self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticatorAttestationResponse.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticatorAttestationResponse+       (js_getAuthenticatorData, js_getPublicKey, js_getPublicKeyAlgorithm, js_getTransports, js_getAttestationObject, getAuthenticatorData, getAuthenticatorData_, getPublicKey, getPublicKey_, getPublicKeyUnsafe, getPublicKeyUnchecked, getPublicKeyAlgorithm, getPublicKeyAlgorithm_, getTransports, getTransports_, getAttestationObject, AuthenticatorAttestationResponse(..), gTypeAuthenticatorAttestationResponse)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"getAuthenticatorData\"](); })"+        js_getAuthenticatorData :: AuthenticatorAttestationResponse -> IO ArrayBuffer+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getAuthenticatorData MDN AuthenticatorAttestationResponse.getAuthenticatorData documentation>+getAuthenticatorData :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ArrayBuffer+getAuthenticatorData self = liftDOM ((js_getAuthenticatorData (self)))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getAuthenticatorData MDN AuthenticatorAttestationResponse.getAuthenticatorData documentation>+getAuthenticatorData_ :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ()+getAuthenticatorData_ self = liftDOM (void ((js_getAuthenticatorData (self))))++foreign import javascript safe "(($1) => { return $1[\"getPublicKey\"](); })"+        js_getPublicKey :: AuthenticatorAttestationResponse -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKey MDN AuthenticatorAttestationResponse.getPublicKey documentation>+getPublicKey :: (MonadDOM m) => AuthenticatorAttestationResponse -> m (Maybe ArrayBuffer)+getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKey MDN AuthenticatorAttestationResponse.getPublicKey documentation>+getPublicKey_ :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ()+getPublicKey_ self = liftDOM (void ((js_getPublicKey (self))))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKey MDN AuthenticatorAttestationResponse.getPublicKey documentation>+getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticatorAttestationResponse -> m ArrayBuffer+getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKey MDN AuthenticatorAttestationResponse.getPublicKey documentation>+getPublicKeyUnchecked :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ArrayBuffer+getPublicKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPublicKey (self))))++foreign import javascript safe "(($1) => { return $1[\"getPublicKeyAlgorithm\"](); })"+        js_getPublicKeyAlgorithm :: AuthenticatorAttestationResponse -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKeyAlgorithm MDN AuthenticatorAttestationResponse.getPublicKeyAlgorithm documentation>+getPublicKeyAlgorithm :: (MonadDOM m) => AuthenticatorAttestationResponse -> m Int+getPublicKeyAlgorithm self = liftDOM ((js_getPublicKeyAlgorithm (self)))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKeyAlgorithm MDN AuthenticatorAttestationResponse.getPublicKeyAlgorithm documentation>+getPublicKeyAlgorithm_ :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ()+getPublicKeyAlgorithm_ self = liftDOM (void ((js_getPublicKeyAlgorithm (self))))++foreign import javascript safe "(($1) => { return $1[\"getTransports\"](); })"+        js_getTransports :: AuthenticatorAttestationResponse -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getTransports MDN AuthenticatorAttestationResponse.getTransports documentation>+getTransports :: (MonadDOM m, FromJSString result) => AuthenticatorAttestationResponse -> m [result]+getTransports self = liftDOM (((js_getTransports (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getTransports MDN AuthenticatorAttestationResponse.getTransports documentation>+getTransports_ :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ()+getTransports_ self = liftDOM (void ((js_getTransports (self))))++foreign import javascript unsafe "(($1) => { return $1[\"attestationObject\"]; })"+        js_getAttestationObject :: AuthenticatorAttestationResponse -> IO ArrayBuffer+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/attestationObject MDN AuthenticatorAttestationResponse.attestationObject documentation>+getAttestationObject :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ArrayBuffer+getAttestationObject self = liftDOM ((js_getAttestationObject (self)))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticatorResponse.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticatorResponse+       (js_getClientDataJSON, getClientDataJSON, AuthenticatorResponse(..), gTypeAuthenticatorResponse, IsAuthenticatorResponse, toAuthenticatorResponse)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"clientDataJSON\"]; })"+        js_getClientDataJSON :: AuthenticatorResponse -> IO ArrayBuffer+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorResponse/clientDataJSON MDN AuthenticatorResponse.clientDataJSON documentation>+getClientDataJSON :: (MonadDOM m, IsAuthenticatorResponse self) => self -> m ArrayBuffer+getClientDataJSON self = liftDOM ((js_getClientDataJSON ((Types.toAuthenticatorResponse self))))
+ src/GHCJS/DOM/JSFFI/Generated/AuthenticatorSelectionCriteria.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AuthenticatorSelectionCriteria+       (js_newAuthenticatorSelectionCriteria, js_setAuthenticatorAttachment, js_getAuthenticatorAttachment, js_setResidentKey, js_getResidentKey, js_setRequireResidentKey, js_getRequireResidentKey, js_setUserVerification, js_getUserVerification, newAuthenticatorSelectionCriteria, setAuthenticatorAttachment, getAuthenticatorAttachment, getAuthenticatorAttachmentUnsafe, getAuthenticatorAttachmentUnchecked, setResidentKey, getResidentKey, getResidentKeyUnsafe, getResidentKeyUnchecked, setRequireResidentKey, getRequireResidentKey, getRequireResidentKeyUnsafe, getRequireResidentKeyUnchecked, setUserVerification, getUserVerification, getUserVerificationUnsafe, getUserVerificationUnchecked, AuthenticatorSelectionCriteria(..), gTypeAuthenticatorSelectionCriteria)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAuthenticatorSelectionCriteria :: IO AuthenticatorSelectionCriteria+-- | <https://w3c.github.io/webauthn/#dictdef-authenticatorselectioncriteria AuthenticatorSelectionCriteria specification>+newAuthenticatorSelectionCriteria :: (MonadDOM m) => m AuthenticatorSelectionCriteria+newAuthenticatorSelectionCriteria = liftDOM ((js_newAuthenticatorSelectionCriteria))++foreign import javascript safe "(($1, $2) => { $1[\"authenticatorAttachment\"] = $2; })"+        js_setAuthenticatorAttachment :: AuthenticatorSelectionCriteria -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-authenticatorattachment AuthenticatorSelectionCriteria.authenticatorAttachment specification>+setAuthenticatorAttachment :: (MonadDOM m, ToJSString val) => AuthenticatorSelectionCriteria -> val -> m ()+setAuthenticatorAttachment self val = liftDOM (void ((js_setAuthenticatorAttachment (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"authenticatorAttachment\"]; })"+        js_getAuthenticatorAttachment :: AuthenticatorSelectionCriteria -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-authenticatorattachment AuthenticatorSelectionCriteria.authenticatorAttachment specification>+getAuthenticatorAttachment :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m (Maybe result)+getAuthenticatorAttachment self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAuthenticatorAttachment (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-authenticatorattachment AuthenticatorSelectionCriteria.authenticatorAttachment specification>+getAuthenticatorAttachmentUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticatorSelectionCriteria -> m result+getAuthenticatorAttachmentUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAuthenticatorAttachment (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-authenticatorattachment AuthenticatorSelectionCriteria.authenticatorAttachment specification>+getAuthenticatorAttachmentUnchecked :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m result+getAuthenticatorAttachmentUnchecked self = liftDOM ((pFromJSVal <$> (js_getAuthenticatorAttachment (self))))++foreign import javascript safe "(($1, $2) => { $1[\"residentKey\"] = $2; })"+        js_setResidentKey :: AuthenticatorSelectionCriteria -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-residentkey AuthenticatorSelectionCriteria.residentKey specification>+setResidentKey :: (MonadDOM m, ToJSString val) => AuthenticatorSelectionCriteria -> val -> m ()+setResidentKey self val = liftDOM (void ((js_setResidentKey (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"residentKey\"]; })"+        js_getResidentKey :: AuthenticatorSelectionCriteria -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-residentkey AuthenticatorSelectionCriteria.residentKey specification>+getResidentKey :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m (Maybe result)+getResidentKey self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getResidentKey (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-residentkey AuthenticatorSelectionCriteria.residentKey specification>+getResidentKeyUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticatorSelectionCriteria -> m result+getResidentKeyUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getResidentKey (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-residentkey AuthenticatorSelectionCriteria.residentKey specification>+getResidentKeyUnchecked :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m result+getResidentKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getResidentKey (self))))++foreign import javascript safe "(($1, $2) => { $1[\"requireResidentKey\"] = $2; })"+        js_setRequireResidentKey :: AuthenticatorSelectionCriteria -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-requireresidentkey AuthenticatorSelectionCriteria.requireResidentKey specification>+setRequireResidentKey :: (MonadDOM m) => AuthenticatorSelectionCriteria -> Bool -> m ()+setRequireResidentKey self val = liftDOM (void ((js_setRequireResidentKey (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"requireResidentKey\"]; })"+        js_getRequireResidentKey :: AuthenticatorSelectionCriteria -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-requireresidentkey AuthenticatorSelectionCriteria.requireResidentKey specification>+getRequireResidentKey :: (MonadDOM m) => AuthenticatorSelectionCriteria -> m (Maybe Bool)+getRequireResidentKey self = liftDOM (((js_getRequireResidentKey (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-requireresidentkey AuthenticatorSelectionCriteria.requireResidentKey specification>+getRequireResidentKeyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticatorSelectionCriteria -> m Bool+getRequireResidentKeyUnsafe self = liftDOM ((((js_getRequireResidentKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-requireresidentkey AuthenticatorSelectionCriteria.requireResidentKey specification>+getRequireResidentKeyUnchecked :: (MonadDOM m) => AuthenticatorSelectionCriteria -> m Bool+getRequireResidentKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getRequireResidentKey (self))))++foreign import javascript safe "(($1, $2) => { $1[\"userVerification\"] = $2; })"+        js_setUserVerification :: AuthenticatorSelectionCriteria -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-userverification AuthenticatorSelectionCriteria.userVerification specification>+setUserVerification :: (MonadDOM m, ToJSString val) => AuthenticatorSelectionCriteria -> val -> m ()+setUserVerification self val = liftDOM (void ((js_setUserVerification (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"userVerification\"]; })"+        js_getUserVerification :: AuthenticatorSelectionCriteria -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-userverification AuthenticatorSelectionCriteria.userVerification specification>+getUserVerification :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m (Maybe result)+getUserVerification self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getUserVerification (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-userverification AuthenticatorSelectionCriteria.userVerification specification>+getUserVerificationUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticatorSelectionCriteria -> m result+getUserVerificationUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getUserVerification (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-userverification AuthenticatorSelectionCriteria.userVerification specification>+getUserVerificationUnchecked :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m result+getUserVerificationUnchecked self = liftDOM ((pFromJSVal <$> (js_getUserVerification (self))))
− src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs
@@ -1,53 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent-       (js_newAutocompleteErrorEvent, newAutocompleteErrorEvent,-        js_getReason, getReason, AutocompleteErrorEvent(..),-        gTypeAutocompleteErrorEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"AutocompleteErrorEvent\"]($1,\n$2); })"-        js_newAutocompleteErrorEvent ::-        JSString ->-          Optional AutocompleteErrorEventInit -> IO AutocompleteErrorEvent---- | <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent Mozilla AutocompleteErrorEvent documentation> -newAutocompleteErrorEvent ::-                          (MonadIO m, ToJSString type') =>-                            type' ->-                              Maybe AutocompleteErrorEventInit -> m AutocompleteErrorEvent-newAutocompleteErrorEvent type' eventInitDict-  = liftIO-      (js_newAutocompleteErrorEvent (toJSString type')-         (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })" js_getReason ::-        AutocompleteErrorEvent -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent.reason Mozilla AutocompleteErrorEvent.reason documentation> -getReason ::-          (MonadIO m, FromJSString result) =>-            AutocompleteErrorEvent -> m result-getReason self = liftIO (fromJSString <$> (js_getReason self))
+ src/GHCJS/DOM/JSFFI/Generated/AutofillEvent.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from autofill-event (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AutofillEvent+       (AutofillEvent(..), gTypeAutofillEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
+ src/GHCJS/DOM/JSFFI/Generated/AvcEncoderConfig.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs-avc-codec-registration (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.AvcEncoderConfig+       (js_newAvcEncoderConfig, js_setFormat, js_getFormat, newAvcEncoderConfig, setFormat, getFormat, getFormatUnsafe, getFormatUnchecked, AvcEncoderConfig(..), gTypeAvcEncoderConfig)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newAvcEncoderConfig :: IO AvcEncoderConfig+-- | <https://w3c.github.io/webcodecs/avc_codec_registration.html#dictdef-avcencoderconfig AvcEncoderConfig specification>+newAvcEncoderConfig :: (MonadDOM m) => m AvcEncoderConfig+newAvcEncoderConfig = liftDOM ((js_newAvcEncoderConfig))++foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })"+        js_setFormat :: AvcEncoderConfig -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/avc_codec_registration.html#dom-avcencoderconfig-format AvcEncoderConfig.format specification>+setFormat :: (MonadDOM m) => AvcEncoderConfig -> AvcBitstreamFormat -> m ()+setFormat self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFormat (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })"+        js_getFormat :: AvcEncoderConfig -> IO JSVal+-- | <https://w3c.github.io/webcodecs/avc_codec_registration.html#dom-avcencoderconfig-format AvcEncoderConfig.format specification>+getFormat :: (MonadDOM m) => AvcEncoderConfig -> m (Maybe AvcBitstreamFormat)+getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/avc_codec_registration.html#dom-avcencoderconfig-format AvcEncoderConfig.format specification>+getFormatUnsafe :: (MonadDOM m, HasCallStack) => AvcEncoderConfig -> m AvcBitstreamFormat+getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/avc_codec_registration.html#dom-avcencoderconfig-format AvcEncoderConfig.format specification>+getFormatUnchecked :: (MonadDOM m) => AvcEncoderConfig -> m AvcBitstreamFormat+getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self))))
+ src/GHCJS/DOM/JSFFI/Generated/BackgroundBlur.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediacapture-extensions (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.BackgroundBlur+       (js_newBackgroundBlur, newBackgroundBlur, BackgroundBlur(..), gTypeBackgroundBlur)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"enabled\": $1}); })"+        js_newBackgroundBlur :: Bool -> IO BackgroundBlur+-- | <https://w3c.github.io/mediacapture-extensions/#dom-backgroundblur BackgroundBlur specification>+newBackgroundBlur :: (MonadDOM m) => Bool -> m BackgroundBlur+newBackgroundBlur enabled = liftDOM ((js_newBackgroundBlur (enabled)))
src/GHCJS/DOM/JSFFI/Generated/BarProp.hs view
@@ -1,32 +1,23 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.BarProp-       (js_getVisible, getVisible, BarProp(..), gTypeBarProp) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+       (js_getVisible, getVisible, BarProp(..), gTypeBarProp)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return ($1[\"visible\"] ? 1 : 0); })"-        js_getVisible :: BarProp -> IO Bool --- | <https://developer.mozilla.org/en-US/docs/Web/API/BarProp.visible Mozilla BarProp.visible documentation> -getVisible :: (MonadIO m) => BarProp -> m Bool-getVisible self = liftIO (js_getVisible self)+foreign import javascript unsafe "(($1) => { return $1[\"visible\"]; })"+        js_getVisible :: BarProp -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/BarProp/visible MDN BarProp.visible documentation>+getVisible :: (MonadDOM m) => BarProp -> m Bool+getVisible self = liftDOM ((js_getVisible (self)))
+ src/GHCJS/DOM/JSFFI/Generated/BaseAudioContext.hs view
@@ -0,0 +1,247 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.BaseAudioContext+       (js_createAnalyser, js_createBiquadFilter, js_createBuffer, js_createBufferSource, js_createChannelMerger, js_createChannelSplitter, js_createConstantSource, js_createConvolver, js_createDelay, js_createDynamicsCompressor, js_createGain, js_createIIRFilter, js_createOscillator, js_createPanner, js_createPeriodicWave, js_createScriptProcessor, js_createStereoPanner, js_createWaveShaper, js_decodeAudioData, js_getDestination, js_getSampleRate, js_getCurrentTime, js_getListener, js_getState, js_getAudioWorklet, createAnalyser, createAnalyser_, createBiquadFilter, createBiquadFilter_, createBuffer, createBuffer_, createBufferSource, createBufferSource_, createChannelMerger, createChannelMerger_, createChannelSplitter, createChannelSplitter_, createConstantSource, createConstantSource_, createConvolver, createConvolver_, createDelay, createDelay_, createDynamicsCompressor, createDynamicsCompressor_, createGain, createGain_, createIIRFilter, createIIRFilter_, createOscillator, createOscillator_, createPanner, createPanner_, createPeriodicWave, createPeriodicWave_, createScriptProcessor, createScriptProcessor_, createStereoPanner, createStereoPanner_, createWaveShaper, createWaveShaper_, decodeAudioData, decodeAudioData_, getDestination, getSampleRate, getCurrentTime, getListener, getState, getAudioWorklet, statechange, BaseAudioContext(..), gTypeBaseAudioContext, IsBaseAudioContext, toBaseAudioContext)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"createAnalyser\"](); })"+        js_createAnalyser :: BaseAudioContext -> IO AnalyserNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createAnalyser MDN BaseAudioContext.createAnalyser documentation>+createAnalyser :: (MonadDOM m, IsBaseAudioContext self) => self -> m AnalyserNode+createAnalyser self = liftDOM ((js_createAnalyser ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createAnalyser MDN BaseAudioContext.createAnalyser documentation>+createAnalyser_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createAnalyser_ self = liftDOM (void ((js_createAnalyser ((Types.toBaseAudioContext self)))))++foreign import javascript safe "(($1) => { return $1[\"createBiquadFilter\"](); })"+        js_createBiquadFilter :: BaseAudioContext -> IO BiquadFilterNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBiquadFilter MDN BaseAudioContext.createBiquadFilter documentation>+createBiquadFilter :: (MonadDOM m, IsBaseAudioContext self) => self -> m BiquadFilterNode+createBiquadFilter self = liftDOM ((js_createBiquadFilter ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBiquadFilter MDN BaseAudioContext.createBiquadFilter documentation>+createBiquadFilter_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createBiquadFilter_ self = liftDOM (void ((js_createBiquadFilter ((Types.toBaseAudioContext self)))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createBuffer\"]($2, $3, $4); })"+        js_createBuffer :: BaseAudioContext -> Word -> Word -> Float -> IO AudioBuffer+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBuffer MDN BaseAudioContext.createBuffer documentation>+createBuffer :: (MonadDOM m, IsBaseAudioContext self) => self -> Word -> Word -> Float -> m AudioBuffer+createBuffer self numberOfChannels length sampleRate = liftDOM ((js_createBuffer ((Types.toBaseAudioContext self)) (numberOfChannels) (length) (sampleRate)))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBuffer MDN BaseAudioContext.createBuffer documentation>+createBuffer_ :: (MonadDOM m, IsBaseAudioContext self) => self -> Word -> Word -> Float -> m ()+createBuffer_ self numberOfChannels length sampleRate = liftDOM (void ((js_createBuffer ((Types.toBaseAudioContext self)) (numberOfChannels) (length) (sampleRate))))++foreign import javascript safe "(($1) => { return $1[\"createBufferSource\"](); })"+        js_createBufferSource :: BaseAudioContext -> IO AudioBufferSourceNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBufferSource MDN BaseAudioContext.createBufferSource documentation>+createBufferSource :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioBufferSourceNode+createBufferSource self = liftDOM ((js_createBufferSource ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBufferSource MDN BaseAudioContext.createBufferSource documentation>+createBufferSource_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createBufferSource_ self = liftDOM (void ((js_createBufferSource ((Types.toBaseAudioContext self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"createChannelMerger\"]($2); })"+        js_createChannelMerger :: BaseAudioContext -> JSVal -> IO ChannelMergerNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createChannelMerger MDN BaseAudioContext.createChannelMerger documentation>+createChannelMerger :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> m ChannelMergerNode+createChannelMerger self numberOfInputs = liftDOM (((P.maybe (P.return jsUndefined) toJSVal numberOfInputs) >>= \a2' -> js_createChannelMerger ((Types.toBaseAudioContext self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createChannelMerger MDN BaseAudioContext.createChannelMerger documentation>+createChannelMerger_ :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> m ()+createChannelMerger_ self numberOfInputs = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal numberOfInputs) >>= \a2' -> js_createChannelMerger ((Types.toBaseAudioContext self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"createChannelSplitter\"]($2); })"+        js_createChannelSplitter :: BaseAudioContext -> JSVal -> IO ChannelSplitterNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createChannelSplitter MDN BaseAudioContext.createChannelSplitter documentation>+createChannelSplitter :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> m ChannelSplitterNode+createChannelSplitter self numberOfOutputs = liftDOM (((P.maybe (P.return jsUndefined) toJSVal numberOfOutputs) >>= \a2' -> js_createChannelSplitter ((Types.toBaseAudioContext self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createChannelSplitter MDN BaseAudioContext.createChannelSplitter documentation>+createChannelSplitter_ :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> m ()+createChannelSplitter_ self numberOfOutputs = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal numberOfOutputs) >>= \a2' -> js_createChannelSplitter ((Types.toBaseAudioContext self)) a2')))++foreign import javascript safe "(($1) => { return $1[\"createConstantSource\"](); })"+        js_createConstantSource :: BaseAudioContext -> IO ConstantSourceNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createConstantSource MDN BaseAudioContext.createConstantSource documentation>+createConstantSource :: (MonadDOM m, IsBaseAudioContext self) => self -> m ConstantSourceNode+createConstantSource self = liftDOM ((js_createConstantSource ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createConstantSource MDN BaseAudioContext.createConstantSource documentation>+createConstantSource_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createConstantSource_ self = liftDOM (void ((js_createConstantSource ((Types.toBaseAudioContext self)))))++foreign import javascript safe "(($1) => { return $1[\"createConvolver\"](); })"+        js_createConvolver :: BaseAudioContext -> IO ConvolverNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createConvolver MDN BaseAudioContext.createConvolver documentation>+createConvolver :: (MonadDOM m, IsBaseAudioContext self) => self -> m ConvolverNode+createConvolver self = liftDOM ((js_createConvolver ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createConvolver MDN BaseAudioContext.createConvolver documentation>+createConvolver_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createConvolver_ self = liftDOM (void ((js_createConvolver ((Types.toBaseAudioContext self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"createDelay\"]($2); })"+        js_createDelay :: BaseAudioContext -> JSVal -> IO DelayNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createDelay MDN BaseAudioContext.createDelay documentation>+createDelay :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Double -> m DelayNode+createDelay self maxDelayTime = liftDOM (((P.maybe (P.return jsUndefined) toJSVal maxDelayTime) >>= \a2' -> js_createDelay ((Types.toBaseAudioContext self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createDelay MDN BaseAudioContext.createDelay documentation>+createDelay_ :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Double -> m ()+createDelay_ self maxDelayTime = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal maxDelayTime) >>= \a2' -> js_createDelay ((Types.toBaseAudioContext self)) a2')))++foreign import javascript safe "(($1) => { return $1[\"createDynamicsCompressor\"](); })"+        js_createDynamicsCompressor :: BaseAudioContext -> IO DynamicsCompressorNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createDynamicsCompressor MDN BaseAudioContext.createDynamicsCompressor documentation>+createDynamicsCompressor :: (MonadDOM m, IsBaseAudioContext self) => self -> m DynamicsCompressorNode+createDynamicsCompressor self = liftDOM ((js_createDynamicsCompressor ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createDynamicsCompressor MDN BaseAudioContext.createDynamicsCompressor documentation>+createDynamicsCompressor_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createDynamicsCompressor_ self = liftDOM (void ((js_createDynamicsCompressor ((Types.toBaseAudioContext self)))))++foreign import javascript safe "(($1) => { return $1[\"createGain\"](); })"+        js_createGain :: BaseAudioContext -> IO GainNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createGain MDN BaseAudioContext.createGain documentation>+createGain :: (MonadDOM m, IsBaseAudioContext self) => self -> m GainNode+createGain self = liftDOM ((js_createGain ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createGain MDN BaseAudioContext.createGain documentation>+createGain_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createGain_ self = liftDOM (void ((js_createGain ((Types.toBaseAudioContext self)))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"createIIRFilter\"]($2, $3); })"+        js_createIIRFilter :: BaseAudioContext -> JSVal -> JSVal -> IO IIRFilterNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createIIRFilter MDN BaseAudioContext.createIIRFilter documentation>+createIIRFilter :: (MonadDOM m, IsBaseAudioContext self) => self -> [Double] -> [Double] -> m IIRFilterNode+createIIRFilter self feedforward feedback = liftDOM (((toJSVal feedforward) >>= \a2' -> (toJSVal feedback) >>= \a3' -> js_createIIRFilter ((Types.toBaseAudioContext self)) a2' a3'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createIIRFilter MDN BaseAudioContext.createIIRFilter documentation>+createIIRFilter_ :: (MonadDOM m, IsBaseAudioContext self) => self -> [Double] -> [Double] -> m ()+createIIRFilter_ self feedforward feedback = liftDOM (void (((toJSVal feedforward) >>= \a2' -> (toJSVal feedback) >>= \a3' -> js_createIIRFilter ((Types.toBaseAudioContext self)) a2' a3')))++foreign import javascript safe "(($1) => { return $1[\"createOscillator\"](); })"+        js_createOscillator :: BaseAudioContext -> IO OscillatorNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createOscillator MDN BaseAudioContext.createOscillator documentation>+createOscillator :: (MonadDOM m, IsBaseAudioContext self) => self -> m OscillatorNode+createOscillator self = liftDOM ((js_createOscillator ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createOscillator MDN BaseAudioContext.createOscillator documentation>+createOscillator_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createOscillator_ self = liftDOM (void ((js_createOscillator ((Types.toBaseAudioContext self)))))++foreign import javascript safe "(($1) => { return $1[\"createPanner\"](); })"+        js_createPanner :: BaseAudioContext -> IO PannerNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createPanner MDN BaseAudioContext.createPanner documentation>+createPanner :: (MonadDOM m, IsBaseAudioContext self) => self -> m PannerNode+createPanner self = liftDOM ((js_createPanner ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createPanner MDN BaseAudioContext.createPanner documentation>+createPanner_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createPanner_ self = liftDOM (void ((js_createPanner ((Types.toBaseAudioContext self)))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createPeriodicWave\"]($2, $3, $4); })"+        js_createPeriodicWave :: BaseAudioContext -> JSVal -> JSVal -> JSVal -> IO PeriodicWave+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createPeriodicWave MDN BaseAudioContext.createPeriodicWave documentation>+createPeriodicWave :: (MonadDOM m, IsBaseAudioContext self, IsPeriodicWaveConstraints constraints) => self -> [Float] -> [Float] -> Maybe constraints -> m PeriodicWave+createPeriodicWave self real imag constraints = liftDOM (((toJSVal real) >>= \a2' -> (toJSVal imag) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal constraints) >>= \a4' -> js_createPeriodicWave ((Types.toBaseAudioContext self)) a2' a3' a4'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createPeriodicWave MDN BaseAudioContext.createPeriodicWave documentation>+createPeriodicWave_ :: (MonadDOM m, IsBaseAudioContext self, IsPeriodicWaveConstraints constraints) => self -> [Float] -> [Float] -> Maybe constraints -> m ()+createPeriodicWave_ self real imag constraints = liftDOM (void (((toJSVal real) >>= \a2' -> (toJSVal imag) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal constraints) >>= \a4' -> js_createPeriodicWave ((Types.toBaseAudioContext self)) a2' a3' a4')))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createScriptProcessor\"]($2, $3, $4); })"+        js_createScriptProcessor :: BaseAudioContext -> JSVal -> JSVal -> JSVal -> IO ScriptProcessorNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createScriptProcessor MDN BaseAudioContext.createScriptProcessor documentation>+createScriptProcessor :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> Maybe Word -> Maybe Word -> m ScriptProcessorNode+createScriptProcessor self bufferSize numberOfInputChannels numberOfOutputChannels = liftDOM (((P.maybe (P.return jsUndefined) toJSVal bufferSize) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal numberOfInputChannels) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal numberOfOutputChannels) >>= \a4' -> js_createScriptProcessor ((Types.toBaseAudioContext self)) a2' a3' a4'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createScriptProcessor MDN BaseAudioContext.createScriptProcessor documentation>+createScriptProcessor_ :: (MonadDOM m, IsBaseAudioContext self) => self -> Maybe Word -> Maybe Word -> Maybe Word -> m ()+createScriptProcessor_ self bufferSize numberOfInputChannels numberOfOutputChannels = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bufferSize) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal numberOfInputChannels) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal numberOfOutputChannels) >>= \a4' -> js_createScriptProcessor ((Types.toBaseAudioContext self)) a2' a3' a4')))++foreign import javascript safe "(($1) => { return $1[\"createStereoPanner\"](); })"+        js_createStereoPanner :: BaseAudioContext -> IO StereoPannerNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createStereoPanner MDN BaseAudioContext.createStereoPanner documentation>+createStereoPanner :: (MonadDOM m, IsBaseAudioContext self) => self -> m StereoPannerNode+createStereoPanner self = liftDOM ((js_createStereoPanner ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createStereoPanner MDN BaseAudioContext.createStereoPanner documentation>+createStereoPanner_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createStereoPanner_ self = liftDOM (void ((js_createStereoPanner ((Types.toBaseAudioContext self)))))++foreign import javascript safe "(($1) => { return $1[\"createWaveShaper\"](); })"+        js_createWaveShaper :: BaseAudioContext -> IO WaveShaperNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createWaveShaper MDN BaseAudioContext.createWaveShaper documentation>+createWaveShaper :: (MonadDOM m, IsBaseAudioContext self) => self -> m WaveShaperNode+createWaveShaper self = liftDOM ((js_createWaveShaper ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createWaveShaper MDN BaseAudioContext.createWaveShaper documentation>+createWaveShaper_ :: (MonadDOM m, IsBaseAudioContext self) => self -> m ()+createWaveShaper_ self = liftDOM (void ((js_createWaveShaper ((Types.toBaseAudioContext self)))))++foreign import javascript interruptible "(($1, $2, $3, $4, $c) => { return $1[\"decodeAudioData\"]($2, $3, $4).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_decodeAudioData :: BaseAudioContext -> ArrayBuffer -> JSVal -> JSVal -> IO (JSVal, AudioBuffer)+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/decodeAudioData MDN BaseAudioContext.decodeAudioData documentation>+decodeAudioData :: (MonadDOM m, IsBaseAudioContext self, IsArrayBuffer audioData) => self -> audioData -> Maybe DecodeSuccessCallback -> Maybe DecodeErrorCallback -> m AudioBuffer+decodeAudioData self audioData successCallback errorCallback = liftDOM ((((toJSVal successCallback) >>= \a3' -> (toJSVal errorCallback) >>= \a4' -> js_decodeAudioData ((Types.toBaseAudioContext self)) (Types.toArrayBuffer audioData) a3' a4') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/decodeAudioData MDN BaseAudioContext.decodeAudioData documentation>+decodeAudioData_ :: (MonadDOM m, IsBaseAudioContext self, IsArrayBuffer audioData) => self -> audioData -> Maybe DecodeSuccessCallback -> Maybe DecodeErrorCallback -> m ()+decodeAudioData_ self audioData successCallback errorCallback = liftDOM (void ((((toJSVal successCallback) >>= \a3' -> (toJSVal errorCallback) >>= \a4' -> js_decodeAudioData ((Types.toBaseAudioContext self)) (Types.toArrayBuffer audioData) a3' a4') >>= checkPromiseResult)))++foreign import javascript unsafe "(($1) => { return $1[\"destination\"]; })"+        js_getDestination :: BaseAudioContext -> IO AudioDestinationNode+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/destination MDN BaseAudioContext.destination documentation>+getDestination :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioDestinationNode+getDestination self = liftDOM ((js_getDestination ((Types.toBaseAudioContext self))))++foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"+        js_getSampleRate :: BaseAudioContext -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/sampleRate MDN BaseAudioContext.sampleRate documentation>+getSampleRate :: (MonadDOM m, IsBaseAudioContext self) => self -> m Float+getSampleRate self = liftDOM ((js_getSampleRate ((Types.toBaseAudioContext self))))++foreign import javascript unsafe "(($1) => { return $1[\"currentTime\"]; })"+        js_getCurrentTime :: BaseAudioContext -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/currentTime MDN BaseAudioContext.currentTime documentation>+getCurrentTime :: (MonadDOM m, IsBaseAudioContext self) => self -> m Double+getCurrentTime self = liftDOM ((js_getCurrentTime ((Types.toBaseAudioContext self))))++foreign import javascript unsafe "(($1) => { return $1[\"listener\"]; })"+        js_getListener :: BaseAudioContext -> IO AudioListener+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/listener MDN BaseAudioContext.listener documentation>+getListener :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioListener+getListener self = liftDOM ((js_getListener ((Types.toBaseAudioContext self))))++foreign import javascript unsafe "(($1) => { return $1[\"state\"]; })"+        js_getState :: BaseAudioContext -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/state MDN BaseAudioContext.state documentation>+getState :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioContextState+getState self = liftDOM (((js_getState ((Types.toBaseAudioContext self))) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"audioWorklet\"]; })"+        js_getAudioWorklet :: BaseAudioContext -> IO AudioWorklet+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/audioWorklet MDN BaseAudioContext.audioWorklet documentation>+getAudioWorklet :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioWorklet+getAudioWorklet self = liftDOM ((js_getAudioWorklet ((Types.toBaseAudioContext self))))++-- | <https://webaudio.github.io/web-audio-api/#dom-baseaudiocontext-onstatechange statechange event>+statechange :: (IsBaseAudioContext self, IsEventTarget self) => EventName self Event+statechange = unsafeEventName (toJSString "statechange")
− src/GHCJS/DOM/JSFFI/Generated/BasicCredential.hs
@@ -1,47 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.BasicCredential-       (js_getId, getId, js_getType, getType, BasicCredential(..),-        gTypeBasicCredential, IsBasicCredential, toBasicCredential)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" js_getId ::-        BasicCredential -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/BasicCredential.id Mozilla BasicCredential.id documentation> -getId ::-      (MonadIO m, IsBasicCredential self, FromJSString result) =>-        self -> m result-getId self-  = liftIO (fromJSString <$> (js_getId (toBasicCredential self)))- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::-        BasicCredential -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/BasicCredential.type Mozilla BasicCredential.type documentation> -getType ::-        (MonadIO m, IsBasicCredential self, FromJSString result) =>-          self -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (toBasicCredential self)))
− src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs
@@ -1,48 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent-       (js_newBeforeLoadEvent, newBeforeLoadEvent, js_getUrl, getUrl,-        BeforeLoadEvent(..), gTypeBeforeLoadEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"BeforeLoadEvent\"]($1,\n$2); })" js_newBeforeLoadEvent ::-        JSString -> Optional BeforeLoadEventInit -> IO BeforeLoadEvent---- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent Mozilla BeforeLoadEvent documentation> -newBeforeLoadEvent ::-                   (MonadIO m, ToJSString type') =>-                     type' -> Maybe BeforeLoadEventInit -> m BeforeLoadEvent-newBeforeLoadEvent type' eventInitDict-  = liftIO-      (js_newBeforeLoadEvent (toJSString type')-         (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })" js_getUrl ::-        BeforeLoadEvent -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent.url Mozilla BeforeLoadEvent.url documentation> -getUrl ::-       (MonadIO m, FromJSString result) => BeforeLoadEvent -> m result-getUrl self = liftIO (fromJSString <$> (js_getUrl self))
src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs view
@@ -1,45 +1,29 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent-       (js_setReturnValue, setReturnValue, js_getReturnValue,-        getReturnValue, BeforeUnloadEvent(..), gTypeBeforeUnloadEvent)+       (js_setReturnValue, js_getReturnValue, setReturnValue, getReturnValue, BeforeUnloadEvent(..), gTypeBeforeUnloadEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { $1[\"returnValue\"] = $2; })"++foreign import javascript safe "(($1, $2) => { $1[\"returnValue\"] = $2; })"         js_setReturnValue :: BeforeUnloadEvent -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/BeforeUnloadEvent/returnValue MDN BeforeUnloadEvent.returnValue documentation>+setReturnValue :: (MonadDOM m, ToJSString val) => BeforeUnloadEvent -> val -> m ()+setReturnValue self val = liftDOM (void ((js_setReturnValue (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> -setReturnValue ::-               (MonadIO m, ToJSString val) => BeforeUnloadEvent -> val -> m ()-setReturnValue self val-  = liftIO (js_setReturnValue self (toJSString val))-  foreign import javascript unsafe "(($1) => { return $1[\"returnValue\"]; })"         js_getReturnValue :: BeforeUnloadEvent -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> -getReturnValue ::-               (MonadIO m, FromJSString result) => BeforeUnloadEvent -> m result-getReturnValue self-  = liftIO (fromJSString <$> (js_getReturnValue self))+-- | <https://developer.mozilla.org/docs/Web/API/BeforeUnloadEvent/returnValue MDN BeforeUnloadEvent.returnValue documentation>+getReturnValue :: (MonadDOM m, FromJSString result) => BeforeUnloadEvent -> m result+getReturnValue self = liftDOM ((fromJSString <$> (js_getReturnValue (self))))
src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs view
@@ -1,93 +1,65 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.BiquadFilterNode-       (js_getFrequencyResponse, getFrequencyResponse, js_setType,-        setType, js_getType, getType, js_getFrequency, getFrequency,-        js_getDetune, getDetune, js_getQ, getQ, js_getGain, getGain,-        BiquadFilterNode(..), gTypeBiquadFilterNode)+       (js_newBiquadFilterNode, js_getFrequencyResponse, js_setType, js_getType, js_getFrequency, js_getDetune, js_getQ, js_getGain, newBiquadFilterNode, getFrequencyResponse, setType, getType, getFrequency, getDetune, getQ, getGain, BiquadFilterNode(..), gTypeBiquadFilterNode)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return $1[\"getFrequencyResponse\"]($2,\n$3, $4); })" js_getFrequencyResponse-        ::-        BiquadFilterNode ->-          Optional Float32Array ->-            Optional Float32Array -> Optional Float32Array -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.getFrequencyResponse Mozilla BiquadFilterNode.getFrequencyResponse documentation> -getFrequencyResponse ::-                     (MonadIO m, IsFloat32Array frequencyHz, IsFloat32Array magResponse,-                      IsFloat32Array phaseResponse) =>-                       BiquadFilterNode ->-                         Maybe frequencyHz ->-                           Maybe magResponse -> Maybe phaseResponse -> m ()-getFrequencyResponse self frequencyHz magResponse phaseResponse-  = liftIO-      (js_getFrequencyResponse self-         (maybeToOptional (fmap toFloat32Array frequencyHz))-         (maybeToOptional (fmap toFloat32Array magResponse))-         (maybeToOptional (fmap toFloat32Array phaseResponse)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"type\"] = $2; })" js_setType ::-        BiquadFilterNode -> JSVal -> IO ()+foreign import javascript safe "(($1, $2) => { return new globalThis[\"BiquadFilterNode\"]($1, $2); })"+        js_newBiquadFilterNode :: BaseAudioContext -> JSVal -> IO BiquadFilterNode+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/BiquadFilterNode MDN BiquadFilterNode. documentation>+newBiquadFilterNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe BiquadFilterOptions -> m BiquadFilterNode+newBiquadFilterNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newBiquadFilterNode (Types.toBaseAudioContext context) a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation> -setType ::-        (MonadIO m) => BiquadFilterNode -> BiquadFilterType -> m ()-setType self val = liftIO (js_setType self (pToJSVal val))- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::-        BiquadFilterNode -> IO JSVal+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"getFrequencyResponse\"]($2, $3, $4); })"+        js_getFrequencyResponse :: BiquadFilterNode -> Float32Array -> Float32Array -> Float32Array -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/getFrequencyResponse MDN BiquadFilterNode.getFrequencyResponse documentation>+getFrequencyResponse :: (MonadDOM m, IsFloat32Array frequencyHz, IsFloat32Array magResponse, IsFloat32Array phaseResponse) => BiquadFilterNode -> frequencyHz -> magResponse -> phaseResponse -> m ()+getFrequencyResponse self frequencyHz magResponse phaseResponse = liftDOM (void ((js_getFrequencyResponse (self) (Types.toFloat32Array frequencyHz) (Types.toFloat32Array magResponse) (Types.toFloat32Array phaseResponse)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation> -getType :: (MonadIO m) => BiquadFilterNode -> m BiquadFilterType-getType self = liftIO ((js_getType self) >>= fromJSValUnchecked)- +foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+        js_setType :: BiquadFilterNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/type MDN BiquadFilterNode.type documentation>+setType :: (MonadDOM m) => BiquadFilterNode -> BiquadFilterType -> m ()+setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: BiquadFilterNode -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/type MDN BiquadFilterNode.type documentation>+getType :: (MonadDOM m) => BiquadFilterNode -> m BiquadFilterType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))+ foreign import javascript unsafe "(($1) => { return $1[\"frequency\"]; })"         js_getFrequency :: BiquadFilterNode -> IO AudioParam---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation> -getFrequency :: (MonadIO m) => BiquadFilterNode -> m AudioParam-getFrequency self = liftIO (js_getFrequency self)- -foreign import javascript unsafe "(($1) => { return $1[\"detune\"]; })" js_getDetune ::-        BiquadFilterNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/frequency MDN BiquadFilterNode.frequency documentation>+getFrequency :: (MonadDOM m) => BiquadFilterNode -> m AudioParam+getFrequency self = liftDOM ((js_getFrequency (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation> -getDetune :: (MonadIO m) => BiquadFilterNode -> m AudioParam-getDetune self = liftIO (js_getDetune self)- -foreign import javascript unsafe "(($1) => { return $1[\"Q\"]; })" js_getQ ::-        BiquadFilterNode -> IO AudioParam+foreign import javascript unsafe "(($1) => { return $1[\"detune\"]; })"+        js_getDetune :: BiquadFilterNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/detune MDN BiquadFilterNode.detune documentation>+getDetune :: (MonadDOM m) => BiquadFilterNode -> m AudioParam+getDetune self = liftDOM ((js_getDetune (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation> -getQ :: (MonadIO m) => BiquadFilterNode -> m AudioParam-getQ self = liftIO (js_getQ self)- -foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })" js_getGain ::-        BiquadFilterNode -> IO AudioParam+foreign import javascript unsafe "(($1) => { return $1[\"Q\"]; })"+        js_getQ :: BiquadFilterNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/Q MDN BiquadFilterNode.Q documentation>+getQ :: (MonadDOM m) => BiquadFilterNode -> m AudioParam+getQ self = liftDOM ((js_getQ (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation> -getGain :: (MonadIO m) => BiquadFilterNode -> m AudioParam-getGain self = liftIO (js_getGain self)+foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })"+        js_getGain :: BiquadFilterNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/gain MDN BiquadFilterNode.gain documentation>+getGain :: (MonadDOM m) => BiquadFilterNode -> m AudioParam+getGain self = liftDOM ((js_getGain (self)))
+ src/GHCJS/DOM/JSFFI/Generated/BiquadFilterOptions.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.BiquadFilterOptions+       (js_newBiquadFilterOptions, js_setType, js_getType, js_setQ, js_getQ, js_setDetune, js_getDetune, js_setFrequency, js_getFrequency, js_setGain, js_getGain, newBiquadFilterOptions, setType, getType, getTypeUnsafe, getTypeUnchecked, setQ, getQ, getQUnsafe, getQUnchecked, setDetune, getDetune, getDetuneUnsafe, getDetuneUnchecked, setFrequency, getFrequency, getFrequencyUnsafe, getFrequencyUnchecked, setGain, getGain, getGainUnsafe, getGainUnchecked, BiquadFilterOptions(..), gTypeBiquadFilterOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newBiquadFilterOptions :: IO BiquadFilterOptions+-- | <https://webaudio.github.io/web-audio-api/#BiquadFilterOptions BiquadFilterOptions specification>+newBiquadFilterOptions :: (MonadDOM m) => m BiquadFilterOptions+newBiquadFilterOptions = liftDOM ((js_newBiquadFilterOptions))++foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+        js_setType :: BiquadFilterOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-type BiquadFilterOptions.type specification>+setType :: (MonadDOM m) => BiquadFilterOptions -> BiquadFilterType -> m ()+setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: BiquadFilterOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-type BiquadFilterOptions.type specification>+getType :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe BiquadFilterType)+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-type BiquadFilterOptions.type specification>+getTypeUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m BiquadFilterType+getTypeUnsafe self = liftDOM ((((js_getType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-type BiquadFilterOptions.type specification>+getTypeUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m BiquadFilterType+getTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getType (self))))++foreign import javascript safe "(($1, $2) => { $1[\"Q\"] = $2; })"+        js_setQ :: BiquadFilterOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-q BiquadFilterOptions.Q specification>+setQ :: (MonadDOM m) => BiquadFilterOptions -> Float -> m ()+setQ self val = liftDOM (void ((js_setQ (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"Q\"]; })"+        js_getQ :: BiquadFilterOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-q BiquadFilterOptions.Q specification>+getQ :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float)+getQ self = liftDOM (((js_getQ (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-q BiquadFilterOptions.Q specification>+getQUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float+getQUnsafe self = liftDOM ((((js_getQ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-q BiquadFilterOptions.Q specification>+getQUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m Float+getQUnchecked self = liftDOM ((pFromJSVal <$> (js_getQ (self))))++foreign import javascript safe "(($1, $2) => { $1[\"detune\"] = $2; })"+        js_setDetune :: BiquadFilterOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-detune BiquadFilterOptions.detune specification>+setDetune :: (MonadDOM m) => BiquadFilterOptions -> Float -> m ()+setDetune self val = liftDOM (void ((js_setDetune (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"detune\"]; })"+        js_getDetune :: BiquadFilterOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-detune BiquadFilterOptions.detune specification>+getDetune :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float)+getDetune self = liftDOM (((js_getDetune (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-detune BiquadFilterOptions.detune specification>+getDetuneUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float+getDetuneUnsafe self = liftDOM ((((js_getDetune (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-detune BiquadFilterOptions.detune specification>+getDetuneUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m Float+getDetuneUnchecked self = liftDOM ((pFromJSVal <$> (js_getDetune (self))))++foreign import javascript safe "(($1, $2) => { $1[\"frequency\"] = $2; })"+        js_setFrequency :: BiquadFilterOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-frequency BiquadFilterOptions.frequency specification>+setFrequency :: (MonadDOM m) => BiquadFilterOptions -> Float -> m ()+setFrequency self val = liftDOM (void ((js_setFrequency (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"frequency\"]; })"+        js_getFrequency :: BiquadFilterOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-frequency BiquadFilterOptions.frequency specification>+getFrequency :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float)+getFrequency self = liftDOM (((js_getFrequency (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-frequency BiquadFilterOptions.frequency specification>+getFrequencyUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float+getFrequencyUnsafe self = liftDOM ((((js_getFrequency (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-frequency BiquadFilterOptions.frequency specification>+getFrequencyUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m Float+getFrequencyUnchecked self = liftDOM ((pFromJSVal <$> (js_getFrequency (self))))++foreign import javascript safe "(($1, $2) => { $1[\"gain\"] = $2; })"+        js_setGain :: BiquadFilterOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-gain BiquadFilterOptions.gain specification>+setGain :: (MonadDOM m) => BiquadFilterOptions -> Float -> m ()+setGain self val = liftDOM (void ((js_setGain (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })"+        js_getGain :: BiquadFilterOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-gain BiquadFilterOptions.gain specification>+getGain :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float)+getGain self = liftDOM (((js_getGain (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-gain BiquadFilterOptions.gain specification>+getGainUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float+getGainUnsafe self = liftDOM ((((js_getGain (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-gain BiquadFilterOptions.gain specification>+getGainUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m Float+getGainUnchecked self = liftDOM ((pFromJSVal <$> (js_getGain (self))))
src/GHCJS/DOM/JSFFI/Generated/Blob.hs view
@@ -1,80 +1,85 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from FileAPI (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Blob-       (js_newBlob, newBlob, js_slice, slice, slice_, js_getSize, getSize,-        js_getType, getType, Blob(..), gTypeBlob, IsBlob, toBlob)+       (js_newBlob, js_arrayBuffer, js_bytes, js_slice, js_stream, js_text, js_getSize, js_getType, newBlob, arrayBuffer, arrayBuffer_, bytes, bytes_, slice, slice_, stream, stream_, text, text_, getSize, getType, Blob(..), gTypeBlob, IsBlob, toBlob)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return new window[\"Blob\"]($1, $2); })"-        js_newBlob :: JSVal -> Optional BlobPropertyBag -> IO Blob --- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation> -newBlob ::-        (MonadIO m, IsBlobPart blobParts, IsBlobPropertyBag options) =>-          [blobParts] -> Maybe options -> m Blob-newBlob blobParts options-  = liftIO-      (toJSVal blobParts >>= \ blobParts' -> js_newBlob blobParts'-         (maybeToOptional (fmap toBlobPropertyBag options)))- -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"slice\"]($2, $3, $4); })"-        js_slice ::-        Blob ->-          Optional Double -> Optional Double -> Optional JSString -> IO Blob+foreign import javascript safe "(($1, $2) => { return new globalThis[\"Blob\"]($1, $2); })"+        js_newBlob :: JSVal -> JSVal -> IO Blob+-- | <https://developer.mozilla.org/docs/Web/API/Blob/Blob MDN Blob. documentation>+newBlob :: (MonadDOM m, IsBlobPart blobParts, IsBlobPropertyBag options) => Maybe [blobParts] -> Maybe options -> m Blob+newBlob blobParts options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal blobParts) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newBlob a1' a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> -slice ::-      (MonadIO m, IsBlob self, ToJSString contentType) =>-        self -> Maybe Int64 -> Maybe Int64 -> Maybe contentType -> m Blob-slice self start end contentType-  = liftIO-      (js_slice (toBlob self) (maybeToOptional (fmap fromIntegral start))-         (maybeToOptional (fmap fromIntegral end))-         (toOptionalJSString contentType))+foreign import javascript interruptible "(($1, $c) => { return $1[\"arrayBuffer\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_arrayBuffer :: Blob -> IO (JSVal, ArrayBuffer)+-- | <https://developer.mozilla.org/docs/Web/API/Blob/arrayBuffer MDN Blob.arrayBuffer documentation>+arrayBuffer :: (MonadDOM m, IsBlob self) => self -> m ArrayBuffer+arrayBuffer self = liftDOM (((js_arrayBuffer ((Types.toBlob self))) >>= checkPromiseResult)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> -slice_ ::-       (MonadIO m, IsBlob self, ToJSString contentType) =>-         self -> Maybe Int64 -> Maybe Int64 -> Maybe contentType -> m ()-slice_ self start end contentType-  = liftIO-      (void-         (js_slice (toBlob self) (maybeToOptional (fmap fromIntegral start))-            (maybeToOptional (fmap fromIntegral end))-            (toOptionalJSString contentType)))- -foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })" js_getSize ::-        Blob -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/Blob/arrayBuffer MDN Blob.arrayBuffer documentation>+arrayBuffer_ :: (MonadDOM m, IsBlob self) => self -> m ()+arrayBuffer_ self = liftDOM (void (((js_arrayBuffer ((Types.toBlob self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.size Mozilla Blob.size documentation> -getSize :: (MonadIO m, IsBlob self) => self -> m Word64-getSize self = liftIO (round <$> (js_getSize (toBlob self)))- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::-        Blob -> IO JSString+foreign import javascript interruptible "(($1, $c) => { return $1[\"bytes\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_bytes :: Blob -> IO (JSVal, Uint8Array)+-- | <https://developer.mozilla.org/docs/Web/API/Blob/bytes MDN Blob.bytes documentation>+bytes :: (MonadDOM m, IsBlob self) => self -> m Uint8Array+bytes self = liftDOM (((js_bytes ((Types.toBlob self))) >>= checkPromiseResult)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.type Mozilla Blob.type documentation> -getType ::-        (MonadIO m, IsBlob self, FromJSString result) => self -> m result-getType self = liftIO (fromJSString <$> (js_getType (toBlob self)))+-- | <https://developer.mozilla.org/docs/Web/API/Blob/bytes MDN Blob.bytes documentation>+bytes_ :: (MonadDOM m, IsBlob self) => self -> m ()+bytes_ self = liftDOM (void (((js_bytes ((Types.toBlob self))) >>= checkPromiseResult)))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"slice\"]($2, $3, $4); })"+        js_slice :: Blob -> JSVal -> JSVal -> (Optional JSString) -> IO Blob+-- | <https://developer.mozilla.org/docs/Web/API/Blob/slice MDN Blob.slice documentation>+slice :: (MonadDOM m, IsBlob self, ToJSString contentType) => self -> Maybe Int53 -> Maybe Int53 -> Maybe contentType -> m Blob+slice self start end contentType = liftDOM (((P.maybe (P.return jsUndefined) toJSVal start) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal end) >>= \a3' -> js_slice ((Types.toBlob self)) a2' a3' (toOptionalJSString contentType)))++-- | <https://developer.mozilla.org/docs/Web/API/Blob/slice MDN Blob.slice documentation>+slice_ :: (MonadDOM m, IsBlob self, ToJSString contentType) => self -> Maybe Int53 -> Maybe Int53 -> Maybe contentType -> m ()+slice_ self start end contentType = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal start) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal end) >>= \a3' -> js_slice ((Types.toBlob self)) a2' a3' (toOptionalJSString contentType))))++foreign import javascript safe "(($1) => { return $1[\"stream\"](); })"+        js_stream :: Blob -> IO ReadableStream+-- | <https://developer.mozilla.org/docs/Web/API/Blob/stream MDN Blob.stream documentation>+stream :: (MonadDOM m, IsBlob self) => self -> m ReadableStream+stream self = liftDOM ((js_stream ((Types.toBlob self))))++-- | <https://developer.mozilla.org/docs/Web/API/Blob/stream MDN Blob.stream documentation>+stream_ :: (MonadDOM m, IsBlob self) => self -> m ()+stream_ self = liftDOM (void ((js_stream ((Types.toBlob self)))))++foreign import javascript interruptible "(($1, $c) => { return $1[\"text\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_text :: Blob -> IO (JSVal, JSString)+-- | <https://developer.mozilla.org/docs/Web/API/Blob/text MDN Blob.text documentation>+text :: (MonadDOM m, IsBlob self, FromJSString result) => self -> m result+text self = liftDOM ((fromJSString <$> ((js_text ((Types.toBlob self))) >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/Blob/text MDN Blob.text documentation>+text_ :: (MonadDOM m, IsBlob self) => self -> m ()+text_ self = liftDOM (void (((js_text ((Types.toBlob self))) >>= checkPromiseResult)))++foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })"+        js_getSize :: Blob -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Blob/size MDN Blob.size documentation>+getSize :: (MonadDOM m, IsBlob self) => self -> m Word53+getSize self = liftDOM (((js_getSize ((Types.toBlob self))) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: Blob -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Blob/type MDN Blob.type documentation>+getType :: (MonadDOM m, IsBlob self, FromJSString result) => self -> m result+getType self = liftDOM ((fromJSString <$> (js_getType ((Types.toBlob self)))))
src/GHCJS/DOM/JSFFI/Generated/BlobCallback.hs view
@@ -1,54 +1,29 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.BlobCallback-       (newBlobCallback, newBlobCallbackSync, newBlobCallbackAsync,-        BlobCallback)+       (newBlobCallback, newBlobCallbackSync, newBlobCallbackAsync, BlobCallback)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1) import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums --- | <https://developer.mozilla.org/en-US/docs/Web/API/BlobCallback Mozilla BlobCallback documentation> -newBlobCallback ::-                (MonadIO m) => (Maybe Blob -> IO ()) -> m BlobCallback-newBlobCallback callback-  = liftIO-      (BlobCallback <$>-         syncCallback1 ThrowWouldBlock-           (\ blob -> fromJSValUnchecked blob >>= \ blob' -> callback blob'))+newBlobCallback :: (MonadDOM m) => (Maybe Blob -> IO ()) -> m BlobCallback+newBlobCallback callback = liftDOM ((BlobCallback . coerce) <$> syncCallback1 ContinueAsync (\ blob -> do+          blob' <- fromJSValUnchecked blob+          callback blob')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BlobCallback Mozilla BlobCallback documentation> -newBlobCallbackSync ::-                    (MonadIO m) => (Maybe Blob -> IO ()) -> m BlobCallback-newBlobCallbackSync callback-  = liftIO-      (BlobCallback <$>-         syncCallback1 ContinueAsync-           (\ blob -> fromJSValUnchecked blob >>= \ blob' -> callback blob'))+newBlobCallbackSync :: (MonadDOM m) => (Maybe Blob -> IO ()) -> m BlobCallback+newBlobCallbackSync callback = liftDOM ((BlobCallback . coerce) <$> syncCallback1 ThrowWouldBlock (\ blob -> do+          blob' <- fromJSValUnchecked blob+          callback blob')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BlobCallback Mozilla BlobCallback documentation> -newBlobCallbackAsync ::-                     (MonadIO m) => (Maybe Blob -> IO ()) -> m BlobCallback-newBlobCallbackAsync callback-  = liftIO-      (BlobCallback <$>-         asyncCallback1-           (\ blob -> fromJSValUnchecked blob >>= \ blob' -> callback blob'))+newBlobCallbackAsync :: (MonadDOM m) => (Maybe Blob -> IO ()) -> m BlobCallback+newBlobCallbackAsync callback = liftDOM ((BlobCallback . coerce) <$> asyncCallback1 (\ blob -> do+          blob' <- fromJSValUnchecked blob+          callback blob'))
+ src/GHCJS/DOM/JSFFI/Generated/BlobEvent.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediastream-recording (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.BlobEvent+       (js_newBlobEvent, js_getData, js_getTimecode, newBlobEvent, getData, getTimecode, BlobEvent(..), gTypeBlobEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"BlobEvent\"]($1, $2); })"+        js_newBlobEvent :: JSString -> BlobEventInit -> IO BlobEvent+-- | <https://developer.mozilla.org/docs/Web/API/BlobEvent/BlobEvent MDN BlobEvent. documentation>+newBlobEvent :: (MonadDOM m, ToJSString type') => type' -> BlobEventInit -> m BlobEvent+newBlobEvent type' eventInitDict = liftDOM ((js_newBlobEvent (toJSString type') (eventInitDict)))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: BlobEvent -> IO Blob+-- | <https://developer.mozilla.org/docs/Web/API/BlobEvent/data MDN BlobEvent.data documentation>+getData :: (MonadDOM m) => BlobEvent -> m Blob+getData self = liftDOM ((js_getData (self)))++foreign import javascript unsafe "(($1) => { return $1[\"timecode\"]; })"+        js_getTimecode :: BlobEvent -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/BlobEvent/timecode MDN BlobEvent.timecode documentation>+getTimecode :: (MonadDOM m) => BlobEvent -> m Double+getTimecode self = liftDOM ((js_getTimecode (self)))
+ src/GHCJS/DOM/JSFFI/Generated/BlobEventInit.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediastream-recording (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.BlobEventInit+       (js_newBlobEventInit, js_setData, js_getData, js_setTimecode, js_getTimecode, newBlobEventInit, setData, getData, setTimecode, getTimecode, getTimecodeUnsafe, getTimecodeUnchecked, BlobEventInit(..), gTypeBlobEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"data\": $1}); })"+        js_newBlobEventInit :: Blob -> IO BlobEventInit+-- | <https://w3c.github.io/mediacapture-record/#dictdef-blobeventinit BlobEventInit specification>+newBlobEventInit :: (MonadDOM m, IsBlob data') => data' -> m BlobEventInit+newBlobEventInit data' = liftDOM ((js_newBlobEventInit (Types.toBlob data')))++foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+        js_setData :: BlobEventInit -> Blob -> IO ()+-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-data BlobEventInit.data specification>+setData :: (MonadDOM m, IsBlob val) => BlobEventInit -> val -> m ()+setData self val = liftDOM (void ((js_setData (self) (Types.toBlob val))))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: BlobEventInit -> IO Blob+-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-data BlobEventInit.data specification>+getData :: (MonadDOM m) => BlobEventInit -> m Blob+getData self = liftDOM ((js_getData (self)))++foreign import javascript safe "(($1, $2) => { $1[\"timecode\"] = $2; })"+        js_setTimecode :: BlobEventInit -> Double -> IO ()+-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-timecode BlobEventInit.timecode specification>+setTimecode :: (MonadDOM m) => BlobEventInit -> Double -> m ()+setTimecode self val = liftDOM (void ((js_setTimecode (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"timecode\"]; })"+        js_getTimecode :: BlobEventInit -> IO JSVal+-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-timecode BlobEventInit.timecode specification>+getTimecode :: (MonadDOM m) => BlobEventInit -> m (Maybe Double)+getTimecode self = liftDOM (((js_getTimecode (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-timecode BlobEventInit.timecode specification>+getTimecodeUnsafe :: (MonadDOM m, HasCallStack) => BlobEventInit -> m Double+getTimecodeUnsafe self = liftDOM ((((js_getTimecode (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-timecode BlobEventInit.timecode specification>+getTimecodeUnchecked :: (MonadDOM m) => BlobEventInit -> m Double+getTimecodeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimecode (self))))
+ src/GHCJS/DOM/JSFFI/Generated/BlobPropertyBag.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from FileAPI (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.BlobPropertyBag+       (js_newBlobPropertyBag, js_setType, js_getType, js_setEndings, js_getEndings, newBlobPropertyBag, setType, getType, getTypeUnsafe, getTypeUnchecked, setEndings, getEndings, getEndingsUnsafe, getEndingsUnchecked, BlobPropertyBag(..), gTypeBlobPropertyBag, IsBlobPropertyBag, toBlobPropertyBag)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newBlobPropertyBag :: IO BlobPropertyBag+-- | <https://w3c.github.io/FileAPI/#dfn-BlobPropertyBag BlobPropertyBag specification>+newBlobPropertyBag :: (MonadDOM m) => m BlobPropertyBag+newBlobPropertyBag = liftDOM ((js_newBlobPropertyBag))++foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+        js_setType :: BlobPropertyBag -> JSString -> IO ()+-- | <https://w3c.github.io/FileAPI/#dfn-BPtype BlobPropertyBag.type specification>+setType :: (MonadDOM m, IsBlobPropertyBag self, ToJSString val) => self -> val -> m ()+setType self val = liftDOM (void ((js_setType ((Types.toBlobPropertyBag self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: BlobPropertyBag -> IO JSVal+-- | <https://w3c.github.io/FileAPI/#dfn-BPtype BlobPropertyBag.type specification>+getType :: (MonadDOM m, IsBlobPropertyBag self, FromJSString result) => self -> m (Maybe result)+getType self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getType ((Types.toBlobPropertyBag self)))))++-- | <https://w3c.github.io/FileAPI/#dfn-BPtype BlobPropertyBag.type specification>+getTypeUnsafe :: (MonadDOM m, IsBlobPropertyBag self, HasCallStack, FromJSString result) => self -> m result+getTypeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getType ((Types.toBlobPropertyBag self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/FileAPI/#dfn-BPtype BlobPropertyBag.type specification>+getTypeUnchecked :: (MonadDOM m, IsBlobPropertyBag self, FromJSString result) => self -> m result+getTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getType ((Types.toBlobPropertyBag self)))))++foreign import javascript safe "(($1, $2) => { $1[\"endings\"] = $2; })"+        js_setEndings :: BlobPropertyBag -> JSVal -> IO ()+-- | <https://w3c.github.io/FileAPI/#dom-blobpropertybag-endings BlobPropertyBag.endings specification>+setEndings :: (MonadDOM m, IsBlobPropertyBag self) => self -> EndingType -> m ()+setEndings self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setEndings ((Types.toBlobPropertyBag self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"endings\"]; })"+        js_getEndings :: BlobPropertyBag -> IO JSVal+-- | <https://w3c.github.io/FileAPI/#dom-blobpropertybag-endings BlobPropertyBag.endings specification>+getEndings :: (MonadDOM m, IsBlobPropertyBag self) => self -> m (Maybe EndingType)+getEndings self = liftDOM (((js_getEndings ((Types.toBlobPropertyBag self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/FileAPI/#dom-blobpropertybag-endings BlobPropertyBag.endings specification>+getEndingsUnsafe :: (MonadDOM m, IsBlobPropertyBag self, HasCallStack) => self -> m EndingType+getEndingsUnsafe self = liftDOM ((((js_getEndings ((Types.toBlobPropertyBag self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/FileAPI/#dom-blobpropertybag-endings BlobPropertyBag.endings specification>+getEndingsUnchecked :: (MonadDOM m, IsBlobPropertyBag self) => self -> m EndingType+getEndingsUnchecked self = liftDOM ((pFromJSVal <$> (js_getEndings ((Types.toBlobPropertyBag self)))))
src/GHCJS/DOM/JSFFI/Generated/Body.hs view
@@ -1,87 +1,97 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from fetch (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Body-       (js_arrayBuffer, arrayBuffer, arrayBuffer_, js_blob, blob, blob_,-        js_json, json, json_, js_text, text, text_, js_getBodyUsed,-        getBodyUsed, Body(..), gTypeBody, IsBody, toBody)+       (js_arrayBuffer, js_blob, js_bytes, js_formData, js_json, js_text, js_getBody, js_getBodyUsed, arrayBuffer, arrayBuffer_, blob, blob_, bytes, bytes_, formData, formData_, json, json_, text, text_, getBody, getBodyUnsafe, getBodyUnchecked, getBodyUsed, Body(..), gTypeBody, IsBody, toBody)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript interruptible-        "(($1, $c) => { return $1[\"arrayBuffer\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"++foreign import javascript interruptible "(($1, $c) => { return $1[\"arrayBuffer\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"         js_arrayBuffer :: Body -> IO (JSVal, ArrayBuffer)+-- | <https://developer.mozilla.org/docs/Web/API/Request/arrayBuffer MDN Body.arrayBuffer documentation>+arrayBuffer :: (MonadDOM m, IsBody self) => self -> m ArrayBuffer+arrayBuffer self = liftDOM (((js_arrayBuffer ((Types.toBody self))) >>= checkPromiseResult)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.arrayBuffer Mozilla Body.arrayBuffer documentation> -arrayBuffer :: (MonadIO m, IsBody self) => self -> m ArrayBuffer-arrayBuffer self-  = liftIO ((js_arrayBuffer (toBody self)) >>= checkPromiseResult)+-- | <https://developer.mozilla.org/docs/Web/API/Request/arrayBuffer MDN Body.arrayBuffer documentation>+arrayBuffer_ :: (MonadDOM m, IsBody self) => self -> m ()+arrayBuffer_ self = liftDOM (void (((js_arrayBuffer ((Types.toBody self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.arrayBuffer Mozilla Body.arrayBuffer documentation> -arrayBuffer_ :: (MonadIO m, IsBody self) => self -> m ()-arrayBuffer_ self = liftIO (void (js_arrayBuffer (toBody self)))- -foreign import javascript interruptible-        "(($1, $c) => { return $1[\"blob\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+foreign import javascript interruptible "(($1, $c) => { return $1[\"blob\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"         js_blob :: Body -> IO (JSVal, Blob)+-- | <https://developer.mozilla.org/docs/Web/API/Request/blob MDN Body.blob documentation>+blob :: (MonadDOM m, IsBody self) => self -> m Blob+blob self = liftDOM (((js_blob ((Types.toBody self))) >>= checkPromiseResult)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.blob Mozilla Body.blob documentation> -blob :: (MonadIO m, IsBody self) => self -> m Blob-blob self = liftIO ((js_blob (toBody self)) >>= checkPromiseResult)+-- | <https://developer.mozilla.org/docs/Web/API/Request/blob MDN Body.blob documentation>+blob_ :: (MonadDOM m, IsBody self) => self -> m ()+blob_ self = liftDOM (void (((js_blob ((Types.toBody self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.blob Mozilla Body.blob documentation> -blob_ :: (MonadIO m, IsBody self) => self -> m ()-blob_ self = liftIO (void (js_blob (toBody self)))- -foreign import javascript interruptible-        "(($1, $c) => { return $1[\"json\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+foreign import javascript interruptible "(($1, $c) => { return $1[\"bytes\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_bytes :: Body -> IO (JSVal, Uint8Array)+-- | <https://developer.mozilla.org/docs/Web/API/Request/bytes MDN Body.bytes documentation>+bytes :: (MonadDOM m, IsBody self) => self -> m Uint8Array+bytes self = liftDOM (((js_bytes ((Types.toBody self))) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Request/bytes MDN Body.bytes documentation>+bytes_ :: (MonadDOM m, IsBody self) => self -> m ()+bytes_ self = liftDOM (void (((js_bytes ((Types.toBody self))) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $c) => { return $1[\"formData\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_formData :: Body -> IO (JSVal, FormData)+-- | <https://developer.mozilla.org/docs/Web/API/Request/formData MDN Body.formData documentation>+formData :: (MonadDOM m, IsBody self) => self -> m FormData+formData self = liftDOM (((js_formData ((Types.toBody self))) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Request/formData MDN Body.formData documentation>+formData_ :: (MonadDOM m, IsBody self) => self -> m ()+formData_ self = liftDOM (void (((js_formData ((Types.toBody self))) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $c) => { return $1[\"json\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"         js_json :: Body -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/Request/json MDN Body.json documentation>+json :: (MonadDOM m, IsBody self) => self -> m JSVal+json self = liftDOM (((js_json ((Types.toBody self))) >>= checkPromiseResult)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.json Mozilla Body.json documentation> -json :: (MonadIO m, IsBody self) => self -> m JSVal-json self = liftIO ((js_json (toBody self)) >>= checkPromiseResult)+-- | <https://developer.mozilla.org/docs/Web/API/Request/json MDN Body.json documentation>+json_ :: (MonadDOM m, IsBody self) => self -> m ()+json_ self = liftDOM (void (((js_json ((Types.toBody self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.json Mozilla Body.json documentation> -json_ :: (MonadIO m, IsBody self) => self -> m ()-json_ self = liftIO (void (js_json (toBody self)))- -foreign import javascript interruptible-        "(($1, $c) => { return $1[\"text\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+foreign import javascript interruptible "(($1, $c) => { return $1[\"text\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"         js_text :: Body -> IO (JSVal, JSString)+-- | <https://developer.mozilla.org/docs/Web/API/Request/text MDN Body.text documentation>+text :: (MonadDOM m, IsBody self, FromJSString result) => self -> m result+text self = liftDOM ((fromJSString <$> ((js_text ((Types.toBody self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.text Mozilla Body.text documentation> -text ::-     (MonadIO m, IsBody self, FromJSString result) => self -> m result-text self-  = liftIO-      (fromJSString <$> ((js_text (toBody self)) >>= checkPromiseResult))+-- | <https://developer.mozilla.org/docs/Web/API/Request/text MDN Body.text documentation>+text_ :: (MonadDOM m, IsBody self) => self -> m ()+text_ self = liftDOM (void (((js_text ((Types.toBody self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.text Mozilla Body.text documentation> -text_ :: (MonadIO m, IsBody self) => self -> m ()-text_ self = liftIO (void (js_text (toBody self)))- -foreign import javascript unsafe "(($1) => { return ($1[\"bodyUsed\"] ? 1 : 0); })"-        js_getBodyUsed :: Body -> IO Bool+foreign import javascript unsafe "(($1) => { return $1[\"body\"]; })"+        js_getBody :: Body -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Request/body MDN Body.body documentation>+getBody :: (MonadDOM m, IsBody self) => self -> m (Maybe ReadableStream)+getBody self = liftDOM (((js_getBody ((Types.toBody self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.bodyUsed Mozilla Body.bodyUsed documentation> -getBodyUsed :: (MonadIO m, IsBody self) => self -> m Bool-getBodyUsed self = liftIO (js_getBodyUsed (toBody self))+-- | <https://developer.mozilla.org/docs/Web/API/Request/body MDN Body.body documentation>+getBodyUnsafe :: (MonadDOM m, IsBody self, HasCallStack) => self -> m ReadableStream+getBodyUnsafe self = liftDOM ((((js_getBody ((Types.toBody self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Request/body MDN Body.body documentation>+getBodyUnchecked :: (MonadDOM m, IsBody self) => self -> m ReadableStream+getBodyUnchecked self = liftDOM ((pFromJSVal <$> (js_getBody ((Types.toBody self)))))++foreign import javascript unsafe "(($1) => { return $1[\"bodyUsed\"]; })"+        js_getBodyUsed :: Body -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Request/bodyUsed MDN Body.bodyUsed documentation>+getBodyUsed :: (MonadDOM m, IsBody self) => self -> m Bool+getBodyUsed self = liftDOM ((js_getBodyUsed ((Types.toBody self))))
+ src/GHCJS/DOM/JSFFI/Generated/BroadcastChannel.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.BroadcastChannel+       (js_newBroadcastChannel, js_close, js_postMessage, js_getName, newBroadcastChannel, close, postMessage, getName, message, messageerror, BroadcastChannel(..), gTypeBroadcastChannel)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"BroadcastChannel\"]($1); })"+        js_newBroadcastChannel :: JSString -> IO BroadcastChannel+-- | <https://developer.mozilla.org/docs/Web/API/BroadcastChannel/BroadcastChannel MDN BroadcastChannel. documentation>+newBroadcastChannel :: (MonadDOM m, ToJSString name) => name -> m BroadcastChannel+newBroadcastChannel name = liftDOM ((js_newBroadcastChannel (toJSString name)))++foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+        js_close :: BroadcastChannel -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/BroadcastChannel/close MDN BroadcastChannel.close documentation>+close :: (MonadDOM m) => BroadcastChannel -> m ()+close self = liftDOM (void ((js_close (self))))++foreign import javascript safe "(($1, $2) => { return $1[\"postMessage\"]($2); })"+        js_postMessage :: BroadcastChannel -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/BroadcastChannel/postMessage MDN BroadcastChannel.postMessage documentation>+postMessage :: (MonadDOM m) => BroadcastChannel -> JSVal -> m ()+postMessage self message = liftDOM (void ((js_postMessage (self) (message))))++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: BroadcastChannel -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/BroadcastChannel/name MDN BroadcastChannel.name documentation>+getName :: (MonadDOM m, FromJSString result) => BroadcastChannel -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++-- | <https://html.spec.whatwg.org/multipage/web-messaging.html#handler-broadcastchannel-onmessage message event>+message :: EventName BroadcastChannel MessageEvent+message = unsafeEventNameAsync (toJSString "message")++-- | <https://html.spec.whatwg.org/multipage/web-messaging.html#handler-broadcastchannel-onmessageerror messageerror event>+messageerror :: EventName BroadcastChannel MessageEvent+messageerror = unsafeEventName (toJSString "messageerror")
+ src/GHCJS/DOM/JSFFI/Generated/BrowserBoundSignature.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from secure-payment-confirmation (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.BrowserBoundSignature+       (js_newBrowserBoundSignature, js_setSignature, js_getSignature, newBrowserBoundSignature, setSignature, getSignature, BrowserBoundSignature(..), gTypeBrowserBoundSignature)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"signature\": $1}); })"+        js_newBrowserBoundSignature :: ArrayBuffer -> IO BrowserBoundSignature+-- | <https://w3c.github.io/secure-payment-confirmation/#dictdef-browserboundsignature BrowserBoundSignature specification>+newBrowserBoundSignature :: (MonadDOM m, IsArrayBuffer signature) => signature -> m BrowserBoundSignature+newBrowserBoundSignature signature = liftDOM ((js_newBrowserBoundSignature (Types.toArrayBuffer signature)))++foreign import javascript safe "(($1, $2) => { $1[\"signature\"] = $2; })"+        js_setSignature :: BrowserBoundSignature -> ArrayBuffer -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-browserboundsignature-signature BrowserBoundSignature.signature specification>+setSignature :: (MonadDOM m, IsArrayBuffer val) => BrowserBoundSignature -> val -> m ()+setSignature self val = liftDOM (void ((js_setSignature (self) (Types.toArrayBuffer val))))++foreign import javascript unsafe "(($1) => { return $1[\"signature\"]; })"+        js_getSignature :: BrowserBoundSignature -> IO ArrayBuffer+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-browserboundsignature-signature BrowserBoundSignature.signature specification>+getSignature :: (MonadDOM m) => BrowserBoundSignature -> m ArrayBuffer+getSignature self = liftDOM ((js_getSignature (self)))
src/GHCJS/DOM/JSFFI/Generated/ByteLengthQueuingStrategy.hs view
@@ -1,49 +1,35 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from streams (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.ByteLengthQueuingStrategy-       (js_newByteLengthQueuingStrategy, newByteLengthQueuingStrategy,-        js_size, size, size_, ByteLengthQueuingStrategy(..),-        gTypeByteLengthQueuingStrategy)+       (js_newByteLengthQueuingStrategy, js_getHighWaterMark, js_getSize, newByteLengthQueuingStrategy, getHighWaterMark, getSize, ByteLengthQueuingStrategy(..), gTypeByteLengthQueuingStrategy)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(() => { return new window[\"ByteLengthQueuingStrategy\"](); })"-        js_newByteLengthQueuingStrategy :: IO ByteLengthQueuingStrategy --- | <https://developer.mozilla.org/en-US/docs/Web/API/ByteLengthQueuingStrategy Mozilla ByteLengthQueuingStrategy documentation> -newByteLengthQueuingStrategy ::-                             (MonadIO m) => m ByteLengthQueuingStrategy-newByteLengthQueuingStrategy-  = liftIO (js_newByteLengthQueuingStrategy)- -foreign import javascript unsafe "(($1) => { return $1[\"size\"](); })" js_size ::-        ByteLengthQueuingStrategy -> IO Double+foreign import javascript safe "(($1) => { return new globalThis[\"ByteLengthQueuingStrategy\"]($1); })"+        js_newByteLengthQueuingStrategy :: QueuingStrategyInit -> IO ByteLengthQueuingStrategy+-- | <https://developer.mozilla.org/docs/Web/API/ByteLengthQueuingStrategy/ByteLengthQueuingStrategy MDN ByteLengthQueuingStrategy. documentation>+newByteLengthQueuingStrategy :: (MonadDOM m) => QueuingStrategyInit -> m ByteLengthQueuingStrategy+newByteLengthQueuingStrategy init = liftDOM ((js_newByteLengthQueuingStrategy (init))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ByteLengthQueuingStrategy.size Mozilla ByteLengthQueuingStrategy.size documentation> -size :: (MonadIO m) => ByteLengthQueuingStrategy -> m Double-size self = liftIO (js_size self)+foreign import javascript unsafe "(($1) => { return $1[\"highWaterMark\"]; })"+        js_getHighWaterMark :: ByteLengthQueuingStrategy -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/ByteLengthQueuingStrategy/highWaterMark MDN ByteLengthQueuingStrategy.highWaterMark documentation>+getHighWaterMark :: (MonadDOM m) => ByteLengthQueuingStrategy -> m Double+getHighWaterMark self = liftDOM ((js_getHighWaterMark (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ByteLengthQueuingStrategy.size Mozilla ByteLengthQueuingStrategy.size documentation> -size_ :: (MonadIO m) => ByteLengthQueuingStrategy -> m ()-size_ self = liftIO (void (js_size self))+foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })"+        js_getSize :: ByteLengthQueuingStrategy -> IO Function+-- | <https://developer.mozilla.org/docs/Web/API/ByteLengthQueuingStrategy/size MDN ByteLengthQueuingStrategy.size documentation>+getSize :: (MonadDOM m) => ByteLengthQueuingStrategy -> m Function+getSize self = liftDOM ((js_getSize (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CDATASection.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CDATASection+       (CDATASection(..), gTypeCDATASection)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
src/GHCJS/DOM/JSFFI/Generated/CSS.hs view
@@ -1,76 +1,689 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSS-       (js_supports2, supports2, supports2_, js_supports, supports,-        supports_, js_escape, escape, escape_, CSS(..), gTypeCSS)+       (js_hz, js_q, js_cap, js_ch, js_cm, js_cqb, js_cqh, js_cqi, js_cqmax, js_cqmin, js_cqw, js_deg, js_dpcm, js_dpi, js_dppx, js_dvb, js_dvh, js_dvi, js_dvmax, js_dvmin, js_dvw, js_em, js_escape, js_ex, js_fr, js_grad, js_ic, js_in', js_kHz, js_lh, js_lvb, js_lvh, js_lvi, js_lvmax, js_lvmin, js_lvw, js_mm, js_ms, js_number, js_pc, js_percent, js_pt, js_px, js_rad, js_rcap, js_rch, js_registerProperty, js_rem, js_rex, js_ric, js_rlh, js_s, js_supports2, js_supports, js_svb, js_svh, js_svi, js_svmax, js_svmin, js_svw, js_turn, js_vb, js_vh, js_vi, js_vmax, js_vmin, js_vw, js_getHighlights, hz, hz_, q, q_, cap, cap_, ch, ch_, cm, cm_, cqb, cqb_, cqh, cqh_, cqi, cqi_, cqmax, cqmax_, cqmin, cqmin_, cqw, cqw_, deg, deg_, dpcm, dpcm_, dpi, dpi_, dppx, dppx_, dvb, dvb_, dvh, dvh_, dvi, dvi_, dvmax, dvmax_, dvmin, dvmin_, dvw, dvw_, em, em_, escape, escape_, ex, ex_, fr, fr_, grad, grad_, ic, ic_, in', in'_, kHz, kHz_, lh, lh_, lvb, lvb_, lvh, lvh_, lvi, lvi_, lvmax, lvmax_, lvmin, lvmin_, lvw, lvw_, mm, mm_, ms, ms_, number, number_, pc, pc_, percent, percent_, pt, pt_, px, px_, rad, rad_, rcap, rcap_, rch, rch_, registerProperty, rem, rem_, rex, rex_, ric, ric_, rlh, rlh_, s, s_, supports2, supports2_, supports, supports_, svb, svb_, svh, svh_, svi, svi_, svmax, svmax_, svmin, svmin_, svw, svw_, turn, turn_, vb, vb_, vh, vh_, vi, vi_, vmax, vmax_, vmin, vmin_, vw, vw_, getHighlights)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return (window[\"CSS\"][\"supports\"]($1,\n$2) ? 1 : 0); })" js_supports2 ::-        JSString -> JSString -> IO Bool --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> -supports2 ::-          (MonadIO m, ToJSString property, ToJSString value) =>-            property -> value -> m Bool-supports2 property value-  = liftIO (js_supports2 (toJSString property) (toJSString value))+foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"Hz\"]($1); })"+        js_hz :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.Hz documentation>+hz :: (MonadDOM m) => Double -> m CSSUnitValue+hz value = liftDOM ((js_hz (value))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> -supports2_ ::-           (MonadIO m, ToJSString property, ToJSString value) =>-             property -> value -> m ()-supports2_ property value-  = liftIO-      (void (js_supports2 (toJSString property) (toJSString value)))- -foreign import javascript unsafe-        "(($1) => { return (window[\"CSS\"][\"supports\"]($1) ? 1 : 0); })" js_supports ::-        JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.Hz documentation>+hz_ :: (MonadDOM m) => Double -> m ()+hz_ value = liftDOM (void ((js_hz (value)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> -supports ::-         (MonadIO m, ToJSString conditionText) => conditionText -> m Bool-supports conditionText-  = liftIO (js_supports (toJSString conditionText))+foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"Q\"]($1); })"+        js_q :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.Q documentation>+q :: (MonadDOM m) => Double -> m CSSUnitValue+q value = liftDOM ((js_q (value))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> -supports_ ::-          (MonadIO m, ToJSString conditionText) => conditionText -> m ()-supports_ conditionText-  = liftIO (void (js_supports (toJSString conditionText)))- -foreign import javascript unsafe "(($1) => { return window[\"CSS\"][\"escape\"]($1); })"+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.Q documentation>+q_ :: (MonadDOM m) => Double -> m ()+q_ value = liftDOM (void ((js_q (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cap\"]($1); })"+        js_cap :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cap documentation>+cap :: (MonadDOM m) => Double -> m CSSUnitValue+cap value = liftDOM ((js_cap (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cap documentation>+cap_ :: (MonadDOM m) => Double -> m ()+cap_ value = liftDOM (void ((js_cap (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"ch\"]($1); })"+        js_ch :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ch documentation>+ch :: (MonadDOM m) => Double -> m CSSUnitValue+ch value = liftDOM ((js_ch (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ch documentation>+ch_ :: (MonadDOM m) => Double -> m ()+ch_ value = liftDOM (void ((js_ch (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cm\"]($1); })"+        js_cm :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cm documentation>+cm :: (MonadDOM m) => Double -> m CSSUnitValue+cm value = liftDOM ((js_cm (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cm documentation>+cm_ :: (MonadDOM m) => Double -> m ()+cm_ value = liftDOM (void ((js_cm (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqb\"]($1); })"+        js_cqb :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqb documentation>+cqb :: (MonadDOM m) => Double -> m CSSUnitValue+cqb value = liftDOM ((js_cqb (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqb documentation>+cqb_ :: (MonadDOM m) => Double -> m ()+cqb_ value = liftDOM (void ((js_cqb (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqh\"]($1); })"+        js_cqh :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqh documentation>+cqh :: (MonadDOM m) => Double -> m CSSUnitValue+cqh value = liftDOM ((js_cqh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqh documentation>+cqh_ :: (MonadDOM m) => Double -> m ()+cqh_ value = liftDOM (void ((js_cqh (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqi\"]($1); })"+        js_cqi :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqi documentation>+cqi :: (MonadDOM m) => Double -> m CSSUnitValue+cqi value = liftDOM ((js_cqi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqi documentation>+cqi_ :: (MonadDOM m) => Double -> m ()+cqi_ value = liftDOM (void ((js_cqi (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqmax\"]($1); })"+        js_cqmax :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqmax documentation>+cqmax :: (MonadDOM m) => Double -> m CSSUnitValue+cqmax value = liftDOM ((js_cqmax (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqmax documentation>+cqmax_ :: (MonadDOM m) => Double -> m ()+cqmax_ value = liftDOM (void ((js_cqmax (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqmin\"]($1); })"+        js_cqmin :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqmin documentation>+cqmin :: (MonadDOM m) => Double -> m CSSUnitValue+cqmin value = liftDOM ((js_cqmin (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqmin documentation>+cqmin_ :: (MonadDOM m) => Double -> m ()+cqmin_ value = liftDOM (void ((js_cqmin (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"cqw\"]($1); })"+        js_cqw :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqw documentation>+cqw :: (MonadDOM m) => Double -> m CSSUnitValue+cqw value = liftDOM ((js_cqw (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqw documentation>+cqw_ :: (MonadDOM m) => Double -> m ()+cqw_ value = liftDOM (void ((js_cqw (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"deg\"]($1); })"+        js_deg :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.deg documentation>+deg :: (MonadDOM m) => Double -> m CSSUnitValue+deg value = liftDOM ((js_deg (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.deg documentation>+deg_ :: (MonadDOM m) => Double -> m ()+deg_ value = liftDOM (void ((js_deg (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dpcm\"]($1); })"+        js_dpcm :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dpcm documentation>+dpcm :: (MonadDOM m) => Double -> m CSSUnitValue+dpcm value = liftDOM ((js_dpcm (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dpcm documentation>+dpcm_ :: (MonadDOM m) => Double -> m ()+dpcm_ value = liftDOM (void ((js_dpcm (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dpi\"]($1); })"+        js_dpi :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dpi documentation>+dpi :: (MonadDOM m) => Double -> m CSSUnitValue+dpi value = liftDOM ((js_dpi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dpi documentation>+dpi_ :: (MonadDOM m) => Double -> m ()+dpi_ value = liftDOM (void ((js_dpi (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dppx\"]($1); })"+        js_dppx :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dppx documentation>+dppx :: (MonadDOM m) => Double -> m CSSUnitValue+dppx value = liftDOM ((js_dppx (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dppx documentation>+dppx_ :: (MonadDOM m) => Double -> m ()+dppx_ value = liftDOM (void ((js_dppx (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvb\"]($1); })"+        js_dvb :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvb documentation>+dvb :: (MonadDOM m) => Double -> m CSSUnitValue+dvb value = liftDOM ((js_dvb (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvb documentation>+dvb_ :: (MonadDOM m) => Double -> m ()+dvb_ value = liftDOM (void ((js_dvb (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvh\"]($1); })"+        js_dvh :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvh documentation>+dvh :: (MonadDOM m) => Double -> m CSSUnitValue+dvh value = liftDOM ((js_dvh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvh documentation>+dvh_ :: (MonadDOM m) => Double -> m ()+dvh_ value = liftDOM (void ((js_dvh (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvi\"]($1); })"+        js_dvi :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvi documentation>+dvi :: (MonadDOM m) => Double -> m CSSUnitValue+dvi value = liftDOM ((js_dvi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvi documentation>+dvi_ :: (MonadDOM m) => Double -> m ()+dvi_ value = liftDOM (void ((js_dvi (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvmax\"]($1); })"+        js_dvmax :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvmax documentation>+dvmax :: (MonadDOM m) => Double -> m CSSUnitValue+dvmax value = liftDOM ((js_dvmax (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvmax documentation>+dvmax_ :: (MonadDOM m) => Double -> m ()+dvmax_ value = liftDOM (void ((js_dvmax (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvmin\"]($1); })"+        js_dvmin :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvmin documentation>+dvmin :: (MonadDOM m) => Double -> m CSSUnitValue+dvmin value = liftDOM ((js_dvmin (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvmin documentation>+dvmin_ :: (MonadDOM m) => Double -> m ()+dvmin_ value = liftDOM (void ((js_dvmin (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"dvw\"]($1); })"+        js_dvw :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvw documentation>+dvw :: (MonadDOM m) => Double -> m CSSUnitValue+dvw value = liftDOM ((js_dvw (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvw documentation>+dvw_ :: (MonadDOM m) => Double -> m ()+dvw_ value = liftDOM (void ((js_dvw (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"em\"]($1); })"+        js_em :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.em documentation>+em :: (MonadDOM m) => Double -> m CSSUnitValue+em value = liftDOM ((js_em (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.em documentation>+em_ :: (MonadDOM m) => Double -> m ()+em_ value = liftDOM (void ((js_em (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"escape\"]($1); })"         js_escape :: JSString -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSS/escape_static MDN CSS.escape documentation>+escape :: (MonadDOM m, ToJSString ident, FromJSString result) => ident -> m result+escape ident = liftDOM ((fromJSString <$> (js_escape (toJSString ident)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.escape Mozilla CSS.escape documentation> -escape ::-       (MonadIO m, ToJSString ident, FromJSString result) =>-         ident -> m result-escape ident-  = liftIO (fromJSString <$> (js_escape (toJSString ident)))+-- | <https://developer.mozilla.org/docs/Web/API/CSS/escape_static MDN CSS.escape documentation>+escape_ :: (MonadDOM m, ToJSString ident) => ident -> m ()+escape_ ident = liftDOM (void ((js_escape (toJSString ident)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.escape Mozilla CSS.escape documentation> -escape_ :: (MonadIO m, ToJSString ident) => ident -> m ()-escape_ ident = liftIO (void (js_escape (toJSString ident)))+foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"ex\"]($1); })"+        js_ex :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ex documentation>+ex :: (MonadDOM m) => Double -> m CSSUnitValue+ex value = liftDOM ((js_ex (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ex documentation>+ex_ :: (MonadDOM m) => Double -> m ()+ex_ value = liftDOM (void ((js_ex (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"fr\"]($1); })"+        js_fr :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.fr documentation>+fr :: (MonadDOM m) => Double -> m CSSUnitValue+fr value = liftDOM ((js_fr (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.fr documentation>+fr_ :: (MonadDOM m) => Double -> m ()+fr_ value = liftDOM (void ((js_fr (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"grad\"]($1); })"+        js_grad :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.grad documentation>+grad :: (MonadDOM m) => Double -> m CSSUnitValue+grad value = liftDOM ((js_grad (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.grad documentation>+grad_ :: (MonadDOM m) => Double -> m ()+grad_ value = liftDOM (void ((js_grad (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"ic\"]($1); })"+        js_ic :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ic documentation>+ic :: (MonadDOM m) => Double -> m CSSUnitValue+ic value = liftDOM ((js_ic (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ic documentation>+ic_ :: (MonadDOM m) => Double -> m ()+ic_ value = liftDOM (void ((js_ic (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"in\"]($1); })"+        js_in' :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.in documentation>+in' :: (MonadDOM m) => Double -> m CSSUnitValue+in' value = liftDOM ((js_in' (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.in documentation>+in'_ :: (MonadDOM m) => Double -> m ()+in'_ value = liftDOM (void ((js_in' (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"kHz\"]($1); })"+        js_kHz :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.kHz documentation>+kHz :: (MonadDOM m) => Double -> m CSSUnitValue+kHz value = liftDOM ((js_kHz (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.kHz documentation>+kHz_ :: (MonadDOM m) => Double -> m ()+kHz_ value = liftDOM (void ((js_kHz (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lh\"]($1); })"+        js_lh :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lh documentation>+lh :: (MonadDOM m) => Double -> m CSSUnitValue+lh value = liftDOM ((js_lh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lh documentation>+lh_ :: (MonadDOM m) => Double -> m ()+lh_ value = liftDOM (void ((js_lh (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvb\"]($1); })"+        js_lvb :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvb documentation>+lvb :: (MonadDOM m) => Double -> m CSSUnitValue+lvb value = liftDOM ((js_lvb (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvb documentation>+lvb_ :: (MonadDOM m) => Double -> m ()+lvb_ value = liftDOM (void ((js_lvb (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvh\"]($1); })"+        js_lvh :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvh documentation>+lvh :: (MonadDOM m) => Double -> m CSSUnitValue+lvh value = liftDOM ((js_lvh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvh documentation>+lvh_ :: (MonadDOM m) => Double -> m ()+lvh_ value = liftDOM (void ((js_lvh (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvi\"]($1); })"+        js_lvi :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvi documentation>+lvi :: (MonadDOM m) => Double -> m CSSUnitValue+lvi value = liftDOM ((js_lvi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvi documentation>+lvi_ :: (MonadDOM m) => Double -> m ()+lvi_ value = liftDOM (void ((js_lvi (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvmax\"]($1); })"+        js_lvmax :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvmax documentation>+lvmax :: (MonadDOM m) => Double -> m CSSUnitValue+lvmax value = liftDOM ((js_lvmax (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvmax documentation>+lvmax_ :: (MonadDOM m) => Double -> m ()+lvmax_ value = liftDOM (void ((js_lvmax (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvmin\"]($1); })"+        js_lvmin :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvmin documentation>+lvmin :: (MonadDOM m) => Double -> m CSSUnitValue+lvmin value = liftDOM ((js_lvmin (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvmin documentation>+lvmin_ :: (MonadDOM m) => Double -> m ()+lvmin_ value = liftDOM (void ((js_lvmin (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"lvw\"]($1); })"+        js_lvw :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvw documentation>+lvw :: (MonadDOM m) => Double -> m CSSUnitValue+lvw value = liftDOM ((js_lvw (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvw documentation>+lvw_ :: (MonadDOM m) => Double -> m ()+lvw_ value = liftDOM (void ((js_lvw (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"mm\"]($1); })"+        js_mm :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.mm documentation>+mm :: (MonadDOM m) => Double -> m CSSUnitValue+mm value = liftDOM ((js_mm (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.mm documentation>+mm_ :: (MonadDOM m) => Double -> m ()+mm_ value = liftDOM (void ((js_mm (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"ms\"]($1); })"+        js_ms :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ms documentation>+ms :: (MonadDOM m) => Double -> m CSSUnitValue+ms value = liftDOM ((js_ms (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ms documentation>+ms_ :: (MonadDOM m) => Double -> m ()+ms_ value = liftDOM (void ((js_ms (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"number\"]($1); })"+        js_number :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.number documentation>+number :: (MonadDOM m) => Double -> m CSSUnitValue+number value = liftDOM ((js_number (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.number documentation>+number_ :: (MonadDOM m) => Double -> m ()+number_ value = liftDOM (void ((js_number (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"pc\"]($1); })"+        js_pc :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.pc documentation>+pc :: (MonadDOM m) => Double -> m CSSUnitValue+pc value = liftDOM ((js_pc (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.pc documentation>+pc_ :: (MonadDOM m) => Double -> m ()+pc_ value = liftDOM (void ((js_pc (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"percent\"]($1); })"+        js_percent :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.percent documentation>+percent :: (MonadDOM m) => Double -> m CSSUnitValue+percent value = liftDOM ((js_percent (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.percent documentation>+percent_ :: (MonadDOM m) => Double -> m ()+percent_ value = liftDOM (void ((js_percent (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"pt\"]($1); })"+        js_pt :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.pt documentation>+pt :: (MonadDOM m) => Double -> m CSSUnitValue+pt value = liftDOM ((js_pt (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.pt documentation>+pt_ :: (MonadDOM m) => Double -> m ()+pt_ value = liftDOM (void ((js_pt (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"px\"]($1); })"+        js_px :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.px documentation>+px :: (MonadDOM m) => Double -> m CSSUnitValue+px value = liftDOM ((js_px (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.px documentation>+px_ :: (MonadDOM m) => Double -> m ()+px_ value = liftDOM (void ((js_px (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rad\"]($1); })"+        js_rad :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rad documentation>+rad :: (MonadDOM m) => Double -> m CSSUnitValue+rad value = liftDOM ((js_rad (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rad documentation>+rad_ :: (MonadDOM m) => Double -> m ()+rad_ value = liftDOM (void ((js_rad (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rcap\"]($1); })"+        js_rcap :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rcap documentation>+rcap :: (MonadDOM m) => Double -> m CSSUnitValue+rcap value = liftDOM ((js_rcap (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rcap documentation>+rcap_ :: (MonadDOM m) => Double -> m ()+rcap_ value = liftDOM (void ((js_rcap (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rch\"]($1); })"+        js_rch :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rch documentation>+rch :: (MonadDOM m) => Double -> m CSSUnitValue+rch value = liftDOM ((js_rch (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rch documentation>+rch_ :: (MonadDOM m) => Double -> m ()+rch_ value = liftDOM (void ((js_rch (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"registerProperty\"]($1); })"+        js_registerProperty :: PropertyDefinition -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSS/registerProperty_static MDN CSS.registerProperty documentation>+registerProperty :: (MonadDOM m) => PropertyDefinition -> m ()+registerProperty definition = liftDOM (void ((js_registerProperty (definition))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rem\"]($1); })"+        js_rem :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rem documentation>+rem :: (MonadDOM m) => Double -> m CSSUnitValue+rem value = liftDOM ((js_rem (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rem documentation>+rem_ :: (MonadDOM m) => Double -> m ()+rem_ value = liftDOM (void ((js_rem (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rex\"]($1); })"+        js_rex :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rex documentation>+rex :: (MonadDOM m) => Double -> m CSSUnitValue+rex value = liftDOM ((js_rex (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rex documentation>+rex_ :: (MonadDOM m) => Double -> m ()+rex_ value = liftDOM (void ((js_rex (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"ric\"]($1); })"+        js_ric :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ric documentation>+ric :: (MonadDOM m) => Double -> m CSSUnitValue+ric value = liftDOM ((js_ric (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ric documentation>+ric_ :: (MonadDOM m) => Double -> m ()+ric_ value = liftDOM (void ((js_ric (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"rlh\"]($1); })"+        js_rlh :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rlh documentation>+rlh :: (MonadDOM m) => Double -> m CSSUnitValue+rlh value = liftDOM ((js_rlh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rlh documentation>+rlh_ :: (MonadDOM m) => Double -> m ()+rlh_ value = liftDOM (void ((js_rlh (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"s\"]($1); })"+        js_s :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.s documentation>+s :: (MonadDOM m) => Double -> m CSSUnitValue+s value = liftDOM ((js_s (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.s documentation>+s_ :: (MonadDOM m) => Double -> m ()+s_ value = liftDOM (void ((js_s (value))))++foreign import javascript safe "(($1, $2) => { return globalThis[\"CSS\"][\"supports\"]($1, $2); })"+        js_supports2 :: JSString -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CSS/supports_static MDN CSS.supports documentation>+supports2 :: (MonadDOM m, ToJSString property, ToJSString value) => property -> value -> m Bool+supports2 property value = liftDOM ((js_supports2 (toJSString property) (toJSString value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/supports_static MDN CSS.supports documentation>+supports2_ :: (MonadDOM m, ToJSString property, ToJSString value) => property -> value -> m ()+supports2_ property value = liftDOM (void ((js_supports2 (toJSString property) (toJSString value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"supports\"]($1); })"+        js_supports :: JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CSS/supports_static MDN CSS.supports documentation>+supports :: (MonadDOM m, ToJSString conditionText) => conditionText -> m Bool+supports conditionText = liftDOM ((js_supports (toJSString conditionText)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/supports_static MDN CSS.supports documentation>+supports_ :: (MonadDOM m, ToJSString conditionText) => conditionText -> m ()+supports_ conditionText = liftDOM (void ((js_supports (toJSString conditionText))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svb\"]($1); })"+        js_svb :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svb documentation>+svb :: (MonadDOM m) => Double -> m CSSUnitValue+svb value = liftDOM ((js_svb (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svb documentation>+svb_ :: (MonadDOM m) => Double -> m ()+svb_ value = liftDOM (void ((js_svb (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svh\"]($1); })"+        js_svh :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svh documentation>+svh :: (MonadDOM m) => Double -> m CSSUnitValue+svh value = liftDOM ((js_svh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svh documentation>+svh_ :: (MonadDOM m) => Double -> m ()+svh_ value = liftDOM (void ((js_svh (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svi\"]($1); })"+        js_svi :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svi documentation>+svi :: (MonadDOM m) => Double -> m CSSUnitValue+svi value = liftDOM ((js_svi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svi documentation>+svi_ :: (MonadDOM m) => Double -> m ()+svi_ value = liftDOM (void ((js_svi (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svmax\"]($1); })"+        js_svmax :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svmax documentation>+svmax :: (MonadDOM m) => Double -> m CSSUnitValue+svmax value = liftDOM ((js_svmax (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svmax documentation>+svmax_ :: (MonadDOM m) => Double -> m ()+svmax_ value = liftDOM (void ((js_svmax (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svmin\"]($1); })"+        js_svmin :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svmin documentation>+svmin :: (MonadDOM m) => Double -> m CSSUnitValue+svmin value = liftDOM ((js_svmin (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svmin documentation>+svmin_ :: (MonadDOM m) => Double -> m ()+svmin_ value = liftDOM (void ((js_svmin (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"svw\"]($1); })"+        js_svw :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svw documentation>+svw :: (MonadDOM m) => Double -> m CSSUnitValue+svw value = liftDOM ((js_svw (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svw documentation>+svw_ :: (MonadDOM m) => Double -> m ()+svw_ value = liftDOM (void ((js_svw (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"turn\"]($1); })"+        js_turn :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.turn documentation>+turn :: (MonadDOM m) => Double -> m CSSUnitValue+turn value = liftDOM ((js_turn (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.turn documentation>+turn_ :: (MonadDOM m) => Double -> m ()+turn_ value = liftDOM (void ((js_turn (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vb\"]($1); })"+        js_vb :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vb documentation>+vb :: (MonadDOM m) => Double -> m CSSUnitValue+vb value = liftDOM ((js_vb (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vb documentation>+vb_ :: (MonadDOM m) => Double -> m ()+vb_ value = liftDOM (void ((js_vb (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vh\"]($1); })"+        js_vh :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vh documentation>+vh :: (MonadDOM m) => Double -> m CSSUnitValue+vh value = liftDOM ((js_vh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vh documentation>+vh_ :: (MonadDOM m) => Double -> m ()+vh_ value = liftDOM (void ((js_vh (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vi\"]($1); })"+        js_vi :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vi documentation>+vi :: (MonadDOM m) => Double -> m CSSUnitValue+vi value = liftDOM ((js_vi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vi documentation>+vi_ :: (MonadDOM m) => Double -> m ()+vi_ value = liftDOM (void ((js_vi (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vmax\"]($1); })"+        js_vmax :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vmax documentation>+vmax :: (MonadDOM m) => Double -> m CSSUnitValue+vmax value = liftDOM ((js_vmax (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vmax documentation>+vmax_ :: (MonadDOM m) => Double -> m ()+vmax_ value = liftDOM (void ((js_vmax (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vmin\"]($1); })"+        js_vmin :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vmin documentation>+vmin :: (MonadDOM m) => Double -> m CSSUnitValue+vmin value = liftDOM ((js_vmin (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vmin documentation>+vmin_ :: (MonadDOM m) => Double -> m ()+vmin_ value = liftDOM (void ((js_vmin (value))))++foreign import javascript safe "(($1) => { return globalThis[\"CSS\"][\"vw\"]($1); })"+        js_vw :: Double -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vw documentation>+vw :: (MonadDOM m) => Double -> m CSSUnitValue+vw value = liftDOM ((js_vw (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vw documentation>+vw_ :: (MonadDOM m) => Double -> m ()+vw_ value = liftDOM (void ((js_vw (value))))++foreign import javascript unsafe "(() => { return globalThis[\"CSS\"][\"highlights\"]; })"+        js_getHighlights :: IO HighlightRegistry+-- | <https://developer.mozilla.org/docs/Web/API/CSS/highlights_static MDN CSS.highlights documentation>+getHighlights :: (MonadDOM m) => m HighlightRegistry+getHighlights = liftDOM ((js_getHighlights))
+ src/GHCJS/DOM/JSFFI/Generated/CSSAnimation.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-animations-2 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSAnimation+       (js_getAnimationName, getAnimationName, CSSAnimation(..), gTypeCSSAnimation)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"animationName\"]; })"+        js_getAnimationName :: CSSAnimation -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSAnimation/animationName MDN CSSAnimation.animationName documentation>+getAnimationName :: (MonadDOM m, FromJSString result) => CSSAnimation -> m result+getAnimationName self = liftDOM ((fromJSString <$> (js_getAnimationName (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSConditionRule.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-conditional-3 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSConditionRule+       (js_getConditionText, getConditionText, CSSConditionRule(..), gTypeCSSConditionRule, IsCSSConditionRule, toCSSConditionRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"conditionText\"]; })"+        js_getConditionText :: CSSConditionRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSConditionRule/conditionText MDN CSSConditionRule.conditionText documentation>+getConditionText :: (MonadDOM m, IsCSSConditionRule self, FromJSString result) => self -> m result+getConditionText self = liftDOM ((fromJSString <$> (js_getConditionText ((Types.toCSSConditionRule self)))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSContainerCondition.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-conditional-5 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSContainerCondition+       (js_newCSSContainerCondition, js_setName, js_getName, js_setQuery, js_getQuery, newCSSContainerCondition, setName, getName, setQuery, getQuery, CSSContainerCondition(..), gTypeCSSContainerCondition)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return ({\"name\": $1, \"query\": $2}); })"+        js_newCSSContainerCondition :: JSString -> JSString -> IO CSSContainerCondition+-- | <https://drafts.csswg.org/css-conditional-5/#dictdef-csscontainercondition CSSContainerCondition specification>+newCSSContainerCondition :: (MonadDOM m, ToJSString name, ToJSString query) => name -> query -> m CSSContainerCondition+newCSSContainerCondition name query = liftDOM ((js_newCSSContainerCondition (toJSString name) (toJSString query)))++foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+        js_setName :: CSSContainerCondition -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-conditional-5/#dom-csscontainercondition-name CSSContainerCondition.name specification>+setName :: (MonadDOM m, ToJSString val) => CSSContainerCondition -> val -> m ()+setName self val = liftDOM (void ((js_setName (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CSSContainerCondition -> IO JSString+-- | <https://drafts.csswg.org/css-conditional-5/#dom-csscontainercondition-name CSSContainerCondition.name specification>+getName :: (MonadDOM m, FromJSString result) => CSSContainerCondition -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++foreign import javascript safe "(($1, $2) => { $1[\"query\"] = $2; })"+        js_setQuery :: CSSContainerCondition -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-conditional-5/#dom-csscontainercondition-query CSSContainerCondition.query specification>+setQuery :: (MonadDOM m, ToJSString val) => CSSContainerCondition -> val -> m ()+setQuery self val = liftDOM (void ((js_setQuery (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"query\"]; })"+        js_getQuery :: CSSContainerCondition -> IO JSString+-- | <https://drafts.csswg.org/css-conditional-5/#dom-csscontainercondition-query CSSContainerCondition.query specification>+getQuery :: (MonadDOM m, FromJSString result) => CSSContainerCondition -> m result+getQuery self = liftDOM ((fromJSString <$> (js_getQuery (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSContainerRule.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-conditional-5 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSContainerRule+       (js_getContainerName, js_getContainerQuery, js_getConditions, getContainerName, getContainerQuery, getConditions, CSSContainerRule(..), gTypeCSSContainerRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"containerName\"]; })"+        js_getContainerName :: CSSContainerRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSContainerRule/containerName MDN CSSContainerRule.containerName documentation>+getContainerName :: (MonadDOM m, FromJSString result) => CSSContainerRule -> m result+getContainerName self = liftDOM ((fromJSString <$> (js_getContainerName (self))))++foreign import javascript unsafe "(($1) => { return $1[\"containerQuery\"]; })"+        js_getContainerQuery :: CSSContainerRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSContainerRule/containerQuery MDN CSSContainerRule.containerQuery documentation>+getContainerQuery :: (MonadDOM m, FromJSString result) => CSSContainerRule -> m result+getContainerQuery self = liftDOM ((fromJSString <$> (js_getContainerQuery (self))))++foreign import javascript unsafe "(($1) => { return $1[\"conditions\"]; })"+        js_getConditions :: CSSContainerRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSContainerRule/conditions MDN CSSContainerRule.conditions documentation>+getConditions :: (MonadDOM m) => CSSContainerRule -> m [CSSContainerCondition]+getConditions self = liftDOM (((js_getConditions (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/CSSCounterStyleRule.hs view
@@ -0,0 +1,149 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-counter-styles-3 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSCounterStyleRule+       (js_setName, js_getName, js_setSystem, js_getSystem, js_setSymbols, js_getSymbols, js_setAdditiveSymbols, js_getAdditiveSymbols, js_setNegative, js_getNegative, js_setPrefix, js_getPrefix, js_setSuffix, js_getSuffix, js_setRange, js_getRange, js_setPad, js_getPad, js_setSpeakAs, js_getSpeakAs, js_setFallback, js_getFallback, setName, getName, setSystem, getSystem, setSymbols, getSymbols, setAdditiveSymbols, getAdditiveSymbols, setNegative, getNegative, setPrefix, getPrefix, setSuffix, getSuffix, setRange, getRange, setPad, getPad, setSpeakAs, getSpeakAs, setFallback, getFallback, CSSCounterStyleRule(..), gTypeCSSCounterStyleRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+        js_setName :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/name MDN CSSCounterStyleRule.name documentation>+setName :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setName self val = liftDOM (void ((js_setName (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/name MDN CSSCounterStyleRule.name documentation>+getName :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++foreign import javascript safe "(($1, $2) => { $1[\"system\"] = $2; })"+        js_setSystem :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/system MDN CSSCounterStyleRule.system documentation>+setSystem :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setSystem self val = liftDOM (void ((js_setSystem (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"system\"]; })"+        js_getSystem :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/system MDN CSSCounterStyleRule.system documentation>+getSystem :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getSystem self = liftDOM ((fromJSString <$> (js_getSystem (self))))++foreign import javascript safe "(($1, $2) => { $1[\"symbols\"] = $2; })"+        js_setSymbols :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/symbols MDN CSSCounterStyleRule.symbols documentation>+setSymbols :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setSymbols self val = liftDOM (void ((js_setSymbols (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"symbols\"]; })"+        js_getSymbols :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/symbols MDN CSSCounterStyleRule.symbols documentation>+getSymbols :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getSymbols self = liftDOM ((fromJSString <$> (js_getSymbols (self))))++foreign import javascript safe "(($1, $2) => { $1[\"additiveSymbols\"] = $2; })"+        js_setAdditiveSymbols :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/additiveSymbols MDN CSSCounterStyleRule.additiveSymbols documentation>+setAdditiveSymbols :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setAdditiveSymbols self val = liftDOM (void ((js_setAdditiveSymbols (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"additiveSymbols\"]; })"+        js_getAdditiveSymbols :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/additiveSymbols MDN CSSCounterStyleRule.additiveSymbols documentation>+getAdditiveSymbols :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getAdditiveSymbols self = liftDOM ((fromJSString <$> (js_getAdditiveSymbols (self))))++foreign import javascript safe "(($1, $2) => { $1[\"negative\"] = $2; })"+        js_setNegative :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/negative MDN CSSCounterStyleRule.negative documentation>+setNegative :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setNegative self val = liftDOM (void ((js_setNegative (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"negative\"]; })"+        js_getNegative :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/negative MDN CSSCounterStyleRule.negative documentation>+getNegative :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getNegative self = liftDOM ((fromJSString <$> (js_getNegative (self))))++foreign import javascript safe "(($1, $2) => { $1[\"prefix\"] = $2; })"+        js_setPrefix :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/prefix MDN CSSCounterStyleRule.prefix documentation>+setPrefix :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setPrefix self val = liftDOM (void ((js_setPrefix (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })"+        js_getPrefix :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/prefix MDN CSSCounterStyleRule.prefix documentation>+getPrefix :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getPrefix self = liftDOM ((fromJSString <$> (js_getPrefix (self))))++foreign import javascript safe "(($1, $2) => { $1[\"suffix\"] = $2; })"+        js_setSuffix :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/suffix MDN CSSCounterStyleRule.suffix documentation>+setSuffix :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setSuffix self val = liftDOM (void ((js_setSuffix (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"suffix\"]; })"+        js_getSuffix :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/suffix MDN CSSCounterStyleRule.suffix documentation>+getSuffix :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getSuffix self = liftDOM ((fromJSString <$> (js_getSuffix (self))))++foreign import javascript safe "(($1, $2) => { $1[\"range\"] = $2; })"+        js_setRange :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/range MDN CSSCounterStyleRule.range documentation>+setRange :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setRange self val = liftDOM (void ((js_setRange (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"range\"]; })"+        js_getRange :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/range MDN CSSCounterStyleRule.range documentation>+getRange :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getRange self = liftDOM ((fromJSString <$> (js_getRange (self))))++foreign import javascript safe "(($1, $2) => { $1[\"pad\"] = $2; })"+        js_setPad :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/pad MDN CSSCounterStyleRule.pad documentation>+setPad :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setPad self val = liftDOM (void ((js_setPad (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"pad\"]; })"+        js_getPad :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/pad MDN CSSCounterStyleRule.pad documentation>+getPad :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getPad self = liftDOM ((fromJSString <$> (js_getPad (self))))++foreign import javascript safe "(($1, $2) => { $1[\"speakAs\"] = $2; })"+        js_setSpeakAs :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/speakAs MDN CSSCounterStyleRule.speakAs documentation>+setSpeakAs :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setSpeakAs self val = liftDOM (void ((js_setSpeakAs (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"speakAs\"]; })"+        js_getSpeakAs :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/speakAs MDN CSSCounterStyleRule.speakAs documentation>+getSpeakAs :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getSpeakAs self = liftDOM ((fromJSString <$> (js_getSpeakAs (self))))++foreign import javascript safe "(($1, $2) => { $1[\"fallback\"] = $2; })"+        js_setFallback :: CSSCounterStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/fallback MDN CSSCounterStyleRule.fallback documentation>+setFallback :: (MonadDOM m, ToJSString val) => CSSCounterStyleRule -> val -> m ()+setFallback self val = liftDOM (void ((js_setFallback (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fallback\"]; })"+        js_getFallback :: CSSCounterStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/fallback MDN CSSCounterStyleRule.fallback documentation>+getFallback :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getFallback self = liftDOM ((fromJSString <$> (js_getFallback (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceDescriptors.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-fonts-5 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSFontFaceDescriptors+       (js_setSrc, js_getSrc, js_setFontFamily, js_getFontFamily, js_setFontStyle, js_getFontStyle, js_setFontWeight, js_getFontWeight, js_setFontStretch, js_getFontStretch, js_setFontWidth, js_getFontWidth, js_setSizeAdjust, js_getSizeAdjust, js_setUnicodeRange, js_getUnicodeRange, js_setFontFeatureSettings, js_getFontFeatureSettings, js_setFontDisplay, js_getFontDisplay, setSrc, getSrc, setFontFamily, getFontFamily, setFontStyle, getFontStyle, setFontWeight, getFontWeight, setFontStretch, getFontStretch, setFontWidth, getFontWidth, setSizeAdjust, getSizeAdjust, setUnicodeRange, getUnicodeRange, setFontFeatureSettings, getFontFeatureSettings, setFontDisplay, getFontDisplay, CSSFontFaceDescriptors(..), gTypeCSSFontFaceDescriptors)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"src\"] = $2; })"+        js_setSrc :: CSSFontFaceDescriptors -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-src CSSFontFaceDescriptors.src specification>+setSrc :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m ()+setSrc self val = liftDOM (void ((js_setSrc (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"src\"]; })"+        js_getSrc :: CSSFontFaceDescriptors -> IO JSString+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-src CSSFontFaceDescriptors.src specification>+getSrc :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getSrc self = liftDOM ((fromJSString <$> (js_getSrc (self))))++foreign import javascript safe "(($1, $2) => { $1[\"fontFamily\"] = $2; })"+        js_setFontFamily :: CSSFontFaceDescriptors -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontfamily CSSFontFaceDescriptors.fontFamily specification>+setFontFamily :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m ()+setFontFamily self val = liftDOM (void ((js_setFontFamily (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fontFamily\"]; })"+        js_getFontFamily :: CSSFontFaceDescriptors -> IO JSString+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontfamily CSSFontFaceDescriptors.fontFamily specification>+getFontFamily :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getFontFamily self = liftDOM ((fromJSString <$> (js_getFontFamily (self))))++foreign import javascript safe "(($1, $2) => { $1[\"fontStyle\"] = $2; })"+        js_setFontStyle :: CSSFontFaceDescriptors -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontstyle CSSFontFaceDescriptors.fontStyle specification>+setFontStyle :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m ()+setFontStyle self val = liftDOM (void ((js_setFontStyle (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fontStyle\"]; })"+        js_getFontStyle :: CSSFontFaceDescriptors -> IO JSString+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontstyle CSSFontFaceDescriptors.fontStyle specification>+getFontStyle :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getFontStyle self = liftDOM ((fromJSString <$> (js_getFontStyle (self))))++foreign import javascript safe "(($1, $2) => { $1[\"fontWeight\"] = $2; })"+        js_setFontWeight :: CSSFontFaceDescriptors -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontweight CSSFontFaceDescriptors.fontWeight specification>+setFontWeight :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m ()+setFontWeight self val = liftDOM (void ((js_setFontWeight (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fontWeight\"]; })"+        js_getFontWeight :: CSSFontFaceDescriptors -> IO JSString+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontweight CSSFontFaceDescriptors.fontWeight specification>+getFontWeight :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getFontWeight self = liftDOM ((fromJSString <$> (js_getFontWeight (self))))++foreign import javascript safe "(($1, $2) => { $1[\"fontStretch\"] = $2; })"+        js_setFontStretch :: CSSFontFaceDescriptors -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontstretch CSSFontFaceDescriptors.fontStretch specification>+setFontStretch :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m ()+setFontStretch self val = liftDOM (void ((js_setFontStretch (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fontStretch\"]; })"+        js_getFontStretch :: CSSFontFaceDescriptors -> IO JSString+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontstretch CSSFontFaceDescriptors.fontStretch specification>+getFontStretch :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getFontStretch self = liftDOM ((fromJSString <$> (js_getFontStretch (self))))++foreign import javascript safe "(($1, $2) => { $1[\"fontWidth\"] = $2; })"+        js_setFontWidth :: CSSFontFaceDescriptors -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontwidth CSSFontFaceDescriptors.fontWidth specification>+setFontWidth :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m ()+setFontWidth self val = liftDOM (void ((js_setFontWidth (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fontWidth\"]; })"+        js_getFontWidth :: CSSFontFaceDescriptors -> IO JSString+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontwidth CSSFontFaceDescriptors.fontWidth specification>+getFontWidth :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getFontWidth self = liftDOM ((fromJSString <$> (js_getFontWidth (self))))++foreign import javascript safe "(($1, $2) => { $1[\"sizeAdjust\"] = $2; })"+        js_setSizeAdjust :: CSSFontFaceDescriptors -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-sizeadjust CSSFontFaceDescriptors.sizeAdjust specification>+setSizeAdjust :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m ()+setSizeAdjust self val = liftDOM (void ((js_setSizeAdjust (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"sizeAdjust\"]; })"+        js_getSizeAdjust :: CSSFontFaceDescriptors -> IO JSString+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-sizeadjust CSSFontFaceDescriptors.sizeAdjust specification>+getSizeAdjust :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getSizeAdjust self = liftDOM ((fromJSString <$> (js_getSizeAdjust (self))))++foreign import javascript safe "(($1, $2) => { $1[\"unicodeRange\"] = $2; })"+        js_setUnicodeRange :: CSSFontFaceDescriptors -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-unicoderange CSSFontFaceDescriptors.unicodeRange specification>+setUnicodeRange :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m ()+setUnicodeRange self val = liftDOM (void ((js_setUnicodeRange (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"unicodeRange\"]; })"+        js_getUnicodeRange :: CSSFontFaceDescriptors -> IO JSString+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-unicoderange CSSFontFaceDescriptors.unicodeRange specification>+getUnicodeRange :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getUnicodeRange self = liftDOM ((fromJSString <$> (js_getUnicodeRange (self))))++foreign import javascript safe "(($1, $2) => { $1[\"fontFeatureSettings\"] = $2; })"+        js_setFontFeatureSettings :: CSSFontFaceDescriptors -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontfeaturesettings CSSFontFaceDescriptors.fontFeatureSettings specification>+setFontFeatureSettings :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m ()+setFontFeatureSettings self val = liftDOM (void ((js_setFontFeatureSettings (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fontFeatureSettings\"]; })"+        js_getFontFeatureSettings :: CSSFontFaceDescriptors -> IO JSString+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontfeaturesettings CSSFontFaceDescriptors.fontFeatureSettings specification>+getFontFeatureSettings :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getFontFeatureSettings self = liftDOM ((fromJSString <$> (js_getFontFeatureSettings (self))))++foreign import javascript safe "(($1, $2) => { $1[\"fontDisplay\"] = $2; })"+        js_setFontDisplay :: CSSFontFaceDescriptors -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontdisplay CSSFontFaceDescriptors.fontDisplay specification>+setFontDisplay :: (MonadDOM m, ToJSString val) => CSSFontFaceDescriptors -> val -> m ()+setFontDisplay self val = liftDOM (void ((js_setFontDisplay (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fontDisplay\"]; })"+        js_getFontDisplay :: CSSFontFaceDescriptors -> IO JSString+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontdisplay CSSFontFaceDescriptors.fontDisplay specification>+getFontDisplay :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getFontDisplay self = liftDOM ((fromJSString <$> (js_getFontDisplay (self))))
− src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs
@@ -1,91 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent-       (js_newCSSFontFaceLoadEvent, newCSSFontFaceLoadEvent,-        js_getFontface, getFontface, getFontfaceUnsafe,-        getFontfaceUnchecked, js_getError, getError, getErrorUnsafe,-        getErrorUnchecked, CSSFontFaceLoadEvent(..),-        gTypeCSSFontFaceLoadEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"CSSFontFaceLoadEvent\"]($1,\n$2); })"-        js_newCSSFontFaceLoadEvent ::-        JSString ->-          Optional CSSFontFaceLoadEventInit -> IO CSSFontFaceLoadEvent---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent Mozilla CSSFontFaceLoadEvent documentation> -newCSSFontFaceLoadEvent ::-                        (MonadIO m, ToJSString type') =>-                          type' -> Maybe CSSFontFaceLoadEventInit -> m CSSFontFaceLoadEvent-newCSSFontFaceLoadEvent type' eventInit-  = liftIO-      (js_newCSSFontFaceLoadEvent (toJSString type')-         (maybeToOptional eventInit))- -foreign import javascript unsafe "(($1) => { return $1[\"fontface\"]; })" js_getFontface-        :: CSSFontFaceLoadEvent -> IO (Nullable CSSFontFaceRule)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> -getFontface ::-            (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule)-getFontface self-  = liftIO (nullableToMaybe <$> (js_getFontface self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> -getFontfaceUnsafe ::-                  (MonadIO m, HasCallStack) =>-                    CSSFontFaceLoadEvent -> m CSSFontFaceRule-getFontfaceUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getFontface self)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> -getFontfaceUnchecked ::-                     (MonadIO m) => CSSFontFaceLoadEvent -> m CSSFontFaceRule-getFontfaceUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getFontface self))- -foreign import javascript unsafe "(($1) => { return $1[\"error\"]; })" js_getError ::-        CSSFontFaceLoadEvent -> IO (Nullable DOMError)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> -getError ::-         (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe DOMError)-getError self = liftIO (nullableToMaybe <$> (js_getError self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> -getErrorUnsafe ::-               (MonadIO m, HasCallStack) => CSSFontFaceLoadEvent -> m DOMError-getErrorUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getError self)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> -getErrorUnchecked ::-                  (MonadIO m) => CSSFontFaceLoadEvent -> m DOMError-getErrorUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getError self))
src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs view
@@ -1,33 +1,23 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-fonts-5 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule        (js_getStyle, getStyle, CSSFontFaceRule(..), gTypeCSSFontFaceRule)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" js_getStyle ::-        CSSFontFaceRule -> IO CSSStyleDeclaration --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation> -getStyle :: (MonadIO m) => CSSFontFaceRule -> m CSSStyleDeclaration-getStyle self = liftIO (js_getStyle self)+foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })"+        js_getStyle :: CSSFontFaceRule -> IO CSSFontFaceDescriptors+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontFaceRule/style MDN CSSFontFaceRule.style documentation>+getStyle :: (MonadDOM m) => CSSFontFaceRule -> m CSSFontFaceDescriptors+getStyle self = liftDOM ((js_getStyle (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSFontFeatureValuesRule.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-fonts-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSFontFeatureValuesRule+       (js_setFontFamily, js_getFontFamily, setFontFamily, getFontFamily, CSSFontFeatureValuesRule(..), gTypeCSSFontFeatureValuesRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"fontFamily\"] = $2; })"+        js_setFontFamily :: CSSFontFeatureValuesRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontFeatureValuesRule/fontFamily MDN CSSFontFeatureValuesRule.fontFamily documentation>+setFontFamily :: (MonadDOM m, ToJSString val) => CSSFontFeatureValuesRule -> val -> m ()+setFontFamily self val = liftDOM (void ((js_setFontFamily (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fontFamily\"]; })"+        js_getFontFamily :: CSSFontFeatureValuesRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontFeatureValuesRule/fontFamily MDN CSSFontFeatureValuesRule.fontFamily documentation>+getFontFamily :: (MonadDOM m, FromJSString result) => CSSFontFeatureValuesRule -> m result+getFontFamily self = liftDOM ((fromJSString <$> (js_getFontFamily (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSFontPaletteValuesRule.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-fonts-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSFontPaletteValuesRule+       (js_getName, js_getFontFamily, js_getBasePalette, js_getOverrideColors, getName, getFontFamily, getBasePalette, getOverrideColors, CSSFontPaletteValuesRule(..), gTypeCSSFontPaletteValuesRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CSSFontPaletteValuesRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontPaletteValuesRule/name MDN CSSFontPaletteValuesRule.name documentation>+getName :: (MonadDOM m, FromJSString result) => CSSFontPaletteValuesRule -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++foreign import javascript unsafe "(($1) => { return $1[\"fontFamily\"]; })"+        js_getFontFamily :: CSSFontPaletteValuesRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontPaletteValuesRule/fontFamily MDN CSSFontPaletteValuesRule.fontFamily documentation>+getFontFamily :: (MonadDOM m, FromJSString result) => CSSFontPaletteValuesRule -> m result+getFontFamily self = liftDOM ((fromJSString <$> (js_getFontFamily (self))))++foreign import javascript unsafe "(($1) => { return $1[\"basePalette\"]; })"+        js_getBasePalette :: CSSFontPaletteValuesRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontPaletteValuesRule/basePalette MDN CSSFontPaletteValuesRule.basePalette documentation>+getBasePalette :: (MonadDOM m, FromJSString result) => CSSFontPaletteValuesRule -> m result+getBasePalette self = liftDOM ((fromJSString <$> (js_getBasePalette (self))))++foreign import javascript unsafe "(($1) => { return $1[\"overrideColors\"]; })"+        js_getOverrideColors :: CSSFontPaletteValuesRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontPaletteValuesRule/overrideColors MDN CSSFontPaletteValuesRule.overrideColors documentation>+getOverrideColors :: (MonadDOM m, FromJSString result) => CSSFontPaletteValuesRule -> m result+getOverrideColors self = liftDOM ((fromJSString <$> (js_getOverrideColors (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSGroupingRule.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSGroupingRule+       (js_deleteRule, js_insertRule, js_getCssRules, deleteRule, insertRule, insertRule_, getCssRules, CSSGroupingRule(..), gTypeCSSGroupingRule, IsCSSGroupingRule, toCSSGroupingRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })"+        js_deleteRule :: CSSGroupingRule -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSGroupingRule/deleteRule MDN CSSGroupingRule.deleteRule documentation>+deleteRule :: (MonadDOM m, IsCSSGroupingRule self) => self -> Word -> m ()+deleteRule self index = liftDOM (void ((js_deleteRule ((Types.toCSSGroupingRule self)) (index))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertRule\"]($2, $3); })"+        js_insertRule :: CSSGroupingRule -> JSString -> JSVal -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSGroupingRule/insertRule MDN CSSGroupingRule.insertRule documentation>+insertRule :: (MonadDOM m, IsCSSGroupingRule self, ToJSString rule) => self -> rule -> Maybe Word -> m Word+insertRule self rule index = liftDOM (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a3' -> js_insertRule ((Types.toCSSGroupingRule self)) (toJSString rule) a3'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSGroupingRule/insertRule MDN CSSGroupingRule.insertRule documentation>+insertRule_ :: (MonadDOM m, IsCSSGroupingRule self, ToJSString rule) => self -> rule -> Maybe Word -> m ()+insertRule_ self rule index = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a3' -> js_insertRule ((Types.toCSSGroupingRule self)) (toJSString rule) a3')))++foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })"+        js_getCssRules :: CSSGroupingRule -> IO CSSRuleList+-- | <https://developer.mozilla.org/docs/Web/API/CSSGroupingRule/cssRules MDN CSSGroupingRule.cssRules documentation>+getCssRules :: (MonadDOM m, IsCSSGroupingRule self) => self -> m CSSRuleList+getCssRules self = liftDOM ((js_getCssRules ((Types.toCSSGroupingRule self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSImageValue.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSImageValue+       (CSSImageValue(..), gTypeCSSImageValue)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs view
@@ -1,66 +1,71 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSImportRule-       (js_getHref, getHref, getHrefUnsafe, getHrefUnchecked, js_getMedia,-        getMedia, js_getStyleSheet, getStyleSheet, CSSImportRule(..),-        gTypeCSSImportRule)+       (js_getHref, js_getMedia, js_getStyleSheet, js_getLayerName, js_getSupportsText, getHref, getMedia, getStyleSheet, getStyleSheetUnsafe, getStyleSheetUnchecked, getLayerName, getLayerNameUnsafe, getLayerNameUnchecked, getSupportsText, getSupportsTextUnsafe, getSupportsTextUnchecked, CSSImportRule(..), gTypeCSSImportRule)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"href\"]; })" js_getHref ::-        CSSImportRule -> IO (Nullable JSString) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> -getHref ::-        (MonadIO m, FromJSString result) =>-          CSSImportRule -> m (Maybe result)-getHref self = liftIO (fromMaybeJSString <$> (js_getHref self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> -getHrefUnsafe ::-              (MonadIO m, HasCallStack, FromJSString result) =>-                CSSImportRule -> m result-getHrefUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getHref self)) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "(($1) => { return $1[\"href\"]; })"+        js_getHref :: CSSImportRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/href MDN CSSImportRule.href documentation>+getHref :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result+getHref self = liftDOM ((fromJSString <$> (js_getHref (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> -getHrefUnchecked ::-                 (MonadIO m, FromJSString result) => CSSImportRule -> m result-getHrefUnchecked self-  = liftIO (fromJust . fromMaybeJSString <$> (js_getHref self))- -foreign import javascript unsafe "(($1) => { return $1[\"media\"]; })" js_getMedia ::-        CSSImportRule -> IO MediaList+foreign import javascript unsafe "(($1) => { return $1[\"media\"]; })"+        js_getMedia :: CSSImportRule -> IO MediaList+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/media MDN CSSImportRule.media documentation>+getMedia :: (MonadDOM m) => CSSImportRule -> m MediaList+getMedia self = liftDOM ((js_getMedia (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation> -getMedia :: (MonadIO m) => CSSImportRule -> m MediaList-getMedia self = liftIO (js_getMedia self)-  foreign import javascript unsafe "(($1) => { return $1[\"styleSheet\"]; })"-        js_getStyleSheet :: CSSImportRule -> IO CSSStyleSheet+        js_getStyleSheet :: CSSImportRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/styleSheet MDN CSSImportRule.styleSheet documentation>+getStyleSheet :: (MonadDOM m) => CSSImportRule -> m (Maybe CSSStyleSheet)+getStyleSheet self = liftDOM (((js_getStyleSheet (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation> -getStyleSheet :: (MonadIO m) => CSSImportRule -> m CSSStyleSheet-getStyleSheet self = liftIO (js_getStyleSheet self)+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/styleSheet MDN CSSImportRule.styleSheet documentation>+getStyleSheetUnsafe :: (MonadDOM m, HasCallStack) => CSSImportRule -> m CSSStyleSheet+getStyleSheetUnsafe self = liftDOM ((((js_getStyleSheet (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/styleSheet MDN CSSImportRule.styleSheet documentation>+getStyleSheetUnchecked :: (MonadDOM m) => CSSImportRule -> m CSSStyleSheet+getStyleSheetUnchecked self = liftDOM ((pFromJSVal <$> (js_getStyleSheet (self))))++foreign import javascript unsafe "(($1) => { return $1[\"layerName\"]; })"+        js_getLayerName :: CSSImportRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/layerName MDN CSSImportRule.layerName documentation>+getLayerName :: (MonadDOM m, FromJSString result) => CSSImportRule -> m (Maybe result)+getLayerName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getLayerName (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/layerName MDN CSSImportRule.layerName documentation>+getLayerNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSImportRule -> m result+getLayerNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getLayerName (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/layerName MDN CSSImportRule.layerName documentation>+getLayerNameUnchecked :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result+getLayerNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getLayerName (self))))++foreign import javascript unsafe "(($1) => { return $1[\"supportsText\"]; })"+        js_getSupportsText :: CSSImportRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/supportsText MDN CSSImportRule.supportsText documentation>+getSupportsText :: (MonadDOM m, FromJSString result) => CSSImportRule -> m (Maybe result)+getSupportsText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSupportsText (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/supportsText MDN CSSImportRule.supportsText documentation>+getSupportsTextUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSImportRule -> m result+getSupportsTextUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getSupportsText (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/supportsText MDN CSSImportRule.supportsText documentation>+getSupportsTextUnchecked :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result+getSupportsTextUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupportsText (self))))
src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs view
@@ -1,50 +1,35 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule-       (js_setKeyText, setKeyText, js_getKeyText, getKeyText, js_getStyle,-        getStyle, CSSKeyframeRule(..), gTypeCSSKeyframeRule)+       (js_setKeyText, js_getKeyText, js_getStyle, setKeyText, getKeyText, getStyle, CSSKeyframeRule(..), gTypeCSSKeyframeRule)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { $1[\"keyText\"] = $2; })"-        js_setKeyText :: CSSKeyframeRule -> JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> -setKeyText ::-           (MonadIO m, ToJSString val) => CSSKeyframeRule -> val -> m ()-setKeyText self val = liftIO (js_setKeyText self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"keyText\"]; })" js_getKeyText ::-        CSSKeyframeRule -> IO JSString+foreign import javascript safe "(($1, $2) => { $1[\"keyText\"] = $2; })"+        js_setKeyText :: CSSKeyframeRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframeRule/keyText MDN CSSKeyframeRule.keyText documentation>+setKeyText :: (MonadDOM m, ToJSString val) => CSSKeyframeRule -> val -> m ()+setKeyText self val = liftDOM (void ((js_setKeyText (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> -getKeyText ::-           (MonadIO m, FromJSString result) => CSSKeyframeRule -> m result-getKeyText self = liftIO (fromJSString <$> (js_getKeyText self))- -foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" js_getStyle ::-        CSSKeyframeRule -> IO CSSStyleDeclaration+foreign import javascript unsafe "(($1) => { return $1[\"keyText\"]; })"+        js_getKeyText :: CSSKeyframeRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframeRule/keyText MDN CSSKeyframeRule.keyText documentation>+getKeyText :: (MonadDOM m, FromJSString result) => CSSKeyframeRule -> m result+getKeyText self = liftDOM ((fromJSString <$> (js_getKeyText (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation> -getStyle :: (MonadIO m) => CSSKeyframeRule -> m CSSStyleDeclaration-getStyle self = liftIO (js_getStyle self)+foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })"+        js_getStyle :: CSSKeyframeRule -> IO CSSStyleProperties+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframeRule/style MDN CSSKeyframeRule.style documentation>+getStyle :: (MonadDOM m) => CSSKeyframeRule -> m CSSStyleProperties+getStyle self = liftDOM ((js_getStyle (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs view
@@ -1,124 +1,71 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule-       (js_insertRule, insertRule, js_appendRule, appendRule,-        js_deleteRule, deleteRule, js_findRule, findRule, findRule_,-        findRuleUnsafe, findRuleUnchecked, js_get, get, get_, js_setName,-        setName, js_getName, getName, js_getCssRules, getCssRules,-        CSSKeyframesRule(..), gTypeCSSKeyframesRule)+       (js_appendRule, js_deleteRule, js_findRule, js_setName, js_getName, js_getCssRules, js_getLength, appendRule, deleteRule, findRule, findRule_, findRuleUnsafe, findRuleUnchecked, setName, getName, getCssRules, getLength, CSSKeyframesRule(..), gTypeCSSKeyframesRule)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[\"insertRule\"]($2); })"-        js_insertRule :: CSSKeyframesRule -> JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.insertRule Mozilla CSSKeyframesRule.insertRule documentation> -insertRule ::-           (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()-insertRule self rule-  = liftIO (js_insertRule self (toJSString rule))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"appendRule\"]($2); })"+foreign import javascript safe "(($1, $2) => { return $1[\"appendRule\"]($2); })"         js_appendRule :: CSSKeyframesRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/appendRule MDN CSSKeyframesRule.appendRule documentation>+appendRule :: (MonadDOM m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()+appendRule self rule = liftDOM (void ((js_appendRule (self) (toJSString rule)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.appendRule Mozilla CSSKeyframesRule.appendRule documentation> -appendRule ::-           (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()-appendRule self rule-  = liftIO (js_appendRule self (toJSString rule))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"deleteRule\"]($2); })"+foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })"         js_deleteRule :: CSSKeyframesRule -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.deleteRule Mozilla CSSKeyframesRule.deleteRule documentation> -deleteRule ::-           (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m ()-deleteRule self key = liftIO (js_deleteRule self (toJSString key))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"findRule\"]($2); })" js_findRule-        :: CSSKeyframesRule -> JSString -> IO (Nullable CSSKeyframeRule)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> -findRule ::-         (MonadIO m, ToJSString key) =>-           CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule)-findRule self key-  = liftIO (nullableToMaybe <$> (js_findRule self (toJSString key)))+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/deleteRule MDN CSSKeyframesRule.deleteRule documentation>+deleteRule :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m ()+deleteRule self select = liftDOM (void ((js_deleteRule (self) (toJSString select)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> -findRule_ ::-          (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m ()-findRule_ self key-  = liftIO (void (js_findRule self (toJSString key)))+foreign import javascript safe "(($1, $2) => { return $1[\"findRule\"]($2); })"+        js_findRule :: CSSKeyframesRule -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/findRule MDN CSSKeyframesRule.findRule documentation>+findRule :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m (Maybe CSSKeyframeRule)+findRule self select = liftDOM (((js_findRule (self) (toJSString select)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> -findRuleUnsafe ::-               (MonadIO m, ToJSString key, HasCallStack) =>-                 CSSKeyframesRule -> key -> m CSSKeyframeRule-findRuleUnsafe self key-  = liftIO-      ((nullableToMaybe <$> (js_findRule self (toJSString key))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/findRule MDN CSSKeyframesRule.findRule documentation>+findRule_ :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m ()+findRule_ self select = liftDOM (void ((js_findRule (self) (toJSString select)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> -findRuleUnchecked ::-                  (MonadIO m, ToJSString key) =>-                    CSSKeyframesRule -> key -> m CSSKeyframeRule-findRuleUnchecked self key-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_findRule self (toJSString key)))- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_get ::-        CSSKeyframesRule -> Word -> IO CSSKeyframeRule+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/findRule MDN CSSKeyframesRule.findRule documentation>+findRuleUnsafe :: (MonadDOM m, ToJSString select, HasCallStack) => CSSKeyframesRule -> select -> m CSSKeyframeRule+findRuleUnsafe self select = liftDOM ((((js_findRule (self) (toJSString select)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.get Mozilla CSSKeyframesRule.get documentation> -get :: (MonadIO m) => CSSKeyframesRule -> Word -> m CSSKeyframeRule-get self index = liftIO (js_get self index)+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/findRule MDN CSSKeyframesRule.findRule documentation>+findRuleUnchecked :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m CSSKeyframeRule+findRuleUnchecked self select = liftDOM ((pFromJSVal <$> (js_findRule (self) (toJSString select)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.get Mozilla CSSKeyframesRule.get documentation> -get_ :: (MonadIO m) => CSSKeyframesRule -> Word -> m ()-get_ self index = liftIO (void (js_get self index))- -foreign import javascript unsafe "(($1, $2) => { $1[\"name\"] = $2; })" js_setName ::-        CSSKeyframesRule -> JSString -> IO ()+foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+        js_setName :: CSSKeyframesRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/name MDN CSSKeyframesRule.name documentation>+setName :: (MonadDOM m, ToJSString val) => CSSKeyframesRule -> val -> m ()+setName self val = liftDOM (void ((js_setName (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> -setName ::-        (MonadIO m, ToJSString val) => CSSKeyframesRule -> val -> m ()-setName self val = liftIO (js_setName self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName ::-        CSSKeyframesRule -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CSSKeyframesRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/name MDN CSSKeyframesRule.name documentation>+getName :: (MonadDOM m, FromJSString result) => CSSKeyframesRule -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> -getName ::-        (MonadIO m, FromJSString result) => CSSKeyframesRule -> m result-getName self = liftIO (fromJSString <$> (js_getName self))- -foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" js_getCssRules-        :: CSSKeyframesRule -> IO CSSRuleList+foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })"+        js_getCssRules :: CSSKeyframesRule -> IO CSSRuleList+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/cssRules MDN CSSKeyframesRule.cssRules documentation>+getCssRules :: (MonadDOM m) => CSSKeyframesRule -> m CSSRuleList+getCssRules self = liftDOM ((js_getCssRules (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation> -getCssRules :: (MonadIO m) => CSSKeyframesRule -> m CSSRuleList-getCssRules self = liftIO (js_getCssRules self)+foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: CSSKeyframesRule -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/length MDN CSSKeyframesRule.length documentation>+getLength :: (MonadDOM m) => CSSKeyframesRule -> m Word+getLength self = liftDOM ((js_getLength (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSKeywordValue.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSKeywordValue+       (js_newCSSKeywordValue, js_setValue, js_getValue, newCSSKeywordValue, setValue, getValue, CSSKeywordValue(..), gTypeCSSKeywordValue)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CSSKeywordValue\"]($1); })"+        js_newCSSKeywordValue :: JSString -> IO CSSKeywordValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeywordValue/CSSKeywordValue MDN CSSKeywordValue. documentation>+newCSSKeywordValue :: (MonadDOM m, ToJSString value) => value -> m CSSKeywordValue+newCSSKeywordValue value = liftDOM ((js_newCSSKeywordValue (toJSString value)))++foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })"+        js_setValue :: CSSKeywordValue -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeywordValue/value MDN CSSKeywordValue.value documentation>+setValue :: (MonadDOM m, ToJSString val) => CSSKeywordValue -> val -> m ()+setValue self val = liftDOM (void ((js_setValue (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: CSSKeywordValue -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeywordValue/value MDN CSSKeywordValue.value documentation>+getValue :: (MonadDOM m, FromJSString result) => CSSKeywordValue -> m result+getValue self = liftDOM ((fromJSString <$> (js_getValue (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSLayerBlockRule.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-cascade-5 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSLayerBlockRule+       (js_getName, getName, CSSLayerBlockRule(..), gTypeCSSLayerBlockRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CSSLayerBlockRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSLayerBlockRule/name MDN CSSLayerBlockRule.name documentation>+getName :: (MonadDOM m, FromJSString result) => CSSLayerBlockRule -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSLayerStatementRule.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-cascade-5 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSLayerStatementRule+       (js_getNameList, getNameList, CSSLayerStatementRule(..), gTypeCSSLayerStatementRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"nameList\"]; })"+        js_getNameList :: CSSLayerStatementRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSLayerStatementRule/nameList MDN CSSLayerStatementRule.nameList documentation>+getNameList :: (MonadDOM m, FromJSString result) => CSSLayerStatementRule -> m [result]+getNameList self = liftDOM (((js_getNameList (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMathClamp.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSMathClamp+       (js_newCSSMathClamp, js_getLower, js_getValue, js_getUpper, newCSSMathClamp, getLower, getValue, getUpper, CSSMathClamp(..), gTypeCSSMathClamp)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return new globalThis[\"CSSMathClamp\"]($1, $2, $3); })"+        js_newCSSMathClamp :: CSSNumberish -> CSSNumberish -> CSSNumberish -> IO CSSMathClamp+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathClamp/CSSMathClamp MDN CSSMathClamp. documentation>+newCSSMathClamp :: (MonadDOM m, IsCSSNumberish lower, IsCSSNumberish value, IsCSSNumberish upper) => lower -> value -> upper -> m CSSMathClamp+newCSSMathClamp lower value upper = liftDOM ((js_newCSSMathClamp (Types.toCSSNumberish lower) (Types.toCSSNumberish value) (Types.toCSSNumberish upper)))++foreign import javascript unsafe "(($1) => { return $1[\"lower\"]; })"+        js_getLower :: CSSMathClamp -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathClamp/lower MDN CSSMathClamp.lower documentation>+getLower :: (MonadDOM m) => CSSMathClamp -> m CSSNumericValue+getLower self = liftDOM ((js_getLower (self)))++foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: CSSMathClamp -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathClamp/value MDN CSSMathClamp.value documentation>+getValue :: (MonadDOM m) => CSSMathClamp -> m CSSNumericValue+getValue self = liftDOM ((js_getValue (self)))++foreign import javascript unsafe "(($1) => { return $1[\"upper\"]; })"+        js_getUpper :: CSSMathClamp -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathClamp/upper MDN CSSMathClamp.upper documentation>+getUpper :: (MonadDOM m) => CSSMathClamp -> m CSSNumericValue+getUpper self = liftDOM ((js_getUpper (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMathInvert.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSMathInvert+       (js_newCSSMathInvert, js_getValue, newCSSMathInvert, getValue, CSSMathInvert(..), gTypeCSSMathInvert)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CSSMathInvert\"]($1); })"+        js_newCSSMathInvert :: CSSNumberish -> IO CSSMathInvert+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathInvert/CSSMathInvert MDN CSSMathInvert. documentation>+newCSSMathInvert :: (MonadDOM m, IsCSSNumberish arg) => arg -> m CSSMathInvert+newCSSMathInvert arg = liftDOM ((js_newCSSMathInvert (Types.toCSSNumberish arg)))++foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: CSSMathInvert -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathInvert/value MDN CSSMathInvert.value documentation>+getValue :: (MonadDOM m) => CSSMathInvert -> m CSSNumericValue+getValue self = liftDOM ((js_getValue (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMathMax.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSMathMax+       (js_getValues, getValues, CSSMathMax(..), gTypeCSSMathMax)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"values\"]; })"+        js_getValues :: CSSMathMax -> IO CSSNumericArray+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathMax/values MDN CSSMathMax.values documentation>+getValues :: (MonadDOM m) => CSSMathMax -> m CSSNumericArray+getValues self = liftDOM ((js_getValues (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMathMin.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSMathMin+       (js_getValues, getValues, CSSMathMin(..), gTypeCSSMathMin)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"values\"]; })"+        js_getValues :: CSSMathMin -> IO CSSNumericArray+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathMin/values MDN CSSMathMin.values documentation>+getValues :: (MonadDOM m) => CSSMathMin -> m CSSNumericArray+getValues self = liftDOM ((js_getValues (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMathNegate.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSMathNegate+       (js_newCSSMathNegate, js_getValue, newCSSMathNegate, getValue, CSSMathNegate(..), gTypeCSSMathNegate)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CSSMathNegate\"]($1); })"+        js_newCSSMathNegate :: CSSNumberish -> IO CSSMathNegate+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathNegate/CSSMathNegate MDN CSSMathNegate. documentation>+newCSSMathNegate :: (MonadDOM m, IsCSSNumberish arg) => arg -> m CSSMathNegate+newCSSMathNegate arg = liftDOM ((js_newCSSMathNegate (Types.toCSSNumberish arg)))++foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: CSSMathNegate -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathNegate/value MDN CSSMathNegate.value documentation>+getValue :: (MonadDOM m) => CSSMathNegate -> m CSSNumericValue+getValue self = liftDOM ((js_getValue (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMathProduct.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSMathProduct+       (js_getValues, getValues, CSSMathProduct(..), gTypeCSSMathProduct)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"values\"]; })"+        js_getValues :: CSSMathProduct -> IO CSSNumericArray+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathProduct/values MDN CSSMathProduct.values documentation>+getValues :: (MonadDOM m) => CSSMathProduct -> m CSSNumericArray+getValues self = liftDOM ((js_getValues (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMathSum.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSMathSum+       (js_getValues, getValues, CSSMathSum(..), gTypeCSSMathSum)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"values\"]; })"+        js_getValues :: CSSMathSum -> IO CSSNumericArray+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathSum/values MDN CSSMathSum.values documentation>+getValues :: (MonadDOM m) => CSSMathSum -> m CSSNumericArray+getValues self = liftDOM ((js_getValues (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMathValue.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSMathValue+       (js_getOperator, getOperator, CSSMathValue(..), gTypeCSSMathValue, IsCSSMathValue, toCSSMathValue)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"operator\"]; })"+        js_getOperator :: CSSMathValue -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathValue/operator MDN CSSMathValue.operator documentation>+getOperator :: (MonadDOM m, IsCSSMathValue self) => self -> m CSSMathOperator+getOperator self = liftDOM (((js_getOperator ((Types.toCSSMathValue self))) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMatrixComponent.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSMatrixComponent+       (js_newCSSMatrixComponent, js_setMatrix, js_getMatrix, newCSSMatrixComponent, setMatrix, getMatrix, CSSMatrixComponent(..), gTypeCSSMatrixComponent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"CSSMatrixComponent\"]($1, $2); })"+        js_newCSSMatrixComponent :: DOMMatrixReadOnly -> JSVal -> IO CSSMatrixComponent+-- | <https://developer.mozilla.org/docs/Web/API/CSSMatrixComponent/CSSMatrixComponent MDN CSSMatrixComponent. documentation>+newCSSMatrixComponent :: (MonadDOM m, IsDOMMatrixReadOnly matrix) => matrix -> Maybe CSSMatrixComponentOptions -> m CSSMatrixComponent+newCSSMatrixComponent matrix options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newCSSMatrixComponent (Types.toDOMMatrixReadOnly matrix) a2'))++foreign import javascript safe "(($1, $2) => { $1[\"matrix\"] = $2; })"+        js_setMatrix :: CSSMatrixComponent -> DOMMatrix -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSMatrixComponent/matrix MDN CSSMatrixComponent.matrix documentation>+setMatrix :: (MonadDOM m) => CSSMatrixComponent -> DOMMatrix -> m ()+setMatrix self val = liftDOM (void ((js_setMatrix (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"matrix\"]; })"+        js_getMatrix :: CSSMatrixComponent -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/CSSMatrixComponent/matrix MDN CSSMatrixComponent.matrix documentation>+getMatrix :: (MonadDOM m) => CSSMatrixComponent -> m DOMMatrix+getMatrix self = liftDOM ((js_getMatrix (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSMatrixComponentOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSMatrixComponentOptions+       (js_newCSSMatrixComponentOptions, js_setIs2D, js_getIs2D, newCSSMatrixComponentOptions, setIs2D, getIs2D, getIs2DUnsafe, getIs2DUnchecked, CSSMatrixComponentOptions(..), gTypeCSSMatrixComponentOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCSSMatrixComponentOptions :: IO CSSMatrixComponentOptions+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dictdef-cssmatrixcomponentoptions CSSMatrixComponentOptions specification>+newCSSMatrixComponentOptions :: (MonadDOM m) => m CSSMatrixComponentOptions+newCSSMatrixComponentOptions = liftDOM ((js_newCSSMatrixComponentOptions))++foreign import javascript safe "(($1, $2) => { $1[\"is2D\"] = $2; })"+        js_setIs2D :: CSSMatrixComponentOptions -> Bool -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssmatrixcomponentoptions-is2d CSSMatrixComponentOptions.is2D specification>+setIs2D :: (MonadDOM m) => CSSMatrixComponentOptions -> Bool -> m ()+setIs2D self val = liftDOM (void ((js_setIs2D (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"is2D\"]; })"+        js_getIs2D :: CSSMatrixComponentOptions -> IO JSVal+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssmatrixcomponentoptions-is2d CSSMatrixComponentOptions.is2D specification>+getIs2D :: (MonadDOM m) => CSSMatrixComponentOptions -> m (Maybe Bool)+getIs2D self = liftDOM (((js_getIs2D (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssmatrixcomponentoptions-is2d CSSMatrixComponentOptions.is2D specification>+getIs2DUnsafe :: (MonadDOM m, HasCallStack) => CSSMatrixComponentOptions -> m Bool+getIs2DUnsafe self = liftDOM ((((js_getIs2D (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssmatrixcomponentoptions-is2d CSSMatrixComponentOptions.is2D specification>+getIs2DUnchecked :: (MonadDOM m) => CSSMatrixComponentOptions -> m Bool+getIs2DUnchecked self = liftDOM ((pFromJSVal <$> (js_getIs2D (self))))
src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs view
@@ -1,73 +1,23 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-conditional-3 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSMediaRule-       (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,-        js_getMedia, getMedia, js_getCssRules, getCssRules,-        CSSMediaRule(..), gTypeCSSMediaRule)+       (js_getMedia, getMedia, CSSMediaRule(..), gTypeCSSMediaRule)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertRule\"]($2, $3); })"-        js_insertRule ::-        CSSMediaRule -> Optional JSString -> Optional Word -> IO Word --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation> -insertRule ::-           (MonadIO m, ToJSString rule) =>-             CSSMediaRule -> Maybe rule -> Maybe Word -> m Word-insertRule self rule index-  = liftIO-      (js_insertRule self (toOptionalJSString rule)-         (maybeToOptional index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation> -insertRule_ ::-            (MonadIO m, ToJSString rule) =>-              CSSMediaRule -> Maybe rule -> Maybe Word -> m ()-insertRule_ self rule index-  = liftIO-      (void-         (js_insertRule self (toOptionalJSString rule)-            (maybeToOptional index)))- -foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })"-        js_deleteRule :: CSSMediaRule -> Optional Word -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.deleteRule Mozilla CSSMediaRule.deleteRule documentation> -deleteRule :: (MonadIO m) => CSSMediaRule -> Maybe Word -> m ()-deleteRule self index-  = liftIO (js_deleteRule self (maybeToOptional index))- -foreign import javascript unsafe "(($1) => { return $1[\"media\"]; })" js_getMedia ::-        CSSMediaRule -> IO MediaList---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation> -getMedia :: (MonadIO m) => CSSMediaRule -> m MediaList-getMedia self = liftIO (js_getMedia self)- -foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" js_getCssRules-        :: CSSMediaRule -> IO CSSRuleList---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation> -getCssRules :: (MonadIO m) => CSSMediaRule -> m CSSRuleList-getCssRules self = liftIO (js_getCssRules self)+foreign import javascript unsafe "(($1) => { return $1[\"media\"]; })"+        js_getMedia :: CSSMediaRule -> IO MediaList+-- | <https://developer.mozilla.org/docs/Web/API/CSSMediaRule/media MDN CSSMediaRule.media documentation>+getMedia :: (MonadDOM m) => CSSMediaRule -> m MediaList+getMedia self = liftDOM ((js_getMedia (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSNamespaceRule.hs view
@@ -1,44 +1,29 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSNamespaceRule-       (js_getNamespaceURI, getNamespaceURI, js_getPrefix, getPrefix,-        CSSNamespaceRule(..), gTypeCSSNamespaceRule)+       (js_getNamespaceURI, js_getPrefix, getNamespaceURI, getPrefix, CSSNamespaceRule(..), gTypeCSSNamespaceRule)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- + foreign import javascript unsafe "(($1) => { return $1[\"namespaceURI\"]; })"         js_getNamespaceURI :: CSSNamespaceRule -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSNamespaceRule.namespaceURI Mozilla CSSNamespaceRule.namespaceURI documentation> -getNamespaceURI ::-                (MonadIO m, FromJSString result) => CSSNamespaceRule -> m result-getNamespaceURI self-  = liftIO (fromJSString <$> (js_getNamespaceURI self))- -foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" js_getPrefix ::-        CSSNamespaceRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSNamespaceRule/namespaceURI MDN CSSNamespaceRule.namespaceURI documentation>+getNamespaceURI :: (MonadDOM m, FromJSString result) => CSSNamespaceRule -> m result+getNamespaceURI self = liftDOM ((fromJSString <$> (js_getNamespaceURI (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSNamespaceRule.prefix Mozilla CSSNamespaceRule.prefix documentation> -getPrefix ::-          (MonadIO m, FromJSString result) => CSSNamespaceRule -> m result-getPrefix self = liftIO (fromJSString <$> (js_getPrefix self))+foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })"+        js_getPrefix :: CSSNamespaceRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSNamespaceRule/prefix MDN CSSNamespaceRule.prefix documentation>+getPrefix :: (MonadDOM m, FromJSString result) => CSSNamespaceRule -> m result+getPrefix self = liftDOM ((fromJSString <$> (js_getPrefix (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSNestedDeclarations.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-nesting-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSNestedDeclarations+       (js_getStyle, getStyle, CSSNestedDeclarations(..), gTypeCSSNestedDeclarations)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })"+        js_getStyle :: CSSNestedDeclarations -> IO CSSStyleProperties+-- | <https://developer.mozilla.org/docs/Web/API/CSSNestedDeclarations/style MDN CSSNestedDeclarations.style documentation>+getStyle :: (MonadDOM m) => CSSNestedDeclarations -> m CSSStyleProperties+getStyle self = liftDOM ((js_getStyle (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSNumericArray.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSNumericArray+       (js_getLength, getLength, CSSNumericArray(..), gTypeCSSNumericArray)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: CSSNumericArray -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericArray/length MDN CSSNumericArray.length documentation>+getLength :: (MonadDOM m) => CSSNumericArray -> m Word+getLength self = liftDOM ((js_getLength (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSNumericType.hs view
@@ -0,0 +1,183 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSNumericType+       (js_newCSSNumericType, js_setLength, js_getLength, js_setAngle, js_getAngle, js_setTime, js_getTime, js_setFrequency, js_getFrequency, js_setResolution, js_getResolution, js_setFlex, js_getFlex, js_setPercent, js_getPercent, js_setPercentHint, js_getPercentHint, newCSSNumericType, setLength, getLength, getLengthUnsafe, getLengthUnchecked, setAngle, getAngle, getAngleUnsafe, getAngleUnchecked, setTime, getTime, getTimeUnsafe, getTimeUnchecked, setFrequency, getFrequency, getFrequencyUnsafe, getFrequencyUnchecked, setResolution, getResolution, getResolutionUnsafe, getResolutionUnchecked, setFlex, getFlex, getFlexUnsafe, getFlexUnchecked, setPercent, getPercent, getPercentUnsafe, getPercentUnchecked, setPercentHint, getPercentHint, getPercentHintUnsafe, getPercentHintUnchecked, CSSNumericType(..), gTypeCSSNumericType)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCSSNumericType :: IO CSSNumericType+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dictdef-cssnumerictype CSSNumericType specification>+newCSSNumericType :: (MonadDOM m) => m CSSNumericType+newCSSNumericType = liftDOM ((js_newCSSNumericType))++foreign import javascript safe "(($1, $2) => { $1[\"length\"] = $2; })"+        js_setLength :: CSSNumericType -> Int -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-length CSSNumericType.length specification>+setLength :: (MonadDOM m) => CSSNumericType -> Int -> m ()+setLength self val = liftDOM (void ((js_setLength (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: CSSNumericType -> IO JSVal+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-length CSSNumericType.length specification>+getLength :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getLength self = liftDOM (((js_getLength (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-length CSSNumericType.length specification>+getLengthUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getLengthUnsafe self = liftDOM ((((js_getLength (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-length CSSNumericType.length specification>+getLengthUnchecked :: (MonadDOM m) => CSSNumericType -> m Int+getLengthUnchecked self = liftDOM ((pFromJSVal <$> (js_getLength (self))))++foreign import javascript safe "(($1, $2) => { $1[\"angle\"] = $2; })"+        js_setAngle :: CSSNumericType -> Int -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-angle CSSNumericType.angle specification>+setAngle :: (MonadDOM m) => CSSNumericType -> Int -> m ()+setAngle self val = liftDOM (void ((js_setAngle (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"angle\"]; })"+        js_getAngle :: CSSNumericType -> IO JSVal+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-angle CSSNumericType.angle specification>+getAngle :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getAngle self = liftDOM (((js_getAngle (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-angle CSSNumericType.angle specification>+getAngleUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getAngleUnsafe self = liftDOM ((((js_getAngle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-angle CSSNumericType.angle specification>+getAngleUnchecked :: (MonadDOM m) => CSSNumericType -> m Int+getAngleUnchecked self = liftDOM ((pFromJSVal <$> (js_getAngle (self))))++foreign import javascript safe "(($1, $2) => { $1[\"time\"] = $2; })"+        js_setTime :: CSSNumericType -> Int -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-time CSSNumericType.time specification>+setTime :: (MonadDOM m) => CSSNumericType -> Int -> m ()+setTime self val = liftDOM (void ((js_setTime (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"time\"]; })"+        js_getTime :: CSSNumericType -> IO JSVal+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-time CSSNumericType.time specification>+getTime :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getTime self = liftDOM (((js_getTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-time CSSNumericType.time specification>+getTimeUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getTimeUnsafe self = liftDOM ((((js_getTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-time CSSNumericType.time specification>+getTimeUnchecked :: (MonadDOM m) => CSSNumericType -> m Int+getTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTime (self))))++foreign import javascript safe "(($1, $2) => { $1[\"frequency\"] = $2; })"+        js_setFrequency :: CSSNumericType -> Int -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-frequency CSSNumericType.frequency specification>+setFrequency :: (MonadDOM m) => CSSNumericType -> Int -> m ()+setFrequency self val = liftDOM (void ((js_setFrequency (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"frequency\"]; })"+        js_getFrequency :: CSSNumericType -> IO JSVal+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-frequency CSSNumericType.frequency specification>+getFrequency :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getFrequency self = liftDOM (((js_getFrequency (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-frequency CSSNumericType.frequency specification>+getFrequencyUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getFrequencyUnsafe self = liftDOM ((((js_getFrequency (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-frequency CSSNumericType.frequency specification>+getFrequencyUnchecked :: (MonadDOM m) => CSSNumericType -> m Int+getFrequencyUnchecked self = liftDOM ((pFromJSVal <$> (js_getFrequency (self))))++foreign import javascript safe "(($1, $2) => { $1[\"resolution\"] = $2; })"+        js_setResolution :: CSSNumericType -> Int -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-resolution CSSNumericType.resolution specification>+setResolution :: (MonadDOM m) => CSSNumericType -> Int -> m ()+setResolution self val = liftDOM (void ((js_setResolution (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"resolution\"]; })"+        js_getResolution :: CSSNumericType -> IO JSVal+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-resolution CSSNumericType.resolution specification>+getResolution :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getResolution self = liftDOM (((js_getResolution (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-resolution CSSNumericType.resolution specification>+getResolutionUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getResolutionUnsafe self = liftDOM ((((js_getResolution (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-resolution CSSNumericType.resolution specification>+getResolutionUnchecked :: (MonadDOM m) => CSSNumericType -> m Int+getResolutionUnchecked self = liftDOM ((pFromJSVal <$> (js_getResolution (self))))++foreign import javascript safe "(($1, $2) => { $1[\"flex\"] = $2; })"+        js_setFlex :: CSSNumericType -> Int -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-flex CSSNumericType.flex specification>+setFlex :: (MonadDOM m) => CSSNumericType -> Int -> m ()+setFlex self val = liftDOM (void ((js_setFlex (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"flex\"]; })"+        js_getFlex :: CSSNumericType -> IO JSVal+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-flex CSSNumericType.flex specification>+getFlex :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getFlex self = liftDOM (((js_getFlex (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-flex CSSNumericType.flex specification>+getFlexUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getFlexUnsafe self = liftDOM ((((js_getFlex (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-flex CSSNumericType.flex specification>+getFlexUnchecked :: (MonadDOM m) => CSSNumericType -> m Int+getFlexUnchecked self = liftDOM ((pFromJSVal <$> (js_getFlex (self))))++foreign import javascript safe "(($1, $2) => { $1[\"percent\"] = $2; })"+        js_setPercent :: CSSNumericType -> Int -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percent CSSNumericType.percent specification>+setPercent :: (MonadDOM m) => CSSNumericType -> Int -> m ()+setPercent self val = liftDOM (void ((js_setPercent (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"percent\"]; })"+        js_getPercent :: CSSNumericType -> IO JSVal+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percent CSSNumericType.percent specification>+getPercent :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getPercent self = liftDOM (((js_getPercent (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percent CSSNumericType.percent specification>+getPercentUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getPercentUnsafe self = liftDOM ((((js_getPercent (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percent CSSNumericType.percent specification>+getPercentUnchecked :: (MonadDOM m) => CSSNumericType -> m Int+getPercentUnchecked self = liftDOM ((pFromJSVal <$> (js_getPercent (self))))++foreign import javascript safe "(($1, $2) => { $1[\"percentHint\"] = $2; })"+        js_setPercentHint :: CSSNumericType -> JSVal -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percenthint CSSNumericType.percentHint specification>+setPercentHint :: (MonadDOM m) => CSSNumericType -> CSSNumericBaseType -> m ()+setPercentHint self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setPercentHint (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"percentHint\"]; })"+        js_getPercentHint :: CSSNumericType -> IO JSVal+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percenthint CSSNumericType.percentHint specification>+getPercentHint :: (MonadDOM m) => CSSNumericType -> m (Maybe CSSNumericBaseType)+getPercentHint self = liftDOM (((js_getPercentHint (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percenthint CSSNumericType.percentHint specification>+getPercentHintUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m CSSNumericBaseType+getPercentHintUnsafe self = liftDOM ((((js_getPercentHint (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percenthint CSSNumericType.percentHint specification>+getPercentHintUnchecked :: (MonadDOM m) => CSSNumericType -> m CSSNumericBaseType+getPercentHintUnchecked self = liftDOM ((pFromJSVal <$> (js_getPercentHint (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSNumericValue.hs view
@@ -0,0 +1,127 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSNumericValue+       (js_add, js_div, js_equals, js_max, js_min, js_mul, js_sub, js_to, js_toSum, js_type', js_parse, add, add_, div, div_, equals, equals_, max, max_, min, min_, mul, mul_, sub, sub_, to, to_, toSum, toSum_, type', type'_, parse, parse_, CSSNumericValue(..), gTypeCSSNumericValue, IsCSSNumericValue, toCSSNumericValue)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return $1[\"add\"](...$2); })"+        js_add :: CSSNumericValue -> JSVal -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/add MDN CSSNumericValue.add documentation>+add :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+add self values = liftDOM (((toJSVal values) >>= \a2' -> js_add ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/add MDN CSSNumericValue.add documentation>+add_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m ()+add_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_add ((Types.toCSSNumericValue self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"div\"](...$2); })"+        js_div :: CSSNumericValue -> JSVal -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/div MDN CSSNumericValue.div documentation>+div :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+div self values = liftDOM (((toJSVal values) >>= \a2' -> js_div ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/div MDN CSSNumericValue.div documentation>+div_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m ()+div_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_div ((Types.toCSSNumericValue self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"equals\"](...$2); })"+        js_equals :: CSSNumericValue -> JSVal -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/equals MDN CSSNumericValue.equals documentation>+equals :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish value) => self -> [value] -> m Bool+equals self value = liftDOM (((toJSVal value) >>= \a2' -> js_equals ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/equals MDN CSSNumericValue.equals documentation>+equals_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish value) => self -> [value] -> m ()+equals_ self value = liftDOM (void (((toJSVal value) >>= \a2' -> js_equals ((Types.toCSSNumericValue self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"max\"](...$2); })"+        js_max :: CSSNumericValue -> JSVal -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/max MDN CSSNumericValue.max documentation>+max :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+max self values = liftDOM (((toJSVal values) >>= \a2' -> js_max ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/max MDN CSSNumericValue.max documentation>+max_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m ()+max_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_max ((Types.toCSSNumericValue self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"min\"](...$2); })"+        js_min :: CSSNumericValue -> JSVal -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/min MDN CSSNumericValue.min documentation>+min :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+min self values = liftDOM (((toJSVal values) >>= \a2' -> js_min ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/min MDN CSSNumericValue.min documentation>+min_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m ()+min_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_min ((Types.toCSSNumericValue self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"mul\"](...$2); })"+        js_mul :: CSSNumericValue -> JSVal -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/mul MDN CSSNumericValue.mul documentation>+mul :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+mul self values = liftDOM (((toJSVal values) >>= \a2' -> js_mul ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/mul MDN CSSNumericValue.mul documentation>+mul_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m ()+mul_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_mul ((Types.toCSSNumericValue self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"sub\"](...$2); })"+        js_sub :: CSSNumericValue -> JSVal -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/sub MDN CSSNumericValue.sub documentation>+sub :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+sub self values = liftDOM (((toJSVal values) >>= \a2' -> js_sub ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/sub MDN CSSNumericValue.sub documentation>+sub_ :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m ()+sub_ self values = liftDOM (void (((toJSVal values) >>= \a2' -> js_sub ((Types.toCSSNumericValue self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"to\"]($2); })"+        js_to :: CSSNumericValue -> JSString -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/to MDN CSSNumericValue.to documentation>+to :: (MonadDOM m, IsCSSNumericValue self, ToJSString unit) => self -> unit -> m CSSUnitValue+to self unit = liftDOM ((js_to ((Types.toCSSNumericValue self)) (toJSString unit)))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/to MDN CSSNumericValue.to documentation>+to_ :: (MonadDOM m, IsCSSNumericValue self, ToJSString unit) => self -> unit -> m ()+to_ self unit = liftDOM (void ((js_to ((Types.toCSSNumericValue self)) (toJSString unit))))++foreign import javascript safe "(($1, $2) => { return $1[\"toSum\"](...$2); })"+        js_toSum :: CSSNumericValue -> JSVal -> IO CSSMathSum+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/toSum MDN CSSNumericValue.toSum documentation>+toSum :: (MonadDOM m, IsCSSNumericValue self, ToJSString units) => self -> [units] -> m CSSMathSum+toSum self units = liftDOM (((toJSVal units) >>= \a2' -> js_toSum ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/toSum MDN CSSNumericValue.toSum documentation>+toSum_ :: (MonadDOM m, IsCSSNumericValue self, ToJSString units) => self -> [units] -> m ()+toSum_ self units = liftDOM (void (((toJSVal units) >>= \a2' -> js_toSum ((Types.toCSSNumericValue self)) a2')))++foreign import javascript safe "(($1) => { return $1[\"type\"](); })"+        js_type' :: CSSNumericValue -> IO CSSNumericType+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/type MDN CSSNumericValue.type documentation>+type' :: (MonadDOM m, IsCSSNumericValue self) => self -> m CSSNumericType+type' self = liftDOM ((js_type' ((Types.toCSSNumericValue self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/type MDN CSSNumericValue.type documentation>+type'_ :: (MonadDOM m, IsCSSNumericValue self) => self -> m ()+type'_ self = liftDOM (void ((js_type' ((Types.toCSSNumericValue self)))))++foreign import javascript safe "(($1) => { return globalThis[\"CSSNumericValue\"][\"parse\"]($1); })"+        js_parse :: JSString -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/parse_static MDN CSSNumericValue.parse documentation>+parse :: (MonadDOM m, ToJSString cssText) => cssText -> m CSSNumericValue+parse cssText = liftDOM ((js_parse (toJSString cssText)))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/parse_static MDN CSSNumericValue.parse documentation>+parse_ :: (MonadDOM m, ToJSString cssText) => cssText -> m ()+parse_ cssText = liftDOM (void ((js_parse (toJSString cssText))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSPageDescriptors.hs view
@@ -0,0 +1,89 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSPageDescriptors+       (js_setMargin, js_getMargin, js_setMarginTop, js_getMarginTop, js_setMarginRight, js_getMarginRight, js_setMarginBottom, js_getMarginBottom, js_setMarginLeft, js_getMarginLeft, js_setSize, js_getSize, setMargin, getMargin, setMarginTop, getMarginTop, setMarginRight, getMarginRight, setMarginBottom, getMarginBottom, setMarginLeft, getMarginLeft, setSize, getSize, CSSPageDescriptors(..), gTypeCSSPageDescriptors)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"margin\"] = $2; })"+        js_setMargin :: CSSPageDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margin MDN CSSPageDescriptors.margin documentation>+setMargin :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()+setMargin self val = liftDOM (void ((js_setMargin (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"margin\"]; })"+        js_getMargin :: CSSPageDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margin MDN CSSPageDescriptors.margin documentation>+getMargin :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result+getMargin self = liftDOM ((fromJSString <$> (js_getMargin (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginTop\"] = $2; })"+        js_setMarginTop :: CSSPageDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margintop MDN CSSPageDescriptors.marginTop documentation>+setMarginTop :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()+setMarginTop self val = liftDOM (void ((js_setMarginTop (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginTop\"]; })"+        js_getMarginTop :: CSSPageDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margintop MDN CSSPageDescriptors.marginTop documentation>+getMarginTop :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result+getMarginTop self = liftDOM ((fromJSString <$> (js_getMarginTop (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginRight\"] = $2; })"+        js_setMarginRight :: CSSPageDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginright MDN CSSPageDescriptors.marginRight documentation>+setMarginRight :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()+setMarginRight self val = liftDOM (void ((js_setMarginRight (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginRight\"]; })"+        js_getMarginRight :: CSSPageDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginright MDN CSSPageDescriptors.marginRight documentation>+getMarginRight :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result+getMarginRight self = liftDOM ((fromJSString <$> (js_getMarginRight (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginBottom\"] = $2; })"+        js_setMarginBottom :: CSSPageDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginbottom MDN CSSPageDescriptors.marginBottom documentation>+setMarginBottom :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()+setMarginBottom self val = liftDOM (void ((js_setMarginBottom (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginBottom\"]; })"+        js_getMarginBottom :: CSSPageDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginbottom MDN CSSPageDescriptors.marginBottom documentation>+getMarginBottom :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result+getMarginBottom self = liftDOM ((fromJSString <$> (js_getMarginBottom (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginLeft\"] = $2; })"+        js_setMarginLeft :: CSSPageDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginleft MDN CSSPageDescriptors.marginLeft documentation>+setMarginLeft :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()+setMarginLeft self val = liftDOM (void ((js_setMarginLeft (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginLeft\"]; })"+        js_getMarginLeft :: CSSPageDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginleft MDN CSSPageDescriptors.marginLeft documentation>+getMarginLeft :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result+getMarginLeft self = liftDOM ((fromJSString <$> (js_getMarginLeft (self))))++foreign import javascript safe "(($1, $2) => { $1[\"size\"] = $2; })"+        js_setSize :: CSSPageDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#size MDN CSSPageDescriptors.size documentation>+setSize :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()+setSize self val = liftDOM (void ((js_setSize (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })"+        js_getSize :: CSSPageDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#size MDN CSSPageDescriptors.size documentation>+getSize :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result+getSize self = liftDOM ((fromJSString <$> (js_getSize (self))))
src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs view
@@ -1,69 +1,35 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSPageRule-       (js_setSelectorText, setSelectorText, js_getSelectorText,-        getSelectorText, getSelectorTextUnsafe, getSelectorTextUnchecked,-        js_getStyle, getStyle, CSSPageRule(..), gTypeCSSPageRule)+       (js_setSelectorText, js_getSelectorText, js_getStyle, setSelectorText, getSelectorText, getStyle, CSSPageRule(..), gTypeCSSPageRule)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { $1[\"selectorText\"] = $2; })"-        js_setSelectorText :: CSSPageRule -> Optional JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> -setSelectorText ::-                (MonadIO m, ToJSString val) => CSSPageRule -> Maybe val -> m ()-setSelectorText self val-  = liftIO (js_setSelectorText self (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"selectorText\"]; })"-        js_getSelectorText :: CSSPageRule -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> -getSelectorText ::-                (MonadIO m, FromJSString result) => CSSPageRule -> m (Maybe result)-getSelectorText self-  = liftIO (fromMaybeJSString <$> (js_getSelectorText self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> -getSelectorTextUnsafe ::-                      (MonadIO m, HasCallStack, FromJSString result) =>-                        CSSPageRule -> m result-getSelectorTextUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getSelectorText self)) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript safe "(($1, $2) => { $1[\"selectorText\"] = $2; })"+        js_setSelectorText :: CSSPageRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageRule/selectorText MDN CSSPageRule.selectorText documentation>+setSelectorText :: (MonadDOM m, ToJSString val) => CSSPageRule -> val -> m ()+setSelectorText self val = liftDOM (void ((js_setSelectorText (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> -getSelectorTextUnchecked ::-                         (MonadIO m, FromJSString result) => CSSPageRule -> m result-getSelectorTextUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getSelectorText self))- -foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" js_getStyle ::-        CSSPageRule -> IO CSSStyleDeclaration+foreign import javascript unsafe "(($1) => { return $1[\"selectorText\"]; })"+        js_getSelectorText :: CSSPageRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageRule/selectorText MDN CSSPageRule.selectorText documentation>+getSelectorText :: (MonadDOM m, FromJSString result) => CSSPageRule -> m result+getSelectorText self = liftDOM ((fromJSString <$> (js_getSelectorText (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation> -getStyle :: (MonadIO m) => CSSPageRule -> m CSSStyleDeclaration-getStyle self = liftIO (js_getStyle self)+foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })"+        js_getStyle :: CSSPageRule -> IO CSSPageDescriptors+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageRule/style MDN CSSPageRule.style documentation>+getStyle :: (MonadDOM m) => CSSPageRule -> m CSSPageDescriptors+getStyle self = liftDOM ((js_getStyle (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSPerspective.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSPerspective+       (js_newCSSPerspective, js_setLength, js_getLength, newCSSPerspective, setLength, getLength, CSSPerspective(..), gTypeCSSPerspective)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CSSPerspective\"]($1); })"+        js_newCSSPerspective :: CSSPerspectiveValue -> IO CSSPerspective+-- | <https://developer.mozilla.org/docs/Web/API/CSSPerspective/CSSPerspective MDN CSSPerspective. documentation>+newCSSPerspective :: (MonadDOM m, IsCSSPerspectiveValue length) => length -> m CSSPerspective+newCSSPerspective length = liftDOM ((js_newCSSPerspective (Types.toCSSPerspectiveValue length)))++foreign import javascript safe "(($1, $2) => { $1[\"length\"] = $2; })"+        js_setLength :: CSSPerspective -> CSSPerspectiveValue -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPerspective/length MDN CSSPerspective.length documentation>+setLength :: (MonadDOM m, IsCSSPerspectiveValue val) => CSSPerspective -> val -> m ()+setLength self val = liftDOM (void ((js_setLength (self) (Types.toCSSPerspectiveValue val))))++foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: CSSPerspective -> IO CSSPerspectiveValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSPerspective/length MDN CSSPerspective.length documentation>+getLength :: (MonadDOM m) => CSSPerspective -> m CSSPerspectiveValue+getLength self = liftDOM ((js_getLength (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSPositionTryDescriptors.hs view
@@ -0,0 +1,485 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-anchor-position-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSPositionTryDescriptors+       (js_setMargin, js_getMargin, js_setMarginTop, js_getMarginTop, js_setMarginRight, js_getMarginRight, js_setMarginBottom, js_getMarginBottom, js_setMarginLeft, js_getMarginLeft, js_setMarginBlock, js_getMarginBlock, js_setMarginBlockStart, js_getMarginBlockStart, js_setMarginBlockEnd, js_getMarginBlockEnd, js_setMarginInline, js_getMarginInline, js_setMarginInlineStart, js_getMarginInlineStart, js_setMarginInlineEnd, js_getMarginInlineEnd, js_setInset, js_getInset, js_setInsetBlock, js_getInsetBlock, js_setInsetBlockStart, js_getInsetBlockStart, js_setInsetBlockEnd, js_getInsetBlockEnd, js_setInsetInline, js_getInsetInline, js_setInsetInlineStart, js_getInsetInlineStart, js_setInsetInlineEnd, js_getInsetInlineEnd, js_setTop, js_getTop, js_setLeft, js_getLeft, js_setRight, js_getRight, js_setBottom, js_getBottom, js_setWidth, js_getWidth, js_setMinWidth, js_getMinWidth, js_setMaxWidth, js_getMaxWidth, js_setHeight, js_getHeight, js_setMinHeight, js_getMinHeight, js_setMaxHeight, js_getMaxHeight, js_setBlockSize, js_getBlockSize, js_setMinBlockSize, js_getMinBlockSize, js_setMaxBlockSize, js_getMaxBlockSize, js_setInlineSize, js_getInlineSize, js_setMinInlineSize, js_getMinInlineSize, js_setMaxInlineSize, js_getMaxInlineSize, js_setPlaceSelf, js_getPlaceSelf, js_setAlignSelf, js_getAlignSelf, js_setJustifySelf, js_getJustifySelf, js_setPositionAnchor, js_getPositionAnchor, js_setPositionArea, js_getPositionArea, setMargin, getMargin, setMarginTop, getMarginTop, setMarginRight, getMarginRight, setMarginBottom, getMarginBottom, setMarginLeft, getMarginLeft, setMarginBlock, getMarginBlock, setMarginBlockStart, getMarginBlockStart, setMarginBlockEnd, getMarginBlockEnd, setMarginInline, getMarginInline, setMarginInlineStart, getMarginInlineStart, setMarginInlineEnd, getMarginInlineEnd, setInset, getInset, setInsetBlock, getInsetBlock, setInsetBlockStart, getInsetBlockStart, setInsetBlockEnd, getInsetBlockEnd, setInsetInline, getInsetInline, setInsetInlineStart, getInsetInlineStart, setInsetInlineEnd, getInsetInlineEnd, setTop, getTop, setLeft, getLeft, setRight, getRight, setBottom, getBottom, setWidth, getWidth, setMinWidth, getMinWidth, setMaxWidth, getMaxWidth, setHeight, getHeight, setMinHeight, getMinHeight, setMaxHeight, getMaxHeight, setBlockSize, getBlockSize, setMinBlockSize, getMinBlockSize, setMaxBlockSize, getMaxBlockSize, setInlineSize, getInlineSize, setMinInlineSize, getMinInlineSize, setMaxInlineSize, getMaxInlineSize, setPlaceSelf, getPlaceSelf, setAlignSelf, getAlignSelf, setJustifySelf, getJustifySelf, setPositionAnchor, getPositionAnchor, setPositionArea, getPositionArea, CSSPositionTryDescriptors(..), gTypeCSSPositionTryDescriptors)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"margin\"] = $2; })"+        js_setMargin :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.margin documentation>+setMargin :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMargin self val = liftDOM (void ((js_setMargin (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"margin\"]; })"+        js_getMargin :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.margin documentation>+getMargin :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMargin self = liftDOM ((fromJSString <$> (js_getMargin (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginTop\"] = $2; })"+        js_setMarginTop :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginTop documentation>+setMarginTop :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMarginTop self val = liftDOM (void ((js_setMarginTop (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginTop\"]; })"+        js_getMarginTop :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginTop documentation>+getMarginTop :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMarginTop self = liftDOM ((fromJSString <$> (js_getMarginTop (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginRight\"] = $2; })"+        js_setMarginRight :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginRight documentation>+setMarginRight :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMarginRight self val = liftDOM (void ((js_setMarginRight (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginRight\"]; })"+        js_getMarginRight :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginRight documentation>+getMarginRight :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMarginRight self = liftDOM ((fromJSString <$> (js_getMarginRight (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginBottom\"] = $2; })"+        js_setMarginBottom :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBottom documentation>+setMarginBottom :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMarginBottom self val = liftDOM (void ((js_setMarginBottom (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginBottom\"]; })"+        js_getMarginBottom :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBottom documentation>+getMarginBottom :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMarginBottom self = liftDOM ((fromJSString <$> (js_getMarginBottom (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginLeft\"] = $2; })"+        js_setMarginLeft :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginLeft documentation>+setMarginLeft :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMarginLeft self val = liftDOM (void ((js_setMarginLeft (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginLeft\"]; })"+        js_getMarginLeft :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginLeft documentation>+getMarginLeft :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMarginLeft self = liftDOM ((fromJSString <$> (js_getMarginLeft (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginBlock\"] = $2; })"+        js_setMarginBlock :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlock documentation>+setMarginBlock :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMarginBlock self val = liftDOM (void ((js_setMarginBlock (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginBlock\"]; })"+        js_getMarginBlock :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlock documentation>+getMarginBlock :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMarginBlock self = liftDOM ((fromJSString <$> (js_getMarginBlock (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginBlockStart\"] = $2; })"+        js_setMarginBlockStart :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlockStart documentation>+setMarginBlockStart :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMarginBlockStart self val = liftDOM (void ((js_setMarginBlockStart (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginBlockStart\"]; })"+        js_getMarginBlockStart :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlockStart documentation>+getMarginBlockStart :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMarginBlockStart self = liftDOM ((fromJSString <$> (js_getMarginBlockStart (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginBlockEnd\"] = $2; })"+        js_setMarginBlockEnd :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlockEnd documentation>+setMarginBlockEnd :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMarginBlockEnd self val = liftDOM (void ((js_setMarginBlockEnd (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginBlockEnd\"]; })"+        js_getMarginBlockEnd :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlockEnd documentation>+getMarginBlockEnd :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMarginBlockEnd self = liftDOM ((fromJSString <$> (js_getMarginBlockEnd (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginInline\"] = $2; })"+        js_setMarginInline :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInline documentation>+setMarginInline :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMarginInline self val = liftDOM (void ((js_setMarginInline (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginInline\"]; })"+        js_getMarginInline :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInline documentation>+getMarginInline :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMarginInline self = liftDOM ((fromJSString <$> (js_getMarginInline (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginInlineStart\"] = $2; })"+        js_setMarginInlineStart :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInlineStart documentation>+setMarginInlineStart :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMarginInlineStart self val = liftDOM (void ((js_setMarginInlineStart (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginInlineStart\"]; })"+        js_getMarginInlineStart :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInlineStart documentation>+getMarginInlineStart :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMarginInlineStart self = liftDOM ((fromJSString <$> (js_getMarginInlineStart (self))))++foreign import javascript safe "(($1, $2) => { $1[\"marginInlineEnd\"] = $2; })"+        js_setMarginInlineEnd :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInlineEnd documentation>+setMarginInlineEnd :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMarginInlineEnd self val = liftDOM (void ((js_setMarginInlineEnd (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"marginInlineEnd\"]; })"+        js_getMarginInlineEnd :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInlineEnd documentation>+getMarginInlineEnd :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMarginInlineEnd self = liftDOM ((fromJSString <$> (js_getMarginInlineEnd (self))))++foreign import javascript safe "(($1, $2) => { $1[\"inset\"] = $2; })"+        js_setInset :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.inset documentation>+setInset :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setInset self val = liftDOM (void ((js_setInset (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"inset\"]; })"+        js_getInset :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.inset documentation>+getInset :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getInset self = liftDOM ((fromJSString <$> (js_getInset (self))))++foreign import javascript safe "(($1, $2) => { $1[\"insetBlock\"] = $2; })"+        js_setInsetBlock :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlock documentation>+setInsetBlock :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setInsetBlock self val = liftDOM (void ((js_setInsetBlock (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"insetBlock\"]; })"+        js_getInsetBlock :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlock documentation>+getInsetBlock :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getInsetBlock self = liftDOM ((fromJSString <$> (js_getInsetBlock (self))))++foreign import javascript safe "(($1, $2) => { $1[\"insetBlockStart\"] = $2; })"+        js_setInsetBlockStart :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlockStart documentation>+setInsetBlockStart :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setInsetBlockStart self val = liftDOM (void ((js_setInsetBlockStart (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"insetBlockStart\"]; })"+        js_getInsetBlockStart :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlockStart documentation>+getInsetBlockStart :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getInsetBlockStart self = liftDOM ((fromJSString <$> (js_getInsetBlockStart (self))))++foreign import javascript safe "(($1, $2) => { $1[\"insetBlockEnd\"] = $2; })"+        js_setInsetBlockEnd :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlockEnd documentation>+setInsetBlockEnd :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setInsetBlockEnd self val = liftDOM (void ((js_setInsetBlockEnd (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"insetBlockEnd\"]; })"+        js_getInsetBlockEnd :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlockEnd documentation>+getInsetBlockEnd :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getInsetBlockEnd self = liftDOM ((fromJSString <$> (js_getInsetBlockEnd (self))))++foreign import javascript safe "(($1, $2) => { $1[\"insetInline\"] = $2; })"+        js_setInsetInline :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInline documentation>+setInsetInline :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setInsetInline self val = liftDOM (void ((js_setInsetInline (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"insetInline\"]; })"+        js_getInsetInline :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInline documentation>+getInsetInline :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getInsetInline self = liftDOM ((fromJSString <$> (js_getInsetInline (self))))++foreign import javascript safe "(($1, $2) => { $1[\"insetInlineStart\"] = $2; })"+        js_setInsetInlineStart :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInlineStart documentation>+setInsetInlineStart :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setInsetInlineStart self val = liftDOM (void ((js_setInsetInlineStart (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"insetInlineStart\"]; })"+        js_getInsetInlineStart :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInlineStart documentation>+getInsetInlineStart :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getInsetInlineStart self = liftDOM ((fromJSString <$> (js_getInsetInlineStart (self))))++foreign import javascript safe "(($1, $2) => { $1[\"insetInlineEnd\"] = $2; })"+        js_setInsetInlineEnd :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInlineEnd documentation>+setInsetInlineEnd :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setInsetInlineEnd self val = liftDOM (void ((js_setInsetInlineEnd (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"insetInlineEnd\"]; })"+        js_getInsetInlineEnd :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInlineEnd documentation>+getInsetInlineEnd :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getInsetInlineEnd self = liftDOM ((fromJSString <$> (js_getInsetInlineEnd (self))))++foreign import javascript safe "(($1, $2) => { $1[\"top\"] = $2; })"+        js_setTop :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.top documentation>+setTop :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setTop self val = liftDOM (void ((js_setTop (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"top\"]; })"+        js_getTop :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.top documentation>+getTop :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getTop self = liftDOM ((fromJSString <$> (js_getTop (self))))++foreign import javascript safe "(($1, $2) => { $1[\"left\"] = $2; })"+        js_setLeft :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.left documentation>+setLeft :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setLeft self val = liftDOM (void ((js_setLeft (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"left\"]; })"+        js_getLeft :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.left documentation>+getLeft :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getLeft self = liftDOM ((fromJSString <$> (js_getLeft (self))))++foreign import javascript safe "(($1, $2) => { $1[\"right\"] = $2; })"+        js_setRight :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.right documentation>+setRight :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setRight self val = liftDOM (void ((js_setRight (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"right\"]; })"+        js_getRight :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.right documentation>+getRight :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getRight self = liftDOM ((fromJSString <$> (js_getRight (self))))++foreign import javascript safe "(($1, $2) => { $1[\"bottom\"] = $2; })"+        js_setBottom :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.bottom documentation>+setBottom :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setBottom self val = liftDOM (void ((js_setBottom (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"bottom\"]; })"+        js_getBottom :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.bottom documentation>+getBottom :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getBottom self = liftDOM ((fromJSString <$> (js_getBottom (self))))++foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })"+        js_setWidth :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.width documentation>+setWidth :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setWidth self val = liftDOM (void ((js_setWidth (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })"+        js_getWidth :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.width documentation>+getWidth :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getWidth self = liftDOM ((fromJSString <$> (js_getWidth (self))))++foreign import javascript safe "(($1, $2) => { $1[\"minWidth\"] = $2; })"+        js_setMinWidth :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minWidth documentation>+setMinWidth :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMinWidth self val = liftDOM (void ((js_setMinWidth (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"minWidth\"]; })"+        js_getMinWidth :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minWidth documentation>+getMinWidth :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMinWidth self = liftDOM ((fromJSString <$> (js_getMinWidth (self))))++foreign import javascript safe "(($1, $2) => { $1[\"maxWidth\"] = $2; })"+        js_setMaxWidth :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxWidth documentation>+setMaxWidth :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMaxWidth self val = liftDOM (void ((js_setMaxWidth (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"maxWidth\"]; })"+        js_getMaxWidth :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxWidth documentation>+getMaxWidth :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMaxWidth self = liftDOM ((fromJSString <$> (js_getMaxWidth (self))))++foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })"+        js_setHeight :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.height documentation>+setHeight :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setHeight self val = liftDOM (void ((js_setHeight (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })"+        js_getHeight :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.height documentation>+getHeight :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getHeight self = liftDOM ((fromJSString <$> (js_getHeight (self))))++foreign import javascript safe "(($1, $2) => { $1[\"minHeight\"] = $2; })"+        js_setMinHeight :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minHeight documentation>+setMinHeight :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMinHeight self val = liftDOM (void ((js_setMinHeight (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"minHeight\"]; })"+        js_getMinHeight :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minHeight documentation>+getMinHeight :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMinHeight self = liftDOM ((fromJSString <$> (js_getMinHeight (self))))++foreign import javascript safe "(($1, $2) => { $1[\"maxHeight\"] = $2; })"+        js_setMaxHeight :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxHeight documentation>+setMaxHeight :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMaxHeight self val = liftDOM (void ((js_setMaxHeight (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"maxHeight\"]; })"+        js_getMaxHeight :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxHeight documentation>+getMaxHeight :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMaxHeight self = liftDOM ((fromJSString <$> (js_getMaxHeight (self))))++foreign import javascript safe "(($1, $2) => { $1[\"blockSize\"] = $2; })"+        js_setBlockSize :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.blockSize documentation>+setBlockSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setBlockSize self val = liftDOM (void ((js_setBlockSize (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"blockSize\"]; })"+        js_getBlockSize :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.blockSize documentation>+getBlockSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getBlockSize self = liftDOM ((fromJSString <$> (js_getBlockSize (self))))++foreign import javascript safe "(($1, $2) => { $1[\"minBlockSize\"] = $2; })"+        js_setMinBlockSize :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minBlockSize documentation>+setMinBlockSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMinBlockSize self val = liftDOM (void ((js_setMinBlockSize (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"minBlockSize\"]; })"+        js_getMinBlockSize :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minBlockSize documentation>+getMinBlockSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMinBlockSize self = liftDOM ((fromJSString <$> (js_getMinBlockSize (self))))++foreign import javascript safe "(($1, $2) => { $1[\"maxBlockSize\"] = $2; })"+        js_setMaxBlockSize :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxBlockSize documentation>+setMaxBlockSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMaxBlockSize self val = liftDOM (void ((js_setMaxBlockSize (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"maxBlockSize\"]; })"+        js_getMaxBlockSize :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxBlockSize documentation>+getMaxBlockSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMaxBlockSize self = liftDOM ((fromJSString <$> (js_getMaxBlockSize (self))))++foreign import javascript safe "(($1, $2) => { $1[\"inlineSize\"] = $2; })"+        js_setInlineSize :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.inlineSize documentation>+setInlineSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setInlineSize self val = liftDOM (void ((js_setInlineSize (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"inlineSize\"]; })"+        js_getInlineSize :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.inlineSize documentation>+getInlineSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getInlineSize self = liftDOM ((fromJSString <$> (js_getInlineSize (self))))++foreign import javascript safe "(($1, $2) => { $1[\"minInlineSize\"] = $2; })"+        js_setMinInlineSize :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minInlineSize documentation>+setMinInlineSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMinInlineSize self val = liftDOM (void ((js_setMinInlineSize (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"minInlineSize\"]; })"+        js_getMinInlineSize :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minInlineSize documentation>+getMinInlineSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMinInlineSize self = liftDOM ((fromJSString <$> (js_getMinInlineSize (self))))++foreign import javascript safe "(($1, $2) => { $1[\"maxInlineSize\"] = $2; })"+        js_setMaxInlineSize :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxInlineSize documentation>+setMaxInlineSize :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setMaxInlineSize self val = liftDOM (void ((js_setMaxInlineSize (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"maxInlineSize\"]; })"+        js_getMaxInlineSize :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxInlineSize documentation>+getMaxInlineSize :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getMaxInlineSize self = liftDOM ((fromJSString <$> (js_getMaxInlineSize (self))))++foreign import javascript safe "(($1, $2) => { $1[\"placeSelf\"] = $2; })"+        js_setPlaceSelf :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.placeSelf documentation>+setPlaceSelf :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setPlaceSelf self val = liftDOM (void ((js_setPlaceSelf (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"placeSelf\"]; })"+        js_getPlaceSelf :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.placeSelf documentation>+getPlaceSelf :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getPlaceSelf self = liftDOM ((fromJSString <$> (js_getPlaceSelf (self))))++foreign import javascript safe "(($1, $2) => { $1[\"alignSelf\"] = $2; })"+        js_setAlignSelf :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.alignSelf documentation>+setAlignSelf :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setAlignSelf self val = liftDOM (void ((js_setAlignSelf (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"alignSelf\"]; })"+        js_getAlignSelf :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.alignSelf documentation>+getAlignSelf :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getAlignSelf self = liftDOM ((fromJSString <$> (js_getAlignSelf (self))))++foreign import javascript safe "(($1, $2) => { $1[\"justifySelf\"] = $2; })"+        js_setJustifySelf :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.justifySelf documentation>+setJustifySelf :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setJustifySelf self val = liftDOM (void ((js_setJustifySelf (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"justifySelf\"]; })"+        js_getJustifySelf :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.justifySelf documentation>+getJustifySelf :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getJustifySelf self = liftDOM ((fromJSString <$> (js_getJustifySelf (self))))++foreign import javascript safe "(($1, $2) => { $1[\"positionAnchor\"] = $2; })"+        js_setPositionAnchor :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.positionAnchor documentation>+setPositionAnchor :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setPositionAnchor self val = liftDOM (void ((js_setPositionAnchor (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"positionAnchor\"]; })"+        js_getPositionAnchor :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.positionAnchor documentation>+getPositionAnchor :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getPositionAnchor self = liftDOM ((fromJSString <$> (js_getPositionAnchor (self))))++foreign import javascript safe "(($1, $2) => { $1[\"positionArea\"] = $2; })"+        js_setPositionArea :: CSSPositionTryDescriptors -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.positionArea documentation>+setPositionArea :: (MonadDOM m, ToJSString val) => CSSPositionTryDescriptors -> val -> m ()+setPositionArea self val = liftDOM (void ((js_setPositionArea (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"positionArea\"]; })"+        js_getPositionArea :: CSSPositionTryDescriptors -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.positionArea documentation>+getPositionArea :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getPositionArea self = liftDOM ((fromJSString <$> (js_getPositionArea (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSPositionTryRule.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-anchor-position-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSPositionTryRule+       (js_getName, js_getStyle, getName, getStyle, CSSPositionTryRule(..), gTypeCSSPositionTryRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CSSPositionTryRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryRule/name MDN CSSPositionTryRule.name documentation>+getName :: (MonadDOM m, FromJSString result) => CSSPositionTryRule -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })"+        js_getStyle :: CSSPositionTryRule -> IO CSSPositionTryDescriptors+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryRule/style MDN CSSPositionTryRule.style documentation>+getStyle :: (MonadDOM m) => CSSPositionTryRule -> m CSSPositionTryDescriptors+getStyle self = liftDOM ((js_getStyle (self)))
− src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs
@@ -1,165 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue-       (js_setFloatValue, setFloatValue, js_getFloatValue, getFloatValue,-        getFloatValue_, js_setStringValue, setStringValue,-        js_getStringValue, getStringValue, getStringValue_,-        js_getCounterValue, getCounterValue, getCounterValue_,-        js_getRectValue, getRectValue, getRectValue_, js_getRGBColorValue,-        getRGBColorValue, getRGBColorValue_, pattern CSS_UNKNOWN,-        pattern CSS_NUMBER, pattern CSS_PERCENTAGE, pattern CSS_EMS,-        pattern CSS_EXS, pattern CSS_PX, pattern CSS_CM, pattern CSS_MM,-        pattern CSS_IN, pattern CSS_PT, pattern CSS_PC, pattern CSS_DEG,-        pattern CSS_RAD, pattern CSS_GRAD, pattern CSS_MS, pattern CSS_S,-        pattern CSS_HZ, pattern CSS_KHZ, pattern CSS_DIMENSION,-        pattern CSS_STRING, pattern CSS_URI, pattern CSS_IDENT,-        pattern CSS_ATTR, pattern CSS_COUNTER, pattern CSS_RECT,-        pattern CSS_RGBCOLOR, pattern CSS_VW, pattern CSS_VH,-        pattern CSS_VMIN, pattern CSS_VMAX, js_getPrimitiveType,-        getPrimitiveType, CSSPrimitiveValue(..), gTypeCSSPrimitiveValue)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"setFloatValue\"]($2, $3); })"-        js_setFloatValue ::-        CSSPrimitiveValue -> Optional Word -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setFloatValue Mozilla CSSPrimitiveValue.setFloatValue documentation> -setFloatValue ::-              (MonadIO m) =>-                CSSPrimitiveValue -> Maybe Word -> Maybe Float -> m ()-setFloatValue self unitType floatValue-  = liftIO-      (js_setFloatValue self (maybeToOptional unitType)-         (maybeToOptional floatValue))- -foreign import javascript safe "(($1, $2) => { return $1[\"getFloatValue\"]($2); })"-        js_getFloatValue :: CSSPrimitiveValue -> Optional Word -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation> -getFloatValue ::-              (MonadIO m) => CSSPrimitiveValue -> Maybe Word -> m Float-getFloatValue self unitType-  = liftIO (js_getFloatValue self (maybeToOptional unitType))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation> -getFloatValue_ ::-               (MonadIO m) => CSSPrimitiveValue -> Maybe Word -> m ()-getFloatValue_ self unitType-  = liftIO (void (js_getFloatValue self (maybeToOptional unitType)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"setStringValue\"]($2, $3); })"-        js_setStringValue ::-        CSSPrimitiveValue -> Optional Word -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setStringValue Mozilla CSSPrimitiveValue.setStringValue documentation> -setStringValue ::-               (MonadIO m, ToJSString stringValue) =>-                 CSSPrimitiveValue -> Maybe Word -> Maybe stringValue -> m ()-setStringValue self stringType stringValue-  = liftIO-      (js_setStringValue self (maybeToOptional stringType)-         (toOptionalJSString stringValue))- -foreign import javascript safe "(($1) => { return $1[\"getStringValue\"](); })"-        js_getStringValue :: CSSPrimitiveValue -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation> -getStringValue ::-               (MonadIO m, FromJSString result) => CSSPrimitiveValue -> m result-getStringValue self-  = liftIO (fromJSString <$> (js_getStringValue self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation> -getStringValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getStringValue_ self = liftIO (void (js_getStringValue self))- -foreign import javascript safe "(($1) => { return $1[\"getCounterValue\"](); })"-        js_getCounterValue :: CSSPrimitiveValue -> IO Counter---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> -getCounterValue :: (MonadIO m) => CSSPrimitiveValue -> m Counter-getCounterValue self = liftIO (js_getCounterValue self)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> -getCounterValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getCounterValue_ self = liftIO (void (js_getCounterValue self))- -foreign import javascript safe "(($1) => { return $1[\"getRectValue\"](); })"-        js_getRectValue :: CSSPrimitiveValue -> IO Rect---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> -getRectValue :: (MonadIO m) => CSSPrimitiveValue -> m Rect-getRectValue self = liftIO (js_getRectValue self)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> -getRectValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getRectValue_ self = liftIO (void (js_getRectValue self))- -foreign import javascript safe "(($1) => { return $1[\"getRGBColorValue\"](); })"-        js_getRGBColorValue :: CSSPrimitiveValue -> IO RGBColor---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> -getRGBColorValue :: (MonadIO m) => CSSPrimitiveValue -> m RGBColor-getRGBColorValue self = liftIO (js_getRGBColorValue self)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> -getRGBColorValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getRGBColorValue_ self = liftIO (void (js_getRGBColorValue self))-pattern CSS_UNKNOWN = 0-pattern CSS_NUMBER = 1-pattern CSS_PERCENTAGE = 2-pattern CSS_EMS = 3-pattern CSS_EXS = 4-pattern CSS_PX = 5-pattern CSS_CM = 6-pattern CSS_MM = 7-pattern CSS_IN = 8-pattern CSS_PT = 9-pattern CSS_PC = 10-pattern CSS_DEG = 11-pattern CSS_RAD = 12-pattern CSS_GRAD = 13-pattern CSS_MS = 14-pattern CSS_S = 15-pattern CSS_HZ = 16-pattern CSS_KHZ = 17-pattern CSS_DIMENSION = 18-pattern CSS_STRING = 19-pattern CSS_URI = 20-pattern CSS_IDENT = 21-pattern CSS_ATTR = 22-pattern CSS_COUNTER = 23-pattern CSS_RECT = 24-pattern CSS_RGBCOLOR = 25-pattern CSS_VW = 26-pattern CSS_VH = 27-pattern CSS_VMIN = 28-pattern CSS_VMAX = 29- -foreign import javascript unsafe "(($1) => { return $1[\"primitiveType\"]; })"-        js_getPrimitiveType :: CSSPrimitiveValue -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.primitiveType Mozilla CSSPrimitiveValue.primitiveType documentation> -getPrimitiveType :: (MonadIO m) => CSSPrimitiveValue -> m Word-getPrimitiveType self = liftIO (js_getPrimitiveType self)
+ src/GHCJS/DOM/JSFFI/Generated/CSSPropertyRule.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-properties-values-api-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSPropertyRule+       (js_getName, js_getSyntax, js_getInherits, js_getInitialValue, getName, getSyntax, getInherits, getInitialValue, getInitialValueUnsafe, getInitialValueUnchecked, CSSPropertyRule(..), gTypeCSSPropertyRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CSSPropertyRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/name MDN CSSPropertyRule.name documentation>+getName :: (MonadDOM m, FromJSString result) => CSSPropertyRule -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++foreign import javascript unsafe "(($1) => { return $1[\"syntax\"]; })"+        js_getSyntax :: CSSPropertyRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/syntax MDN CSSPropertyRule.syntax documentation>+getSyntax :: (MonadDOM m, FromJSString result) => CSSPropertyRule -> m result+getSyntax self = liftDOM ((fromJSString <$> (js_getSyntax (self))))++foreign import javascript unsafe "(($1) => { return $1[\"inherits\"]; })"+        js_getInherits :: CSSPropertyRule -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/inherits MDN CSSPropertyRule.inherits documentation>+getInherits :: (MonadDOM m) => CSSPropertyRule -> m Bool+getInherits self = liftDOM ((js_getInherits (self)))++foreign import javascript unsafe "(($1) => { return $1[\"initialValue\"]; })"+        js_getInitialValue :: CSSPropertyRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/initialValue MDN CSSPropertyRule.initialValue documentation>+getInitialValue :: (MonadDOM m, FromJSString result) => CSSPropertyRule -> m (Maybe result)+getInitialValue self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getInitialValue (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/initialValue MDN CSSPropertyRule.initialValue documentation>+getInitialValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSPropertyRule -> m result+getInitialValueUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getInitialValue (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/initialValue MDN CSSPropertyRule.initialValue documentation>+getInitialValueUnchecked :: (MonadDOM m, FromJSString result) => CSSPropertyRule -> m result+getInitialValueUnchecked self = liftDOM ((pFromJSVal <$> (js_getInitialValue (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSRotate.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSRotate+       (js_newCSSRotate, js_newCSSRotateXYZ, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, js_setAngle, js_getAngle, newCSSRotate, newCSSRotateXYZ, setX, getX, setY, getY, setZ, getZ, setAngle, getAngle, CSSRotate(..), gTypeCSSRotate)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CSSRotate\"]($1); })"+        js_newCSSRotate :: CSSNumericValue -> IO CSSRotate+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/CSSRotate MDN CSSRotate. documentation>+newCSSRotate :: (MonadDOM m, IsCSSNumericValue angle) => angle -> m CSSRotate+newCSSRotate angle = liftDOM ((js_newCSSRotate (Types.toCSSNumericValue angle)))++foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"CSSRotate\"]($1, $2, $3, $4); })"+        js_newCSSRotateXYZ :: CSSNumberish -> CSSNumberish -> CSSNumberish -> CSSNumericValue -> IO CSSRotate+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/CSSRotate MDN CSSRotate. documentation>+newCSSRotateXYZ :: (MonadDOM m, IsCSSNumberish x, IsCSSNumberish y, IsCSSNumberish z, IsCSSNumericValue angle) => x -> y -> z -> angle -> m CSSRotate+newCSSRotateXYZ x y z angle = liftDOM ((js_newCSSRotateXYZ (Types.toCSSNumberish x) (Types.toCSSNumberish y) (Types.toCSSNumberish z) (Types.toCSSNumericValue angle)))++foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+        js_setX :: CSSRotate -> CSSNumberish -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/x MDN CSSRotate.x documentation>+setX :: (MonadDOM m, IsCSSNumberish val) => CSSRotate -> val -> m ()+setX self val = liftDOM (void ((js_setX (self) (Types.toCSSNumberish val))))++foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: CSSRotate -> IO CSSNumberish+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/x MDN CSSRotate.x documentation>+getX :: (MonadDOM m) => CSSRotate -> m CSSNumberish+getX self = liftDOM ((js_getX (self)))++foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"+        js_setY :: CSSRotate -> CSSNumberish -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/y MDN CSSRotate.y documentation>+setY :: (MonadDOM m, IsCSSNumberish val) => CSSRotate -> val -> m ()+setY self val = liftDOM (void ((js_setY (self) (Types.toCSSNumberish val))))++foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: CSSRotate -> IO CSSNumberish+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/y MDN CSSRotate.y documentation>+getY :: (MonadDOM m) => CSSRotate -> m CSSNumberish+getY self = liftDOM ((js_getY (self)))++foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })"+        js_setZ :: CSSRotate -> CSSNumberish -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/z MDN CSSRotate.z documentation>+setZ :: (MonadDOM m, IsCSSNumberish val) => CSSRotate -> val -> m ()+setZ self val = liftDOM (void ((js_setZ (self) (Types.toCSSNumberish val))))++foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })"+        js_getZ :: CSSRotate -> IO CSSNumberish+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/z MDN CSSRotate.z documentation>+getZ :: (MonadDOM m) => CSSRotate -> m CSSNumberish+getZ self = liftDOM ((js_getZ (self)))++foreign import javascript safe "(($1, $2) => { $1[\"angle\"] = $2; })"+        js_setAngle :: CSSRotate -> CSSNumericValue -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/angle MDN CSSRotate.angle documentation>+setAngle :: (MonadDOM m, IsCSSNumericValue val) => CSSRotate -> val -> m ()+setAngle self val = liftDOM (void ((js_setAngle (self) (Types.toCSSNumericValue val))))++foreign import javascript unsafe "(($1) => { return $1[\"angle\"]; })"+        js_getAngle :: CSSRotate -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/angle MDN CSSRotate.angle documentation>+getAngle :: (MonadDOM m) => CSSRotate -> m CSSNumericValue+getAngle self = liftDOM ((js_getAngle (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs view
@@ -1,149 +1,89 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSRule-       (pattern UNKNOWN_RULE, pattern STYLE_RULE, pattern CHARSET_RULE,-        pattern IMPORT_RULE, pattern MEDIA_RULE, pattern FONT_FACE_RULE,-        pattern PAGE_RULE, pattern KEYFRAMES_RULE, pattern KEYFRAME_RULE,-        pattern NAMESPACE_RULE, pattern SUPPORTS_RULE,-        pattern WEBKIT_VIEWPORT_RULE, pattern WEBKIT_REGION_RULE,-        pattern WEBKIT_KEYFRAMES_RULE, pattern WEBKIT_KEYFRAME_RULE,-        js_getType, getType, js_setCssText, setCssText, js_getCssText,-        getCssText, getCssTextUnsafe, getCssTextUnchecked,-        js_getParentStyleSheet, getParentStyleSheet,-        getParentStyleSheetUnsafe, getParentStyleSheetUnchecked,-        js_getParentRule, getParentRule, getParentRuleUnsafe,-        getParentRuleUnchecked, CSSRule(..), gTypeCSSRule, IsCSSRule,-        toCSSRule)+       (js_setCssText, js_getCssText, js_getParentRule, js_getParentStyleSheet, js_getType, setCssText, getCssText, getParentRule, getParentRuleUnsafe, getParentRuleUnchecked, getParentStyleSheet, getParentStyleSheetUnsafe, getParentStyleSheetUnchecked, getType, pattern STYLE_RULE, pattern CHARSET_RULE, pattern IMPORT_RULE, pattern MEDIA_RULE, pattern FONT_FACE_RULE, pattern PAGE_RULE, pattern MARGIN_RULE, pattern NAMESPACE_RULE, pattern KEYFRAMES_RULE, pattern KEYFRAME_RULE, pattern SUPPORTS_RULE, pattern COUNTER_STYLE_RULE, pattern FONT_FEATURE_VALUES_RULE, CSSRule(..), gTypeCSSRule, IsCSSRule, toCSSRule)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums-pattern UNKNOWN_RULE = 0-pattern STYLE_RULE = 1-pattern CHARSET_RULE = 2-pattern IMPORT_RULE = 3-pattern MEDIA_RULE = 4-pattern FONT_FACE_RULE = 5-pattern PAGE_RULE = 6-pattern KEYFRAMES_RULE = 7-pattern KEYFRAME_RULE = 8-pattern NAMESPACE_RULE = 10-pattern SUPPORTS_RULE = 12-pattern WEBKIT_VIEWPORT_RULE = 15-pattern WEBKIT_REGION_RULE = 16-pattern WEBKIT_KEYFRAMES_RULE = 7-pattern WEBKIT_KEYFRAME_RULE = 8- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::-        CSSRule -> IO Word --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.type Mozilla CSSRule.type documentation> -getType :: (MonadIO m, IsCSSRule self) => self -> m Word-getType self = liftIO (js_getType (toCSSRule self))-  foreign import javascript safe "(($1, $2) => { $1[\"cssText\"] = $2; })"-        js_setCssText :: CSSRule -> Optional JSString -> IO ()+        js_setCssText :: CSSRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/cssText MDN CSSRule.cssText documentation>+setCssText :: (MonadDOM m, IsCSSRule self, ToJSString val) => self -> val -> m ()+setCssText self val = liftDOM (void ((js_setCssText ((Types.toCSSRule self)) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> -setCssText ::-           (MonadIO m, IsCSSRule self, ToJSString val) =>-             self -> Maybe val -> m ()-setCssText self val-  = liftIO (js_setCssText (toCSSRule self) (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })" js_getCssText ::-        CSSRule -> IO (Nullable JSString)+foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })"+        js_getCssText :: CSSRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/cssText MDN CSSRule.cssText documentation>+getCssText :: (MonadDOM m, IsCSSRule self, FromJSString result) => self -> m result+getCssText self = liftDOM ((fromJSString <$> (js_getCssText ((Types.toCSSRule self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> -getCssText ::-           (MonadIO m, IsCSSRule self, FromJSString result) =>-             self -> m (Maybe result)-getCssText self-  = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSRule self)))+foreign import javascript unsafe "(($1) => { return $1[\"parentRule\"]; })"+        js_getParentRule :: CSSRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentRule MDN CSSRule.parentRule documentation>+getParentRule :: (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSRule)+getParentRule self = liftDOM (((js_getParentRule ((Types.toCSSRule self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> -getCssTextUnsafe ::-                 (MonadIO m, IsCSSRule self, HasCallStack, FromJSString result) =>-                   self -> m result-getCssTextUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getCssText (toCSSRule self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentRule MDN CSSRule.parentRule documentation>+getParentRuleUnsafe :: (MonadDOM m, IsCSSRule self, HasCallStack) => self -> m CSSRule+getParentRuleUnsafe self = liftDOM ((((js_getParentRule ((Types.toCSSRule self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> -getCssTextUnchecked ::-                    (MonadIO m, IsCSSRule self, FromJSString result) =>-                      self -> m result-getCssTextUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getCssText (toCSSRule self)))- +-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentRule MDN CSSRule.parentRule documentation>+getParentRuleUnchecked :: (MonadDOM m, IsCSSRule self) => self -> m CSSRule+getParentRuleUnchecked self = liftDOM ((pFromJSVal <$> (js_getParentRule ((Types.toCSSRule self)))))+ foreign import javascript unsafe "(($1) => { return $1[\"parentStyleSheet\"]; })"-        js_getParentStyleSheet :: CSSRule -> IO (Nullable CSSStyleSheet)+        js_getParentStyleSheet :: CSSRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentStyleSheet MDN CSSRule.parentStyleSheet documentation>+getParentStyleSheet :: (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet)+getParentStyleSheet self = liftDOM (((js_getParentStyleSheet ((Types.toCSSRule self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> -getParentStyleSheet ::-                    (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet)-getParentStyleSheet self-  = liftIO-      (nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self)))+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentStyleSheet MDN CSSRule.parentStyleSheet documentation>+getParentStyleSheetUnsafe :: (MonadDOM m, IsCSSRule self, HasCallStack) => self -> m CSSStyleSheet+getParentStyleSheetUnsafe self = liftDOM ((((js_getParentStyleSheet ((Types.toCSSRule self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> -getParentStyleSheetUnsafe ::-                          (MonadIO m, IsCSSRule self, HasCallStack) =>-                            self -> m CSSStyleSheet-getParentStyleSheetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self)))-         >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentStyleSheet MDN CSSRule.parentStyleSheet documentation>+getParentStyleSheetUnchecked :: (MonadDOM m, IsCSSRule self) => self -> m CSSStyleSheet+getParentStyleSheetUnchecked self = liftDOM ((pFromJSVal <$> (js_getParentStyleSheet ((Types.toCSSRule self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> -getParentStyleSheetUnchecked ::-                             (MonadIO m, IsCSSRule self) => self -> m CSSStyleSheet-getParentStyleSheetUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getParentStyleSheet (toCSSRule self)))- -foreign import javascript unsafe "(($1) => { return $1[\"parentRule\"]; })"-        js_getParentRule :: CSSRule -> IO (Nullable CSSRule)+foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: CSSRule -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/type MDN CSSRule.type documentation>+getType :: (MonadDOM m, IsCSSRule self) => self -> m Word+getType self = liftDOM ((js_getType ((Types.toCSSRule self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> -getParentRule ::-              (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSRule)-getParentRule self-  = liftIO (nullableToMaybe <$> (js_getParentRule (toCSSRule self)))+pattern STYLE_RULE = 1 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> -getParentRuleUnsafe ::-                    (MonadIO m, IsCSSRule self, HasCallStack) => self -> m CSSRule-getParentRuleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getParentRule (toCSSRule self))) >>=-         maybe (Prelude.error "Nothing to return") return)+pattern CHARSET_RULE = 2 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> -getParentRuleUnchecked ::-                       (MonadIO m, IsCSSRule self) => self -> m CSSRule-getParentRuleUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getParentRule (toCSSRule self)))+pattern IMPORT_RULE = 3++pattern MEDIA_RULE = 4++pattern FONT_FACE_RULE = 5++pattern PAGE_RULE = 6++pattern MARGIN_RULE = 9++pattern NAMESPACE_RULE = 10++pattern KEYFRAMES_RULE = 7++pattern KEYFRAME_RULE = 8++pattern SUPPORTS_RULE = 12++pattern COUNTER_STYLE_RULE = 11++pattern FONT_FEATURE_VALUES_RULE = 14
src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs view
@@ -1,45 +1,41 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSRuleList-       (js_item, item, item_, js_getLength, getLength, CSSRuleList(..),-        gTypeCSSRuleList)+       (js_item, js_getLength, item, item_, itemUnsafe, itemUnchecked, getLength, CSSRuleList(..), gTypeCSSRuleList)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item ::-        CSSRuleList -> Word -> IO CSSRule --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> -item :: (MonadIO m) => CSSRuleList -> Word -> m CSSRule-item self index = liftIO (js_item self index)+foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })"+        js_item :: CSSRuleList -> Word -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSRuleList/item MDN CSSRuleList.item documentation>+item :: (MonadDOM m) => CSSRuleList -> Word -> m (Maybe CSSRule)+item self index = liftDOM (((js_item (self) (index)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> -item_ :: (MonadIO m) => CSSRuleList -> Word -> m ()-item_ self index = liftIO (void (js_item self index))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::-        CSSRuleList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSRuleList/item MDN CSSRuleList.item documentation>+item_ :: (MonadDOM m) => CSSRuleList -> Word -> m ()+item_ self index = liftDOM (void ((js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.length Mozilla CSSRuleList.length documentation> -getLength :: (MonadIO m) => CSSRuleList -> m Word-getLength self = liftIO (js_getLength self)+-- | <https://developer.mozilla.org/docs/Web/API/CSSRuleList/item MDN CSSRuleList.item documentation>+itemUnsafe :: (MonadDOM m, HasCallStack) => CSSRuleList -> Word -> m CSSRule+itemUnsafe self index = liftDOM ((((js_item (self) (index)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CSSRuleList/item MDN CSSRuleList.item documentation>+itemUnchecked :: (MonadDOM m) => CSSRuleList -> Word -> m CSSRule+itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index))))++foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: CSSRuleList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSRuleList/length MDN CSSRuleList.length documentation>+getLength :: (MonadDOM m) => CSSRuleList -> m Word+getLength self = liftDOM ((js_getLength (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSScale.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSScale+       (js_newCSSScale, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, newCSSScale, setX, getX, setY, getY, setZ, getZ, CSSScale(..), gTypeCSSScale)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return new globalThis[\"CSSScale\"]($1, $2, $3); })"+        js_newCSSScale :: CSSNumberish -> CSSNumberish -> JSVal -> IO CSSScale+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/CSSScale MDN CSSScale. documentation>+newCSSScale :: (MonadDOM m, IsCSSNumberish x, IsCSSNumberish y, IsCSSNumberish z) => x -> y -> Maybe z -> m CSSScale+newCSSScale x y z = liftDOM (((P.maybe (P.return jsUndefined) toJSVal z) >>= \a3' -> js_newCSSScale (Types.toCSSNumberish x) (Types.toCSSNumberish y) a3'))++foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+        js_setX :: CSSScale -> CSSNumberish -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/x MDN CSSScale.x documentation>+setX :: (MonadDOM m, IsCSSNumberish val) => CSSScale -> val -> m ()+setX self val = liftDOM (void ((js_setX (self) (Types.toCSSNumberish val))))++foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: CSSScale -> IO CSSNumberish+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/x MDN CSSScale.x documentation>+getX :: (MonadDOM m) => CSSScale -> m CSSNumberish+getX self = liftDOM ((js_getX (self)))++foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"+        js_setY :: CSSScale -> CSSNumberish -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/y MDN CSSScale.y documentation>+setY :: (MonadDOM m, IsCSSNumberish val) => CSSScale -> val -> m ()+setY self val = liftDOM (void ((js_setY (self) (Types.toCSSNumberish val))))++foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: CSSScale -> IO CSSNumberish+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/y MDN CSSScale.y documentation>+getY :: (MonadDOM m) => CSSScale -> m CSSNumberish+getY self = liftDOM ((js_getY (self)))++foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })"+        js_setZ :: CSSScale -> CSSNumberish -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/z MDN CSSScale.z documentation>+setZ :: (MonadDOM m, IsCSSNumberish val) => CSSScale -> val -> m ()+setZ self val = liftDOM (void ((js_setZ (self) (Types.toCSSNumberish val))))++foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })"+        js_getZ :: CSSScale -> IO CSSNumberish+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/z MDN CSSScale.z documentation>+getZ :: (MonadDOM m) => CSSScale -> m CSSNumberish+getZ self = liftDOM ((js_getZ (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSScopeRule.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-cascade-6 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSScopeRule+       (js_getStart, js_getEnd, getStart, getStartUnsafe, getStartUnchecked, getEnd, getEndUnsafe, getEndUnchecked, CSSScopeRule(..), gTypeCSSScopeRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"start\"]; })"+        js_getStart :: CSSScopeRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/start MDN CSSScopeRule.start documentation>+getStart :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m (Maybe result)+getStart self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getStart (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/start MDN CSSScopeRule.start documentation>+getStartUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSScopeRule -> m result+getStartUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getStart (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/start MDN CSSScopeRule.start documentation>+getStartUnchecked :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m result+getStartUnchecked self = liftDOM ((pFromJSVal <$> (js_getStart (self))))++foreign import javascript unsafe "(($1) => { return $1[\"end\"]; })"+        js_getEnd :: CSSScopeRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/end MDN CSSScopeRule.end documentation>+getEnd :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m (Maybe result)+getEnd self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getEnd (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/end MDN CSSScopeRule.end documentation>+getEndUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSScopeRule -> m result+getEndUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getEnd (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/end MDN CSSScopeRule.end documentation>+getEndUnchecked :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m result+getEndUnchecked self = liftDOM ((pFromJSVal <$> (js_getEnd (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSSkew.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSSkew+       (js_newCSSSkew, js_setAx, js_getAx, js_setAy, js_getAy, newCSSSkew, setAx, getAx, setAy, getAy, CSSSkew(..), gTypeCSSSkew)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"CSSSkew\"]($1, $2); })"+        js_newCSSSkew :: CSSNumericValue -> CSSNumericValue -> IO CSSSkew+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/CSSSkew MDN CSSSkew. documentation>+newCSSSkew :: (MonadDOM m, IsCSSNumericValue ax, IsCSSNumericValue ay) => ax -> ay -> m CSSSkew+newCSSSkew ax ay = liftDOM ((js_newCSSSkew (Types.toCSSNumericValue ax) (Types.toCSSNumericValue ay)))++foreign import javascript safe "(($1, $2) => { $1[\"ax\"] = $2; })"+        js_setAx :: CSSSkew -> CSSNumericValue -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ax MDN CSSSkew.ax documentation>+setAx :: (MonadDOM m, IsCSSNumericValue val) => CSSSkew -> val -> m ()+setAx self val = liftDOM (void ((js_setAx (self) (Types.toCSSNumericValue val))))++foreign import javascript unsafe "(($1) => { return $1[\"ax\"]; })"+        js_getAx :: CSSSkew -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ax MDN CSSSkew.ax documentation>+getAx :: (MonadDOM m) => CSSSkew -> m CSSNumericValue+getAx self = liftDOM ((js_getAx (self)))++foreign import javascript safe "(($1, $2) => { $1[\"ay\"] = $2; })"+        js_setAy :: CSSSkew -> CSSNumericValue -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ay MDN CSSSkew.ay documentation>+setAy :: (MonadDOM m, IsCSSNumericValue val) => CSSSkew -> val -> m ()+setAy self val = liftDOM (void ((js_setAy (self) (Types.toCSSNumericValue val))))++foreign import javascript unsafe "(($1) => { return $1[\"ay\"]; })"+        js_getAy :: CSSSkew -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ay MDN CSSSkew.ay documentation>+getAy :: (MonadDOM m) => CSSSkew -> m CSSNumericValue+getAy self = liftDOM ((js_getAy (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSSkewX.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSSkewX+       (js_newCSSSkewX, js_setAx, js_getAx, newCSSSkewX, setAx, getAx, CSSSkewX(..), gTypeCSSSkewX)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CSSSkewX\"]($1); })"+        js_newCSSSkewX :: CSSNumericValue -> IO CSSSkewX+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewX/CSSSkewX MDN CSSSkewX. documentation>+newCSSSkewX :: (MonadDOM m, IsCSSNumericValue ax) => ax -> m CSSSkewX+newCSSSkewX ax = liftDOM ((js_newCSSSkewX (Types.toCSSNumericValue ax)))++foreign import javascript safe "(($1, $2) => { $1[\"ax\"] = $2; })"+        js_setAx :: CSSSkewX -> CSSNumericValue -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewX/ax MDN CSSSkewX.ax documentation>+setAx :: (MonadDOM m, IsCSSNumericValue val) => CSSSkewX -> val -> m ()+setAx self val = liftDOM (void ((js_setAx (self) (Types.toCSSNumericValue val))))++foreign import javascript unsafe "(($1) => { return $1[\"ax\"]; })"+        js_getAx :: CSSSkewX -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewX/ax MDN CSSSkewX.ax documentation>+getAx :: (MonadDOM m) => CSSSkewX -> m CSSNumericValue+getAx self = liftDOM ((js_getAx (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSSkewY.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSSkewY+       (js_newCSSSkewY, js_setAy, js_getAy, newCSSSkewY, setAy, getAy, CSSSkewY(..), gTypeCSSSkewY)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CSSSkewY\"]($1); })"+        js_newCSSSkewY :: CSSNumericValue -> IO CSSSkewY+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewY/CSSSkewY MDN CSSSkewY. documentation>+newCSSSkewY :: (MonadDOM m, IsCSSNumericValue ay) => ay -> m CSSSkewY+newCSSSkewY ay = liftDOM ((js_newCSSSkewY (Types.toCSSNumericValue ay)))++foreign import javascript safe "(($1, $2) => { $1[\"ay\"] = $2; })"+        js_setAy :: CSSSkewY -> CSSNumericValue -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewY/ay MDN CSSSkewY.ay documentation>+setAy :: (MonadDOM m, IsCSSNumericValue val) => CSSSkewY -> val -> m ()+setAy self val = liftDOM (void ((js_setAy (self) (Types.toCSSNumericValue val))))++foreign import javascript unsafe "(($1) => { return $1[\"ay\"]; })"+        js_getAy :: CSSSkewY -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewY/ay MDN CSSSkewY.ay documentation>+getAy :: (MonadDOM m) => CSSSkewY -> m CSSNumericValue+getAy self = liftDOM ((js_getAy (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSStartingStyleRule.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-transitions-2 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSStartingStyleRule+       (CSSStartingStyleRule(..), gTypeCSSStartingStyleRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs view
@@ -1,299 +1,95 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration-       (js_getPropertyValue, getPropertyValue, getPropertyValue_,-        js_getPropertyCSSValue, getPropertyCSSValue, getPropertyCSSValue_,-        getPropertyCSSValueUnsafe, getPropertyCSSValueUnchecked,-        js_removeProperty, removeProperty, removeProperty_,-        js_getPropertyPriority, getPropertyPriority, getPropertyPriority_,-        getPropertyPriorityUnsafe, getPropertyPriorityUnchecked,-        js_setProperty, setProperty, js_item, item, item_,-        js_getPropertyShorthand, getPropertyShorthand,-        getPropertyShorthand_, getPropertyShorthandUnsafe,-        getPropertyShorthandUnchecked, js_isPropertyImplicit,-        isPropertyImplicit, isPropertyImplicit_, js_setCssText, setCssText,-        js_getCssText, getCssText, js_getLength, getLength,-        js_getParentRule, getParentRule, getParentRuleUnsafe,-        getParentRuleUnchecked, CSSStyleDeclaration(..),-        gTypeCSSStyleDeclaration)+       (js_getPropertyPriority, js_getPropertyValue, js_item, js_removeProperty, js_setProperty, js_setCssText, js_getCssText, js_getLength, js_getParentRule, getPropertyPriority, getPropertyPriority_, getPropertyValue, getPropertyValue_, item, item_, removeProperty, removeProperty_, setProperty, setCssText, getCssText, getLength, getParentRule, getParentRuleUnsafe, getParentRuleUnchecked, CSSStyleDeclaration(..), gTypeCSSStyleDeclaration, IsCSSStyleDeclaration, toCSSStyleDeclaration)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getPropertyValue\"]($2); })"-        js_getPropertyValue ::-        CSSStyleDeclaration -> JSString -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> -getPropertyValue ::-                 (MonadIO m, ToJSString propertyName, FromJSString result) =>-                   CSSStyleDeclaration -> propertyName -> m result-getPropertyValue self propertyName-  = liftIO-      (fromJSString <$>-         (js_getPropertyValue self (toJSString propertyName)))+foreign import javascript safe "(($1, $2) => { return $1[\"getPropertyPriority\"]($2); })"+        js_getPropertyPriority :: CSSStyleDeclaration -> JSString -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/getPropertyPriority MDN CSSStyleDeclaration.getPropertyPriority documentation>+getPropertyPriority :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property, FromJSString result) => self -> property -> m result+getPropertyPriority self property = liftDOM ((fromJSString <$> (js_getPropertyPriority ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> -getPropertyValue_ ::-                  (MonadIO m, ToJSString propertyName) =>-                    CSSStyleDeclaration -> propertyName -> m ()-getPropertyValue_ self propertyName-  = liftIO-      (void (js_getPropertyValue self (toJSString propertyName)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getPropertyCSSValue\"]($2); })"-        js_getPropertyCSSValue ::-        CSSStyleDeclaration -> JSString -> IO (Nullable CSSValue)+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/getPropertyPriority MDN CSSStyleDeclaration.getPropertyPriority documentation>+getPropertyPriority_ :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property) => self -> property -> m ()+getPropertyPriority_ self property = liftDOM (void ((js_getPropertyPriority ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> -getPropertyCSSValue ::-                    (MonadIO m, ToJSString propertyName) =>-                      CSSStyleDeclaration -> propertyName -> m (Maybe CSSValue)-getPropertyCSSValue self propertyName-  = liftIO-      (nullableToMaybe <$>-         (js_getPropertyCSSValue self (toJSString propertyName)))+foreign import javascript safe "(($1, $2) => { return $1[\"getPropertyValue\"]($2); })"+        js_getPropertyValue :: CSSStyleDeclaration -> JSString -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/getPropertyValue MDN CSSStyleDeclaration.getPropertyValue documentation>+getPropertyValue :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property, FromJSString result) => self -> property -> m result+getPropertyValue self property = liftDOM ((fromJSString <$> (js_getPropertyValue ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> -getPropertyCSSValue_ ::-                     (MonadIO m, ToJSString propertyName) =>-                       CSSStyleDeclaration -> propertyName -> m ()-getPropertyCSSValue_ self propertyName-  = liftIO-      (void (js_getPropertyCSSValue self (toJSString propertyName)))+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/getPropertyValue MDN CSSStyleDeclaration.getPropertyValue documentation>+getPropertyValue_ :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property) => self -> property -> m ()+getPropertyValue_ self property = liftDOM (void ((js_getPropertyValue ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> -getPropertyCSSValueUnsafe ::-                          (MonadIO m, ToJSString propertyName, HasCallStack) =>-                            CSSStyleDeclaration -> propertyName -> m CSSValue-getPropertyCSSValueUnsafe self propertyName-  = liftIO-      ((nullableToMaybe <$>-          (js_getPropertyCSSValue self (toJSString propertyName)))-         >>= maybe (Prelude.error "Nothing to return") return)+foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })"+        js_item :: CSSStyleDeclaration -> Word -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/item MDN CSSStyleDeclaration.item documentation>+item :: (MonadDOM m, IsCSSStyleDeclaration self, FromJSString result) => self -> Word -> m result+item self index = liftDOM ((fromJSString <$> (js_item ((Types.toCSSStyleDeclaration self)) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> -getPropertyCSSValueUnchecked ::-                             (MonadIO m, ToJSString propertyName) =>-                               CSSStyleDeclaration -> propertyName -> m CSSValue-getPropertyCSSValueUnchecked self propertyName-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getPropertyCSSValue self (toJSString propertyName)))- +-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/item MDN CSSStyleDeclaration.item documentation>+item_ :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> Word -> m ()+item_ self index = liftDOM (void ((js_item ((Types.toCSSStyleDeclaration self)) (index))))+ foreign import javascript safe "(($1, $2) => { return $1[\"removeProperty\"]($2); })"         js_removeProperty :: CSSStyleDeclaration -> JSString -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> -removeProperty ::-               (MonadIO m, ToJSString propertyName, FromJSString result) =>-                 CSSStyleDeclaration -> propertyName -> m result-removeProperty self propertyName-  = liftIO-      (fromJSString <$>-         (js_removeProperty self (toJSString propertyName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> -removeProperty_ ::-                (MonadIO m, ToJSString propertyName) =>-                  CSSStyleDeclaration -> propertyName -> m ()-removeProperty_ self propertyName-  = liftIO (void (js_removeProperty self (toJSString propertyName)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getPropertyPriority\"]($2); })"-        js_getPropertyPriority ::-        CSSStyleDeclaration -> JSString -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> -getPropertyPriority ::-                    (MonadIO m, ToJSString propertyName, FromJSString result) =>-                      CSSStyleDeclaration -> propertyName -> m (Maybe result)-getPropertyPriority self propertyName-  = liftIO-      (fromMaybeJSString <$>-         (js_getPropertyPriority self (toJSString propertyName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> -getPropertyPriority_ ::-                     (MonadIO m, ToJSString propertyName) =>-                       CSSStyleDeclaration -> propertyName -> m ()-getPropertyPriority_ self propertyName-  = liftIO-      (void (js_getPropertyPriority self (toJSString propertyName)))+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/removeProperty MDN CSSStyleDeclaration.removeProperty documentation>+removeProperty :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property, FromJSString result) => self -> property -> m result+removeProperty self property = liftDOM ((fromJSString <$> (js_removeProperty ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> -getPropertyPriorityUnsafe ::-                          (MonadIO m, ToJSString propertyName, HasCallStack,-                           FromJSString result) =>-                            CSSStyleDeclaration -> propertyName -> m result-getPropertyPriorityUnsafe self propertyName-  = liftIO-      ((fromMaybeJSString <$>-          (js_getPropertyPriority self (toJSString propertyName)))-         >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/removeProperty MDN CSSStyleDeclaration.removeProperty documentation>+removeProperty_ :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property) => self -> property -> m ()+removeProperty_ self property = liftDOM (void ((js_removeProperty ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> -getPropertyPriorityUnchecked ::-                             (MonadIO m, ToJSString propertyName, FromJSString result) =>-                               CSSStyleDeclaration -> propertyName -> m result-getPropertyPriorityUnchecked self propertyName-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getPropertyPriority self (toJSString propertyName)))-  foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setProperty\"]($2, $3, $4); })"-        js_setProperty ::-        CSSStyleDeclaration ->-          JSString -> JSString -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.setProperty Mozilla CSSStyleDeclaration.setProperty documentation> -setProperty ::-            (MonadIO m, ToJSString propertyName, ToJSString value,-             ToJSString priority) =>-              CSSStyleDeclaration ->-                propertyName -> value -> Maybe priority -> m ()-setProperty self propertyName value priority-  = liftIO-      (js_setProperty self (toJSString propertyName) (toJSString value)-         (toOptionalJSString priority))- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item ::-        CSSStyleDeclaration -> Word -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation> -item ::-     (MonadIO m, FromJSString result) =>-       CSSStyleDeclaration -> Word -> m result-item self index = liftIO (fromJSString <$> (js_item self index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation> -item_ :: (MonadIO m) => CSSStyleDeclaration -> Word -> m ()-item_ self index = liftIO (void (js_item self index))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getPropertyShorthand\"]($2); })"-        js_getPropertyShorthand ::-        CSSStyleDeclaration -> Optional JSString -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> -getPropertyShorthand ::-                     (MonadIO m, ToJSString propertyName, FromJSString result) =>-                       CSSStyleDeclaration -> Maybe propertyName -> m (Maybe result)-getPropertyShorthand self propertyName-  = liftIO-      (fromMaybeJSString <$>-         (js_getPropertyShorthand self (toOptionalJSString propertyName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> -getPropertyShorthand_ ::-                      (MonadIO m, ToJSString propertyName) =>-                        CSSStyleDeclaration -> Maybe propertyName -> m ()-getPropertyShorthand_ self propertyName-  = liftIO-      (void-         (js_getPropertyShorthand self (toOptionalJSString propertyName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> -getPropertyShorthandUnsafe ::-                           (MonadIO m, ToJSString propertyName, HasCallStack,-                            FromJSString result) =>-                             CSSStyleDeclaration -> Maybe propertyName -> m result-getPropertyShorthandUnsafe self propertyName-  = liftIO-      ((fromMaybeJSString <$>-          (js_getPropertyShorthand self (toOptionalJSString propertyName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> -getPropertyShorthandUnchecked ::-                              (MonadIO m, ToJSString propertyName, FromJSString result) =>-                                CSSStyleDeclaration -> Maybe propertyName -> m result-getPropertyShorthandUnchecked self propertyName-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getPropertyShorthand self (toOptionalJSString propertyName)))- -foreign import javascript unsafe-        "(($1, $2) => { return ($1[\"isPropertyImplicit\"]($2) ? 1 : 0); })" js_isPropertyImplicit ::-        CSSStyleDeclaration -> Optional JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation> -isPropertyImplicit ::-                   (MonadIO m, ToJSString propertyName) =>-                     CSSStyleDeclaration -> Maybe propertyName -> m Bool-isPropertyImplicit self propertyName-  = liftIO-      (js_isPropertyImplicit self (toOptionalJSString propertyName))+        js_setProperty :: CSSStyleDeclaration -> JSString -> JSString -> (Optional JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/setProperty MDN CSSStyleDeclaration.setProperty documentation>+setProperty :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property, ToJSString value, ToJSString priority) => self -> property -> value -> Maybe priority -> m ()+setProperty self property value priority = liftDOM (void ((js_setProperty ((Types.toCSSStyleDeclaration self)) (toJSString property) (toJSString value) (toOptionalJSString priority)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation> -isPropertyImplicit_ ::-                    (MonadIO m, ToJSString propertyName) =>-                      CSSStyleDeclaration -> Maybe propertyName -> m ()-isPropertyImplicit_ self propertyName-  = liftIO-      (void-         (js_isPropertyImplicit self (toOptionalJSString propertyName)))-  foreign import javascript safe "(($1, $2) => { $1[\"cssText\"] = $2; })"         js_setCssText :: CSSStyleDeclaration -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/cssText MDN CSSStyleDeclaration.cssText documentation>+setCssText :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString val) => self -> val -> m ()+setCssText self val = liftDOM (void ((js_setCssText ((Types.toCSSStyleDeclaration self)) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> -setCssText ::-           (MonadIO m, ToJSString val) => CSSStyleDeclaration -> val -> m ()-setCssText self val = liftIO (js_setCssText self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })" js_getCssText ::-        CSSStyleDeclaration -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })"+        js_getCssText :: CSSStyleDeclaration -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/cssText MDN CSSStyleDeclaration.cssText documentation>+getCssText :: (MonadDOM m, IsCSSStyleDeclaration self, FromJSString result) => self -> m result+getCssText self = liftDOM ((fromJSString <$> (js_getCssText ((Types.toCSSStyleDeclaration self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> -getCssText ::-           (MonadIO m, FromJSString result) => CSSStyleDeclaration -> m result-getCssText self = liftIO (fromJSString <$> (js_getCssText self))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::-        CSSStyleDeclaration -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: CSSStyleDeclaration -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/length MDN CSSStyleDeclaration.length documentation>+getLength :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> m Word+getLength self = liftDOM ((js_getLength ((Types.toCSSStyleDeclaration self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.length Mozilla CSSStyleDeclaration.length documentation> -getLength :: (MonadIO m) => CSSStyleDeclaration -> m Word-getLength self = liftIO (js_getLength self)-  foreign import javascript unsafe "(($1) => { return $1[\"parentRule\"]; })"-        js_getParentRule :: CSSStyleDeclaration -> IO (Nullable CSSRule)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> -getParentRule ::-              (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule)-getParentRule self-  = liftIO (nullableToMaybe <$> (js_getParentRule self))+        js_getParentRule :: CSSStyleDeclaration -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/parentRule MDN CSSStyleDeclaration.parentRule documentation>+getParentRule :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> m (Maybe CSSRule)+getParentRule self = liftDOM (((js_getParentRule ((Types.toCSSStyleDeclaration self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> -getParentRuleUnsafe ::-                    (MonadIO m, HasCallStack) => CSSStyleDeclaration -> m CSSRule-getParentRuleUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getParentRule self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/parentRule MDN CSSStyleDeclaration.parentRule documentation>+getParentRuleUnsafe :: (MonadDOM m, IsCSSStyleDeclaration self, HasCallStack) => self -> m CSSRule+getParentRuleUnsafe self = liftDOM ((((js_getParentRule ((Types.toCSSStyleDeclaration self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> -getParentRuleUnchecked ::-                       (MonadIO m) => CSSStyleDeclaration -> m CSSRule-getParentRuleUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getParentRule self))+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/parentRule MDN CSSStyleDeclaration.parentRule documentation>+getParentRuleUnchecked :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> m CSSRule+getParentRuleUnchecked self = liftDOM ((pFromJSVal <$> (js_getParentRule ((Types.toCSSStyleDeclaration self)))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSStyleProperties.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSStyleProperties+       (js_setCssFloat, js_getCssFloat, setCssFloat, getCssFloat, CSSStyleProperties(..), gTypeCSSStyleProperties)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"cssFloat\"] = $2; })"+        js_setCssFloat :: CSSStyleProperties -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleProperties/cssFloat MDN CSSStyleProperties.cssFloat documentation>+setCssFloat :: (MonadDOM m, ToJSString val) => CSSStyleProperties -> val -> m ()+setCssFloat self val = liftDOM (void ((js_setCssFloat (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"cssFloat\"]; })"+        js_getCssFloat :: CSSStyleProperties -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleProperties/cssFloat MDN CSSStyleProperties.cssFloat documentation>+getCssFloat :: (MonadDOM m, FromJSString result) => CSSStyleProperties -> m result+getCssFloat self = liftDOM ((fromJSString <$> (js_getCssFloat (self))))
src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs view
@@ -1,70 +1,41 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSStyleRule-       (js_setSelectorText, setSelectorText, js_getSelectorText,-        getSelectorText, getSelectorTextUnsafe, getSelectorTextUnchecked,-        js_getStyle, getStyle, CSSStyleRule(..), gTypeCSSStyleRule)+       (js_setSelectorText, js_getSelectorText, js_getStyle, js_getStyleMap, setSelectorText, getSelectorText, getStyle, getStyleMap, CSSStyleRule(..), gTypeCSSStyleRule)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { $1[\"selectorText\"] = $2; })"-        js_setSelectorText :: CSSStyleRule -> Optional JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> -setSelectorText ::-                (MonadIO m, ToJSString val) => CSSStyleRule -> Maybe val -> m ()-setSelectorText self val-  = liftIO (js_setSelectorText self (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"selectorText\"]; })"-        js_getSelectorText :: CSSStyleRule -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> -getSelectorText ::-                (MonadIO m, FromJSString result) =>-                  CSSStyleRule -> m (Maybe result)-getSelectorText self-  = liftIO (fromMaybeJSString <$> (js_getSelectorText self))+foreign import javascript safe "(($1, $2) => { $1[\"selectorText\"] = $2; })"+        js_setSelectorText :: CSSStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleRule/selectorText MDN CSSStyleRule.selectorText documentation>+setSelectorText :: (MonadDOM m, ToJSString val) => CSSStyleRule -> val -> m ()+setSelectorText self val = liftDOM (void ((js_setSelectorText (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> -getSelectorTextUnsafe ::-                      (MonadIO m, HasCallStack, FromJSString result) =>-                        CSSStyleRule -> m result-getSelectorTextUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getSelectorText self)) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "(($1) => { return $1[\"selectorText\"]; })"+        js_getSelectorText :: CSSStyleRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleRule/selectorText MDN CSSStyleRule.selectorText documentation>+getSelectorText :: (MonadDOM m, FromJSString result) => CSSStyleRule -> m result+getSelectorText self = liftDOM ((fromJSString <$> (js_getSelectorText (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> -getSelectorTextUnchecked ::-                         (MonadIO m, FromJSString result) => CSSStyleRule -> m result-getSelectorTextUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getSelectorText self))- -foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" js_getStyle ::-        CSSStyleRule -> IO CSSStyleDeclaration+foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })"+        js_getStyle :: CSSStyleRule -> IO CSSStyleProperties+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleRule/style MDN CSSStyleRule.style documentation>+getStyle :: (MonadDOM m) => CSSStyleRule -> m CSSStyleProperties+getStyle self = liftDOM ((js_getStyle (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation> -getStyle :: (MonadIO m) => CSSStyleRule -> m CSSStyleDeclaration-getStyle self = liftIO (js_getStyle self)+foreign import javascript unsafe "(($1) => { return $1[\"styleMap\"]; })"+        js_getStyleMap :: CSSStyleRule -> IO StylePropertyMap+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleRule/styleMap MDN CSSStyleRule.styleMap documentation>+getStyleMap :: (MonadDOM m) => CSSStyleRule -> m StylePropertyMap+getStyleMap self = liftDOM ((js_getStyleMap (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs view
@@ -1,129 +1,107 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSStyleSheet-       (js_insertRuleDeprecated, insertRuleDeprecated,-        insertRuleDeprecated_, js_insertRule, insertRule, insertRule_,-        js_deleteRule, deleteRule, js_addRule, addRule, addRule_,-        js_removeRule, removeRule, js_getOwnerRule, getOwnerRule,-        js_getCssRules, getCssRules, js_getRules, getRules,-        CSSStyleSheet(..), gTypeCSSStyleSheet)+       (js_newCSSStyleSheet, js_addRule, js_deleteRule, js_insertRule, js_insertRule', js_removeRule, js_replace, js_replaceSync, js_getOwnerRule, js_getCssRules, js_getRules, newCSSStyleSheet, addRule, addRule_, deleteRule, insertRule, insertRule_, insertRule', insertRule'_, removeRule, replace, replace_, replaceSync, getOwnerRule, getOwnerRuleUnsafe, getOwnerRuleUnchecked, getCssRules, getRules, CSSStyleSheet(..), gTypeCSSStyleSheet)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertRule\"]($2, $3); })"-        js_insertRuleDeprecated ::-        CSSStyleSheet -> JSString -> Word -> IO Word --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> -insertRuleDeprecated ::-                     (MonadIO m, ToJSString rule) =>-                       CSSStyleSheet -> rule -> Word -> m Word-insertRuleDeprecated self rule index-  = liftIO (js_insertRuleDeprecated self (toJSString rule) index)+foreign import javascript safe "(($1) => { return new globalThis[\"CSSStyleSheet\"]($1); })"+        js_newCSSStyleSheet :: JSVal -> IO CSSStyleSheet+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/CSSStyleSheet MDN CSSStyleSheet. documentation>+newCSSStyleSheet :: (MonadDOM m) => Maybe CSSStyleSheetInit -> m CSSStyleSheet+newCSSStyleSheet options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a1' -> js_newCSSStyleSheet a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> -insertRuleDeprecated_ ::-                      (MonadIO m, ToJSString rule) =>-                        CSSStyleSheet -> rule -> Word -> m ()-insertRuleDeprecated_ self rule index-  = liftIO-      (void (js_insertRuleDeprecated self (toJSString rule) index))- -foreign import javascript safe "(($1, $2) => { return $1[\"insertRule\"]($2); })"-        js_insertRule :: CSSStyleSheet -> JSString -> IO Word+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"addRule\"]($2, $3, $4); })"+        js_addRule :: CSSStyleSheet -> (Optional JSString) -> (Optional JSString) -> JSVal -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/addRule MDN CSSStyleSheet.addRule documentation>+addRule :: (MonadDOM m, ToJSString selector, ToJSString style) => CSSStyleSheet -> Maybe selector -> Maybe style -> Maybe Word -> m Int+addRule self selector style index = liftDOM (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a4' -> js_addRule (self) (toOptionalJSString selector) (toOptionalJSString style) a4')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> -insertRule ::-           (MonadIO m, ToJSString rule) => CSSStyleSheet -> rule -> m Word-insertRule self rule-  = liftIO (js_insertRule self (toJSString rule))+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/addRule MDN CSSStyleSheet.addRule documentation>+addRule_ :: (MonadDOM m, ToJSString selector, ToJSString style) => CSSStyleSheet -> Maybe selector -> Maybe style -> Maybe Word -> m ()+addRule_ self selector style index = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a4' -> js_addRule (self) (toOptionalJSString selector) (toOptionalJSString style) a4'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> -insertRule_ ::-            (MonadIO m, ToJSString rule) => CSSStyleSheet -> rule -> m ()-insertRule_ self rule-  = liftIO (void (js_insertRule self (toJSString rule)))-  foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })"         js_deleteRule :: CSSStyleSheet -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/deleteRule MDN CSSStyleSheet.deleteRule documentation>+deleteRule :: (MonadDOM m) => CSSStyleSheet -> Word -> m ()+deleteRule self index = liftDOM (void ((js_deleteRule (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.deleteRule Mozilla CSSStyleSheet.deleteRule documentation> -deleteRule :: (MonadIO m) => CSSStyleSheet -> Word -> m ()-deleteRule self index = liftIO (js_deleteRule self index)- -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"addRule\"]($2, $3, $4); })"-        js_addRule ::-        CSSStyleSheet ->-          Optional JSString -> Optional JSString -> Optional Word -> IO Int+foreign import javascript safe "(($1, $2) => { return $1[\"insertRule\"]($2); })"+        js_insertRule :: CSSStyleSheet -> JSString -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/insertRule MDN CSSStyleSheet.insertRule documentation>+insertRule :: (MonadDOM m, ToJSString rule) => CSSStyleSheet -> rule -> m Word+insertRule self rule = liftDOM ((js_insertRule (self) (toJSString rule))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.addRule Mozilla CSSStyleSheet.addRule documentation> -addRule ::-        (MonadIO m, ToJSString selector, ToJSString style) =>-          CSSStyleSheet ->-            Maybe selector -> Maybe style -> Maybe Word -> m Int-addRule self selector style index-  = liftIO-      (js_addRule self (toOptionalJSString selector)-         (toOptionalJSString style)-         (maybeToOptional index))+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/insertRule MDN CSSStyleSheet.insertRule documentation>+insertRule_ :: (MonadDOM m, ToJSString rule) => CSSStyleSheet -> rule -> m ()+insertRule_ self rule = liftDOM (void ((js_insertRule (self) (toJSString rule)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.addRule Mozilla CSSStyleSheet.addRule documentation> -addRule_ ::-         (MonadIO m, ToJSString selector, ToJSString style) =>-           CSSStyleSheet ->-             Maybe selector -> Maybe style -> Maybe Word -> m ()-addRule_ self selector style index-  = liftIO-      (void-         (js_addRule self (toOptionalJSString selector)-            (toOptionalJSString style)-            (maybeToOptional index)))- +foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertRule\"]($2, $3); })"+        js_insertRule' :: CSSStyleSheet -> JSString -> JSVal -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/insertRule MDN CSSStyleSheet.insertRule documentation>+insertRule' :: (MonadDOM m, ToJSString rule) => CSSStyleSheet -> rule -> Maybe Word -> m Word+insertRule' self rule index = liftDOM (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a3' -> js_insertRule' (self) (toJSString rule) a3'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/insertRule MDN CSSStyleSheet.insertRule documentation>+insertRule'_ :: (MonadDOM m, ToJSString rule) => CSSStyleSheet -> rule -> Maybe Word -> m ()+insertRule'_ self rule index = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a3' -> js_insertRule' (self) (toJSString rule) a3')))+ foreign import javascript safe "(($1, $2) => { return $1[\"removeRule\"]($2); })"-        js_removeRule :: CSSStyleSheet -> Optional Word -> IO ()+        js_removeRule :: CSSStyleSheet -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/removeRule MDN CSSStyleSheet.removeRule documentation>+removeRule :: (MonadDOM m) => CSSStyleSheet -> Maybe Word -> m ()+removeRule self index = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a2' -> js_removeRule (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.removeRule Mozilla CSSStyleSheet.removeRule documentation> -removeRule :: (MonadIO m) => CSSStyleSheet -> Maybe Word -> m ()-removeRule self index-  = liftIO (js_removeRule self (maybeToOptional index))- +foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"replace\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_replace :: CSSStyleSheet -> JSString -> IO (JSVal, CSSStyleSheet)+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/replace MDN CSSStyleSheet.replace documentation>+replace :: (MonadDOM m, ToJSString text) => CSSStyleSheet -> text -> m CSSStyleSheet+replace self text = liftDOM (((js_replace (self) (toJSString text)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/replace MDN CSSStyleSheet.replace documentation>+replace_ :: (MonadDOM m, ToJSString text) => CSSStyleSheet -> text -> m ()+replace_ self text = liftDOM (void (((js_replace (self) (toJSString text)) >>= checkPromiseResult)))++foreign import javascript safe "(($1, $2) => { return $1[\"replaceSync\"]($2); })"+        js_replaceSync :: CSSStyleSheet -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/replaceSync MDN CSSStyleSheet.replaceSync documentation>+replaceSync :: (MonadDOM m, ToJSString text) => CSSStyleSheet -> text -> m ()+replaceSync self text = liftDOM (void ((js_replaceSync (self) (toJSString text))))+ foreign import javascript unsafe "(($1) => { return $1[\"ownerRule\"]; })"-        js_getOwnerRule :: CSSStyleSheet -> IO CSSRule+        js_getOwnerRule :: CSSStyleSheet -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/ownerRule MDN CSSStyleSheet.ownerRule documentation>+getOwnerRule :: (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRule)+getOwnerRule self = liftDOM (((js_getOwnerRule (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation> -getOwnerRule :: (MonadIO m) => CSSStyleSheet -> m CSSRule-getOwnerRule self = liftIO (js_getOwnerRule self)- -foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" js_getCssRules-        :: CSSStyleSheet -> IO CSSRuleList+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/ownerRule MDN CSSStyleSheet.ownerRule documentation>+getOwnerRuleUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheet -> m CSSRule+getOwnerRuleUnsafe self = liftDOM ((((js_getOwnerRule (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation> -getCssRules :: (MonadIO m) => CSSStyleSheet -> m CSSRuleList-getCssRules self = liftIO (js_getCssRules self)- -foreign import javascript unsafe "(($1) => { return $1[\"rules\"]; })" js_getRules ::-        CSSStyleSheet -> IO CSSRuleList+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/ownerRule MDN CSSStyleSheet.ownerRule documentation>+getOwnerRuleUnchecked :: (MonadDOM m) => CSSStyleSheet -> m CSSRule+getOwnerRuleUnchecked self = liftDOM ((pFromJSVal <$> (js_getOwnerRule (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation> -getRules :: (MonadIO m) => CSSStyleSheet -> m CSSRuleList-getRules self = liftIO (js_getRules self)+foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })"+        js_getCssRules :: CSSStyleSheet -> IO CSSRuleList+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/cssRules MDN CSSStyleSheet.cssRules documentation>+getCssRules :: (MonadDOM m) => CSSStyleSheet -> m CSSRuleList+getCssRules self = liftDOM ((js_getCssRules (self)))++foreign import javascript unsafe "(($1) => { return $1[\"rules\"]; })"+        js_getRules :: CSSStyleSheet -> IO CSSRuleList+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/rules MDN CSSStyleSheet.rules documentation>+getRules :: (MonadDOM m) => CSSStyleSheet -> m CSSRuleList+getRules self = liftDOM ((js_getRules (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheetInit.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSStyleSheetInit+       (js_newCSSStyleSheetInit, js_setBaseURL, js_getBaseURL, js_setMedia, js_getMedia, js_setDisabled, js_getDisabled, newCSSStyleSheetInit, setBaseURL, getBaseURL, getBaseURLUnsafe, getBaseURLUnchecked, setMedia, getMedia, getMediaUnsafe, getMediaUnchecked, setDisabled, getDisabled, getDisabledUnsafe, getDisabledUnchecked, CSSStyleSheetInit(..), gTypeCSSStyleSheetInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCSSStyleSheetInit :: IO CSSStyleSheetInit+-- | <https://drafts.csswg.org/cssom-1/#dictdef-cssstylesheetinit CSSStyleSheetInit specification>+newCSSStyleSheetInit :: (MonadDOM m) => m CSSStyleSheetInit+newCSSStyleSheetInit = liftDOM ((js_newCSSStyleSheetInit))++foreign import javascript safe "(($1, $2) => { $1[\"baseURL\"] = $2; })"+        js_setBaseURL :: CSSStyleSheetInit -> (Nullable JSString) -> IO ()+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>+setBaseURL :: (MonadDOM m, ToJSString val) => CSSStyleSheetInit -> Maybe val -> m ()+setBaseURL self val = liftDOM (void ((js_setBaseURL (self) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"baseURL\"]; })"+        js_getBaseURL :: CSSStyleSheetInit -> IO JSVal+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>+getBaseURL :: (MonadDOM m, FromJSString result) => CSSStyleSheetInit -> m (Maybe result)+getBaseURL self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getBaseURL (self))))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>+getBaseURLUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSStyleSheetInit -> m result+getBaseURLUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getBaseURL (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>+getBaseURLUnchecked :: (MonadDOM m, FromJSString result) => CSSStyleSheetInit -> m result+getBaseURLUnchecked self = liftDOM ((pFromJSVal <$> (js_getBaseURL (self))))++foreign import javascript safe "(($1, $2) => { $1[\"media\"] = $2; })"+        js_setMedia :: CSSStyleSheetInit -> MediaListOrString -> IO ()+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>+setMedia :: (MonadDOM m, IsMediaListOrString val) => CSSStyleSheetInit -> val -> m ()+setMedia self val = liftDOM (void ((js_setMedia (self) (Types.toMediaListOrString val))))++foreign import javascript unsafe "(($1) => { return $1[\"media\"]; })"+        js_getMedia :: CSSStyleSheetInit -> IO JSVal+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>+getMedia :: (MonadDOM m) => CSSStyleSheetInit -> m (Maybe MediaListOrString)+getMedia self = liftDOM (((js_getMedia (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>+getMediaUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheetInit -> m MediaListOrString+getMediaUnsafe self = liftDOM ((((js_getMedia (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>+getMediaUnchecked :: (MonadDOM m) => CSSStyleSheetInit -> m MediaListOrString+getMediaUnchecked self = liftDOM ((pFromJSVal <$> (js_getMedia (self))))++foreign import javascript safe "(($1, $2) => { $1[\"disabled\"] = $2; })"+        js_setDisabled :: CSSStyleSheetInit -> Bool -> IO ()+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>+setDisabled :: (MonadDOM m) => CSSStyleSheetInit -> Bool -> m ()+setDisabled self val = liftDOM (void ((js_setDisabled (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"disabled\"]; })"+        js_getDisabled :: CSSStyleSheetInit -> IO JSVal+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>+getDisabled :: (MonadDOM m) => CSSStyleSheetInit -> m (Maybe Bool)+getDisabled self = liftDOM (((js_getDisabled (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>+getDisabledUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheetInit -> m Bool+getDisabledUnsafe self = liftDOM ((((js_getDisabled (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>+getDisabledUnchecked :: (MonadDOM m) => CSSStyleSheetInit -> m Bool+getDisabledUnchecked self = liftDOM ((pFromJSVal <$> (js_getDisabled (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSStyleValue.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSStyleValue+       (js_parse, js_parseAll, parse, parse_, parseAll, parseAll_, CSSStyleValue(..), gTypeCSSStyleValue, IsCSSStyleValue, toCSSStyleValue)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return globalThis[\"CSSStyleValue\"][\"parse\"]($1, $2); })"+        js_parse :: JSString -> JSString -> IO CSSStyleValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleValue/parse_static MDN CSSStyleValue.parse documentation>+parse :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m CSSStyleValue+parse property cssText = liftDOM ((js_parse (toJSString property) (toJSString cssText)))++-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleValue/parse_static MDN CSSStyleValue.parse documentation>+parse_ :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m ()+parse_ property cssText = liftDOM (void ((js_parse (toJSString property) (toJSString cssText))))++foreign import javascript safe "(($1, $2) => { return globalThis[\"CSSStyleValue\"][\"parseAll\"]($1, $2); })"+        js_parseAll :: JSString -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleValue/parseAll_static MDN CSSStyleValue.parseAll documentation>+parseAll :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m [CSSStyleValue]+parseAll property cssText = liftDOM (((js_parseAll (toJSString property) (toJSString cssText)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleValue/parseAll_static MDN CSSStyleValue.parseAll documentation>+parseAll_ :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m ()+parseAll_ property cssText = liftDOM (void ((js_parseAll (toJSString property) (toJSString cssText))))
src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs view
@@ -1,68 +1,18 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-conditional-3 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CSSSupportsRule-       (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,-        js_getCssRules, getCssRules, js_getConditionText, getConditionText,-        CSSSupportsRule(..), gTypeCSSSupportsRule)+       (CSSSupportsRule(..), gTypeCSSSupportsRule)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertRule\"]($2, $3); })"-        js_insertRule :: CSSSupportsRule -> JSString -> Word -> IO Word --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation> -insertRule ::-           (MonadIO m, ToJSString rule) =>-             CSSSupportsRule -> rule -> Word -> m Word-insertRule self rule index-  = liftIO (js_insertRule self (toJSString rule) index)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation> -insertRule_ ::-            (MonadIO m, ToJSString rule) =>-              CSSSupportsRule -> rule -> Word -> m ()-insertRule_ self rule index-  = liftIO (void (js_insertRule self (toJSString rule) index))- -foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })"-        js_deleteRule :: CSSSupportsRule -> Word -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.deleteRule Mozilla CSSSupportsRule.deleteRule documentation> -deleteRule :: (MonadIO m) => CSSSupportsRule -> Word -> m ()-deleteRule self index = liftIO (js_deleteRule self index)- -foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" js_getCssRules-        :: CSSSupportsRule -> IO CSSRuleList---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation> -getCssRules :: (MonadIO m) => CSSSupportsRule -> m CSSRuleList-getCssRules self = liftIO (js_getCssRules self)- -foreign import javascript unsafe "(($1) => { return $1[\"conditionText\"]; })"-        js_getConditionText :: CSSSupportsRule -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.conditionText Mozilla CSSSupportsRule.conditionText documentation> -getConditionText ::-                 (MonadIO m, FromJSString result) => CSSSupportsRule -> m result-getConditionText self-  = liftIO (fromJSString <$> (js_getConditionText self))
+ src/GHCJS/DOM/JSFFI/Generated/CSSTransformComponent.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSTransformComponent+       (js_toMatrix, js_setIs2D, js_getIs2D, toMatrix, toMatrix_, setIs2D, getIs2D, CSSTransformComponent(..), gTypeCSSTransformComponent, IsCSSTransformComponent, toCSSTransformComponent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"toMatrix\"](); })"+        js_toMatrix :: CSSTransformComponent -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformComponent/toMatrix MDN CSSTransformComponent.toMatrix documentation>+toMatrix :: (MonadDOM m, IsCSSTransformComponent self) => self -> m DOMMatrix+toMatrix self = liftDOM ((js_toMatrix ((Types.toCSSTransformComponent self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformComponent/toMatrix MDN CSSTransformComponent.toMatrix documentation>+toMatrix_ :: (MonadDOM m, IsCSSTransformComponent self) => self -> m ()+toMatrix_ self = liftDOM (void ((js_toMatrix ((Types.toCSSTransformComponent self)))))++foreign import javascript safe "(($1, $2) => { $1[\"is2D\"] = $2; })"+        js_setIs2D :: CSSTransformComponent -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformComponent/is2D MDN CSSTransformComponent.is2D documentation>+setIs2D :: (MonadDOM m, IsCSSTransformComponent self) => self -> Bool -> m ()+setIs2D self val = liftDOM (void ((js_setIs2D ((Types.toCSSTransformComponent self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"is2D\"]; })"+        js_getIs2D :: CSSTransformComponent -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformComponent/is2D MDN CSSTransformComponent.is2D documentation>+getIs2D :: (MonadDOM m, IsCSSTransformComponent self) => self -> m Bool+getIs2D self = liftDOM ((js_getIs2D ((Types.toCSSTransformComponent self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSTransformValue.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSTransformValue+       (js_newCSSTransformValue, js_toMatrix, js_getLength, js_getIs2D, newCSSTransformValue, toMatrix, toMatrix_, getLength, getIs2D, CSSTransformValue(..), gTypeCSSTransformValue)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CSSTransformValue\"]($1); })"+        js_newCSSTransformValue :: JSVal -> IO CSSTransformValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformValue/CSSTransformValue MDN CSSTransformValue. documentation>+newCSSTransformValue :: (MonadDOM m, IsCSSTransformComponent transforms) => [transforms] -> m CSSTransformValue+newCSSTransformValue transforms = liftDOM (((toJSVal transforms) >>= \a1' -> js_newCSSTransformValue a1'))++foreign import javascript safe "(($1) => { return $1[\"toMatrix\"](); })"+        js_toMatrix :: CSSTransformValue -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformValue/toMatrix MDN CSSTransformValue.toMatrix documentation>+toMatrix :: (MonadDOM m) => CSSTransformValue -> m DOMMatrix+toMatrix self = liftDOM ((js_toMatrix (self)))++-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformValue/toMatrix MDN CSSTransformValue.toMatrix documentation>+toMatrix_ :: (MonadDOM m) => CSSTransformValue -> m ()+toMatrix_ self = liftDOM (void ((js_toMatrix (self))))++foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: CSSTransformValue -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformValue/length MDN CSSTransformValue.length documentation>+getLength :: (MonadDOM m) => CSSTransformValue -> m Word+getLength self = liftDOM ((js_getLength (self)))++foreign import javascript unsafe "(($1) => { return $1[\"is2D\"]; })"+        js_getIs2D :: CSSTransformValue -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformValue/is2D MDN CSSTransformValue.is2D documentation>+getIs2D :: (MonadDOM m) => CSSTransformValue -> m Bool+getIs2D self = liftDOM ((js_getIs2D (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSTransition.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-transitions-2 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSTransition+       (js_getTransitionProperty, getTransitionProperty, CSSTransition(..), gTypeCSSTransition)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"transitionProperty\"]; })"+        js_getTransitionProperty :: CSSTransition -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransition/transitionProperty MDN CSSTransition.transitionProperty documentation>+getTransitionProperty :: (MonadDOM m, FromJSString result) => CSSTransition -> m result+getTransitionProperty self = liftDOM ((fromJSString <$> (js_getTransitionProperty (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSTranslate.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSTranslate+       (js_newCSSTranslate, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, newCSSTranslate, setX, getX, setY, getY, setZ, getZ, CSSTranslate(..), gTypeCSSTranslate)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return new globalThis[\"CSSTranslate\"]($1, $2, $3); })"+        js_newCSSTranslate :: CSSNumericValue -> CSSNumericValue -> JSVal -> IO CSSTranslate+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/CSSTranslate MDN CSSTranslate. documentation>+newCSSTranslate :: (MonadDOM m, IsCSSNumericValue x, IsCSSNumericValue y, IsCSSNumericValue z) => x -> y -> Maybe z -> m CSSTranslate+newCSSTranslate x y z = liftDOM (((P.maybe (P.return jsUndefined) toJSVal z) >>= \a3' -> js_newCSSTranslate (Types.toCSSNumericValue x) (Types.toCSSNumericValue y) a3'))++foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+        js_setX :: CSSTranslate -> CSSNumericValue -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/x MDN CSSTranslate.x documentation>+setX :: (MonadDOM m, IsCSSNumericValue val) => CSSTranslate -> val -> m ()+setX self val = liftDOM (void ((js_setX (self) (Types.toCSSNumericValue val))))++foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: CSSTranslate -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/x MDN CSSTranslate.x documentation>+getX :: (MonadDOM m) => CSSTranslate -> m CSSNumericValue+getX self = liftDOM ((js_getX (self)))++foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"+        js_setY :: CSSTranslate -> CSSNumericValue -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/y MDN CSSTranslate.y documentation>+setY :: (MonadDOM m, IsCSSNumericValue val) => CSSTranslate -> val -> m ()+setY self val = liftDOM (void ((js_setY (self) (Types.toCSSNumericValue val))))++foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: CSSTranslate -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/y MDN CSSTranslate.y documentation>+getY :: (MonadDOM m) => CSSTranslate -> m CSSNumericValue+getY self = liftDOM ((js_getY (self)))++foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })"+        js_setZ :: CSSTranslate -> CSSNumericValue -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/z MDN CSSTranslate.z documentation>+setZ :: (MonadDOM m, IsCSSNumericValue val) => CSSTranslate -> val -> m ()+setZ self val = liftDOM (void ((js_setZ (self) (Types.toCSSNumericValue val))))++foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })"+        js_getZ :: CSSTranslate -> IO CSSNumericValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/z MDN CSSTranslate.z documentation>+getZ :: (MonadDOM m) => CSSTranslate -> m CSSNumericValue+getZ self = liftDOM ((js_getZ (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CSSUnitValue.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSUnitValue+       (js_newCSSUnitValue, js_setValue, js_getValue, js_getUnit, newCSSUnitValue, setValue, getValue, getUnit, CSSUnitValue(..), gTypeCSSUnitValue)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"CSSUnitValue\"]($1, $2); })"+        js_newCSSUnitValue :: Double -> JSString -> IO CSSUnitValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnitValue/CSSUnitValue MDN CSSUnitValue. documentation>+newCSSUnitValue :: (MonadDOM m, ToJSString unit) => Double -> unit -> m CSSUnitValue+newCSSUnitValue value unit = liftDOM ((js_newCSSUnitValue (value) (toJSString unit)))++foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })"+        js_setValue :: CSSUnitValue -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnitValue/value MDN CSSUnitValue.value documentation>+setValue :: (MonadDOM m) => CSSUnitValue -> Double -> m ()+setValue self val = liftDOM (void ((js_setValue (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: CSSUnitValue -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnitValue/value MDN CSSUnitValue.value documentation>+getValue :: (MonadDOM m) => CSSUnitValue -> m Double+getValue self = liftDOM ((js_getValue (self)))++foreign import javascript unsafe "(($1) => { return $1[\"unit\"]; })"+        js_getUnit :: CSSUnitValue -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnitValue/unit MDN CSSUnitValue.unit documentation>+getUnit :: (MonadDOM m, FromJSString result) => CSSUnitValue -> m result+getUnit self = liftDOM ((fromJSString <$> (js_getUnit (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSUnparsedValue.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSUnparsedValue+       (js_newCSSUnparsedValue, js_getLength, newCSSUnparsedValue, getLength, CSSUnparsedValue(..), gTypeCSSUnparsedValue)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CSSUnparsedValue\"]($1); })"+        js_newCSSUnparsedValue :: JSVal -> IO CSSUnparsedValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnparsedValue/CSSUnparsedValue MDN CSSUnparsedValue. documentation>+newCSSUnparsedValue :: (MonadDOM m, IsCSSUnparsedSegment members) => [members] -> m CSSUnparsedValue+newCSSUnparsedValue members = liftDOM (((toJSVal members) >>= \a1' -> js_newCSSUnparsedValue a1'))++foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: CSSUnparsedValue -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnparsedValue/length MDN CSSUnparsedValue.length documentation>+getLength :: (MonadDOM m) => CSSUnparsedValue -> m Word+getLength self = liftDOM ((js_getLength (self)))
− src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs
@@ -1,80 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.CSSValue-       (pattern CSS_INHERIT, pattern CSS_PRIMITIVE_VALUE,-        pattern CSS_VALUE_LIST, pattern CSS_CUSTOM, js_setCssText,-        setCssText, js_getCssText, getCssText, getCssTextUnsafe,-        getCssTextUnchecked, js_getCssValueType, getCssValueType,-        CSSValue(..), gTypeCSSValue, IsCSSValue, toCSSValue)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums-pattern CSS_INHERIT = 0-pattern CSS_PRIMITIVE_VALUE = 1-pattern CSS_VALUE_LIST = 2-pattern CSS_CUSTOM = 3- -foreign import javascript safe "(($1, $2) => { $1[\"cssText\"] = $2; })"-        js_setCssText :: CSSValue -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> -setCssText ::-           (MonadIO m, IsCSSValue self, ToJSString val) =>-             self -> Maybe val -> m ()-setCssText self val-  = liftIO (js_setCssText (toCSSValue self) (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })" js_getCssText ::-        CSSValue -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> -getCssText ::-           (MonadIO m, IsCSSValue self, FromJSString result) =>-             self -> m (Maybe result)-getCssText self-  = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSValue self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> -getCssTextUnsafe ::-                 (MonadIO m, IsCSSValue self, HasCallStack, FromJSString result) =>-                   self -> m result-getCssTextUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getCssText (toCSSValue self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> -getCssTextUnchecked ::-                    (MonadIO m, IsCSSValue self, FromJSString result) =>-                      self -> m result-getCssTextUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getCssText (toCSSValue self)))- -foreign import javascript unsafe "(($1) => { return $1[\"cssValueType\"]; })"-        js_getCssValueType :: CSSValue -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssValueType Mozilla CSSValue.cssValueType documentation> -getCssValueType :: (MonadIO m, IsCSSValue self) => self -> m Word-getCssValueType self-  = liftIO (js_getCssValueType (toCSSValue self))
− src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs
@@ -1,45 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.CSSValueList-       (js_item, item, item_, js_getLength, getLength, CSSValueList(..),-        gTypeCSSValueList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item ::-        CSSValueList -> Word -> IO CSSValue---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> -item :: (MonadIO m) => CSSValueList -> Word -> m CSSValue-item self index = liftIO (js_item self index)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> -item_ :: (MonadIO m) => CSSValueList -> Word -> m ()-item_ self index = liftIO (void (js_item self index))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::-        CSSValueList -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.length Mozilla CSSValueList.length documentation> -getLength :: (MonadIO m) => CSSValueList -> m Word-getLength self = liftIO (js_getLength self)
+ src/GHCJS/DOM/JSFFI/Generated/CSSVariableReferenceValue.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSVariableReferenceValue+       (js_newCSSVariableReferenceValue, js_setVariable, js_getVariable, js_getFallback, newCSSVariableReferenceValue, setVariable, getVariable, getFallback, getFallbackUnsafe, getFallbackUnchecked, CSSVariableReferenceValue(..), gTypeCSSVariableReferenceValue)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"CSSVariableReferenceValue\"]($1, $2); })"+        js_newCSSVariableReferenceValue :: JSString -> JSVal -> IO CSSVariableReferenceValue+-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/CSSVariableReferenceValue MDN CSSVariableReferenceValue. documentation>+newCSSVariableReferenceValue :: (MonadDOM m, ToJSString variable) => variable -> Maybe CSSUnparsedValue -> m CSSVariableReferenceValue+newCSSVariableReferenceValue variable fallback = liftDOM (((toJSVal fallback) >>= \a2' -> js_newCSSVariableReferenceValue (toJSString variable) a2'))++foreign import javascript safe "(($1, $2) => { $1[\"variable\"] = $2; })"+        js_setVariable :: CSSVariableReferenceValue -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/variable MDN CSSVariableReferenceValue.variable documentation>+setVariable :: (MonadDOM m, ToJSString val) => CSSVariableReferenceValue -> val -> m ()+setVariable self val = liftDOM (void ((js_setVariable (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"variable\"]; })"+        js_getVariable :: CSSVariableReferenceValue -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/variable MDN CSSVariableReferenceValue.variable documentation>+getVariable :: (MonadDOM m, FromJSString result) => CSSVariableReferenceValue -> m result+getVariable self = liftDOM ((fromJSString <$> (js_getVariable (self))))++foreign import javascript unsafe "(($1) => { return $1[\"fallback\"]; })"+        js_getFallback :: CSSVariableReferenceValue -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/fallback MDN CSSVariableReferenceValue.fallback documentation>+getFallback :: (MonadDOM m) => CSSVariableReferenceValue -> m (Maybe CSSUnparsedValue)+getFallback self = liftDOM (((js_getFallback (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/fallback MDN CSSVariableReferenceValue.fallback documentation>+getFallbackUnsafe :: (MonadDOM m, HasCallStack) => CSSVariableReferenceValue -> m CSSUnparsedValue+getFallbackUnsafe self = liftDOM ((((js_getFallback (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/fallback MDN CSSVariableReferenceValue.fallback documentation>+getFallbackUnchecked :: (MonadDOM m) => CSSVariableReferenceValue -> m CSSUnparsedValue+getFallbackUnchecked self = liftDOM ((pFromJSVal <$> (js_getFallback (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CSSViewTransitionRule.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-view-transitions-2 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CSSViewTransitionRule+       (js_getNavigation, js_getTypes, getNavigation, getTypes, CSSViewTransitionRule(..), gTypeCSSViewTransitionRule)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"navigation\"]; })"+        js_getNavigation :: CSSViewTransitionRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSViewTransitionRule/navigation MDN CSSViewTransitionRule.navigation documentation>+getNavigation :: (MonadDOM m, FromJSString result) => CSSViewTransitionRule -> m result+getNavigation self = liftDOM ((fromJSString <$> (js_getNavigation (self))))++foreign import javascript unsafe "(($1) => { return $1[\"types\"]; })"+        js_getTypes :: CSSViewTransitionRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSViewTransitionRule/types MDN CSSViewTransitionRule.types documentation>+getTypes :: (MonadDOM m, FromJSString result) => CSSViewTransitionRule -> m [result]+getTypes self = liftDOM (((js_getTypes (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/Cache.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from service-workers (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.Cache+       (js_add, js_addAll, js_delete, js_keys, js_match, js_matchAll, js_put, add, addAll, delete, delete_, keys, keys_, match, match_, matchAll, matchAll_, put, Cache(..), gTypeCache)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"add\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_add :: Cache -> RequestInfo -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Cache/add MDN Cache.add documentation>+add :: (MonadDOM m, IsRequestInfo request) => Cache -> request -> m ()+add self request = liftDOM (void (((js_add (self) (Types.toRequestInfo request)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"addAll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_addAll :: Cache -> JSVal -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Cache/addAll MDN Cache.addAll documentation>+addAll :: (MonadDOM m, IsRequestInfo requests) => Cache -> [requests] -> m ()+addAll self requests = liftDOM (void ((((toJSVal requests) >>= \a2' -> js_addAll (self) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"delete\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_delete :: Cache -> RequestInfo -> JSVal -> IO (JSVal, Bool)+-- | <https://developer.mozilla.org/docs/Web/API/Cache/delete MDN Cache.delete documentation>+delete :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> request -> Maybe options -> m Bool+delete self request options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_delete (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Cache/delete MDN Cache.delete documentation>+delete_ :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> request -> Maybe options -> m ()+delete_ self request options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_delete (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"keys\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_keys :: Cache -> JSVal -> JSVal -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/Cache/keys MDN Cache.keys documentation>+keys :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> Maybe request -> Maybe options -> m [Request]+keys self request options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal request) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_keys (self) a2' a3') >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Cache/keys MDN Cache.keys documentation>+keys_ :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> Maybe request -> Maybe options -> m ()+keys_ self request options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal request) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_keys (self) a2' a3') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"match\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_match :: Cache -> RequestInfo -> JSVal -> IO (JSVal, ResponseOrUndefined)+-- | <https://developer.mozilla.org/docs/Web/API/Cache/match MDN Cache.match documentation>+match :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> request -> Maybe options -> m ResponseOrUndefined+match self request options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_match (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Cache/match MDN Cache.match documentation>+match_ :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> request -> Maybe options -> m ()+match_ self request options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_match (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"matchAll\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_matchAll :: Cache -> JSVal -> JSVal -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/Cache/matchAll MDN Cache.matchAll documentation>+matchAll :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> Maybe request -> Maybe options -> m [Response]+matchAll self request options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal request) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_matchAll (self) a2' a3') >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Cache/matchAll MDN Cache.matchAll documentation>+matchAll_ :: (MonadDOM m, IsRequestInfo request, IsCacheQueryOptions options) => Cache -> Maybe request -> Maybe options -> m ()+matchAll_ self request options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal request) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_matchAll (self) a2' a3') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"put\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_put :: Cache -> RequestInfo -> Response -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Cache/put MDN Cache.put documentation>+put :: (MonadDOM m, IsRequestInfo request) => Cache -> request -> Response -> m ()+put self request response = liftDOM (void (((js_put (self) (Types.toRequestInfo request) (response)) >>= checkPromiseResult)))
+ src/GHCJS/DOM/JSFFI/Generated/CacheQueryOptions.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from service-workers (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CacheQueryOptions+       (js_newCacheQueryOptions, js_setIgnoreSearch, js_getIgnoreSearch, js_setIgnoreMethod, js_getIgnoreMethod, js_setIgnoreVary, js_getIgnoreVary, newCacheQueryOptions, setIgnoreSearch, getIgnoreSearch, getIgnoreSearchUnsafe, getIgnoreSearchUnchecked, setIgnoreMethod, getIgnoreMethod, getIgnoreMethodUnsafe, getIgnoreMethodUnchecked, setIgnoreVary, getIgnoreVary, getIgnoreVaryUnsafe, getIgnoreVaryUnchecked, CacheQueryOptions(..), gTypeCacheQueryOptions, IsCacheQueryOptions, toCacheQueryOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCacheQueryOptions :: IO CacheQueryOptions+-- | <https://w3c.github.io/ServiceWorker/#dictdef-cachequeryoptions CacheQueryOptions specification>+newCacheQueryOptions :: (MonadDOM m) => m CacheQueryOptions+newCacheQueryOptions = liftDOM ((js_newCacheQueryOptions))++foreign import javascript safe "(($1, $2) => { $1[\"ignoreSearch\"] = $2; })"+        js_setIgnoreSearch :: CacheQueryOptions -> Bool -> IO ()+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoresearch CacheQueryOptions.ignoreSearch specification>+setIgnoreSearch :: (MonadDOM m, IsCacheQueryOptions self) => self -> Bool -> m ()+setIgnoreSearch self val = liftDOM (void ((js_setIgnoreSearch ((Types.toCacheQueryOptions self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"ignoreSearch\"]; })"+        js_getIgnoreSearch :: CacheQueryOptions -> IO JSVal+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoresearch CacheQueryOptions.ignoreSearch specification>+getIgnoreSearch :: (MonadDOM m, IsCacheQueryOptions self) => self -> m (Maybe Bool)+getIgnoreSearch self = liftDOM (((js_getIgnoreSearch ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoresearch CacheQueryOptions.ignoreSearch specification>+getIgnoreSearchUnsafe :: (MonadDOM m, IsCacheQueryOptions self, HasCallStack) => self -> m Bool+getIgnoreSearchUnsafe self = liftDOM ((((js_getIgnoreSearch ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoresearch CacheQueryOptions.ignoreSearch specification>+getIgnoreSearchUnchecked :: (MonadDOM m, IsCacheQueryOptions self) => self -> m Bool+getIgnoreSearchUnchecked self = liftDOM ((pFromJSVal <$> (js_getIgnoreSearch ((Types.toCacheQueryOptions self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ignoreMethod\"] = $2; })"+        js_setIgnoreMethod :: CacheQueryOptions -> Bool -> IO ()+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoremethod CacheQueryOptions.ignoreMethod specification>+setIgnoreMethod :: (MonadDOM m, IsCacheQueryOptions self) => self -> Bool -> m ()+setIgnoreMethod self val = liftDOM (void ((js_setIgnoreMethod ((Types.toCacheQueryOptions self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"ignoreMethod\"]; })"+        js_getIgnoreMethod :: CacheQueryOptions -> IO JSVal+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoremethod CacheQueryOptions.ignoreMethod specification>+getIgnoreMethod :: (MonadDOM m, IsCacheQueryOptions self) => self -> m (Maybe Bool)+getIgnoreMethod self = liftDOM (((js_getIgnoreMethod ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoremethod CacheQueryOptions.ignoreMethod specification>+getIgnoreMethodUnsafe :: (MonadDOM m, IsCacheQueryOptions self, HasCallStack) => self -> m Bool+getIgnoreMethodUnsafe self = liftDOM ((((js_getIgnoreMethod ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoremethod CacheQueryOptions.ignoreMethod specification>+getIgnoreMethodUnchecked :: (MonadDOM m, IsCacheQueryOptions self) => self -> m Bool+getIgnoreMethodUnchecked self = liftDOM ((pFromJSVal <$> (js_getIgnoreMethod ((Types.toCacheQueryOptions self)))))++foreign import javascript safe "(($1, $2) => { $1[\"ignoreVary\"] = $2; })"+        js_setIgnoreVary :: CacheQueryOptions -> Bool -> IO ()+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignorevary CacheQueryOptions.ignoreVary specification>+setIgnoreVary :: (MonadDOM m, IsCacheQueryOptions self) => self -> Bool -> m ()+setIgnoreVary self val = liftDOM (void ((js_setIgnoreVary ((Types.toCacheQueryOptions self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"ignoreVary\"]; })"+        js_getIgnoreVary :: CacheQueryOptions -> IO JSVal+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignorevary CacheQueryOptions.ignoreVary specification>+getIgnoreVary :: (MonadDOM m, IsCacheQueryOptions self) => self -> m (Maybe Bool)+getIgnoreVary self = liftDOM (((js_getIgnoreVary ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignorevary CacheQueryOptions.ignoreVary specification>+getIgnoreVaryUnsafe :: (MonadDOM m, IsCacheQueryOptions self, HasCallStack) => self -> m Bool+getIgnoreVaryUnsafe self = liftDOM ((((js_getIgnoreVary ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignorevary CacheQueryOptions.ignoreVary specification>+getIgnoreVaryUnchecked :: (MonadDOM m, IsCacheQueryOptions self) => self -> m Bool+getIgnoreVaryUnchecked self = liftDOM ((pFromJSVal <$> (js_getIgnoreVary ((Types.toCacheQueryOptions self)))))
+ src/GHCJS/DOM/JSFFI/Generated/CacheStorage.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from service-workers (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CacheStorage+       (js_delete, js_has, js_keys, js_match, js_open, delete, delete_, has, has_, keys, keys_, match, match_, open, open_, CacheStorage(..), gTypeCacheStorage)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"delete\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_delete :: CacheStorage -> JSString -> IO (JSVal, Bool)+-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/delete MDN CacheStorage.delete documentation>+delete :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m Bool+delete self cacheName = liftDOM (((js_delete (self) (toJSString cacheName)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/delete MDN CacheStorage.delete documentation>+delete_ :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m ()+delete_ self cacheName = liftDOM (void (((js_delete (self) (toJSString cacheName)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"has\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_has :: CacheStorage -> JSString -> IO (JSVal, Bool)+-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/has MDN CacheStorage.has documentation>+has :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m Bool+has self cacheName = liftDOM (((js_has (self) (toJSString cacheName)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/has MDN CacheStorage.has documentation>+has_ :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m ()+has_ self cacheName = liftDOM (void (((js_has (self) (toJSString cacheName)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $c) => { return $1[\"keys\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_keys :: CacheStorage -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/keys MDN CacheStorage.keys documentation>+keys :: (MonadDOM m, FromJSString result) => CacheStorage -> m [result]+keys self = liftDOM ((((js_keys (self)) >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/keys MDN CacheStorage.keys documentation>+keys_ :: (MonadDOM m) => CacheStorage -> m ()+keys_ self = liftDOM (void (((js_keys (self)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"match\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_match :: CacheStorage -> RequestInfo -> JSVal -> IO (JSVal, ResponseOrUndefined)+-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/match MDN CacheStorage.match documentation>+match :: (MonadDOM m, IsRequestInfo request) => CacheStorage -> request -> Maybe MultiCacheQueryOptions -> m ResponseOrUndefined+match self request options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_match (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/match MDN CacheStorage.match documentation>+match_ :: (MonadDOM m, IsRequestInfo request) => CacheStorage -> request -> Maybe MultiCacheQueryOptions -> m ()+match_ self request options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_match (self) (Types.toRequestInfo request) a3') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"open\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_open :: CacheStorage -> JSString -> IO (JSVal, Cache)+-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/open MDN CacheStorage.open documentation>+open :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m Cache+open self cacheName = liftDOM (((js_open (self) (toJSString cacheName)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/open MDN CacheStorage.open documentation>+open_ :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m ()+open_ self cacheName = liftDOM (void (((js_open (self) (toJSString cacheName)) >>= checkPromiseResult)))
src/GHCJS/DOM/JSFFI/Generated/CanvasCaptureMediaStreamTrack.hs view
@@ -1,44 +1,29 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediacapture-fromelement (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CanvasCaptureMediaStreamTrack-       (js_requestFrame, requestFrame, js_getCanvas, getCanvas,-        CanvasCaptureMediaStreamTrack(..),-        gTypeCanvasCaptureMediaStreamTrack)+       (js_requestFrame, js_getCanvas, requestFrame, getCanvas, CanvasCaptureMediaStreamTrack(..), gTypeCanvasCaptureMediaStreamTrack)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"requestFrame\"](); })"-        js_requestFrame :: CanvasCaptureMediaStreamTrack -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasCaptureMediaStreamTrack.requestFrame Mozilla CanvasCaptureMediaStreamTrack.requestFrame documentation> -requestFrame ::-             (MonadIO m) => CanvasCaptureMediaStreamTrack -> m ()-requestFrame self = liftIO (js_requestFrame self)- -foreign import javascript unsafe "(($1) => { return $1[\"canvas\"]; })" js_getCanvas ::-        CanvasCaptureMediaStreamTrack -> IO HTMLCanvasElement+foreign import javascript safe "(($1) => { return $1[\"requestFrame\"](); })"+        js_requestFrame :: CanvasCaptureMediaStreamTrack -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasCaptureMediaStreamTrack/requestFrame MDN CanvasCaptureMediaStreamTrack.requestFrame documentation>+requestFrame :: (MonadDOM m) => CanvasCaptureMediaStreamTrack -> m ()+requestFrame self = liftDOM (void ((js_requestFrame (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasCaptureMediaStreamTrack.canvas Mozilla CanvasCaptureMediaStreamTrack.canvas documentation> -getCanvas ::-          (MonadIO m) => CanvasCaptureMediaStreamTrack -> m HTMLCanvasElement-getCanvas self = liftIO (js_getCanvas self)+foreign import javascript unsafe "(($1) => { return $1[\"canvas\"]; })"+        js_getCanvas :: CanvasCaptureMediaStreamTrack -> IO HTMLCanvasElement+-- | <https://developer.mozilla.org/docs/Web/API/CanvasCaptureMediaStreamTrack/canvas MDN CanvasCaptureMediaStreamTrack.canvas documentation>+getCanvas :: (MonadDOM m) => CanvasCaptureMediaStreamTrack -> m HTMLCanvasElement+getCanvas self = liftDOM ((js_getCanvas (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasCompositing.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasCompositing+       (js_setGlobalAlpha, js_getGlobalAlpha, js_setGlobalCompositeOperation, js_getGlobalCompositeOperation, setGlobalAlpha, getGlobalAlpha, setGlobalCompositeOperation, getGlobalCompositeOperation, CanvasCompositing(..), gTypeCanvasCompositing, IsCanvasCompositing, toCanvasCompositing)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"globalAlpha\"] = $2; })"+        js_setGlobalAlpha :: CanvasCompositing -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/globalAlpha MDN CanvasCompositing.globalAlpha documentation>+setGlobalAlpha :: (MonadDOM m, IsCanvasCompositing self) => self -> Double -> m ()+setGlobalAlpha self val = liftDOM (void ((js_setGlobalAlpha ((Types.toCanvasCompositing self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"globalAlpha\"]; })"+        js_getGlobalAlpha :: CanvasCompositing -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/globalAlpha MDN CanvasCompositing.globalAlpha documentation>+getGlobalAlpha :: (MonadDOM m, IsCanvasCompositing self) => self -> m Double+getGlobalAlpha self = liftDOM ((js_getGlobalAlpha ((Types.toCanvasCompositing self))))++foreign import javascript safe "(($1, $2) => { $1[\"globalCompositeOperation\"] = $2; })"+        js_setGlobalCompositeOperation :: CanvasCompositing -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/globalCompositeOperation MDN CanvasCompositing.globalCompositeOperation documentation>+setGlobalCompositeOperation :: (MonadDOM m, IsCanvasCompositing self, ToJSString val) => self -> val -> m ()+setGlobalCompositeOperation self val = liftDOM (void ((js_setGlobalCompositeOperation ((Types.toCanvasCompositing self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"globalCompositeOperation\"]; })"+        js_getGlobalCompositeOperation :: CanvasCompositing -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/globalCompositeOperation MDN CanvasCompositing.globalCompositeOperation documentation>+getGlobalCompositeOperation :: (MonadDOM m, IsCanvasCompositing self, FromJSString result) => self -> m result+getGlobalCompositeOperation self = liftDOM ((fromJSString <$> (js_getGlobalCompositeOperation ((Types.toCanvasCompositing self)))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasDrawImage.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasDrawImage+       (js_drawImage, js_drawImageScaled, js_drawImagePart, drawImage, drawImageScaled, drawImagePart, CanvasDrawImage(..), gTypeCanvasDrawImage, IsCanvasDrawImage, toCanvasDrawImage)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"drawImage\"]($2, $3, $4); })"+        js_drawImage :: CanvasDrawImage -> CanvasImageSource -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/drawImage MDN CanvasDrawImage.drawImage documentation>+drawImage :: (MonadDOM m, IsCanvasDrawImage self, IsCanvasImageSource image) => self -> image -> Double -> Double -> m ()+drawImage self image dx dy = liftDOM (void ((js_drawImage ((Types.toCanvasDrawImage self)) (Types.toCanvasImageSource image) (dx) (dy))))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"drawImage\"]($2, $3, $4, $5, $6); })"+        js_drawImageScaled :: CanvasDrawImage -> CanvasImageSource -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/drawImage MDN CanvasDrawImage.drawImage documentation>+drawImageScaled :: (MonadDOM m, IsCanvasDrawImage self, IsCanvasImageSource image) => self -> image -> Double -> Double -> Double -> Double -> m ()+drawImageScaled self image dx dy dw dh = liftDOM (void ((js_drawImageScaled ((Types.toCanvasDrawImage self)) (Types.toCanvasImageSource image) (dx) (dy) (dw) (dh))))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7, $8, $9, $10) => { return $1[\"drawImage\"]($2, $3, $4, $5, $6, $7, $8, $9, $10); })"+        js_drawImagePart :: CanvasDrawImage -> CanvasImageSource -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/drawImage MDN CanvasDrawImage.drawImage documentation>+drawImagePart :: (MonadDOM m, IsCanvasDrawImage self, IsCanvasImageSource image) => self -> image -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> m ()+drawImagePart self image sx sy sw sh dx dy dw dh = liftDOM (void ((js_drawImagePart ((Types.toCanvasDrawImage self)) (Types.toCanvasImageSource image) (sx) (sy) (sw) (sh) (dx) (dy) (dw) (dh))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasDrawPath.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasDrawPath+       (js_beginPath, js_clip, js_clipPath, js_fill, js_fillPath, js_isPointInPath, js_isPointInPathPath, js_isPointInStroke, js_isPointInStrokePath, js_stroke, js_strokePath, beginPath, clip, clipPath, fill, fillPath, isPointInPath, isPointInPath_, isPointInPathPath, isPointInPathPath_, isPointInStroke, isPointInStroke_, isPointInStrokePath, isPointInStrokePath_, stroke, strokePath, CanvasDrawPath(..), gTypeCanvasDrawPath, IsCanvasDrawPath, toCanvasDrawPath)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"beginPath\"](); })"+        js_beginPath :: CanvasDrawPath -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/beginPath MDN CanvasDrawPath.beginPath documentation>+beginPath :: (MonadDOM m, IsCanvasDrawPath self) => self -> m ()+beginPath self = liftDOM (void ((js_beginPath ((Types.toCanvasDrawPath self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"clip\"]($2); })"+        js_clip :: CanvasDrawPath -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/clip MDN CanvasDrawPath.clip documentation>+clip :: (MonadDOM m, IsCanvasDrawPath self) => self -> Maybe CanvasFillRule -> m ()+clip self fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a2' -> js_clip ((Types.toCanvasDrawPath self)) a2')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"clip\"]($2, $3); })"+        js_clipPath :: CanvasDrawPath -> Path2D -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/clip MDN CanvasDrawPath.clip documentation>+clipPath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Maybe CanvasFillRule -> m ()+clipPath self path fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a3' -> js_clipPath ((Types.toCanvasDrawPath self)) (path) a3')))++foreign import javascript safe "(($1, $2) => { return $1[\"fill\"]($2); })"+        js_fill :: CanvasDrawPath -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fill MDN CanvasDrawPath.fill documentation>+fill :: (MonadDOM m, IsCanvasDrawPath self) => self -> Maybe CanvasFillRule -> m ()+fill self fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a2' -> js_fill ((Types.toCanvasDrawPath self)) a2')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"fill\"]($2, $3); })"+        js_fillPath :: CanvasDrawPath -> Path2D -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fill MDN CanvasDrawPath.fill documentation>+fillPath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Maybe CanvasFillRule -> m ()+fillPath self path fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a3' -> js_fillPath ((Types.toCanvasDrawPath self)) (path) a3')))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"isPointInPath\"]($2, $3, $4); })"+        js_isPointInPath :: CanvasDrawPath -> Double -> Double -> JSVal -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInPath MDN CanvasDrawPath.isPointInPath documentation>+isPointInPath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Double -> Double -> Maybe CanvasFillRule -> m Bool+isPointInPath self x y fillRule = liftDOM (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a4' -> js_isPointInPath ((Types.toCanvasDrawPath self)) (x) (y) a4'))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInPath MDN CanvasDrawPath.isPointInPath documentation>+isPointInPath_ :: (MonadDOM m, IsCanvasDrawPath self) => self -> Double -> Double -> Maybe CanvasFillRule -> m ()+isPointInPath_ self x y fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a4' -> js_isPointInPath ((Types.toCanvasDrawPath self)) (x) (y) a4')))++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"isPointInPath\"]($2, $3, $4, $5); })"+        js_isPointInPathPath :: CanvasDrawPath -> Path2D -> Double -> Double -> JSVal -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInPath MDN CanvasDrawPath.isPointInPath documentation>+isPointInPathPath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Double -> Double -> Maybe CanvasFillRule -> m Bool+isPointInPathPath self path x y fillRule = liftDOM (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a5' -> js_isPointInPathPath ((Types.toCanvasDrawPath self)) (path) (x) (y) a5'))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInPath MDN CanvasDrawPath.isPointInPath documentation>+isPointInPathPath_ :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Double -> Double -> Maybe CanvasFillRule -> m ()+isPointInPathPath_ self path x y fillRule = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal fillRule) >>= \a5' -> js_isPointInPathPath ((Types.toCanvasDrawPath self)) (path) (x) (y) a5')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"isPointInStroke\"]($2, $3); })"+        js_isPointInStroke :: CanvasDrawPath -> Double -> Double -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInStroke MDN CanvasDrawPath.isPointInStroke documentation>+isPointInStroke :: (MonadDOM m, IsCanvasDrawPath self) => self -> Double -> Double -> m Bool+isPointInStroke self x y = liftDOM ((js_isPointInStroke ((Types.toCanvasDrawPath self)) (x) (y)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInStroke MDN CanvasDrawPath.isPointInStroke documentation>+isPointInStroke_ :: (MonadDOM m, IsCanvasDrawPath self) => self -> Double -> Double -> m ()+isPointInStroke_ self x y = liftDOM (void ((js_isPointInStroke ((Types.toCanvasDrawPath self)) (x) (y))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"isPointInStroke\"]($2, $3, $4); })"+        js_isPointInStrokePath :: CanvasDrawPath -> Path2D -> Double -> Double -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInStroke MDN CanvasDrawPath.isPointInStroke documentation>+isPointInStrokePath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Double -> Double -> m Bool+isPointInStrokePath self path x y = liftDOM ((js_isPointInStrokePath ((Types.toCanvasDrawPath self)) (path) (x) (y)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInStroke MDN CanvasDrawPath.isPointInStroke documentation>+isPointInStrokePath_ :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> Double -> Double -> m ()+isPointInStrokePath_ self path x y = liftDOM (void ((js_isPointInStrokePath ((Types.toCanvasDrawPath self)) (path) (x) (y))))++foreign import javascript safe "(($1) => { return $1[\"stroke\"](); })"+        js_stroke :: CanvasDrawPath -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/stroke MDN CanvasDrawPath.stroke documentation>+stroke :: (MonadDOM m, IsCanvasDrawPath self) => self -> m ()+stroke self = liftDOM (void ((js_stroke ((Types.toCanvasDrawPath self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"stroke\"]($2); })"+        js_strokePath :: CanvasDrawPath -> Path2D -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/stroke MDN CanvasDrawPath.stroke documentation>+strokePath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> m ()+strokePath self path = liftDOM (void ((js_strokePath ((Types.toCanvasDrawPath self)) (path))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasFillStrokeStyles.hs view
@@ -0,0 +1,89 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasFillStrokeStyles+       (js_createConicGradient, js_createLinearGradient, js_createPattern, js_createRadialGradient, js_setStrokeStyle, js_getStrokeStyle, js_setFillStyle, js_getFillStyle, createConicGradient, createConicGradient_, createLinearGradient, createLinearGradient_, createPattern, createPattern_, createPatternUnsafe, createPatternUnchecked, createRadialGradient, createRadialGradient_, setStrokeStyle, getStrokeStyle, setFillStyle, getFillStyle, CanvasFillStrokeStyles(..), gTypeCanvasFillStrokeStyles, IsCanvasFillStrokeStyles, toCanvasFillStrokeStyles)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createConicGradient\"]($2, $3, $4); })"+        js_createConicGradient :: CanvasFillStrokeStyles -> Double -> Double -> Double -> IO CanvasGradient+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createConicGradient MDN CanvasFillStrokeStyles.createConicGradient documentation>+createConicGradient :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> m CanvasGradient+createConicGradient self startAngle x y = liftDOM ((js_createConicGradient ((Types.toCanvasFillStrokeStyles self)) (startAngle) (x) (y)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createConicGradient MDN CanvasFillStrokeStyles.createConicGradient documentation>+createConicGradient_ :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> m ()+createConicGradient_ self startAngle x y = liftDOM (void ((js_createConicGradient ((Types.toCanvasFillStrokeStyles self)) (startAngle) (x) (y))))++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"createLinearGradient\"]($2, $3, $4, $5); })"+        js_createLinearGradient :: CanvasFillStrokeStyles -> Double -> Double -> Double -> Double -> IO CanvasGradient+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createLinearGradient MDN CanvasFillStrokeStyles.createLinearGradient documentation>+createLinearGradient :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> Double -> m CanvasGradient+createLinearGradient self x0 y0 x1 y1 = liftDOM ((js_createLinearGradient ((Types.toCanvasFillStrokeStyles self)) (x0) (y0) (x1) (y1)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createLinearGradient MDN CanvasFillStrokeStyles.createLinearGradient documentation>+createLinearGradient_ :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> Double -> m ()+createLinearGradient_ self x0 y0 x1 y1 = liftDOM (void ((js_createLinearGradient ((Types.toCanvasFillStrokeStyles self)) (x0) (y0) (x1) (y1))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"createPattern\"]($2, $3); })"+        js_createPattern :: CanvasFillStrokeStyles -> CanvasImageSource -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createPattern MDN CanvasFillStrokeStyles.createPattern documentation>+createPattern :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsCanvasImageSource image, ToJSString repetition) => self -> image -> repetition -> m (Maybe CanvasPattern)+createPattern self image repetition = liftDOM (((js_createPattern ((Types.toCanvasFillStrokeStyles self)) (Types.toCanvasImageSource image) (toJSString repetition)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createPattern MDN CanvasFillStrokeStyles.createPattern documentation>+createPattern_ :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsCanvasImageSource image, ToJSString repetition) => self -> image -> repetition -> m ()+createPattern_ self image repetition = liftDOM (void ((js_createPattern ((Types.toCanvasFillStrokeStyles self)) (Types.toCanvasImageSource image) (toJSString repetition))))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createPattern MDN CanvasFillStrokeStyles.createPattern documentation>+createPatternUnsafe :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsCanvasImageSource image, ToJSString repetition, HasCallStack) => self -> image -> repetition -> m CanvasPattern+createPatternUnsafe self image repetition = liftDOM ((((js_createPattern ((Types.toCanvasFillStrokeStyles self)) (Types.toCanvasImageSource image) (toJSString repetition)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createPattern MDN CanvasFillStrokeStyles.createPattern documentation>+createPatternUnchecked :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsCanvasImageSource image, ToJSString repetition) => self -> image -> repetition -> m CanvasPattern+createPatternUnchecked self image repetition = liftDOM ((pFromJSVal <$> (js_createPattern ((Types.toCanvasFillStrokeStyles self)) (Types.toCanvasImageSource image) (toJSString repetition))))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"createRadialGradient\"]($2, $3, $4, $5, $6, $7); })"+        js_createRadialGradient :: CanvasFillStrokeStyles -> Double -> Double -> Double -> Double -> Double -> Double -> IO CanvasGradient+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createRadialGradient MDN CanvasFillStrokeStyles.createRadialGradient documentation>+createRadialGradient :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m CanvasGradient+createRadialGradient self x0 y0 r0 x1 y1 r1 = liftDOM ((js_createRadialGradient ((Types.toCanvasFillStrokeStyles self)) (x0) (y0) (r0) (x1) (y1) (r1)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createRadialGradient MDN CanvasFillStrokeStyles.createRadialGradient documentation>+createRadialGradient_ :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m ()+createRadialGradient_ self x0 y0 r0 x1 y1 r1 = liftDOM (void ((js_createRadialGradient ((Types.toCanvasFillStrokeStyles self)) (x0) (y0) (r0) (x1) (y1) (r1))))++foreign import javascript safe "(($1, $2) => { $1[\"strokeStyle\"] = $2; })"+        js_setStrokeStyle :: CanvasFillStrokeStyles -> StringOrCanvasGradientOrCanvasPattern -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/strokeStyle MDN CanvasFillStrokeStyles.strokeStyle documentation>+setStrokeStyle :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsStringOrCanvasGradientOrCanvasPattern val) => self -> val -> m ()+setStrokeStyle self val = liftDOM (void ((js_setStrokeStyle ((Types.toCanvasFillStrokeStyles self)) (Types.toStringOrCanvasGradientOrCanvasPattern val))))++foreign import javascript unsafe "(($1) => { return $1[\"strokeStyle\"]; })"+        js_getStrokeStyle :: CanvasFillStrokeStyles -> IO StringOrCanvasGradientOrCanvasPattern+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/strokeStyle MDN CanvasFillStrokeStyles.strokeStyle documentation>+getStrokeStyle :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> m StringOrCanvasGradientOrCanvasPattern+getStrokeStyle self = liftDOM ((js_getStrokeStyle ((Types.toCanvasFillStrokeStyles self))))++foreign import javascript safe "(($1, $2) => { $1[\"fillStyle\"] = $2; })"+        js_setFillStyle :: CanvasFillStrokeStyles -> StringOrCanvasGradientOrCanvasPattern -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fillStyle MDN CanvasFillStrokeStyles.fillStyle documentation>+setFillStyle :: (MonadDOM m, IsCanvasFillStrokeStyles self, IsStringOrCanvasGradientOrCanvasPattern val) => self -> val -> m ()+setFillStyle self val = liftDOM (void ((js_setFillStyle ((Types.toCanvasFillStrokeStyles self)) (Types.toStringOrCanvasGradientOrCanvasPattern val))))++foreign import javascript unsafe "(($1) => { return $1[\"fillStyle\"]; })"+        js_getFillStyle :: CanvasFillStrokeStyles -> IO StringOrCanvasGradientOrCanvasPattern+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fillStyle MDN CanvasFillStrokeStyles.fillStyle documentation>+getFillStyle :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> m StringOrCanvasGradientOrCanvasPattern+getFillStyle self = liftDOM ((js_getFillStyle ((Types.toCanvasFillStrokeStyles self))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasFilters.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasFilters+       (js_setFilter, js_getFilter, setFilter, getFilter, CanvasFilters(..), gTypeCanvasFilters, IsCanvasFilters, toCanvasFilters)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"filter\"] = $2; })"+        js_setFilter :: CanvasFilters -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/filter MDN CanvasFilters.filter documentation>+setFilter :: (MonadDOM m, IsCanvasFilters self, ToJSString val) => self -> val -> m ()+setFilter self val = liftDOM (void ((js_setFilter ((Types.toCanvasFilters self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"filter\"]; })"+        js_getFilter :: CanvasFilters -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/filter MDN CanvasFilters.filter documentation>+getFilter :: (MonadDOM m, IsCanvasFilters self, FromJSString result) => self -> m result+getFilter self = liftDOM ((fromJSString <$> (js_getFilter ((Types.toCanvasFilters self)))))
src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs view
@@ -1,37 +1,23 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CanvasGradient-       (js_addColorStop, addColorStop, CanvasGradient(..),-        gTypeCanvasGradient)+       (js_addColorStop, addColorStop, CanvasGradient(..), gTypeCanvasGradient)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"addColorStop\"]($2, $3); })"-        js_addColorStop :: CanvasGradient -> Float -> JSString -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasGradient.addColorStop Mozilla CanvasGradient.addColorStop documentation> -addColorStop ::-             (MonadIO m, ToJSString color) =>-               CanvasGradient -> Float -> color -> m ()-addColorStop self offset color-  = liftIO (js_addColorStop self offset (toJSString color))+foreign import javascript safe "(($1, $2, $3) => { return $1[\"addColorStop\"]($2, $3); })"+        js_addColorStop :: CanvasGradient -> Double -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasGradient/addColorStop MDN CanvasGradient.addColorStop documentation>+addColorStop :: (MonadDOM m, ToJSString color) => CanvasGradient -> Double -> color -> m ()+addColorStop self offset color = liftDOM (void ((js_addColorStop (self) (offset) (toJSString color))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasImageData.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasImageData+       (js_createImageData', js_createImageData, js_getImageData, js_getImageData', js_putImageData, js_putImageDataDirtyXDirtyYDirtyWidthDirtyHeight, createImageData', createImageData'_, createImageData, createImageData_, getImageData, getImageData_, getImageData', getImageData'_, putImageData, putImageDataDirtyXDirtyYDirtyWidthDirtyHeight, CanvasImageData(..), gTypeCanvasImageData, IsCanvasImageData, toCanvasImageData)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createImageData\"]($2, $3, $4); })"+        js_createImageData' :: CanvasImageData -> Int -> Int -> JSVal -> IO ImageData+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createImageData MDN CanvasImageData.createImageData documentation>+createImageData' :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Maybe ImageDataSettings -> m ImageData+createImageData' self sw sh settings = liftDOM (((P.maybe (P.return jsUndefined) toJSVal settings) >>= \a4' -> js_createImageData' ((Types.toCanvasImageData self)) (sw) (sh) a4'))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createImageData MDN CanvasImageData.createImageData documentation>+createImageData'_ :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Maybe ImageDataSettings -> m ()+createImageData'_ self sw sh settings = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal settings) >>= \a4' -> js_createImageData' ((Types.toCanvasImageData self)) (sw) (sh) a4')))++foreign import javascript safe "(($1, $2) => { return $1[\"createImageData\"]($2); })"+        js_createImageData :: CanvasImageData -> ImageData -> IO ImageData+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createImageData MDN CanvasImageData.createImageData documentation>+createImageData :: (MonadDOM m, IsCanvasImageData self) => self -> ImageData -> m ImageData+createImageData self imageData = liftDOM ((js_createImageData ((Types.toCanvasImageData self)) (imageData)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createImageData MDN CanvasImageData.createImageData documentation>+createImageData_ :: (MonadDOM m, IsCanvasImageData self) => self -> ImageData -> m ()+createImageData_ self imageData = liftDOM (void ((js_createImageData ((Types.toCanvasImageData self)) (imageData))))++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"getImageData\"]($2, $3, $4, $5); })"+        js_getImageData :: CanvasImageData -> Int -> Int -> Int -> Int -> IO ImageData+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getImageData MDN CanvasImageData.getImageData documentation>+getImageData :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Int -> Int -> m ImageData+getImageData self sx sy sw sh = liftDOM ((js_getImageData ((Types.toCanvasImageData self)) (sx) (sy) (sw) (sh)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getImageData MDN CanvasImageData.getImageData documentation>+getImageData_ :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Int -> Int -> m ()+getImageData_ self sx sy sw sh = liftDOM (void ((js_getImageData ((Types.toCanvasImageData self)) (sx) (sy) (sw) (sh))))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"getImageData\"]($2, $3, $4, $5, $6); })"+        js_getImageData' :: CanvasImageData -> Int -> Int -> Int -> Int -> JSVal -> IO ImageData+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getImageData MDN CanvasImageData.getImageData documentation>+getImageData' :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Int -> Int -> Maybe ImageDataSettings -> m ImageData+getImageData' self sx sy sw sh settings = liftDOM (((P.maybe (P.return jsUndefined) toJSVal settings) >>= \a6' -> js_getImageData' ((Types.toCanvasImageData self)) (sx) (sy) (sw) (sh) a6'))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getImageData MDN CanvasImageData.getImageData documentation>+getImageData'_ :: (MonadDOM m, IsCanvasImageData self) => self -> Int -> Int -> Int -> Int -> Maybe ImageDataSettings -> m ()+getImageData'_ self sx sy sw sh settings = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal settings) >>= \a6' -> js_getImageData' ((Types.toCanvasImageData self)) (sx) (sy) (sw) (sh) a6')))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"putImageData\"]($2, $3, $4); })"+        js_putImageData :: CanvasImageData -> ImageData -> Int -> Int -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/putImageData MDN CanvasImageData.putImageData documentation>+putImageData :: (MonadDOM m, IsCanvasImageData self) => self -> ImageData -> Int -> Int -> m ()+putImageData self imageData dx dy = liftDOM (void ((js_putImageData ((Types.toCanvasImageData self)) (imageData) (dx) (dy))))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"putImageData\"]($2, $3, $4, $5, $6, $7, $8); })"+        js_putImageDataDirtyXDirtyYDirtyWidthDirtyHeight :: CanvasImageData -> ImageData -> Int -> Int -> Int -> Int -> Int -> Int -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/putImageData MDN CanvasImageData.putImageData documentation>+putImageDataDirtyXDirtyYDirtyWidthDirtyHeight :: (MonadDOM m, IsCanvasImageData self) => self -> ImageData -> Int -> Int -> Int -> Int -> Int -> Int -> m ()+putImageDataDirtyXDirtyYDirtyWidthDirtyHeight self imageData dx dy dirtyX dirtyY dirtyWidth dirtyHeight = liftDOM (void ((js_putImageDataDirtyXDirtyYDirtyWidthDirtyHeight ((Types.toCanvasImageData self)) (imageData) (dx) (dy) (dirtyX) (dirtyY) (dirtyWidth) (dirtyHeight))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasImageSmoothing.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasImageSmoothing+       (js_setImageSmoothingEnabled, js_getImageSmoothingEnabled, js_setImageSmoothingQuality, js_getImageSmoothingQuality, setImageSmoothingEnabled, getImageSmoothingEnabled, setImageSmoothingQuality, getImageSmoothingQuality, CanvasImageSmoothing(..), gTypeCanvasImageSmoothing, IsCanvasImageSmoothing, toCanvasImageSmoothing)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"imageSmoothingEnabled\"] = $2; })"+        js_setImageSmoothingEnabled :: CanvasImageSmoothing -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/imageSmoothingEnabled MDN CanvasImageSmoothing.imageSmoothingEnabled documentation>+setImageSmoothingEnabled :: (MonadDOM m, IsCanvasImageSmoothing self) => self -> Bool -> m ()+setImageSmoothingEnabled self val = liftDOM (void ((js_setImageSmoothingEnabled ((Types.toCanvasImageSmoothing self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"imageSmoothingEnabled\"]; })"+        js_getImageSmoothingEnabled :: CanvasImageSmoothing -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/imageSmoothingEnabled MDN CanvasImageSmoothing.imageSmoothingEnabled documentation>+getImageSmoothingEnabled :: (MonadDOM m, IsCanvasImageSmoothing self) => self -> m Bool+getImageSmoothingEnabled self = liftDOM ((js_getImageSmoothingEnabled ((Types.toCanvasImageSmoothing self))))++foreign import javascript safe "(($1, $2) => { $1[\"imageSmoothingQuality\"] = $2; })"+        js_setImageSmoothingQuality :: CanvasImageSmoothing -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/imageSmoothingQuality MDN CanvasImageSmoothing.imageSmoothingQuality documentation>+setImageSmoothingQuality :: (MonadDOM m, IsCanvasImageSmoothing self) => self -> ImageSmoothingQuality -> m ()+setImageSmoothingQuality self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setImageSmoothingQuality ((Types.toCanvasImageSmoothing self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"imageSmoothingQuality\"]; })"+        js_getImageSmoothingQuality :: CanvasImageSmoothing -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/imageSmoothingQuality MDN CanvasImageSmoothing.imageSmoothingQuality documentation>+getImageSmoothingQuality :: (MonadDOM m, IsCanvasImageSmoothing self) => self -> m ImageSmoothingQuality+getImageSmoothingQuality self = liftDOM (((js_getImageSmoothingQuality ((Types.toCanvasImageSmoothing self))) >>= fromJSValUnchecked))
src/GHCJS/DOM/JSFFI/Generated/CanvasPath.hs view
@@ -1,138 +1,77 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CanvasPath-       (js_closePath, closePath, js_moveTo, moveTo, js_lineTo, lineTo,-        js_quadraticCurveTo, quadraticCurveTo, js_bezierCurveTo,-        bezierCurveTo, js_arcTo, arcTo, js_rect, rect, js_arc, arc,-        js_ellipse, ellipse, CanvasPath(..), gTypeCanvasPath, IsCanvasPath,-        toCanvasPath)+       (js_arc, js_arcTo, js_bezierCurveTo, js_closePath, js_ellipse, js_lineTo, js_moveTo, js_quadraticCurveTo, js_rect, js_roundRect, arc, arcTo, bezierCurveTo, closePath, ellipse, lineTo, moveTo, quadraticCurveTo, rect, roundRect, CanvasPath(..), gTypeCanvasPath, IsCanvasPath, toCanvasPath)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"closePath\"](); })" js_closePath-        :: CanvasPath -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.closePath Mozilla CanvasPath.closePath documentation> -closePath :: (MonadIO m, IsCanvasPath self) => self -> m ()-closePath self = liftIO (js_closePath (toCanvasPath self))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"moveTo\"]($2, $3); })" js_moveTo-        :: CanvasPath -> Double -> Double -> IO ()+foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"arc\"]($2, $3, $4, $5, $6, $7); })"+        js_arc :: CanvasPath -> Double -> Double -> Double -> Double -> Double -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/arc MDN CanvasPath.arc documentation>+arc :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> Maybe Bool -> m ()+arc self x y radius startAngle endAngle counterclockwise = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal counterclockwise) >>= \a7' -> js_arc ((Types.toCanvasPath self)) (x) (y) (radius) (startAngle) (endAngle) a7'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.moveTo Mozilla CanvasPath.moveTo documentation> -moveTo ::-       (MonadIO m, IsCanvasPath self) => self -> Double -> Double -> m ()-moveTo self x y = liftIO (js_moveTo (toCanvasPath self) x y)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"lineTo\"]($2, $3); })" js_lineTo-        :: CanvasPath -> Double -> Double -> IO ()+foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"arcTo\"]($2, $3, $4, $5, $6); })"+        js_arcTo :: CanvasPath -> Double -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/arcTo MDN CanvasPath.arcTo documentation>+arcTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> m ()+arcTo self x1 y1 x2 y2 radius = liftDOM (void ((js_arcTo ((Types.toCanvasPath self)) (x1) (y1) (x2) (y2) (radius)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.lineTo Mozilla CanvasPath.lineTo documentation> -lineTo ::-       (MonadIO m, IsCanvasPath self) => self -> Double -> Double -> m ()-lineTo self x y = liftIO (js_lineTo (toCanvasPath self) x y)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5) => { return $1[\"quadraticCurveTo\"]($2, $3,\n$4, $5); })" js_quadraticCurveTo ::-        CanvasPath -> Double -> Double -> Double -> Double -> IO ()+foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"bezierCurveTo\"]($2, $3, $4, $5, $6, $7); })"+        js_bezierCurveTo :: CanvasPath -> Double -> Double -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/bezierCurveTo MDN CanvasPath.bezierCurveTo documentation>+bezierCurveTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m ()+bezierCurveTo self cp1x cp1y cp2x cp2y x y = liftDOM (void ((js_bezierCurveTo ((Types.toCanvasPath self)) (cp1x) (cp1y) (cp2x) (cp2y) (x) (y)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.quadraticCurveTo Mozilla CanvasPath.quadraticCurveTo documentation> -quadraticCurveTo ::-                 (MonadIO m, IsCanvasPath self) =>-                   self -> Double -> Double -> Double -> Double -> m ()-quadraticCurveTo self cpx cpy x y-  = liftIO (js_quadraticCurveTo (toCanvasPath self) cpx cpy x y)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7); })" js_bezierCurveTo-        ::-        CanvasPath ->-          Double -> Double -> Double -> Double -> Double -> Double -> IO ()+foreign import javascript safe "(($1) => { return $1[\"closePath\"](); })"+        js_closePath :: CanvasPath -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/closePath MDN CanvasPath.closePath documentation>+closePath :: (MonadDOM m, IsCanvasPath self) => self -> m ()+closePath self = liftDOM (void ((js_closePath ((Types.toCanvasPath self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.bezierCurveTo Mozilla CanvasPath.bezierCurveTo documentation> -bezierCurveTo ::-              (MonadIO m, IsCanvasPath self) =>-                self ->-                  Double -> Double -> Double -> Double -> Double -> Double -> m ()-bezierCurveTo self cp1x cp1y cp2x cp2y x y-  = liftIO-      (js_bezierCurveTo (toCanvasPath self) cp1x cp1y cp2x cp2y x y)- -foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"arcTo\"]($2, $3, $4, $5, $6); })"-        js_arcTo ::-        CanvasPath ->-          Double -> Double -> Double -> Double -> Double -> IO ()+foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7, $8, $9) => { return $1[\"ellipse\"]($2, $3, $4, $5, $6, $7, $8, $9); })"+        js_ellipse :: CanvasPath -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/ellipse MDN CanvasPath.ellipse documentation>+ellipse :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> Maybe Bool -> m ()+ellipse self x y radiusX radiusY rotation startAngle endAngle counterclockwise = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal counterclockwise) >>= \a9' -> js_ellipse ((Types.toCanvasPath self)) (x) (y) (radiusX) (radiusY) (rotation) (startAngle) (endAngle) a9'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.arcTo Mozilla CanvasPath.arcTo documentation> -arcTo ::-      (MonadIO m, IsCanvasPath self) =>-        self -> Double -> Double -> Double -> Double -> Double -> m ()-arcTo self x1 y1 x2 y2 radius-  = liftIO (js_arcTo (toCanvasPath self) x1 y1 x2 y2 radius)- -foreign import javascript unsafe "(($1, $2, $3, $4, $5) => { return $1[\"rect\"]($2, $3, $4, $5); })"-        js_rect ::-        CanvasPath -> Double -> Double -> Double -> Double -> IO ()+foreign import javascript safe "(($1, $2, $3) => { return $1[\"lineTo\"]($2, $3); })"+        js_lineTo :: CanvasPath -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineTo MDN CanvasPath.lineTo documentation>+lineTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> m ()+lineTo self x y = liftDOM (void ((js_lineTo ((Types.toCanvasPath self)) (x) (y)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.rect Mozilla CanvasPath.rect documentation> -rect ::-     (MonadIO m, IsCanvasPath self) =>-       self -> Double -> Double -> Double -> Double -> m ()-rect self x y w h = liftIO (js_rect (toCanvasPath self) x y w h)- -foreign import javascript safe-        "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"arc\"]($2, $3, $4, $5, $6,\n$7); })" js_arc ::-        CanvasPath ->-          Double -> Double -> Double -> Double -> Double -> Bool -> IO ()+foreign import javascript safe "(($1, $2, $3) => { return $1[\"moveTo\"]($2, $3); })"+        js_moveTo :: CanvasPath -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/moveTo MDN CanvasPath.moveTo documentation>+moveTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> m ()+moveTo self x y = liftDOM (void ((js_moveTo ((Types.toCanvasPath self)) (x) (y)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.arc Mozilla CanvasPath.arc documentation> -arc ::-    (MonadIO m, IsCanvasPath self) =>-      self ->-        Double -> Double -> Double -> Double -> Double -> Bool -> m ()-arc self x y radius startAngle endAngle anticlockwise-  = liftIO-      (js_arc (toCanvasPath self) x y radius startAngle endAngle-         anticlockwise)- -foreign import javascript safe-        "(($1, $2, $3, $4, $5, $6, $7, $8, $9) => { return $1[\"ellipse\"]($2, $3, $4, $5,\n$6, $7, $8, $9); })" js_ellipse ::-        CanvasPath ->-          Double ->-            Double ->-              Double -> Double -> Double -> Double -> Double -> Bool -> IO ()+foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"quadraticCurveTo\"]($2, $3, $4, $5); })"+        js_quadraticCurveTo :: CanvasPath -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/quadraticCurveTo MDN CanvasPath.quadraticCurveTo documentation>+quadraticCurveTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> m ()+quadraticCurveTo self cpx cpy x y = liftDOM (void ((js_quadraticCurveTo ((Types.toCanvasPath self)) (cpx) (cpy) (x) (y)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.ellipse Mozilla CanvasPath.ellipse documentation> -ellipse ::-        (MonadIO m, IsCanvasPath self) =>-          self ->-            Double ->-              Double ->-                Double -> Double -> Double -> Double -> Double -> Bool -> m ()-ellipse self x y radiusX radiusY rotation startAngle endAngle-  anticlockwise-  = liftIO-      (js_ellipse (toCanvasPath self) x y radiusX radiusY rotation-         startAngle-         endAngle-         anticlockwise)+foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"rect\"]($2, $3, $4, $5); })"+        js_rect :: CanvasPath -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/rect MDN CanvasPath.rect documentation>+rect :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> m ()+rect self x y w h = liftDOM (void ((js_rect ((Types.toCanvasPath self)) (x) (y) (w) (h))))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"roundRect\"]($2, $3, $4, $5, $6); })"+        js_roundRect :: CanvasPath -> Double -> Double -> Double -> Double -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/roundRect MDN CanvasPath.roundRect documentation>+roundRect :: (MonadDOM m, IsCanvasPath self, IsDoubleOrDOMPointInitOrSequenceDoubleOrDOMPointInit radii) => self -> Double -> Double -> Double -> Double -> Maybe radii -> m ()+roundRect self x y w h radii = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal radii) >>= \a6' -> js_roundRect ((Types.toCanvasPath self)) (x) (y) (w) (h) a6')))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasPathDrawingStyles.hs view
@@ -0,0 +1,93 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasPathDrawingStyles+       (js_getLineDash, js_setLineDash, js_setLineWidth, js_getLineWidth, js_setLineCap, js_getLineCap, js_setLineJoin, js_getLineJoin, js_setMiterLimit, js_getMiterLimit, js_setLineDashOffset, js_getLineDashOffset, getLineDash, getLineDash_, setLineDash, setLineWidth, getLineWidth, setLineCap, getLineCap, setLineJoin, getLineJoin, setMiterLimit, getMiterLimit, setLineDashOffset, getLineDashOffset, CanvasPathDrawingStyles(..), gTypeCanvasPathDrawingStyles, IsCanvasPathDrawingStyles, toCanvasPathDrawingStyles)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"getLineDash\"](); })"+        js_getLineDash :: CanvasPathDrawingStyles -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getLineDash MDN CanvasPathDrawingStyles.getLineDash documentation>+getLineDash :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m [Double]+getLineDash self = liftDOM (((js_getLineDash ((Types.toCanvasPathDrawingStyles self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getLineDash MDN CanvasPathDrawingStyles.getLineDash documentation>+getLineDash_ :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m ()+getLineDash_ self = liftDOM (void ((js_getLineDash ((Types.toCanvasPathDrawingStyles self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"setLineDash\"]($2); })"+        js_setLineDash :: CanvasPathDrawingStyles -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/setLineDash MDN CanvasPathDrawingStyles.setLineDash documentation>+setLineDash :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> [Double] -> m ()+setLineDash self segments = liftDOM (void (((toJSVal segments) >>= \a2' -> js_setLineDash ((Types.toCanvasPathDrawingStyles self)) a2')))++foreign import javascript safe "(($1, $2) => { $1[\"lineWidth\"] = $2; })"+        js_setLineWidth :: CanvasPathDrawingStyles -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineWidth MDN CanvasPathDrawingStyles.lineWidth documentation>+setLineWidth :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m ()+setLineWidth self val = liftDOM (void ((js_setLineWidth ((Types.toCanvasPathDrawingStyles self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"lineWidth\"]; })"+        js_getLineWidth :: CanvasPathDrawingStyles -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineWidth MDN CanvasPathDrawingStyles.lineWidth documentation>+getLineWidth :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double+getLineWidth self = liftDOM ((js_getLineWidth ((Types.toCanvasPathDrawingStyles self))))++foreign import javascript safe "(($1, $2) => { $1[\"lineCap\"] = $2; })"+        js_setLineCap :: CanvasPathDrawingStyles -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineCap MDN CanvasPathDrawingStyles.lineCap documentation>+setLineCap :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> CanvasLineCap -> m ()+setLineCap self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setLineCap ((Types.toCanvasPathDrawingStyles self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"lineCap\"]; })"+        js_getLineCap :: CanvasPathDrawingStyles -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineCap MDN CanvasPathDrawingStyles.lineCap documentation>+getLineCap :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m CanvasLineCap+getLineCap self = liftDOM (((js_getLineCap ((Types.toCanvasPathDrawingStyles self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"lineJoin\"] = $2; })"+        js_setLineJoin :: CanvasPathDrawingStyles -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineJoin MDN CanvasPathDrawingStyles.lineJoin documentation>+setLineJoin :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> CanvasLineJoin -> m ()+setLineJoin self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setLineJoin ((Types.toCanvasPathDrawingStyles self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"lineJoin\"]; })"+        js_getLineJoin :: CanvasPathDrawingStyles -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineJoin MDN CanvasPathDrawingStyles.lineJoin documentation>+getLineJoin :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m CanvasLineJoin+getLineJoin self = liftDOM (((js_getLineJoin ((Types.toCanvasPathDrawingStyles self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"miterLimit\"] = $2; })"+        js_setMiterLimit :: CanvasPathDrawingStyles -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/miterLimit MDN CanvasPathDrawingStyles.miterLimit documentation>+setMiterLimit :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m ()+setMiterLimit self val = liftDOM (void ((js_setMiterLimit ((Types.toCanvasPathDrawingStyles self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"miterLimit\"]; })"+        js_getMiterLimit :: CanvasPathDrawingStyles -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/miterLimit MDN CanvasPathDrawingStyles.miterLimit documentation>+getMiterLimit :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double+getMiterLimit self = liftDOM ((js_getMiterLimit ((Types.toCanvasPathDrawingStyles self))))++foreign import javascript safe "(($1, $2) => { $1[\"lineDashOffset\"] = $2; })"+        js_setLineDashOffset :: CanvasPathDrawingStyles -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineDashOffset MDN CanvasPathDrawingStyles.lineDashOffset documentation>+setLineDashOffset :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m ()+setLineDashOffset self val = liftDOM (void ((js_setLineDashOffset ((Types.toCanvasPathDrawingStyles self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"lineDashOffset\"]; })"+        js_getLineDashOffset :: CanvasPathDrawingStyles -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineDashOffset MDN CanvasPathDrawingStyles.lineDashOffset documentation>+getLineDashOffset :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double+getLineDashOffset self = liftDOM ((js_getLineDashOffset ((Types.toCanvasPathDrawingStyles self))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasPattern.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasPattern+       (js_setTransform, setTransform, CanvasPattern(..), gTypeCanvasPattern)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return $1[\"setTransform\"]($2); })"+        js_setTransform :: CanvasPattern -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasPattern/setTransform MDN CanvasPattern.setTransform documentation>+setTransform :: (MonadDOM m, IsDOMMatrix2DInit transform) => CanvasPattern -> Maybe transform -> m ()+setTransform self transform = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal transform) >>= \a2' -> js_setTransform (self) a2')))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasRect.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasRect+       (js_clearRect, js_fillRect, js_strokeRect, clearRect, fillRect, strokeRect, CanvasRect(..), gTypeCanvasRect, IsCanvasRect, toCanvasRect)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"clearRect\"]($2, $3, $4, $5); })"+        js_clearRect :: CanvasRect -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/clearRect MDN CanvasRect.clearRect documentation>+clearRect :: (MonadDOM m, IsCanvasRect self) => self -> Double -> Double -> Double -> Double -> m ()+clearRect self x y w h = liftDOM (void ((js_clearRect ((Types.toCanvasRect self)) (x) (y) (w) (h))))++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"fillRect\"]($2, $3, $4, $5); })"+        js_fillRect :: CanvasRect -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fillRect MDN CanvasRect.fillRect documentation>+fillRect :: (MonadDOM m, IsCanvasRect self) => self -> Double -> Double -> Double -> Double -> m ()+fillRect self x y w h = liftDOM (void ((js_fillRect ((Types.toCanvasRect self)) (x) (y) (w) (h))))++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"strokeRect\"]($2, $3, $4, $5); })"+        js_strokeRect :: CanvasRect -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/strokeRect MDN CanvasRect.strokeRect documentation>+strokeRect :: (MonadDOM m, IsCanvasRect self) => self -> Double -> Double -> Double -> Double -> m ()+strokeRect self x y w h = liftDOM (void ((js_strokeRect ((Types.toCanvasRect self)) (x) (y) (w) (h))))
src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs view
@@ -1,1432 +1,23 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D-       (js_save, save, js_restore, restore, js_commit, commit, js_scale,-        scale, js_rotate, rotate, js_translate, translate, js_transform,-        transform, js_setTransform, setTransform, js_resetTransform,-        resetTransform, js_setLineDash, setLineDash, js_getLineDash,-        getLineDash, getLineDash_, js_clearRect, clearRect, js_fillRect,-        fillRect, js_beginPath, beginPath, js_fillPath, fillPath,-        js_strokePath, strokePath, js_clipPath, clipPath, js_fill, fill,-        js_stroke, stroke, js_clip, clip, js_isPointInPathPath,-        isPointInPathPath, isPointInPathPath_, js_isPointInStrokePath,-        isPointInStrokePath, isPointInStrokePath_, js_isPointInPath,-        isPointInPath, isPointInPath_, js_isPointInStroke, isPointInStroke,-        isPointInStroke_, js_measureText, measureText, measureText_,-        js_setAlpha, setAlpha, js_setCompositeOperation,-        setCompositeOperation, js_setLineWidthFunction,-        setLineWidthFunction, js_setLineCapFunction, setLineCapFunction,-        js_setLineJoinFunction, setLineJoinFunction,-        js_setMiterLimitFunction, setMiterLimitFunction, js_clearShadow,-        clearShadow, js_fillText, fillText, js_strokeText, strokeText,-        js_setStrokeColor, setStrokeColor, js_setStrokeColorGray,-        setStrokeColorGray, js_setStrokeColorRGB, setStrokeColorRGB,-        js_setStrokeColorCYMK, setStrokeColorCYMK, js_setFillColor,-        setFillColor, js_setFillColorGray, setFillColorGray,-        js_setFillColorRGB, setFillColorRGB, js_setFillColorCYMK,-        setFillColorCYMK, js_strokeRect, strokeRect, js_drawImage,-        drawImage, js_drawImageScaled, drawImageScaled, js_drawImagePart,-        drawImagePart, js_drawImageFromRect, drawImageFromRect,-        js_setShadow, setShadow, js_setShadowGray, setShadowGray,-        js_setShadowRGB, setShadowRGB, js_setShadowCYMK, setShadowCYMK,-        js_putImageData, putImageData, js_putImageDataDirty,-        putImageDataDirty, js_webkitPutImageDataHD, webkitPutImageDataHD,-        js_webkitPutImageDataHDDirty, webkitPutImageDataHDDirty,-        js_createImageData, createImageData, createImageData_,-        js_createImageDataSize, createImageDataSize, createImageDataSize_,-        js_createLinearGradient, createLinearGradient,-        createLinearGradient_, js_createRadialGradient,-        createRadialGradient, createRadialGradient_, js_createPattern,-        createPattern, createPattern_, createPatternUnsafe,-        createPatternUnchecked, js_getImageData, getImageData,-        getImageData_, js_webkitGetImageDataHD, webkitGetImageDataHD,-        webkitGetImageDataHD_, js_drawFocusIfNeeded, drawFocusIfNeeded,-        js_drawFocusIfNeededPath, drawFocusIfNeededPath, js_getCanvas,-        getCanvas, js_setGlobalAlpha, setGlobalAlpha, js_getGlobalAlpha,-        getGlobalAlpha, js_setGlobalCompositeOperation,-        setGlobalCompositeOperation, js_getGlobalCompositeOperation,-        getGlobalCompositeOperation, js_setLineWidth, setLineWidth,-        js_getLineWidth, getLineWidth, js_setLineCap, setLineCap,-        js_getLineCap, getLineCap, js_setLineJoin, setLineJoin,-        js_getLineJoin, getLineJoin, js_setMiterLimit, setMiterLimit,-        js_getMiterLimit, getMiterLimit, js_setShadowOffsetX,-        setShadowOffsetX, js_getShadowOffsetX, getShadowOffsetX,-        js_setShadowOffsetY, setShadowOffsetY, js_getShadowOffsetY,-        getShadowOffsetY, js_setShadowBlur, setShadowBlur,-        js_getShadowBlur, getShadowBlur, js_setShadowColor, setShadowColor,-        js_getShadowColor, getShadowColor, js_setLineDashOffset,-        setLineDashOffset, js_getLineDashOffset, getLineDashOffset,-        js_setWebkitLineDash, setWebkitLineDash, js_getWebkitLineDash,-        getWebkitLineDash, js_setWebkitLineDashOffset,-        setWebkitLineDashOffset, js_getWebkitLineDashOffset,-        getWebkitLineDashOffset, js_setFont, setFont, js_getFont, getFont,-        js_setTextAlign, setTextAlign, js_getTextAlign, getTextAlign,-        js_setTextBaseline, setTextBaseline, js_getTextBaseline,-        getTextBaseline, js_setDirection, setDirection, js_getDirection,-        getDirection, js_setStrokeStyle, setStrokeStyle, js_getStrokeStyle,-        getStrokeStyle, js_setFillStyle, setFillStyle, js_getFillStyle,-        getFillStyle, js_getWebkitBackingStorePixelRatio,-        getWebkitBackingStorePixelRatio, js_setImageSmoothingEnabled,-        setImageSmoothingEnabled, js_getImageSmoothingEnabled,-        getImageSmoothingEnabled, js_setWebkitImageSmoothingEnabled,-        setWebkitImageSmoothingEnabled, js_getWebkitImageSmoothingEnabled,-        getWebkitImageSmoothingEnabled, js_setImageSmoothingQuality,-        setImageSmoothingQuality, js_getImageSmoothingQuality,-        getImageSmoothingQuality, CanvasRenderingContext2D(..),-        gTypeCanvasRenderingContext2D)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"save\"](); })" js_save ::-        CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.save Mozilla CanvasRenderingContext2D.save documentation> -save :: (MonadIO m) => CanvasRenderingContext2D -> m ()-save self = liftIO (js_save self)- -foreign import javascript unsafe "(($1) => { return $1[\"restore\"](); })" js_restore ::-        CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.restore Mozilla CanvasRenderingContext2D.restore documentation> -restore :: (MonadIO m) => CanvasRenderingContext2D -> m ()-restore self = liftIO (js_restore self)- -foreign import javascript unsafe "(($1) => { return $1[\"commit\"](); })" js_commit ::-        CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.commit Mozilla CanvasRenderingContext2D.commit documentation> -commit :: (MonadIO m) => CanvasRenderingContext2D -> m ()-commit self = liftIO (js_commit self)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"scale\"]($2, $3); })" js_scale-        :: CanvasRenderingContext2D -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.scale Mozilla CanvasRenderingContext2D.scale documentation> -scale ::-      (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-scale self sx sy = liftIO (js_scale self sx sy)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"rotate\"]($2); })" js_rotate ::-        CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rotate Mozilla CanvasRenderingContext2D.rotate documentation> -rotate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-rotate self angle = liftIO (js_rotate self angle)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"translate\"]($2, $3); })"-        js_translate :: CanvasRenderingContext2D -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.translate Mozilla CanvasRenderingContext2D.translate documentation> -translate ::-          (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-translate self tx ty = liftIO (js_translate self tx ty)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"transform\"]($2, $3, $4, $5,\n$6, $7); })" js_transform ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.transform Mozilla CanvasRenderingContext2D.transform documentation> -transform ::-          (MonadIO m) =>-            CanvasRenderingContext2D ->-              Float -> Float -> Float -> Float -> Float -> Float -> m ()-transform self m11 m12 m21 m22 dx dy-  = liftIO (js_transform self m11 m12 m21 m22 dx dy)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"setTransform\"]($2, $3, $4,\n$5, $6, $7); })" js_setTransform ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setTransform Mozilla CanvasRenderingContext2D.setTransform documentation> -setTransform ::-             (MonadIO m) =>-               CanvasRenderingContext2D ->-                 Float -> Float -> Float -> Float -> Float -> Float -> m ()-setTransform self m11 m12 m21 m22 dx dy-  = liftIO (js_setTransform self m11 m12 m21 m22 dx dy)- -foreign import javascript unsafe "(($1) => { return $1[\"resetTransform\"](); })"-        js_resetTransform :: CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.resetTransform Mozilla CanvasRenderingContext2D.resetTransform documentation> -resetTransform :: (MonadIO m) => CanvasRenderingContext2D -> m ()-resetTransform self = liftIO (js_resetTransform self)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineDash\"]($2); })"-        js_setLineDash :: CanvasRenderingContext2D -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineDash Mozilla CanvasRenderingContext2D.setLineDash documentation> -setLineDash ::-            (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m ()-setLineDash self dash-  = liftIO (toJSVal dash >>= \ dash' -> js_setLineDash self dash')- -foreign import javascript unsafe "(($1) => { return $1[\"getLineDash\"](); })"-        js_getLineDash :: CanvasRenderingContext2D -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> -getLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float]-getLineDash self-  = liftIO ((js_getLineDash self) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> -getLineDash_ :: (MonadIO m) => CanvasRenderingContext2D -> m ()-getLineDash_ self = liftIO (void (js_getLineDash self))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5) => { return $1[\"clearRect\"]($2, $3, $4, $5); })" js_clearRect ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearRect Mozilla CanvasRenderingContext2D.clearRect documentation> -clearRect ::-          (MonadIO m) =>-            CanvasRenderingContext2D ->-              Float -> Float -> Float -> Float -> m ()-clearRect self x y width height-  = liftIO (js_clearRect self x y width height)- -foreign import javascript unsafe "(($1, $2, $3, $4, $5) => { return $1[\"fillRect\"]($2, $3, $4, $5); })"-        js_fillRect ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillRect Mozilla CanvasRenderingContext2D.fillRect documentation> -fillRect ::-         (MonadIO m) =>-           CanvasRenderingContext2D ->-             Float -> Float -> Float -> Float -> m ()-fillRect self x y width height-  = liftIO (js_fillRect self x y width height)- -foreign import javascript unsafe "(($1) => { return $1[\"beginPath\"](); })" js_beginPath-        :: CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.beginPath Mozilla CanvasRenderingContext2D.beginPath documentation> -beginPath :: (MonadIO m) => CanvasRenderingContext2D -> m ()-beginPath self = liftIO (js_beginPath self)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"fill\"]($2, $3); })" js_fillPath-        ::-        CanvasRenderingContext2D ->-          Path2D -> Optional CanvasWindingRule -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> -fillPath ::-         (MonadIO m) =>-           CanvasRenderingContext2D ->-             Path2D -> Maybe CanvasWindingRule -> m ()-fillPath self path winding-  = liftIO (js_fillPath self path (maybeToOptional winding))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"stroke\"]($2); })" js_strokePath-        :: CanvasRenderingContext2D -> Path2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> -strokePath ::-           (MonadIO m) => CanvasRenderingContext2D -> Path2D -> m ()-strokePath self path = liftIO (js_strokePath self path)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"clip\"]($2, $3); })" js_clipPath-        ::-        CanvasRenderingContext2D ->-          Path2D -> Optional CanvasWindingRule -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> -clipPath ::-         (MonadIO m) =>-           CanvasRenderingContext2D ->-             Path2D -> Maybe CanvasWindingRule -> m ()-clipPath self path winding-  = liftIO (js_clipPath self path (maybeToOptional winding))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"fill\"]($2); })" js_fill ::-        CanvasRenderingContext2D -> Optional CanvasWindingRule -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> -fill ::-     (MonadIO m) =>-       CanvasRenderingContext2D -> Maybe CanvasWindingRule -> m ()-fill self winding = liftIO (js_fill self (maybeToOptional winding))- -foreign import javascript unsafe "(($1) => { return $1[\"stroke\"](); })" js_stroke ::-        CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> -stroke :: (MonadIO m) => CanvasRenderingContext2D -> m ()-stroke self = liftIO (js_stroke self)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"clip\"]($2); })" js_clip ::-        CanvasRenderingContext2D -> Optional CanvasWindingRule -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> -clip ::-     (MonadIO m) =>-       CanvasRenderingContext2D -> Maybe CanvasWindingRule -> m ()-clip self winding = liftIO (js_clip self (maybeToOptional winding))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5) => { return ($1[\"isPointInPath\"]($2, $3, $4,\n$5) ? 1 : 0); })"-        js_isPointInPathPath ::-        CanvasRenderingContext2D ->-          Path2D -> Float -> Float -> Optional CanvasWindingRule -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPathPath ::-                  (MonadIO m) =>-                    CanvasRenderingContext2D ->-                      Path2D -> Float -> Float -> Maybe CanvasWindingRule -> m Bool-isPointInPathPath self path x y winding-  = liftIO-      (js_isPointInPathPath self path x y (maybeToOptional winding))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPathPath_ ::-                   (MonadIO m) =>-                     CanvasRenderingContext2D ->-                       Path2D -> Float -> Float -> Maybe CanvasWindingRule -> m ()-isPointInPathPath_ self path x y winding-  = liftIO-      (void-         (js_isPointInPathPath self path x y (maybeToOptional winding)))- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return ($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0); })"-        js_isPointInStrokePath ::-        CanvasRenderingContext2D -> Path2D -> Float -> Float -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStrokePath ::-                    (MonadIO m) =>-                      CanvasRenderingContext2D -> Path2D -> Float -> Float -> m Bool-isPointInStrokePath self path x y-  = liftIO (js_isPointInStrokePath self path x y)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStrokePath_ ::-                     (MonadIO m) =>-                       CanvasRenderingContext2D -> Path2D -> Float -> Float -> m ()-isPointInStrokePath_ self path x y-  = liftIO (void (js_isPointInStrokePath self path x y))- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return ($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0); })" js_isPointInPath ::-        CanvasRenderingContext2D ->-          Float -> Float -> Optional CanvasWindingRule -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPath ::-              (MonadIO m) =>-                CanvasRenderingContext2D ->-                  Float -> Float -> Maybe CanvasWindingRule -> m Bool-isPointInPath self x y winding-  = liftIO (js_isPointInPath self x y (maybeToOptional winding))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPath_ ::-               (MonadIO m) =>-                 CanvasRenderingContext2D ->-                   Float -> Float -> Maybe CanvasWindingRule -> m ()-isPointInPath_ self x y winding-  = liftIO-      (void (js_isPointInPath self x y (maybeToOptional winding)))- -foreign import javascript unsafe-        "(($1, $2, $3) => { return ($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0); })" js_isPointInStroke ::-        CanvasRenderingContext2D -> Float -> Float -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStroke ::-                (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool-isPointInStroke self x y = liftIO (js_isPointInStroke self x y)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStroke_ ::-                 (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-isPointInStroke_ self x y-  = liftIO (void (js_isPointInStroke self x y))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"measureText\"]($2); })"-        js_measureText ::-        CanvasRenderingContext2D -> JSString -> IO TextMetrics---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> -measureText ::-            (MonadIO m, ToJSString text) =>-              CanvasRenderingContext2D -> text -> m TextMetrics-measureText self text-  = liftIO (js_measureText self (toJSString text))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> -measureText_ ::-             (MonadIO m, ToJSString text) =>-               CanvasRenderingContext2D -> text -> m ()-measureText_ self text-  = liftIO (void (js_measureText self (toJSString text)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setAlpha\"]($2); })" js_setAlpha-        :: CanvasRenderingContext2D -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setAlpha Mozilla CanvasRenderingContext2D.setAlpha documentation> -setAlpha ::-         (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m ()-setAlpha self alpha-  = liftIO (js_setAlpha self (maybeToOptional alpha))- -foreign import javascript unsafe-        "(($1, $2) => { return $1[\"setCompositeOperation\"]($2); })" js_setCompositeOperation ::-        CanvasRenderingContext2D -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setCompositeOperation Mozilla CanvasRenderingContext2D.setCompositeOperation documentation> -setCompositeOperation ::-                      (MonadIO m, ToJSString compositeOperation) =>-                        CanvasRenderingContext2D -> Maybe compositeOperation -> m ()-setCompositeOperation self compositeOperation-  = liftIO-      (js_setCompositeOperation self-         (toOptionalJSString compositeOperation))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineWidth\"]($2); })"-        js_setLineWidthFunction ::-        CanvasRenderingContext2D -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineWidth Mozilla CanvasRenderingContext2D.setLineWidth documentation> -setLineWidthFunction ::-                     (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m ()-setLineWidthFunction self width-  = liftIO (js_setLineWidthFunction self (maybeToOptional width))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineCap\"]($2); })"-        js_setLineCapFunction ::-        CanvasRenderingContext2D -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineCap Mozilla CanvasRenderingContext2D.setLineCap documentation> -setLineCapFunction ::-                   (MonadIO m, ToJSString cap) =>-                     CanvasRenderingContext2D -> Maybe cap -> m ()-setLineCapFunction self cap-  = liftIO (js_setLineCapFunction self (toOptionalJSString cap))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineJoin\"]($2); })"-        js_setLineJoinFunction ::-        CanvasRenderingContext2D -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineJoin Mozilla CanvasRenderingContext2D.setLineJoin documentation> -setLineJoinFunction ::-                    (MonadIO m, ToJSString join) =>-                      CanvasRenderingContext2D -> Maybe join -> m ()-setLineJoinFunction self join-  = liftIO (js_setLineJoinFunction self (toOptionalJSString join))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setMiterLimit\"]($2); })"-        js_setMiterLimitFunction ::-        CanvasRenderingContext2D -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setMiterLimit Mozilla CanvasRenderingContext2D.setMiterLimit documentation> -setMiterLimitFunction ::-                      (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m ()-setMiterLimitFunction self limit-  = liftIO (js_setMiterLimitFunction self (maybeToOptional limit))- -foreign import javascript unsafe "(($1) => { return $1[\"clearShadow\"](); })"-        js_clearShadow :: CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearShadow Mozilla CanvasRenderingContext2D.clearShadow documentation> -clearShadow :: (MonadIO m) => CanvasRenderingContext2D -> m ()-clearShadow self = liftIO (js_clearShadow self)- -foreign import javascript unsafe "(($1, $2, $3, $4, $5) => { return $1[\"fillText\"]($2, $3, $4, $5); })"-        js_fillText ::-        CanvasRenderingContext2D ->-          JSString -> Float -> Float -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillText Mozilla CanvasRenderingContext2D.fillText documentation> -fillText ::-         (MonadIO m, ToJSString text) =>-           CanvasRenderingContext2D ->-             text -> Float -> Float -> Maybe Float -> m ()-fillText self text x y maxWidth-  = liftIO-      (js_fillText self (toJSString text) x y (maybeToOptional maxWidth))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5) => { return $1[\"strokeText\"]($2, $3, $4, $5); })" js_strokeText ::-        CanvasRenderingContext2D ->-          JSString -> Float -> Float -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeText Mozilla CanvasRenderingContext2D.strokeText documentation> -strokeText ::-           (MonadIO m, ToJSString text) =>-             CanvasRenderingContext2D ->-               text -> Float -> Float -> Maybe Float -> m ()-strokeText self text x y maxWidth-  = liftIO-      (js_strokeText self (toJSString text) x y-         (maybeToOptional maxWidth))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setStrokeColor\"]($2, $3); })"-        js_setStrokeColor ::-        CanvasRenderingContext2D -> JSString -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColor ::-               (MonadIO m, ToJSString color) =>-                 CanvasRenderingContext2D -> color -> Maybe Float -> m ()-setStrokeColor self color alpha-  = liftIO-      (js_setStrokeColor self (toJSString color) (maybeToOptional alpha))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setStrokeColor\"]($2, $3); })"-        js_setStrokeColorGray ::-        CanvasRenderingContext2D -> Float -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColorGray ::-                   (MonadIO m) =>-                     CanvasRenderingContext2D -> Float -> Maybe Float -> m ()-setStrokeColorGray self grayLevel alpha-  = liftIO-      (js_setStrokeColorGray self grayLevel (maybeToOptional alpha))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5) => { return $1[\"setStrokeColor\"]($2, $3, $4,\n$5); })" js_setStrokeColorRGB ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColorRGB ::-                  (MonadIO m) =>-                    CanvasRenderingContext2D ->-                      Float -> Float -> Float -> Float -> m ()-setStrokeColorRGB self r g b a-  = liftIO (js_setStrokeColorRGB self r g b a)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6) => { return $1[\"setStrokeColor\"]($2, $3, $4,\n$5, $6); })" js_setStrokeColorCYMK-        ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColorCYMK ::-                   (MonadIO m) =>-                     CanvasRenderingContext2D ->-                       Float -> Float -> Float -> Float -> Float -> m ()-setStrokeColorCYMK self c m y k a-  = liftIO (js_setStrokeColorCYMK self c m y k a)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setFillColor\"]($2, $3); })"-        js_setFillColor ::-        CanvasRenderingContext2D -> JSString -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColor ::-             (MonadIO m, ToJSString color) =>-               CanvasRenderingContext2D -> color -> Maybe Float -> m ()-setFillColor self color alpha-  = liftIO-      (js_setFillColor self (toJSString color) (maybeToOptional alpha))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setFillColor\"]($2, $3); })"-        js_setFillColorGray ::-        CanvasRenderingContext2D -> Float -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColorGray ::-                 (MonadIO m) =>-                   CanvasRenderingContext2D -> Float -> Maybe Float -> m ()-setFillColorGray self grayLevel alpha-  = liftIO-      (js_setFillColorGray self grayLevel (maybeToOptional alpha))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5) => { return $1[\"setFillColor\"]($2, $3, $4,\n$5); })" js_setFillColorRGB ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColorRGB ::-                (MonadIO m) =>-                  CanvasRenderingContext2D ->-                    Float -> Float -> Float -> Float -> m ()-setFillColorRGB self r g b a-  = liftIO (js_setFillColorRGB self r g b a)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6) => { return $1[\"setFillColor\"]($2, $3, $4,\n$5, $6); })" js_setFillColorCYMK ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColorCYMK ::-                 (MonadIO m) =>-                   CanvasRenderingContext2D ->-                     Float -> Float -> Float -> Float -> Float -> m ()-setFillColorCYMK self c m y k a-  = liftIO (js_setFillColorCYMK self c m y k a)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5) => { return $1[\"strokeRect\"]($2, $3, $4, $5); })" js_strokeRect ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeRect Mozilla CanvasRenderingContext2D.strokeRect documentation> -strokeRect ::-           (MonadIO m) =>-             CanvasRenderingContext2D ->-               Float -> Float -> Float -> Float -> m ()-strokeRect self x y width height-  = liftIO (js_strokeRect self x y width height)- -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"drawImage\"]($2, $3, $4); })"-        js_drawImage ::-        CanvasRenderingContext2D ->-          CanvasImageSource -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImage ::-          (MonadIO m, IsCanvasImageSource image) =>-            CanvasRenderingContext2D -> image -> Float -> Float -> m ()-drawImage self image x y-  = liftIO (js_drawImage self (toCanvasImageSource image) x y)- -foreign import javascript safe-        "(($1, $2, $3, $4, $5, $6) => { return $1[\"drawImage\"]($2, $3, $4, $5,\n$6); })" js_drawImageScaled ::-        CanvasRenderingContext2D ->-          CanvasImageSource -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImageScaled ::-                (MonadIO m, IsCanvasImageSource image) =>-                  CanvasRenderingContext2D ->-                    image -> Float -> Float -> Float -> Float -> m ()-drawImageScaled self image x y width height-  = liftIO-      (js_drawImageScaled self (toCanvasImageSource image) x y width-         height)- -foreign import javascript safe-        "(($1, $2, $3, $4, $5, $6, $7, $8, $9, $10) => { return $1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10); })"-        js_drawImagePart ::-        CanvasRenderingContext2D ->-          CanvasImageSource ->-            Float ->-              Float ->-                Float -> Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImagePart ::-              (MonadIO m, IsCanvasImageSource image) =>-                CanvasRenderingContext2D ->-                  image ->-                    Float ->-                      Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-drawImagePart self image sx sy sw sh dx dy dw dh-  = liftIO-      (js_drawImagePart self (toCanvasImageSource image) sx sy sw sh dx-         dy-         dw-         dh)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11) => { return $1[\"drawImageFromRect\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11); })"-        js_drawImageFromRect ::-        CanvasRenderingContext2D ->-          HTMLImageElement ->-            Optional Float ->-              Optional Float ->-                Optional Float ->-                  Optional Float ->-                    Optional Float ->-                      Optional Float ->-                        Optional Float -> Optional Float -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImageFromRect Mozilla CanvasRenderingContext2D.drawImageFromRect documentation> -drawImageFromRect ::-                  (MonadIO m, ToJSString compositeOperation) =>-                    CanvasRenderingContext2D ->-                      HTMLImageElement ->-                        Maybe Float ->-                          Maybe Float ->-                            Maybe Float ->-                              Maybe Float ->-                                Maybe Float ->-                                  Maybe Float ->-                                    Maybe Float -> Maybe Float -> Maybe compositeOperation -> m ()-drawImageFromRect self image sx sy sw sh dx dy dw dh-  compositeOperation-  = liftIO-      (js_drawImageFromRect self image (maybeToOptional sx)-         (maybeToOptional sy)-         (maybeToOptional sw)-         (maybeToOptional sh)-         (maybeToOptional dx)-         (maybeToOptional dy)-         (maybeToOptional dw)-         (maybeToOptional dh)-         (toOptionalJSString compositeOperation))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6) => { return $1[\"setShadow\"]($2, $3, $4, $5,\n$6); })" js_setShadow ::-        CanvasRenderingContext2D ->-          Float ->-            Float -> Float -> Optional JSString -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadow ::-          (MonadIO m, ToJSString color) =>-            CanvasRenderingContext2D ->-              Float -> Float -> Float -> Maybe color -> Maybe Float -> m ()-setShadow self width height blur color alpha-  = liftIO-      (js_setShadow self width height blur (toOptionalJSString color)-         (maybeToOptional alpha))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6) => { return $1[\"setShadow\"]($2, $3, $4, $5,\n$6); })" js_setShadowGray ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadowGray ::-              (MonadIO m) =>-                CanvasRenderingContext2D ->-                  Float -> Float -> Float -> Float -> Maybe Float -> m ()-setShadowGray self width height blur grayLevel alpha-  = liftIO-      (js_setShadowGray self width height blur grayLevel-         (maybeToOptional alpha))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8); })" js_setShadowRGB ::-        CanvasRenderingContext2D ->-          Float ->-            Float -> Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadowRGB ::-             (MonadIO m) =>-               CanvasRenderingContext2D ->-                 Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-setShadowRGB self width height blur r g b a-  = liftIO (js_setShadowRGB self width height blur r g b a)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7, $8, $9) => { return $1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8, $9); })"-        js_setShadowCYMK ::-        CanvasRenderingContext2D ->-          Float ->-            Float ->-              Float -> Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadowCYMK ::-              (MonadIO m) =>-                CanvasRenderingContext2D ->-                  Float ->-                    Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-setShadowCYMK self width height blur c m y k a-  = liftIO (js_setShadowCYMK self width height blur c m y k a)- -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"putImageData\"]($2, $3, $4); })"-        js_putImageData ::-        CanvasRenderingContext2D -> ImageData -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> -putImageData ::-             (MonadIO m) =>-               CanvasRenderingContext2D -> ImageData -> Float -> Float -> m ()-putImageData self imagedata dx dy-  = liftIO (js_putImageData self imagedata dx dy)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"putImageData\"]($2, $3, $4,\n$5, $6, $7, $8); })"-        js_putImageDataDirty ::-        CanvasRenderingContext2D ->-          ImageData ->-            Float -> Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> -putImageDataDirty ::-                  (MonadIO m) =>-                    CanvasRenderingContext2D ->-                      ImageData ->-                        Float -> Float -> Float -> Float -> Float -> Float -> m ()-putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth-  dirtyHeight-  = liftIO-      (js_putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth-         dirtyHeight)- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return $1[\"webkitPutImageDataHD\"]($2,\n$3, $4); })" js_webkitPutImageDataHD-        :: CanvasRenderingContext2D -> ImageData -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> -webkitPutImageDataHD ::-                     (MonadIO m) =>-                       CanvasRenderingContext2D -> ImageData -> Float -> Float -> m ()-webkitPutImageDataHD self imagedata dx dy-  = liftIO (js_webkitPutImageDataHD self imagedata dx dy)- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"webkitPutImageDataHD\"]($2,\n$3, $4, $5, $6, $7, $8); })"-        js_webkitPutImageDataHDDirty ::-        CanvasRenderingContext2D ->-          ImageData ->-            Float -> Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> -webkitPutImageDataHDDirty ::-                          (MonadIO m) =>-                            CanvasRenderingContext2D ->-                              ImageData ->-                                Float -> Float -> Float -> Float -> Float -> Float -> m ()-webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY-  dirtyWidth dirtyHeight-  = liftIO-      (js_webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY-         dirtyWidth-         dirtyHeight)- -foreign import javascript safe "(($1, $2) => { return $1[\"createImageData\"]($2); })"-        js_createImageData ::-        CanvasRenderingContext2D -> Optional ImageData -> IO ImageData---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageData ::-                (MonadIO m) =>-                  CanvasRenderingContext2D -> Maybe ImageData -> m ImageData-createImageData self imagedata-  = liftIO (js_createImageData self (maybeToOptional imagedata))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageData_ ::-                 (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> m ()-createImageData_ self imagedata-  = liftIO-      (void (js_createImageData self (maybeToOptional imagedata)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createImageData\"]($2, $3); })"-        js_createImageDataSize ::-        CanvasRenderingContext2D -> Float -> Float -> IO ImageData---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageDataSize ::-                    (MonadIO m) =>-                      CanvasRenderingContext2D -> Float -> Float -> m ImageData-createImageDataSize self sw sh-  = liftIO (js_createImageDataSize self sw sh)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageDataSize_ ::-                     (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-createImageDataSize_ self sw sh-  = liftIO (void (js_createImageDataSize self sw sh))- -foreign import javascript safe-        "(($1, $2, $3, $4, $5) => { return $1[\"createLinearGradient\"]($2,\n$3, $4, $5); })"-        js_createLinearGradient ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO CanvasGradient---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> -createLinearGradient ::-                     (MonadIO m) =>-                       CanvasRenderingContext2D ->-                         Float -> Float -> Float -> Float -> m CanvasGradient-createLinearGradient self x0 y0 x1 y1-  = liftIO (js_createLinearGradient self x0 y0 x1 y1)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> -createLinearGradient_ ::-                      (MonadIO m) =>-                        CanvasRenderingContext2D ->-                          Float -> Float -> Float -> Float -> m ()-createLinearGradient_ self x0 y0 x1 y1-  = liftIO (void (js_createLinearGradient self x0 y0 x1 y1))- -foreign import javascript safe-        "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"createRadialGradient\"]($2,\n$3, $4, $5, $6, $7); })"-        js_createRadialGradient ::-        CanvasRenderingContext2D ->-          Float ->-            Float -> Float -> Float -> Float -> Float -> IO CanvasGradient---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> -createRadialGradient ::-                     (MonadIO m) =>-                       CanvasRenderingContext2D ->-                         Float ->-                           Float -> Float -> Float -> Float -> Float -> m CanvasGradient-createRadialGradient self x0 y0 r0 x1 y1 r1-  = liftIO (js_createRadialGradient self x0 y0 r0 x1 y1 r1)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> -createRadialGradient_ ::-                      (MonadIO m) =>-                        CanvasRenderingContext2D ->-                          Float -> Float -> Float -> Float -> Float -> Float -> m ()-createRadialGradient_ self x0 y0 r0 x1 y1 r1-  = liftIO (void (js_createRadialGradient self x0 y0 r0 x1 y1 r1))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createPattern\"]($2, $3); })"-        js_createPattern ::-        CanvasRenderingContext2D ->-          CanvasImageSource -> JSString -> IO (Nullable CanvasPattern)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPattern ::-              (MonadIO m, IsCanvasImageSource image, ToJSString repetition) =>-                CanvasRenderingContext2D ->-                  image -> repetition -> m (Maybe CanvasPattern)-createPattern self image repetition-  = liftIO-      (nullableToMaybe <$>-         (js_createPattern self (toCanvasImageSource image)-            (toJSString repetition)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPattern_ ::-               (MonadIO m, IsCanvasImageSource image, ToJSString repetition) =>-                 CanvasRenderingContext2D -> image -> repetition -> m ()-createPattern_ self image repetition-  = liftIO-      (void-         (js_createPattern self (toCanvasImageSource image)-            (toJSString repetition)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPatternUnsafe ::-                    (MonadIO m, IsCanvasImageSource image, ToJSString repetition,-                     HasCallStack) =>-                      CanvasRenderingContext2D -> image -> repetition -> m CanvasPattern-createPatternUnsafe self image repetition-  = liftIO-      ((nullableToMaybe <$>-          (js_createPattern self (toCanvasImageSource image)-             (toJSString repetition)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPatternUnchecked ::-                       (MonadIO m, IsCanvasImageSource image, ToJSString repetition) =>-                         CanvasRenderingContext2D -> image -> repetition -> m CanvasPattern-createPatternUnchecked self image repetition-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_createPattern self (toCanvasImageSource image)-            (toJSString repetition)))- -foreign import javascript safe-        "(($1, $2, $3, $4, $5) => { return $1[\"getImageData\"]($2, $3, $4,\n$5); })" js_getImageData ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO ImageData---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> -getImageData ::-             (MonadIO m) =>-               CanvasRenderingContext2D ->-                 Float -> Float -> Float -> Float -> m ImageData-getImageData self sx sy sw sh-  = liftIO (js_getImageData self sx sy sw sh)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> -getImageData_ ::-              (MonadIO m) =>-                CanvasRenderingContext2D ->-                  Float -> Float -> Float -> Float -> m ()-getImageData_ self sx sy sw sh-  = liftIO (void (js_getImageData self sx sy sw sh))- -foreign import javascript safe-        "(($1, $2, $3, $4, $5) => { return $1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5); })"-        js_webkitGetImageDataHD ::-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO ImageData---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> -webkitGetImageDataHD ::-                     (MonadIO m) =>-                       CanvasRenderingContext2D ->-                         Float -> Float -> Float -> Float -> m ImageData-webkitGetImageDataHD self sx sy sw sh-  = liftIO (js_webkitGetImageDataHD self sx sy sw sh)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> -webkitGetImageDataHD_ ::-                      (MonadIO m) =>-                        CanvasRenderingContext2D ->-                          Float -> Float -> Float -> Float -> m ()-webkitGetImageDataHD_ self sx sy sw sh-  = liftIO (void (js_webkitGetImageDataHD self sx sy sw sh))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"drawFocusIfNeeded\"]($2); })"-        js_drawFocusIfNeeded ::-        CanvasRenderingContext2D -> Element -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> -drawFocusIfNeeded ::-                  (MonadIO m, IsElement element) =>-                    CanvasRenderingContext2D -> element -> m ()-drawFocusIfNeeded self element-  = liftIO (js_drawFocusIfNeeded self (toElement element))- -foreign import javascript unsafe-        "(($1, $2, $3) => { return $1[\"drawFocusIfNeeded\"]($2, $3); })" js_drawFocusIfNeededPath ::-        CanvasRenderingContext2D -> Path2D -> Element -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> -drawFocusIfNeededPath ::-                      (MonadIO m, IsElement element) =>-                        CanvasRenderingContext2D -> Path2D -> element -> m ()-drawFocusIfNeededPath self path element-  = liftIO (js_drawFocusIfNeededPath self path (toElement element))- -foreign import javascript unsafe "(($1) => { return $1[\"canvas\"]; })" js_getCanvas ::-        CanvasRenderingContext2D -> IO HTMLCanvasElement---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.canvas Mozilla CanvasRenderingContext2D.canvas documentation> -getCanvas ::-          (MonadIO m) => CanvasRenderingContext2D -> m HTMLCanvasElement-getCanvas self = liftIO (js_getCanvas self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"globalAlpha\"] = $2; })"-        js_setGlobalAlpha :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> -setGlobalAlpha ::-               (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setGlobalAlpha self val = liftIO (js_setGlobalAlpha self val)- -foreign import javascript unsafe "(($1) => { return $1[\"globalAlpha\"]; })"-        js_getGlobalAlpha :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> -getGlobalAlpha ::-               (MonadIO m) => CanvasRenderingContext2D -> m Float-getGlobalAlpha self = liftIO (js_getGlobalAlpha self)- -foreign import javascript unsafe-        "(($1, $2) => { $1[\"globalCompositeOperation\"] = $2; })"-        js_setGlobalCompositeOperation ::-        CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> -setGlobalCompositeOperation ::-                            (MonadIO m, ToJSString val) =>-                              CanvasRenderingContext2D -> val -> m ()-setGlobalCompositeOperation self val-  = liftIO (js_setGlobalCompositeOperation self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"globalCompositeOperation\"]; })"-        js_getGlobalCompositeOperation ::-        CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> -getGlobalCompositeOperation ::-                            (MonadIO m, FromJSString result) =>-                              CanvasRenderingContext2D -> m result-getGlobalCompositeOperation self-  = liftIO (fromJSString <$> (js_getGlobalCompositeOperation self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"lineWidth\"] = $2; })"-        js_setLineWidth :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> -setLineWidth ::-             (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setLineWidth self val = liftIO (js_setLineWidth self val)- -foreign import javascript unsafe "(($1) => { return $1[\"lineWidth\"]; })"-        js_getLineWidth :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> -getLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> m Float-getLineWidth self = liftIO (js_getLineWidth self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"lineCap\"] = $2; })"-        js_setLineCap :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> -setLineCap ::-           (MonadIO m, ToJSString val) =>-             CanvasRenderingContext2D -> val -> m ()-setLineCap self val = liftIO (js_setLineCap self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"lineCap\"]; })" js_getLineCap ::-        CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> -getLineCap ::-           (MonadIO m, FromJSString result) =>-             CanvasRenderingContext2D -> m result-getLineCap self = liftIO (fromJSString <$> (js_getLineCap self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"lineJoin\"] = $2; })"-        js_setLineJoin :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> -setLineJoin ::-            (MonadIO m, ToJSString val) =>-              CanvasRenderingContext2D -> val -> m ()-setLineJoin self val-  = liftIO (js_setLineJoin self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"lineJoin\"]; })" js_getLineJoin-        :: CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> -getLineJoin ::-            (MonadIO m, FromJSString result) =>-              CanvasRenderingContext2D -> m result-getLineJoin self = liftIO (fromJSString <$> (js_getLineJoin self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"miterLimit\"] = $2; })"-        js_setMiterLimit :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> -setMiterLimit ::-              (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setMiterLimit self val = liftIO (js_setMiterLimit self val)- -foreign import javascript unsafe "(($1) => { return $1[\"miterLimit\"]; })"-        js_getMiterLimit :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> -getMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> m Float-getMiterLimit self = liftIO (js_getMiterLimit self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowOffsetX\"] = $2; })"-        js_setShadowOffsetX :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> -setShadowOffsetX ::-                 (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setShadowOffsetX self val = liftIO (js_setShadowOffsetX self val)- -foreign import javascript unsafe "(($1) => { return $1[\"shadowOffsetX\"]; })"-        js_getShadowOffsetX :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> -getShadowOffsetX ::-                 (MonadIO m) => CanvasRenderingContext2D -> m Float-getShadowOffsetX self = liftIO (js_getShadowOffsetX self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowOffsetY\"] = $2; })"-        js_setShadowOffsetY :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> -setShadowOffsetY ::-                 (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setShadowOffsetY self val = liftIO (js_setShadowOffsetY self val)- -foreign import javascript unsafe "(($1) => { return $1[\"shadowOffsetY\"]; })"-        js_getShadowOffsetY :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> -getShadowOffsetY ::-                 (MonadIO m) => CanvasRenderingContext2D -> m Float-getShadowOffsetY self = liftIO (js_getShadowOffsetY self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowBlur\"] = $2; })"-        js_setShadowBlur :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> -setShadowBlur ::-              (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setShadowBlur self val = liftIO (js_setShadowBlur self val)- -foreign import javascript unsafe "(($1) => { return $1[\"shadowBlur\"]; })"-        js_getShadowBlur :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> -getShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> m Float-getShadowBlur self = liftIO (js_getShadowBlur self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowColor\"] = $2; })"-        js_setShadowColor :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> -setShadowColor ::-               (MonadIO m, ToJSString val) =>-                 CanvasRenderingContext2D -> val -> m ()-setShadowColor self val-  = liftIO (js_setShadowColor self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"shadowColor\"]; })"-        js_getShadowColor :: CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> -getShadowColor ::-               (MonadIO m, FromJSString result) =>-                 CanvasRenderingContext2D -> m result-getShadowColor self-  = liftIO (fromJSString <$> (js_getShadowColor self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"lineDashOffset\"] = $2; })"-        js_setLineDashOffset :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> -setLineDashOffset ::-                  (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setLineDashOffset self val = liftIO (js_setLineDashOffset self val)- -foreign import javascript unsafe "(($1) => { return $1[\"lineDashOffset\"]; })"-        js_getLineDashOffset :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> -getLineDashOffset ::-                  (MonadIO m) => CanvasRenderingContext2D -> m Float-getLineDashOffset self = liftIO (js_getLineDashOffset self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"webkitLineDash\"] = $2; })"-        js_setWebkitLineDash :: CanvasRenderingContext2D -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> -setWebkitLineDash ::-                  (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m ()-setWebkitLineDash self val-  = liftIO (toJSVal val >>= \ val' -> js_setWebkitLineDash self val')- -foreign import javascript unsafe "(($1) => { return $1[\"webkitLineDash\"]; })"-        js_getWebkitLineDash :: CanvasRenderingContext2D -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> -getWebkitLineDash ::-                  (MonadIO m) => CanvasRenderingContext2D -> m [Float]-getWebkitLineDash self-  = liftIO ((js_getWebkitLineDash self) >>= fromJSValUnchecked)- -foreign import javascript unsafe-        "(($1, $2) => { $1[\"webkitLineDashOffset\"] = $2; })" js_setWebkitLineDashOffset ::-        CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> -setWebkitLineDashOffset ::-                        (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setWebkitLineDashOffset self val-  = liftIO (js_setWebkitLineDashOffset self val)- -foreign import javascript unsafe "(($1) => { return $1[\"webkitLineDashOffset\"]; })"-        js_getWebkitLineDashOffset :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> -getWebkitLineDashOffset ::-                        (MonadIO m) => CanvasRenderingContext2D -> m Float-getWebkitLineDashOffset self-  = liftIO (js_getWebkitLineDashOffset self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"font\"] = $2; })" js_setFont ::-        CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> -setFont ::-        (MonadIO m, ToJSString val) =>-          CanvasRenderingContext2D -> val -> m ()-setFont self val = liftIO (js_setFont self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"font\"]; })" js_getFont ::-        CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> -getFont ::-        (MonadIO m, FromJSString result) =>-          CanvasRenderingContext2D -> m result-getFont self = liftIO (fromJSString <$> (js_getFont self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"textAlign\"] = $2; })"-        js_setTextAlign :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> -setTextAlign ::-             (MonadIO m, ToJSString val) =>-               CanvasRenderingContext2D -> val -> m ()-setTextAlign self val-  = liftIO (js_setTextAlign self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"textAlign\"]; })"-        js_getTextAlign :: CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> -getTextAlign ::-             (MonadIO m, FromJSString result) =>-               CanvasRenderingContext2D -> m result-getTextAlign self-  = liftIO (fromJSString <$> (js_getTextAlign self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"textBaseline\"] = $2; })"-        js_setTextBaseline :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> -setTextBaseline ::-                (MonadIO m, ToJSString val) =>-                  CanvasRenderingContext2D -> val -> m ()-setTextBaseline self val-  = liftIO (js_setTextBaseline self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"textBaseline\"]; })"-        js_getTextBaseline :: CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> -getTextBaseline ::-                (MonadIO m, FromJSString result) =>-                  CanvasRenderingContext2D -> m result-getTextBaseline self-  = liftIO (fromJSString <$> (js_getTextBaseline self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"direction\"] = $2; })"-        js_setDirection :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> -setDirection ::-             (MonadIO m, ToJSString val) =>-               CanvasRenderingContext2D -> val -> m ()-setDirection self val-  = liftIO (js_setDirection self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"direction\"]; })"-        js_getDirection :: CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> -getDirection ::-             (MonadIO m, FromJSString result) =>-               CanvasRenderingContext2D -> m result-getDirection self-  = liftIO (fromJSString <$> (js_getDirection self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"strokeStyle\"] = $2; })"-        js_setStrokeStyle ::-        CanvasRenderingContext2D -> CanvasStyle -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> -setStrokeStyle ::-               (MonadIO m, IsCanvasStyle val) =>-                 CanvasRenderingContext2D -> val -> m ()-setStrokeStyle self val-  = liftIO-      (toJSVal val >>=-         \ val' -> js_setStrokeStyle self (CanvasStyle val'))- -foreign import javascript unsafe "(($1) => { return $1[\"strokeStyle\"]; })"-        js_getStrokeStyle :: CanvasRenderingContext2D -> IO CanvasStyle---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> -getStrokeStyle ::-               (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle-getStrokeStyle self = liftIO (js_getStrokeStyle self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"fillStyle\"] = $2; })"-        js_setFillStyle :: CanvasRenderingContext2D -> CanvasStyle -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> -setFillStyle ::-             (MonadIO m, IsCanvasStyle val) =>-               CanvasRenderingContext2D -> val -> m ()-setFillStyle self val-  = liftIO-      (toJSVal val >>= \ val' -> js_setFillStyle self (CanvasStyle val'))- -foreign import javascript unsafe "(($1) => { return $1[\"fillStyle\"]; })"-        js_getFillStyle :: CanvasRenderingContext2D -> IO CanvasStyle---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> -getFillStyle ::-             (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle-getFillStyle self = liftIO (js_getFillStyle self)- -foreign import javascript unsafe-        "(($1) => { return $1[\"webkitBackingStorePixelRatio\"]; })"-        js_getWebkitBackingStorePixelRatio ::-        CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitBackingStorePixelRatio Mozilla CanvasRenderingContext2D.webkitBackingStorePixelRatio documentation> -getWebkitBackingStorePixelRatio ::-                                (MonadIO m) => CanvasRenderingContext2D -> m Float-getWebkitBackingStorePixelRatio self-  = liftIO (js_getWebkitBackingStorePixelRatio self)- -foreign import javascript unsafe-        "(($1, $2) => { $1[\"imageSmoothingEnabled\"] = $2; })" js_setImageSmoothingEnabled-        :: CanvasRenderingContext2D -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingEnabled Mozilla CanvasRenderingContext2D.imageSmoothingEnabled documentation> -setImageSmoothingEnabled ::-                         (MonadIO m) => CanvasRenderingContext2D -> Bool -> m ()-setImageSmoothingEnabled self val-  = liftIO (js_setImageSmoothingEnabled self val)- -foreign import javascript unsafe-        "(($1) => { return ($1[\"imageSmoothingEnabled\"] ? 1 : 0); })"-        js_getImageSmoothingEnabled :: CanvasRenderingContext2D -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingEnabled Mozilla CanvasRenderingContext2D.imageSmoothingEnabled documentation> -getImageSmoothingEnabled ::-                         (MonadIO m) => CanvasRenderingContext2D -> m Bool-getImageSmoothingEnabled self-  = liftIO (js_getImageSmoothingEnabled self)- -foreign import javascript unsafe-        "(($1, $2) => { $1[\"webkitImageSmoothingEnabled\"] = $2; })"-        js_setWebkitImageSmoothingEnabled ::-        CanvasRenderingContext2D -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> -setWebkitImageSmoothingEnabled ::-                               (MonadIO m) => CanvasRenderingContext2D -> Bool -> m ()-setWebkitImageSmoothingEnabled self val-  = liftIO (js_setWebkitImageSmoothingEnabled self val)- -foreign import javascript unsafe-        "(($1) => { return ($1[\"webkitImageSmoothingEnabled\"] ? 1 : 0); })"-        js_getWebkitImageSmoothingEnabled ::-        CanvasRenderingContext2D -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> -getWebkitImageSmoothingEnabled ::-                               (MonadIO m) => CanvasRenderingContext2D -> m Bool-getWebkitImageSmoothingEnabled self-  = liftIO (js_getWebkitImageSmoothingEnabled self)- -foreign import javascript unsafe-        "(($1, $2) => { $1[\"imageSmoothingQuality\"] = $2; })" js_setImageSmoothingQuality-        :: CanvasRenderingContext2D -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingQuality Mozilla CanvasRenderingContext2D.imageSmoothingQuality documentation> -setImageSmoothingQuality ::-                         (MonadIO m) =>-                           CanvasRenderingContext2D -> ImageSmoothingQuality -> m ()-setImageSmoothingQuality self val-  = liftIO (js_setImageSmoothingQuality self (pToJSVal val))- -foreign import javascript unsafe "(($1) => { return $1[\"imageSmoothingQuality\"]; })"-        js_getImageSmoothingQuality :: CanvasRenderingContext2D -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingQuality Mozilla CanvasRenderingContext2D.imageSmoothingQuality documentation> -getImageSmoothingQuality ::-                         (MonadIO m) => CanvasRenderingContext2D -> m ImageSmoothingQuality-getImageSmoothingQuality self-  = liftIO-      ((js_getImageSmoothingQuality self) >>= fromJSValUnchecked)+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D+       (js_getCanvas, getCanvas, CanvasRenderingContext2D(..), gTypeCanvasRenderingContext2D)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"canvas\"]; })"+        js_getCanvas :: CanvasRenderingContext2D -> IO HTMLCanvasElement+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/canvas MDN CanvasRenderingContext2D.canvas documentation>+getCanvas :: (MonadDOM m) => CanvasRenderingContext2D -> m HTMLCanvasElement+getCanvas self = liftDOM ((js_getCanvas (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2DSettings.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2DSettings+       (js_newCanvasRenderingContext2DSettings, js_setAlpha, js_getAlpha, js_setDesynchronized, js_getDesynchronized, js_setColorSpace, js_getColorSpace, js_setColorType, js_getColorType, js_setWillReadFrequently, js_getWillReadFrequently, newCanvasRenderingContext2DSettings, setAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, setDesynchronized, getDesynchronized, getDesynchronizedUnsafe, getDesynchronizedUnchecked, setColorSpace, getColorSpace, getColorSpaceUnsafe, getColorSpaceUnchecked, setColorType, getColorType, getColorTypeUnsafe, getColorTypeUnchecked, setWillReadFrequently, getWillReadFrequently, getWillReadFrequentlyUnsafe, getWillReadFrequentlyUnchecked, CanvasRenderingContext2DSettings(..), gTypeCanvasRenderingContext2DSettings)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCanvasRenderingContext2DSettings :: IO CanvasRenderingContext2DSettings+-- | <https://html.spec.whatwg.org/multipage/canvas.html#canvasrenderingcontext2dsettings CanvasRenderingContext2DSettings specification>+newCanvasRenderingContext2DSettings :: (MonadDOM m) => m CanvasRenderingContext2DSettings+newCanvasRenderingContext2DSettings = liftDOM ((js_newCanvasRenderingContext2DSettings))++foreign import javascript safe "(($1, $2) => { $1[\"alpha\"] = $2; })"+        js_setAlpha :: CanvasRenderingContext2DSettings -> Bool -> IO ()+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>+setAlpha :: (MonadDOM m) => CanvasRenderingContext2DSettings -> Bool -> m ()+setAlpha self val = liftDOM (void ((js_setAlpha (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })"+        js_getAlpha :: CanvasRenderingContext2DSettings -> IO JSVal+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>+getAlpha :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool)+getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>+getAlphaUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool+getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>+getAlphaUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m Bool+getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self))))++foreign import javascript safe "(($1, $2) => { $1[\"desynchronized\"] = $2; })"+        js_setDesynchronized :: CanvasRenderingContext2DSettings -> Bool -> IO ()+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>+setDesynchronized :: (MonadDOM m) => CanvasRenderingContext2DSettings -> Bool -> m ()+setDesynchronized self val = liftDOM (void ((js_setDesynchronized (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"desynchronized\"]; })"+        js_getDesynchronized :: CanvasRenderingContext2DSettings -> IO JSVal+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>+getDesynchronized :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool)+getDesynchronized self = liftDOM (((js_getDesynchronized (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>+getDesynchronizedUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool+getDesynchronizedUnsafe self = liftDOM ((((js_getDesynchronized (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>+getDesynchronizedUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m Bool+getDesynchronizedUnchecked self = liftDOM ((pFromJSVal <$> (js_getDesynchronized (self))))++foreign import javascript safe "(($1, $2) => { $1[\"colorSpace\"] = $2; })"+        js_setColorSpace :: CanvasRenderingContext2DSettings -> JSVal -> IO ()+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>+setColorSpace :: (MonadDOM m) => CanvasRenderingContext2DSettings -> PredefinedColorSpace -> m ()+setColorSpace self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setColorSpace (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"colorSpace\"]; })"+        js_getColorSpace :: CanvasRenderingContext2DSettings -> IO JSVal+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>+getColorSpace :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe PredefinedColorSpace)+getColorSpace self = liftDOM (((js_getColorSpace (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>+getColorSpaceUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m PredefinedColorSpace+getColorSpaceUnsafe self = liftDOM ((((js_getColorSpace (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>+getColorSpaceUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m PredefinedColorSpace+getColorSpaceUnchecked self = liftDOM ((pFromJSVal <$> (js_getColorSpace (self))))++foreign import javascript safe "(($1, $2) => { $1[\"colorType\"] = $2; })"+        js_setColorType :: CanvasRenderingContext2DSettings -> JSVal -> IO ()+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>+setColorType :: (MonadDOM m) => CanvasRenderingContext2DSettings -> CanvasColorType -> m ()+setColorType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setColorType (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"colorType\"]; })"+        js_getColorType :: CanvasRenderingContext2DSettings -> IO JSVal+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>+getColorType :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe CanvasColorType)+getColorType self = liftDOM (((js_getColorType (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>+getColorTypeUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m CanvasColorType+getColorTypeUnsafe self = liftDOM ((((js_getColorType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>+getColorTypeUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m CanvasColorType+getColorTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getColorType (self))))++foreign import javascript safe "(($1, $2) => { $1[\"willReadFrequently\"] = $2; })"+        js_setWillReadFrequently :: CanvasRenderingContext2DSettings -> Bool -> IO ()+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>+setWillReadFrequently :: (MonadDOM m) => CanvasRenderingContext2DSettings -> Bool -> m ()+setWillReadFrequently self val = liftDOM (void ((js_setWillReadFrequently (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"willReadFrequently\"]; })"+        js_getWillReadFrequently :: CanvasRenderingContext2DSettings -> IO JSVal+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>+getWillReadFrequently :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool)+getWillReadFrequently self = liftDOM (((js_getWillReadFrequently (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>+getWillReadFrequentlyUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool+getWillReadFrequentlyUnsafe self = liftDOM ((((js_getWillReadFrequently (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>+getWillReadFrequentlyUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m Bool+getWillReadFrequentlyUnchecked self = liftDOM ((pFromJSVal <$> (js_getWillReadFrequently (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasSettings.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasSettings+       (js_getContextAttributes, getContextAttributes, getContextAttributes_, CanvasSettings(..), gTypeCanvasSettings, IsCanvasSettings, toCanvasSettings)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"getContextAttributes\"](); })"+        js_getContextAttributes :: CanvasSettings -> IO CanvasRenderingContext2DSettings+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getContextAttributes MDN CanvasSettings.getContextAttributes documentation>+getContextAttributes :: (MonadDOM m, IsCanvasSettings self) => self -> m CanvasRenderingContext2DSettings+getContextAttributes self = liftDOM ((js_getContextAttributes ((Types.toCanvasSettings self))))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getContextAttributes MDN CanvasSettings.getContextAttributes documentation>+getContextAttributes_ :: (MonadDOM m, IsCanvasSettings self) => self -> m ()+getContextAttributes_ self = liftDOM (void ((js_getContextAttributes ((Types.toCanvasSettings self)))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasShadowStyles.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasShadowStyles+       (js_setShadowOffsetX, js_getShadowOffsetX, js_setShadowOffsetY, js_getShadowOffsetY, js_setShadowBlur, js_getShadowBlur, js_setShadowColor, js_getShadowColor, setShadowOffsetX, getShadowOffsetX, setShadowOffsetY, getShadowOffsetY, setShadowBlur, getShadowBlur, setShadowColor, getShadowColor, CanvasShadowStyles(..), gTypeCanvasShadowStyles, IsCanvasShadowStyles, toCanvasShadowStyles)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"shadowOffsetX\"] = $2; })"+        js_setShadowOffsetX :: CanvasShadowStyles -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowOffsetX MDN CanvasShadowStyles.shadowOffsetX documentation>+setShadowOffsetX :: (MonadDOM m, IsCanvasShadowStyles self) => self -> Double -> m ()+setShadowOffsetX self val = liftDOM (void ((js_setShadowOffsetX ((Types.toCanvasShadowStyles self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"shadowOffsetX\"]; })"+        js_getShadowOffsetX :: CanvasShadowStyles -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowOffsetX MDN CanvasShadowStyles.shadowOffsetX documentation>+getShadowOffsetX :: (MonadDOM m, IsCanvasShadowStyles self) => self -> m Double+getShadowOffsetX self = liftDOM ((js_getShadowOffsetX ((Types.toCanvasShadowStyles self))))++foreign import javascript safe "(($1, $2) => { $1[\"shadowOffsetY\"] = $2; })"+        js_setShadowOffsetY :: CanvasShadowStyles -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowOffsetY MDN CanvasShadowStyles.shadowOffsetY documentation>+setShadowOffsetY :: (MonadDOM m, IsCanvasShadowStyles self) => self -> Double -> m ()+setShadowOffsetY self val = liftDOM (void ((js_setShadowOffsetY ((Types.toCanvasShadowStyles self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"shadowOffsetY\"]; })"+        js_getShadowOffsetY :: CanvasShadowStyles -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowOffsetY MDN CanvasShadowStyles.shadowOffsetY documentation>+getShadowOffsetY :: (MonadDOM m, IsCanvasShadowStyles self) => self -> m Double+getShadowOffsetY self = liftDOM ((js_getShadowOffsetY ((Types.toCanvasShadowStyles self))))++foreign import javascript safe "(($1, $2) => { $1[\"shadowBlur\"] = $2; })"+        js_setShadowBlur :: CanvasShadowStyles -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowBlur MDN CanvasShadowStyles.shadowBlur documentation>+setShadowBlur :: (MonadDOM m, IsCanvasShadowStyles self) => self -> Double -> m ()+setShadowBlur self val = liftDOM (void ((js_setShadowBlur ((Types.toCanvasShadowStyles self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"shadowBlur\"]; })"+        js_getShadowBlur :: CanvasShadowStyles -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowBlur MDN CanvasShadowStyles.shadowBlur documentation>+getShadowBlur :: (MonadDOM m, IsCanvasShadowStyles self) => self -> m Double+getShadowBlur self = liftDOM ((js_getShadowBlur ((Types.toCanvasShadowStyles self))))++foreign import javascript safe "(($1, $2) => { $1[\"shadowColor\"] = $2; })"+        js_setShadowColor :: CanvasShadowStyles -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowColor MDN CanvasShadowStyles.shadowColor documentation>+setShadowColor :: (MonadDOM m, IsCanvasShadowStyles self, ToJSString val) => self -> val -> m ()+setShadowColor self val = liftDOM (void ((js_setShadowColor ((Types.toCanvasShadowStyles self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"shadowColor\"]; })"+        js_getShadowColor :: CanvasShadowStyles -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowColor MDN CanvasShadowStyles.shadowColor documentation>+getShadowColor :: (MonadDOM m, IsCanvasShadowStyles self, FromJSString result) => self -> m result+getShadowColor self = liftDOM ((fromJSString <$> (js_getShadowColor ((Types.toCanvasShadowStyles self)))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasState.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasState+       (js_isContextLost, js_reset, js_restore, js_save, isContextLost, isContextLost_, reset, restore, save, CanvasState(..), gTypeCanvasState, IsCanvasState, toCanvasState)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"isContextLost\"](); })"+        js_isContextLost :: CanvasState -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isContextLost MDN CanvasState.isContextLost documentation>+isContextLost :: (MonadDOM m, IsCanvasState self) => self -> m Bool+isContextLost self = liftDOM ((js_isContextLost ((Types.toCanvasState self))))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isContextLost MDN CanvasState.isContextLost documentation>+isContextLost_ :: (MonadDOM m, IsCanvasState self) => self -> m ()+isContextLost_ self = liftDOM (void ((js_isContextLost ((Types.toCanvasState self)))))++foreign import javascript safe "(($1) => { return $1[\"reset\"](); })"+        js_reset :: CanvasState -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/reset MDN CanvasState.reset documentation>+reset :: (MonadDOM m, IsCanvasState self) => self -> m ()+reset self = liftDOM (void ((js_reset ((Types.toCanvasState self)))))++foreign import javascript safe "(($1) => { return $1[\"restore\"](); })"+        js_restore :: CanvasState -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/restore MDN CanvasState.restore documentation>+restore :: (MonadDOM m, IsCanvasState self) => self -> m ()+restore self = liftDOM (void ((js_restore ((Types.toCanvasState self)))))++foreign import javascript safe "(($1) => { return $1[\"save\"](); })"+        js_save :: CanvasState -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/save MDN CanvasState.save documentation>+save :: (MonadDOM m, IsCanvasState self) => self -> m ()+save self = liftDOM (void ((js_save ((Types.toCanvasState self)))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasText.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasText+       (js_fillText, js_measureText, js_strokeText, fillText, measureText, measureText_, strokeText, CanvasText(..), gTypeCanvasText, IsCanvasText, toCanvasText)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"fillText\"]($2, $3, $4, $5); })"+        js_fillText :: CanvasText -> JSString -> Double -> Double -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fillText MDN CanvasText.fillText documentation>+fillText :: (MonadDOM m, IsCanvasText self, ToJSString text) => self -> text -> Double -> Double -> Maybe Double -> m ()+fillText self text x y maxWidth = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal maxWidth) >>= \a5' -> js_fillText ((Types.toCanvasText self)) (toJSString text) (x) (y) a5')))++foreign import javascript safe "(($1, $2) => { return $1[\"measureText\"]($2); })"+        js_measureText :: CanvasText -> JSString -> IO TextMetrics+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/measureText MDN CanvasText.measureText documentation>+measureText :: (MonadDOM m, IsCanvasText self, ToJSString text) => self -> text -> m TextMetrics+measureText self text = liftDOM ((js_measureText ((Types.toCanvasText self)) (toJSString text)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/measureText MDN CanvasText.measureText documentation>+measureText_ :: (MonadDOM m, IsCanvasText self, ToJSString text) => self -> text -> m ()+measureText_ self text = liftDOM (void ((js_measureText ((Types.toCanvasText self)) (toJSString text))))++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"strokeText\"]($2, $3, $4, $5); })"+        js_strokeText :: CanvasText -> JSString -> Double -> Double -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/strokeText MDN CanvasText.strokeText documentation>+strokeText :: (MonadDOM m, IsCanvasText self, ToJSString text) => self -> text -> Double -> Double -> Maybe Double -> m ()+strokeText self text x y maxWidth = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal maxWidth) >>= \a5' -> js_strokeText ((Types.toCanvasText self)) (toJSString text) (x) (y) a5')))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasTextDrawingStyles.hs view
@@ -0,0 +1,149 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasTextDrawingStyles+       (js_setLang, js_getLang, js_setFont, js_getFont, js_setTextAlign, js_getTextAlign, js_setTextBaseline, js_getTextBaseline, js_setDirection, js_getDirection, js_setLetterSpacing, js_getLetterSpacing, js_setFontKerning, js_getFontKerning, js_setFontStretch, js_getFontStretch, js_setFontVariantCaps, js_getFontVariantCaps, js_setTextRendering, js_getTextRendering, js_setWordSpacing, js_getWordSpacing, setLang, getLang, setFont, getFont, setTextAlign, getTextAlign, setTextBaseline, getTextBaseline, setDirection, getDirection, setLetterSpacing, getLetterSpacing, setFontKerning, getFontKerning, setFontStretch, getFontStretch, setFontVariantCaps, getFontVariantCaps, setTextRendering, getTextRendering, setWordSpacing, getWordSpacing, CanvasTextDrawingStyles(..), gTypeCanvasTextDrawingStyles, IsCanvasTextDrawingStyles, toCanvasTextDrawingStyles)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"lang\"] = $2; })"+        js_setLang :: CanvasTextDrawingStyles -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lang MDN CanvasTextDrawingStyles.lang documentation>+setLang :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m ()+setLang self val = liftDOM (void ((js_setLang ((Types.toCanvasTextDrawingStyles self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"lang\"]; })"+        js_getLang :: CanvasTextDrawingStyles -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lang MDN CanvasTextDrawingStyles.lang documentation>+getLang :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result+getLang self = liftDOM ((fromJSString <$> (js_getLang ((Types.toCanvasTextDrawingStyles self)))))++foreign import javascript safe "(($1, $2) => { $1[\"font\"] = $2; })"+        js_setFont :: CanvasTextDrawingStyles -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/font MDN CanvasTextDrawingStyles.font documentation>+setFont :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m ()+setFont self val = liftDOM (void ((js_setFont ((Types.toCanvasTextDrawingStyles self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"font\"]; })"+        js_getFont :: CanvasTextDrawingStyles -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/font MDN CanvasTextDrawingStyles.font documentation>+getFont :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result+getFont self = liftDOM ((fromJSString <$> (js_getFont ((Types.toCanvasTextDrawingStyles self)))))++foreign import javascript safe "(($1, $2) => { $1[\"textAlign\"] = $2; })"+        js_setTextAlign :: CanvasTextDrawingStyles -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textAlign MDN CanvasTextDrawingStyles.textAlign documentation>+setTextAlign :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasTextAlign -> m ()+setTextAlign self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTextAlign ((Types.toCanvasTextDrawingStyles self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"textAlign\"]; })"+        js_getTextAlign :: CanvasTextDrawingStyles -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textAlign MDN CanvasTextDrawingStyles.textAlign documentation>+getTextAlign :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasTextAlign+getTextAlign self = liftDOM (((js_getTextAlign ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"textBaseline\"] = $2; })"+        js_setTextBaseline :: CanvasTextDrawingStyles -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textBaseline MDN CanvasTextDrawingStyles.textBaseline documentation>+setTextBaseline :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasTextBaseline -> m ()+setTextBaseline self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTextBaseline ((Types.toCanvasTextDrawingStyles self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"textBaseline\"]; })"+        js_getTextBaseline :: CanvasTextDrawingStyles -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textBaseline MDN CanvasTextDrawingStyles.textBaseline documentation>+getTextBaseline :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasTextBaseline+getTextBaseline self = liftDOM (((js_getTextBaseline ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"direction\"] = $2; })"+        js_setDirection :: CanvasTextDrawingStyles -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/direction MDN CanvasTextDrawingStyles.direction documentation>+setDirection :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasDirection -> m ()+setDirection self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDirection ((Types.toCanvasTextDrawingStyles self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"direction\"]; })"+        js_getDirection :: CanvasTextDrawingStyles -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/direction MDN CanvasTextDrawingStyles.direction documentation>+getDirection :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasDirection+getDirection self = liftDOM (((js_getDirection ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"letterSpacing\"] = $2; })"+        js_setLetterSpacing :: CanvasTextDrawingStyles -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/letterSpacing MDN CanvasTextDrawingStyles.letterSpacing documentation>+setLetterSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m ()+setLetterSpacing self val = liftDOM (void ((js_setLetterSpacing ((Types.toCanvasTextDrawingStyles self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"letterSpacing\"]; })"+        js_getLetterSpacing :: CanvasTextDrawingStyles -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/letterSpacing MDN CanvasTextDrawingStyles.letterSpacing documentation>+getLetterSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result+getLetterSpacing self = liftDOM ((fromJSString <$> (js_getLetterSpacing ((Types.toCanvasTextDrawingStyles self)))))++foreign import javascript safe "(($1, $2) => { $1[\"fontKerning\"] = $2; })"+        js_setFontKerning :: CanvasTextDrawingStyles -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontKerning MDN CanvasTextDrawingStyles.fontKerning documentation>+setFontKerning :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasFontKerning -> m ()+setFontKerning self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFontKerning ((Types.toCanvasTextDrawingStyles self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"fontKerning\"]; })"+        js_getFontKerning :: CanvasTextDrawingStyles -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontKerning MDN CanvasTextDrawingStyles.fontKerning documentation>+getFontKerning :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasFontKerning+getFontKerning self = liftDOM (((js_getFontKerning ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"fontStretch\"] = $2; })"+        js_setFontStretch :: CanvasTextDrawingStyles -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontStretch MDN CanvasTextDrawingStyles.fontStretch documentation>+setFontStretch :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasFontStretch -> m ()+setFontStretch self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFontStretch ((Types.toCanvasTextDrawingStyles self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"fontStretch\"]; })"+        js_getFontStretch :: CanvasTextDrawingStyles -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontStretch MDN CanvasTextDrawingStyles.fontStretch documentation>+getFontStretch :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasFontStretch+getFontStretch self = liftDOM (((js_getFontStretch ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"fontVariantCaps\"] = $2; })"+        js_setFontVariantCaps :: CanvasTextDrawingStyles -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontVariantCaps MDN CanvasTextDrawingStyles.fontVariantCaps documentation>+setFontVariantCaps :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasFontVariantCaps -> m ()+setFontVariantCaps self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFontVariantCaps ((Types.toCanvasTextDrawingStyles self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"fontVariantCaps\"]; })"+        js_getFontVariantCaps :: CanvasTextDrawingStyles -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontVariantCaps MDN CanvasTextDrawingStyles.fontVariantCaps documentation>+getFontVariantCaps :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasFontVariantCaps+getFontVariantCaps self = liftDOM (((js_getFontVariantCaps ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"textRendering\"] = $2; })"+        js_setTextRendering :: CanvasTextDrawingStyles -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textRendering MDN CanvasTextDrawingStyles.textRendering documentation>+setTextRendering :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasTextRendering -> m ()+setTextRendering self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTextRendering ((Types.toCanvasTextDrawingStyles self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"textRendering\"]; })"+        js_getTextRendering :: CanvasTextDrawingStyles -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textRendering MDN CanvasTextDrawingStyles.textRendering documentation>+getTextRendering :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasTextRendering+getTextRendering self = liftDOM (((js_getTextRendering ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"wordSpacing\"] = $2; })"+        js_setWordSpacing :: CanvasTextDrawingStyles -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/wordSpacing MDN CanvasTextDrawingStyles.wordSpacing documentation>+setWordSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m ()+setWordSpacing self val = liftDOM (void ((js_setWordSpacing ((Types.toCanvasTextDrawingStyles self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"wordSpacing\"]; })"+        js_getWordSpacing :: CanvasTextDrawingStyles -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/wordSpacing MDN CanvasTextDrawingStyles.wordSpacing documentation>+getWordSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result+getWordSpacing self = liftDOM ((fromJSString <$> (js_getWordSpacing ((Types.toCanvasTextDrawingStyles self)))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasTransform.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasTransform+       (js_getTransform, js_resetTransform, js_rotate, js_scale, js_setTransform, js_setTransformTransform, js_transform, js_translate, getTransform, getTransform_, resetTransform, rotate, scale, setTransform, setTransformTransform, transform, translate, CanvasTransform(..), gTypeCanvasTransform, IsCanvasTransform, toCanvasTransform)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"getTransform\"](); })"+        js_getTransform :: CanvasTransform -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getTransform MDN CanvasTransform.getTransform documentation>+getTransform :: (MonadDOM m, IsCanvasTransform self) => self -> m DOMMatrix+getTransform self = liftDOM ((js_getTransform ((Types.toCanvasTransform self))))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getTransform MDN CanvasTransform.getTransform documentation>+getTransform_ :: (MonadDOM m, IsCanvasTransform self) => self -> m ()+getTransform_ self = liftDOM (void ((js_getTransform ((Types.toCanvasTransform self)))))++foreign import javascript safe "(($1) => { return $1[\"resetTransform\"](); })"+        js_resetTransform :: CanvasTransform -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/resetTransform MDN CanvasTransform.resetTransform documentation>+resetTransform :: (MonadDOM m, IsCanvasTransform self) => self -> m ()+resetTransform self = liftDOM (void ((js_resetTransform ((Types.toCanvasTransform self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"rotate\"]($2); })"+        js_rotate :: CanvasTransform -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/rotate MDN CanvasTransform.rotate documentation>+rotate :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> m ()+rotate self angle = liftDOM (void ((js_rotate ((Types.toCanvasTransform self)) (angle))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"scale\"]($2, $3); })"+        js_scale :: CanvasTransform -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/scale MDN CanvasTransform.scale documentation>+scale :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> m ()+scale self x y = liftDOM (void ((js_scale ((Types.toCanvasTransform self)) (x) (y))))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"setTransform\"]($2, $3, $4, $5, $6, $7); })"+        js_setTransform :: CanvasTransform -> Double -> Double -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/setTransform MDN CanvasTransform.setTransform documentation>+setTransform :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m ()+setTransform self a b c d e f = liftDOM (void ((js_setTransform ((Types.toCanvasTransform self)) (a) (b) (c) (d) (e) (f))))++foreign import javascript safe "(($1, $2) => { return $1[\"setTransform\"]($2); })"+        js_setTransformTransform :: CanvasTransform -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/setTransform MDN CanvasTransform.setTransform documentation>+setTransformTransform :: (MonadDOM m, IsCanvasTransform self, IsDOMMatrix2DInit transform) => self -> Maybe transform -> m ()+setTransformTransform self transform = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal transform) >>= \a2' -> js_setTransformTransform ((Types.toCanvasTransform self)) a2')))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"transform\"]($2, $3, $4, $5, $6, $7); })"+        js_transform :: CanvasTransform -> Double -> Double -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/transform MDN CanvasTransform.transform documentation>+transform :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m ()+transform self a b c d e f = liftDOM (void ((js_transform ((Types.toCanvasTransform self)) (a) (b) (c) (d) (e) (f))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"translate\"]($2, $3); })"+        js_translate :: CanvasTransform -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/translate MDN CanvasTransform.translate documentation>+translate :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> m ()+translate self x y = liftDOM (void ((js_translate ((Types.toCanvasTransform self)) (x) (y))))
+ src/GHCJS/DOM/JSFFI/Generated/CanvasUserInterface.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CanvasUserInterface+       (js_drawFocusIfNeeded, js_drawFocusIfNeededPath, drawFocusIfNeeded, drawFocusIfNeededPath, CanvasUserInterface(..), gTypeCanvasUserInterface, IsCanvasUserInterface, toCanvasUserInterface)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return $1[\"drawFocusIfNeeded\"]($2); })"+        js_drawFocusIfNeeded :: CanvasUserInterface -> Element -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/drawFocusIfNeeded MDN CanvasUserInterface.drawFocusIfNeeded documentation>+drawFocusIfNeeded :: (MonadDOM m, IsCanvasUserInterface self, IsElement element) => self -> element -> m ()+drawFocusIfNeeded self element = liftDOM (void ((js_drawFocusIfNeeded ((Types.toCanvasUserInterface self)) (Types.toElement element))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"drawFocusIfNeeded\"]($2, $3); })"+        js_drawFocusIfNeededPath :: CanvasUserInterface -> Path2D -> Element -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/drawFocusIfNeeded MDN CanvasUserInterface.drawFocusIfNeeded documentation>+drawFocusIfNeededPath :: (MonadDOM m, IsCanvasUserInterface self, IsElement element) => self -> Path2D -> element -> m ()+drawFocusIfNeededPath self path element = liftDOM (void ((js_drawFocusIfNeededPath ((Types.toCanvasUserInterface self)) (path) (Types.toElement element))))
+ src/GHCJS/DOM/JSFFI/Generated/CaptureController.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from screen-capture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CaptureController+       (CaptureController(..), gTypeCaptureController)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
+ src/GHCJS/DOM/JSFFI/Generated/CaretPosition.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-view-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CaretPosition+       (js_getClientRect, js_getOffsetNode, js_getOffset, getClientRect, getClientRect_, getClientRectUnsafe, getClientRectUnchecked, getOffsetNode, getOffset, CaretPosition(..), gTypeCaretPosition)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"getClientRect\"](); })"+        js_getClientRect :: CaretPosition -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/getClientRect MDN CaretPosition.getClientRect documentation>+getClientRect :: (MonadDOM m) => CaretPosition -> m (Maybe DOMRect)+getClientRect self = liftDOM (((js_getClientRect (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/getClientRect MDN CaretPosition.getClientRect documentation>+getClientRect_ :: (MonadDOM m) => CaretPosition -> m ()+getClientRect_ self = liftDOM (void ((js_getClientRect (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/getClientRect MDN CaretPosition.getClientRect documentation>+getClientRectUnsafe :: (MonadDOM m, HasCallStack) => CaretPosition -> m DOMRect+getClientRectUnsafe self = liftDOM ((((js_getClientRect (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/getClientRect MDN CaretPosition.getClientRect documentation>+getClientRectUnchecked :: (MonadDOM m) => CaretPosition -> m DOMRect+getClientRectUnchecked self = liftDOM ((pFromJSVal <$> (js_getClientRect (self))))++foreign import javascript unsafe "(($1) => { return $1[\"offsetNode\"]; })"+        js_getOffsetNode :: CaretPosition -> IO Node+-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/offsetNode MDN CaretPosition.offsetNode documentation>+getOffsetNode :: (MonadDOM m) => CaretPosition -> m Node+getOffsetNode self = liftDOM ((js_getOffsetNode (self)))++foreign import javascript unsafe "(($1) => { return $1[\"offset\"]; })"+        js_getOffset :: CaretPosition -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/offset MDN CaretPosition.offset documentation>+getOffset :: (MonadDOM m) => CaretPosition -> m Word+getOffset self = liftDOM ((js_getOffset (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CaretPositionFromPointOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-view-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CaretPositionFromPointOptions+       (js_newCaretPositionFromPointOptions, js_setShadowRoots, js_getShadowRoots, newCaretPositionFromPointOptions, setShadowRoots, getShadowRoots, getShadowRootsUnsafe, getShadowRootsUnchecked, CaretPositionFromPointOptions(..), gTypeCaretPositionFromPointOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCaretPositionFromPointOptions :: IO CaretPositionFromPointOptions+-- | <https://drafts.csswg.org/cssom-view-1/#dictdef-caretpositionfrompointoptions CaretPositionFromPointOptions specification>+newCaretPositionFromPointOptions :: (MonadDOM m) => m CaretPositionFromPointOptions+newCaretPositionFromPointOptions = liftDOM ((js_newCaretPositionFromPointOptions))++foreign import javascript safe "(($1, $2) => { $1[\"shadowRoots\"] = $2; })"+        js_setShadowRoots :: CaretPositionFromPointOptions -> JSVal -> IO ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-caretpositionfrompointoptions-shadowroots CaretPositionFromPointOptions.shadowRoots specification>+setShadowRoots :: (MonadDOM m) => CaretPositionFromPointOptions -> [ShadowRoot] -> m ()+setShadowRoots self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setShadowRoots (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"shadowRoots\"]; })"+        js_getShadowRoots :: CaretPositionFromPointOptions -> IO JSVal+-- | <https://drafts.csswg.org/cssom-view-1/#dom-caretpositionfrompointoptions-shadowroots CaretPositionFromPointOptions.shadowRoots specification>+getShadowRoots :: (MonadDOM m) => CaretPositionFromPointOptions -> m (Maybe [ShadowRoot])+getShadowRoots self = liftDOM (((js_getShadowRoots (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-caretpositionfrompointoptions-shadowroots CaretPositionFromPointOptions.shadowRoots specification>+getShadowRootsUnsafe :: (MonadDOM m, HasCallStack) => CaretPositionFromPointOptions -> m [ShadowRoot]+getShadowRootsUnsafe self = liftDOM ((((js_getShadowRoots (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-caretpositionfrompointoptions-shadowroots CaretPositionFromPointOptions.shadowRoots specification>+getShadowRootsUnchecked :: (MonadDOM m) => CaretPositionFromPointOptions -> m [ShadowRoot]+getShadowRootsUnchecked self = liftDOM (((js_getShadowRoots (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/ChannelMergerNode.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ChannelMergerNode+       (js_newChannelMergerNode, newChannelMergerNode, ChannelMergerNode(..), gTypeChannelMergerNode)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"ChannelMergerNode\"]($1, $2); })"+        js_newChannelMergerNode :: BaseAudioContext -> JSVal -> IO ChannelMergerNode+-- | <https://developer.mozilla.org/docs/Web/API/ChannelMergerNode/ChannelMergerNode MDN ChannelMergerNode. documentation>+newChannelMergerNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe ChannelMergerOptions -> m ChannelMergerNode+newChannelMergerNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newChannelMergerNode (Types.toBaseAudioContext context) a2'))
+ src/GHCJS/DOM/JSFFI/Generated/ChannelMergerOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ChannelMergerOptions+       (js_newChannelMergerOptions, js_setNumberOfInputs, js_getNumberOfInputs, newChannelMergerOptions, setNumberOfInputs, getNumberOfInputs, getNumberOfInputsUnsafe, getNumberOfInputsUnchecked, ChannelMergerOptions(..), gTypeChannelMergerOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newChannelMergerOptions :: IO ChannelMergerOptions+-- | <https://webaudio.github.io/web-audio-api/#ChannelMergerOptions ChannelMergerOptions specification>+newChannelMergerOptions :: (MonadDOM m) => m ChannelMergerOptions+newChannelMergerOptions = liftDOM ((js_newChannelMergerOptions))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfInputs\"] = $2; })"+        js_setNumberOfInputs :: ChannelMergerOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-channelmergeroptions-numberofinputs ChannelMergerOptions.numberOfInputs specification>+setNumberOfInputs :: (MonadDOM m) => ChannelMergerOptions -> Word -> m ()+setNumberOfInputs self val = liftDOM (void ((js_setNumberOfInputs (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfInputs\"]; })"+        js_getNumberOfInputs :: ChannelMergerOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-channelmergeroptions-numberofinputs ChannelMergerOptions.numberOfInputs specification>+getNumberOfInputs :: (MonadDOM m) => ChannelMergerOptions -> m (Maybe Word)+getNumberOfInputs self = liftDOM (((js_getNumberOfInputs (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-channelmergeroptions-numberofinputs ChannelMergerOptions.numberOfInputs specification>+getNumberOfInputsUnsafe :: (MonadDOM m, HasCallStack) => ChannelMergerOptions -> m Word+getNumberOfInputsUnsafe self = liftDOM ((((js_getNumberOfInputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-channelmergeroptions-numberofinputs ChannelMergerOptions.numberOfInputs specification>+getNumberOfInputsUnchecked :: (MonadDOM m) => ChannelMergerOptions -> m Word+getNumberOfInputsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfInputs (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ChannelSplitterNode.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ChannelSplitterNode+       (js_newChannelSplitterNode, newChannelSplitterNode, ChannelSplitterNode(..), gTypeChannelSplitterNode)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"ChannelSplitterNode\"]($1, $2); })"+        js_newChannelSplitterNode :: BaseAudioContext -> JSVal -> IO ChannelSplitterNode+-- | <https://developer.mozilla.org/docs/Web/API/ChannelSplitterNode/ChannelSplitterNode MDN ChannelSplitterNode. documentation>+newChannelSplitterNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe ChannelSplitterOptions -> m ChannelSplitterNode+newChannelSplitterNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newChannelSplitterNode (Types.toBaseAudioContext context) a2'))
+ src/GHCJS/DOM/JSFFI/Generated/ChannelSplitterOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ChannelSplitterOptions+       (js_newChannelSplitterOptions, js_setNumberOfOutputs, js_getNumberOfOutputs, newChannelSplitterOptions, setNumberOfOutputs, getNumberOfOutputs, getNumberOfOutputsUnsafe, getNumberOfOutputsUnchecked, ChannelSplitterOptions(..), gTypeChannelSplitterOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newChannelSplitterOptions :: IO ChannelSplitterOptions+-- | <https://webaudio.github.io/web-audio-api/#ChannelSplitterOptions ChannelSplitterOptions specification>+newChannelSplitterOptions :: (MonadDOM m) => m ChannelSplitterOptions+newChannelSplitterOptions = liftDOM ((js_newChannelSplitterOptions))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfOutputs\"] = $2; })"+        js_setNumberOfOutputs :: ChannelSplitterOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-channelsplitteroptions-numberofoutputs ChannelSplitterOptions.numberOfOutputs specification>+setNumberOfOutputs :: (MonadDOM m) => ChannelSplitterOptions -> Word -> m ()+setNumberOfOutputs self val = liftDOM (void ((js_setNumberOfOutputs (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"numberOfOutputs\"]; })"+        js_getNumberOfOutputs :: ChannelSplitterOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-channelsplitteroptions-numberofoutputs ChannelSplitterOptions.numberOfOutputs specification>+getNumberOfOutputs :: (MonadDOM m) => ChannelSplitterOptions -> m (Maybe Word)+getNumberOfOutputs self = liftDOM (((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-channelsplitteroptions-numberofoutputs ChannelSplitterOptions.numberOfOutputs specification>+getNumberOfOutputsUnsafe :: (MonadDOM m, HasCallStack) => ChannelSplitterOptions -> m Word+getNumberOfOutputsUnsafe self = liftDOM ((((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-channelsplitteroptions-numberofoutputs ChannelSplitterOptions.numberOfOutputs specification>+getNumberOfOutputsUnchecked :: (MonadDOM m) => ChannelSplitterOptions -> m Word+getNumberOfOutputsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfOutputs (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ChapterInformationInit.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediasession (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ChapterInformationInit+       (js_newChapterInformationInit, js_setTitle, js_getTitle, js_setStartTime, js_getStartTime, js_setArtwork, js_getArtwork, newChapterInformationInit, setTitle, getTitle, getTitleUnsafe, getTitleUnchecked, setStartTime, getStartTime, getStartTimeUnsafe, getStartTimeUnchecked, setArtwork, getArtwork, getArtworkUnsafe, getArtworkUnchecked, ChapterInformationInit(..), gTypeChapterInformationInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newChapterInformationInit :: IO ChapterInformationInit+-- | <https://w3c.github.io/mediasession/#dictdef-chapterinformationinit ChapterInformationInit specification>+newChapterInformationInit :: (MonadDOM m) => m ChapterInformationInit+newChapterInformationInit = liftDOM ((js_newChapterInformationInit))++foreign import javascript safe "(($1, $2) => { $1[\"title\"] = $2; })"+        js_setTitle :: ChapterInformationInit -> JSString -> IO ()+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-title ChapterInformationInit.title specification>+setTitle :: (MonadDOM m, ToJSString val) => ChapterInformationInit -> val -> m ()+setTitle self val = liftDOM (void ((js_setTitle (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"title\"]; })"+        js_getTitle :: ChapterInformationInit -> IO JSVal+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-title ChapterInformationInit.title specification>+getTitle :: (MonadDOM m, FromJSString result) => ChapterInformationInit -> m (Maybe result)+getTitle self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getTitle (self))))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-title ChapterInformationInit.title specification>+getTitleUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ChapterInformationInit -> m result+getTitleUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getTitle (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-title ChapterInformationInit.title specification>+getTitleUnchecked :: (MonadDOM m, FromJSString result) => ChapterInformationInit -> m result+getTitleUnchecked self = liftDOM ((pFromJSVal <$> (js_getTitle (self))))++foreign import javascript safe "(($1, $2) => { $1[\"startTime\"] = $2; })"+        js_setStartTime :: ChapterInformationInit -> Double -> IO ()+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-starttime ChapterInformationInit.startTime specification>+setStartTime :: (MonadDOM m) => ChapterInformationInit -> Double -> m ()+setStartTime self val = liftDOM (void ((js_setStartTime (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"startTime\"]; })"+        js_getStartTime :: ChapterInformationInit -> IO JSVal+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-starttime ChapterInformationInit.startTime specification>+getStartTime :: (MonadDOM m) => ChapterInformationInit -> m (Maybe Double)+getStartTime self = liftDOM (((js_getStartTime (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-starttime ChapterInformationInit.startTime specification>+getStartTimeUnsafe :: (MonadDOM m, HasCallStack) => ChapterInformationInit -> m Double+getStartTimeUnsafe self = liftDOM ((((js_getStartTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-starttime ChapterInformationInit.startTime specification>+getStartTimeUnchecked :: (MonadDOM m) => ChapterInformationInit -> m Double+getStartTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getStartTime (self))))++foreign import javascript safe "(($1, $2) => { $1[\"artwork\"] = $2; })"+        js_setArtwork :: ChapterInformationInit -> JSVal -> IO ()+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-artwork ChapterInformationInit.artwork specification>+setArtwork :: (MonadDOM m) => ChapterInformationInit -> [MediaImage] -> m ()+setArtwork self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setArtwork (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"artwork\"]; })"+        js_getArtwork :: ChapterInformationInit -> IO JSVal+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-artwork ChapterInformationInit.artwork specification>+getArtwork :: (MonadDOM m) => ChapterInformationInit -> m (Maybe [MediaImage])+getArtwork self = liftDOM (((js_getArtwork (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-artwork ChapterInformationInit.artwork specification>+getArtworkUnsafe :: (MonadDOM m, HasCallStack) => ChapterInformationInit -> m [MediaImage]+getArtworkUnsafe self = liftDOM ((((js_getArtwork (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-artwork ChapterInformationInit.artwork specification>+getArtworkUnchecked :: (MonadDOM m) => ChapterInformationInit -> m [MediaImage]+getArtworkUnchecked self = liftDOM (((js_getArtwork (self)) >>= fromJSValUnchecked))
src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs view
@@ -1,119 +1,69 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CharacterData-       (js_substringData, substringData, substringData_, js_appendData,-        appendData, js_insertData, insertData, js_deleteData, deleteData,-        js_replaceData, replaceData, js_setData, setData, js_getData,-        getData, js_getLength, getLength, CharacterData(..),-        gTypeCharacterData, IsCharacterData, toCharacterData)+       (js_appendData, js_deleteData, js_insertData, js_replaceData, js_substringData, js_setData, js_getData, js_getLength, appendData, deleteData, insertData, replaceData, substringData, substringData_, setData, getData, getLength, CharacterData(..), gTypeCharacterData, IsCharacterData, toCharacterData)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"substringData\"]($2, $3); })"-        js_substringData :: CharacterData -> Word -> Word -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation> -substringData ::-              (MonadIO m, IsCharacterData self, FromJSString result) =>-                self -> Word -> Word -> m result-substringData self offset count-  = liftIO-      (fromJSString <$>-         (js_substringData (toCharacterData self) offset count))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation> -substringData_ ::-               (MonadIO m, IsCharacterData self) => self -> Word -> Word -> m ()-substringData_ self offset count-  = liftIO-      (void (js_substringData (toCharacterData self) offset count))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"appendData\"]($2); })"+foreign import javascript safe "(($1, $2) => { return $1[\"appendData\"]($2); })"         js_appendData :: CharacterData -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.appendData Mozilla CharacterData.appendData documentation> -appendData ::-           (MonadIO m, IsCharacterData self, ToJSString data') =>-             self -> data' -> m ()-appendData self data'-  = liftIO (js_appendData (toCharacterData self) (toJSString data'))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertData\"]($2, $3); })"-        js_insertData :: CharacterData -> Word -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/appendData MDN CharacterData.appendData documentation>+appendData :: (MonadDOM m, IsCharacterData self, ToJSString data') => self -> data' -> m ()+appendData self data' = liftDOM (void ((js_appendData ((Types.toCharacterData self)) (toJSString data')))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.insertData Mozilla CharacterData.insertData documentation> -insertData ::-           (MonadIO m, IsCharacterData self, ToJSString data') =>-             self -> Word -> data' -> m ()-insertData self offset data'-  = liftIO-      (js_insertData (toCharacterData self) offset (toJSString data'))-  foreign import javascript safe "(($1, $2, $3) => { return $1[\"deleteData\"]($2, $3); })"         js_deleteData :: CharacterData -> Word -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/deleteData MDN CharacterData.deleteData documentation>+deleteData :: (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m ()+deleteData self offset count = liftDOM (void ((js_deleteData ((Types.toCharacterData self)) (offset) (count)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.deleteData Mozilla CharacterData.deleteData documentation> -deleteData ::-           (MonadIO m, IsCharacterData self) => self -> Word -> Word -> m ()-deleteData self offset count-  = liftIO (js_deleteData (toCharacterData self) offset count)- +foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertData\"]($2, $3); })"+        js_insertData :: CharacterData -> Word -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/insertData MDN CharacterData.insertData documentation>+insertData :: (MonadDOM m, IsCharacterData self, ToJSString data') => self -> Word -> data' -> m ()+insertData self offset data' = liftDOM (void ((js_insertData ((Types.toCharacterData self)) (offset) (toJSString data'))))+ foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"replaceData\"]($2, $3, $4); })"-        js_replaceData ::-        CharacterData -> Word -> Word -> JSString -> IO ()+        js_replaceData :: CharacterData -> Word -> Word -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/replaceData MDN CharacterData.replaceData documentation>+replaceData :: (MonadDOM m, IsCharacterData self, ToJSString data') => self -> Word -> Word -> data' -> m ()+replaceData self offset count data' = liftDOM (void ((js_replaceData ((Types.toCharacterData self)) (offset) (count) (toJSString data')))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.replaceData Mozilla CharacterData.replaceData documentation> -replaceData ::-            (MonadIO m, IsCharacterData self, ToJSString data') =>-              self -> Word -> Word -> data' -> m ()-replaceData self offset count data'-  = liftIO-      (js_replaceData (toCharacterData self) offset count-         (toJSString data'))- -foreign import javascript unsafe "(($1, $2) => { $1[\"data\"] = $2; })" js_setData ::-        CharacterData -> JSString -> IO ()+foreign import javascript safe "(($1, $2, $3) => { return $1[\"substringData\"]($2, $3); })"+        js_substringData :: CharacterData -> Word -> Word -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/substringData MDN CharacterData.substringData documentation>+substringData :: (MonadDOM m, IsCharacterData self, FromJSString result) => self -> Word -> Word -> m result+substringData self offset count = liftDOM ((fromJSString <$> (js_substringData ((Types.toCharacterData self)) (offset) (count)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> -setData ::-        (MonadIO m, IsCharacterData self, ToJSString val) =>-          self -> val -> m ()-setData self val-  = liftIO (js_setData (toCharacterData self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" js_getData ::-        CharacterData -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/substringData MDN CharacterData.substringData documentation>+substringData_ :: (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m ()+substringData_ self offset count = liftDOM (void ((js_substringData ((Types.toCharacterData self)) (offset) (count)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> -getData ::-        (MonadIO m, IsCharacterData self, FromJSString result) =>-          self -> m result-getData self-  = liftIO (fromJSString <$> (js_getData (toCharacterData self)))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::-        CharacterData -> IO Word+foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+        js_setData :: CharacterData -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/data MDN CharacterData.data documentation>+setData :: (MonadDOM m, IsCharacterData self, ToJSString val) => self -> val -> m ()+setData self val = liftDOM (void ((js_setData ((Types.toCharacterData self)) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.length Mozilla CharacterData.length documentation> -getLength :: (MonadIO m, IsCharacterData self) => self -> m Word-getLength self = liftIO (js_getLength (toCharacterData self))+foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: CharacterData -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/data MDN CharacterData.data documentation>+getData :: (MonadDOM m, IsCharacterData self, FromJSString result) => self -> m result+getData self = liftDOM ((fromJSString <$> (js_getData ((Types.toCharacterData self)))))++foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: CharacterData -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/length MDN CharacterData.length documentation>+getLength :: (MonadDOM m, IsCharacterData self) => self -> m Word+getLength self = liftDOM ((js_getLength ((Types.toCharacterData self))))
+ src/GHCJS/DOM/JSFFI/Generated/CheckVisibilityOptions.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-view-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CheckVisibilityOptions+       (js_newCheckVisibilityOptions, js_setCheckOpacity, js_getCheckOpacity, js_setCheckVisibilityCSS, js_getCheckVisibilityCSS, js_setContentVisibilityAuto, js_getContentVisibilityAuto, js_setOpacityProperty, js_getOpacityProperty, js_setVisibilityProperty, js_getVisibilityProperty, newCheckVisibilityOptions, setCheckOpacity, getCheckOpacity, getCheckOpacityUnsafe, getCheckOpacityUnchecked, setCheckVisibilityCSS, getCheckVisibilityCSS, getCheckVisibilityCSSUnsafe, getCheckVisibilityCSSUnchecked, setContentVisibilityAuto, getContentVisibilityAuto, getContentVisibilityAutoUnsafe, getContentVisibilityAutoUnchecked, setOpacityProperty, getOpacityProperty, getOpacityPropertyUnsafe, getOpacityPropertyUnchecked, setVisibilityProperty, getVisibilityProperty, getVisibilityPropertyUnsafe, getVisibilityPropertyUnchecked, CheckVisibilityOptions(..), gTypeCheckVisibilityOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCheckVisibilityOptions :: IO CheckVisibilityOptions+-- | <https://drafts.csswg.org/cssom-view-1/#dictdef-checkvisibilityoptions CheckVisibilityOptions specification>+newCheckVisibilityOptions :: (MonadDOM m) => m CheckVisibilityOptions+newCheckVisibilityOptions = liftDOM ((js_newCheckVisibilityOptions))++foreign import javascript safe "(($1, $2) => { $1[\"checkOpacity\"] = $2; })"+        js_setCheckOpacity :: CheckVisibilityOptions -> Bool -> IO ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkopacity CheckVisibilityOptions.checkOpacity specification>+setCheckOpacity :: (MonadDOM m) => CheckVisibilityOptions -> Bool -> m ()+setCheckOpacity self val = liftDOM (void ((js_setCheckOpacity (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"checkOpacity\"]; })"+        js_getCheckOpacity :: CheckVisibilityOptions -> IO JSVal+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkopacity CheckVisibilityOptions.checkOpacity specification>+getCheckOpacity :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool)+getCheckOpacity self = liftDOM (((js_getCheckOpacity (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkopacity CheckVisibilityOptions.checkOpacity specification>+getCheckOpacityUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool+getCheckOpacityUnsafe self = liftDOM ((((js_getCheckOpacity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkopacity CheckVisibilityOptions.checkOpacity specification>+getCheckOpacityUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool+getCheckOpacityUnchecked self = liftDOM ((pFromJSVal <$> (js_getCheckOpacity (self))))++foreign import javascript safe "(($1, $2) => { $1[\"checkVisibilityCSS\"] = $2; })"+        js_setCheckVisibilityCSS :: CheckVisibilityOptions -> Bool -> IO ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkvisibilitycss CheckVisibilityOptions.checkVisibilityCSS specification>+setCheckVisibilityCSS :: (MonadDOM m) => CheckVisibilityOptions -> Bool -> m ()+setCheckVisibilityCSS self val = liftDOM (void ((js_setCheckVisibilityCSS (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"checkVisibilityCSS\"]; })"+        js_getCheckVisibilityCSS :: CheckVisibilityOptions -> IO JSVal+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkvisibilitycss CheckVisibilityOptions.checkVisibilityCSS specification>+getCheckVisibilityCSS :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool)+getCheckVisibilityCSS self = liftDOM (((js_getCheckVisibilityCSS (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkvisibilitycss CheckVisibilityOptions.checkVisibilityCSS specification>+getCheckVisibilityCSSUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool+getCheckVisibilityCSSUnsafe self = liftDOM ((((js_getCheckVisibilityCSS (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkvisibilitycss CheckVisibilityOptions.checkVisibilityCSS specification>+getCheckVisibilityCSSUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool+getCheckVisibilityCSSUnchecked self = liftDOM ((pFromJSVal <$> (js_getCheckVisibilityCSS (self))))++foreign import javascript safe "(($1, $2) => { $1[\"contentVisibilityAuto\"] = $2; })"+        js_setContentVisibilityAuto :: CheckVisibilityOptions -> Bool -> IO ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-contentvisibilityauto CheckVisibilityOptions.contentVisibilityAuto specification>+setContentVisibilityAuto :: (MonadDOM m) => CheckVisibilityOptions -> Bool -> m ()+setContentVisibilityAuto self val = liftDOM (void ((js_setContentVisibilityAuto (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"contentVisibilityAuto\"]; })"+        js_getContentVisibilityAuto :: CheckVisibilityOptions -> IO JSVal+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-contentvisibilityauto CheckVisibilityOptions.contentVisibilityAuto specification>+getContentVisibilityAuto :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool)+getContentVisibilityAuto self = liftDOM (((js_getContentVisibilityAuto (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-contentvisibilityauto CheckVisibilityOptions.contentVisibilityAuto specification>+getContentVisibilityAutoUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool+getContentVisibilityAutoUnsafe self = liftDOM ((((js_getContentVisibilityAuto (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-contentvisibilityauto CheckVisibilityOptions.contentVisibilityAuto specification>+getContentVisibilityAutoUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool+getContentVisibilityAutoUnchecked self = liftDOM ((pFromJSVal <$> (js_getContentVisibilityAuto (self))))++foreign import javascript safe "(($1, $2) => { $1[\"opacityProperty\"] = $2; })"+        js_setOpacityProperty :: CheckVisibilityOptions -> Bool -> IO ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-opacityproperty CheckVisibilityOptions.opacityProperty specification>+setOpacityProperty :: (MonadDOM m) => CheckVisibilityOptions -> Bool -> m ()+setOpacityProperty self val = liftDOM (void ((js_setOpacityProperty (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"opacityProperty\"]; })"+        js_getOpacityProperty :: CheckVisibilityOptions -> IO JSVal+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-opacityproperty CheckVisibilityOptions.opacityProperty specification>+getOpacityProperty :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool)+getOpacityProperty self = liftDOM (((js_getOpacityProperty (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-opacityproperty CheckVisibilityOptions.opacityProperty specification>+getOpacityPropertyUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool+getOpacityPropertyUnsafe self = liftDOM ((((js_getOpacityProperty (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-opacityproperty CheckVisibilityOptions.opacityProperty specification>+getOpacityPropertyUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool+getOpacityPropertyUnchecked self = liftDOM ((pFromJSVal <$> (js_getOpacityProperty (self))))++foreign import javascript safe "(($1, $2) => { $1[\"visibilityProperty\"] = $2; })"+        js_setVisibilityProperty :: CheckVisibilityOptions -> Bool -> IO ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-visibilityproperty CheckVisibilityOptions.visibilityProperty specification>+setVisibilityProperty :: (MonadDOM m) => CheckVisibilityOptions -> Bool -> m ()+setVisibilityProperty self val = liftDOM (void ((js_setVisibilityProperty (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"visibilityProperty\"]; })"+        js_getVisibilityProperty :: CheckVisibilityOptions -> IO JSVal+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-visibilityproperty CheckVisibilityOptions.visibilityProperty specification>+getVisibilityProperty :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool)+getVisibilityProperty self = liftDOM (((js_getVisibilityProperty (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-visibilityproperty CheckVisibilityOptions.visibilityProperty specification>+getVisibilityPropertyUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool+getVisibilityPropertyUnsafe self = liftDOM ((((js_getVisibilityProperty (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-visibilityproperty CheckVisibilityOptions.visibilityProperty specification>+getVisibilityPropertyUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool+getVisibilityPropertyUnchecked self = liftDOM ((pFromJSVal <$> (js_getVisibilityProperty (self))))
src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs view
@@ -1,69 +1,41 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.ChildNode-       (js_before, before, js_after, after, js_replaceWith, replaceWith,-        js_remove, remove, ChildNode(..), gTypeChildNode, IsChildNode,-        toChildNode)+       (js_after, js_before, js_remove, js_replaceWith, after, before, remove, replaceWith, ChildNode(..), gTypeChildNode, IsChildNode, toChildNode)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1, $2) => { return $1[\"before\"]($2); })" js_before ::-        ChildNode -> JSVal -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.before Mozilla ChildNode.before documentation> -before ::-       (MonadIO m, IsChildNode self, IsNodeOrString nodes) =>-         self -> [nodes] -> m ()-before self nodes-  = liftIO-      (toJSVal nodes >>= \ nodes' -> js_before (toChildNode self) nodes')- -foreign import javascript safe "(($1, $2) => { return $1[\"after\"]($2); })" js_after ::-        ChildNode -> JSVal -> IO ()+foreign import javascript safe "(($1, $2) => { return $1[\"after\"](...$2); })"+        js_after :: ChildNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/after MDN ChildNode.after documentation>+after :: (MonadDOM m, IsChildNode self, IsNodeOrString nodes) => self -> [nodes] -> m ()+after self nodes = liftDOM (void (((toJSVal nodes) >>= \a2' -> js_after ((Types.toChildNode self)) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.after Mozilla ChildNode.after documentation> -after ::-      (MonadIO m, IsChildNode self, IsNodeOrString nodes) =>-        self -> [nodes] -> m ()-after self nodes-  = liftIO-      (toJSVal nodes >>= \ nodes' -> js_after (toChildNode self) nodes')- -foreign import javascript safe "(($1, $2) => { return $1[\"replaceWith\"]($2); })"-        js_replaceWith :: ChildNode -> JSVal -> IO ()+foreign import javascript safe "(($1, $2) => { return $1[\"before\"](...$2); })"+        js_before :: ChildNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/before MDN ChildNode.before documentation>+before :: (MonadDOM m, IsChildNode self, IsNodeOrString nodes) => self -> [nodes] -> m ()+before self nodes = liftDOM (void (((toJSVal nodes) >>= \a2' -> js_before ((Types.toChildNode self)) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.replaceWith Mozilla ChildNode.replaceWith documentation> -replaceWith ::-            (MonadIO m, IsChildNode self, IsNodeOrString nodes) =>-              self -> [nodes] -> m ()-replaceWith self nodes-  = liftIO-      (toJSVal nodes >>=-         \ nodes' -> js_replaceWith (toChildNode self) nodes')- -foreign import javascript safe "(($1) => { return $1[\"remove\"](); })" js_remove ::-        ChildNode -> IO ()+foreign import javascript safe "(($1) => { return $1[\"remove\"](); })"+        js_remove :: ChildNode -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/remove MDN ChildNode.remove documentation>+remove :: (MonadDOM m, IsChildNode self) => self -> m ()+remove self = liftDOM (void ((js_remove ((Types.toChildNode self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.remove Mozilla ChildNode.remove documentation> -remove :: (MonadIO m, IsChildNode self) => self -> m ()-remove self = liftIO (js_remove (toChildNode self))+foreign import javascript safe "(($1, $2) => { return $1[\"replaceWith\"](...$2); })"+        js_replaceWith :: ChildNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/replaceWith MDN ChildNode.replaceWith documentation>+replaceWith :: (MonadDOM m, IsChildNode self, IsNodeOrString nodes) => self -> [nodes] -> m ()+replaceWith self nodes = liftDOM (void (((toJSVal nodes) >>= \a2' -> js_replaceWith ((Types.toChildNode self)) a2')))
+ src/GHCJS/DOM/JSFFI/Generated/Client.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from service-workers (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.Client+       (js_postMessage, js_postMessageOptions, js_getUrl, js_getFrameType, js_getId, js_getType, postMessage, postMessageOptions, getUrl, getFrameType, getId, getType, Client(..), gTypeClient, IsClient, toClient)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return $1[\"postMessage\"]($2, $3); })"+        js_postMessage :: Client -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Client/postMessage MDN Client.postMessage documentation>+postMessage :: (MonadDOM m, IsClient self) => self -> JSVal -> [GObject] -> m ()+postMessage self message transfer = liftDOM (void (((toJSVal transfer) >>= \a3' -> js_postMessage ((Types.toClient self)) (message) a3')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"postMessage\"]($2, $3); })"+        js_postMessageOptions :: Client -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Client/postMessage MDN Client.postMessage documentation>+postMessageOptions :: (MonadDOM m, IsClient self, IsStructuredSerializeOptions options) => self -> JSVal -> Maybe options -> m ()+postMessageOptions self message options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_postMessageOptions ((Types.toClient self)) (message) a3')))++foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })"+        js_getUrl :: Client -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Client/url MDN Client.url documentation>+getUrl :: (MonadDOM m, IsClient self, FromJSString result) => self -> m result+getUrl self = liftDOM ((fromJSString <$> (js_getUrl ((Types.toClient self)))))++foreign import javascript unsafe "(($1) => { return $1[\"frameType\"]; })"+        js_getFrameType :: Client -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Client/frameType MDN Client.frameType documentation>+getFrameType :: (MonadDOM m, IsClient self) => self -> m FrameType+getFrameType self = liftDOM (((js_getFrameType ((Types.toClient self))) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })"+        js_getId :: Client -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Client/id MDN Client.id documentation>+getId :: (MonadDOM m, IsClient self, FromJSString result) => self -> m result+getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toClient self)))))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: Client -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Client/type MDN Client.type documentation>+getType :: (MonadDOM m, IsClient self) => self -> m ClientType+getType self = liftDOM (((js_getType ((Types.toClient self))) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/ClientQueryOptions.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from service-workers (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ClientQueryOptions+       (js_newClientQueryOptions, js_setIncludeUncontrolled, js_getIncludeUncontrolled, js_setType, js_getType, newClientQueryOptions, setIncludeUncontrolled, getIncludeUncontrolled, getIncludeUncontrolledUnsafe, getIncludeUncontrolledUnchecked, setType, getType, getTypeUnsafe, getTypeUnchecked, ClientQueryOptions(..), gTypeClientQueryOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newClientQueryOptions :: IO ClientQueryOptions+-- | <https://w3c.github.io/ServiceWorker/#dictdef-clientqueryoptions ClientQueryOptions specification>+newClientQueryOptions :: (MonadDOM m) => m ClientQueryOptions+newClientQueryOptions = liftDOM ((js_newClientQueryOptions))++foreign import javascript safe "(($1, $2) => { $1[\"includeUncontrolled\"] = $2; })"+        js_setIncludeUncontrolled :: ClientQueryOptions -> Bool -> IO ()+-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-includeuncontrolled ClientQueryOptions.includeUncontrolled specification>+setIncludeUncontrolled :: (MonadDOM m) => ClientQueryOptions -> Bool -> m ()+setIncludeUncontrolled self val = liftDOM (void ((js_setIncludeUncontrolled (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"includeUncontrolled\"]; })"+        js_getIncludeUncontrolled :: ClientQueryOptions -> IO JSVal+-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-includeuncontrolled ClientQueryOptions.includeUncontrolled specification>+getIncludeUncontrolled :: (MonadDOM m) => ClientQueryOptions -> m (Maybe Bool)+getIncludeUncontrolled self = liftDOM (((js_getIncludeUncontrolled (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-includeuncontrolled ClientQueryOptions.includeUncontrolled specification>+getIncludeUncontrolledUnsafe :: (MonadDOM m, HasCallStack) => ClientQueryOptions -> m Bool+getIncludeUncontrolledUnsafe self = liftDOM ((((js_getIncludeUncontrolled (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-includeuncontrolled ClientQueryOptions.includeUncontrolled specification>+getIncludeUncontrolledUnchecked :: (MonadDOM m) => ClientQueryOptions -> m Bool+getIncludeUncontrolledUnchecked self = liftDOM ((pFromJSVal <$> (js_getIncludeUncontrolled (self))))++foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+        js_setType :: ClientQueryOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-type ClientQueryOptions.type specification>+setType :: (MonadDOM m) => ClientQueryOptions -> ClientType -> m ()+setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: ClientQueryOptions -> IO JSVal+-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-type ClientQueryOptions.type specification>+getType :: (MonadDOM m) => ClientQueryOptions -> m (Maybe ClientType)+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-type ClientQueryOptions.type specification>+getTypeUnsafe :: (MonadDOM m, HasCallStack) => ClientQueryOptions -> m ClientType+getTypeUnsafe self = liftDOM ((((js_getType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-type ClientQueryOptions.type specification>+getTypeUnchecked :: (MonadDOM m) => ClientQueryOptions -> m ClientType+getTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getType (self))))
+ src/GHCJS/DOM/JSFFI/Generated/Clients.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from service-workers (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.Clients+       (js_claim, js_get, js_matchAll, js_openWindow, claim, get, get_, matchAll, matchAll_, openWindow, openWindow_, openWindowUnsafe, openWindowUnchecked, Clients(..), gTypeClients)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript interruptible "(($1, $c) => { return $1[\"claim\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_claim :: Clients -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Clients/claim MDN Clients.claim documentation>+claim :: (MonadDOM m) => Clients -> m ()+claim self = liftDOM (void (((js_claim (self)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"get\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_get :: Clients -> JSString -> IO (JSVal, ClientOrUndefined)+-- | <https://developer.mozilla.org/docs/Web/API/Clients/get MDN Clients.get documentation>+get :: (MonadDOM m, ToJSString id) => Clients -> id -> m ClientOrUndefined+get self id = liftDOM (((js_get (self) (toJSString id)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Clients/get MDN Clients.get documentation>+get_ :: (MonadDOM m, ToJSString id) => Clients -> id -> m ()+get_ self id = liftDOM (void (((js_get (self) (toJSString id)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"matchAll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_matchAll :: Clients -> JSVal -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/Clients/matchAll MDN Clients.matchAll documentation>+matchAll :: (MonadDOM m) => Clients -> Maybe ClientQueryOptions -> m [Client]+matchAll self options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_matchAll (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Clients/matchAll MDN Clients.matchAll documentation>+matchAll_ :: (MonadDOM m) => Clients -> Maybe ClientQueryOptions -> m ()+matchAll_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_matchAll (self) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"openWindow\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_openWindow :: Clients -> JSString -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/Clients/openWindow MDN Clients.openWindow documentation>+openWindow :: (MonadDOM m, ToJSString url) => Clients -> url -> m (Maybe WindowClient)+openWindow self url = liftDOM ((((js_openWindow (self) (toJSString url)) >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Clients/openWindow MDN Clients.openWindow documentation>+openWindow_ :: (MonadDOM m, ToJSString url) => Clients -> url -> m ()+openWindow_ self url = liftDOM (void (((js_openWindow (self) (toJSString url)) >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/Clients/openWindow MDN Clients.openWindow documentation>+openWindowUnsafe :: (MonadDOM m, ToJSString url, HasCallStack) => Clients -> url -> m WindowClient+openWindowUnsafe self url = liftDOM (((((js_openWindow (self) (toJSString url)) >>= checkPromiseResult) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Clients/openWindow MDN Clients.openWindow documentation>+openWindowUnchecked :: (MonadDOM m, ToJSString url) => Clients -> url -> m WindowClient+openWindowUnchecked self url = liftDOM ((pFromJSVal <$> ((js_openWindow (self) (toJSString url)) >>= checkPromiseResult)))
+ src/GHCJS/DOM/JSFFI/Generated/Clipboard.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from clipboard-apis (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.Clipboard+       (js_read, js_readText, js_write, js_writeText, read, read_, readText, readText_, write, writeText, Clipboard(..), gTypeClipboard)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"read\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_read :: Clipboard -> JSVal -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/read MDN Clipboard.read documentation>+read :: (MonadDOM m) => Clipboard -> Maybe ClipboardUnsanitizedFormats -> m [ClipboardItem]+read self formats = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal formats) >>= \a2' -> js_read (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/read MDN Clipboard.read documentation>+read_ :: (MonadDOM m) => Clipboard -> Maybe ClipboardUnsanitizedFormats -> m ()+read_ self formats = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal formats) >>= \a2' -> js_read (self) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $c) => { return $1[\"readText\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_readText :: Clipboard -> IO (JSVal, JSString)+-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/readText MDN Clipboard.readText documentation>+readText :: (MonadDOM m, FromJSString result) => Clipboard -> m result+readText self = liftDOM ((fromJSString <$> ((js_readText (self)) >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/readText MDN Clipboard.readText documentation>+readText_ :: (MonadDOM m) => Clipboard -> m ()+readText_ self = liftDOM (void (((js_readText (self)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"write\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_write :: Clipboard -> JSVal -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/write MDN Clipboard.write documentation>+write :: (MonadDOM m) => Clipboard -> [ClipboardItem] -> m ()+write self data' = liftDOM (void ((((toJSVal data') >>= \a2' -> js_write (self) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"writeText\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_writeText :: Clipboard -> JSString -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/writeText MDN Clipboard.writeText documentation>+writeText :: (MonadDOM m, ToJSString data') => Clipboard -> data' -> m ()+writeText self data' = liftDOM (void (((js_writeText (self) (toJSString data')) >>= checkPromiseResult)))
+ src/GHCJS/DOM/JSFFI/Generated/ClipboardChangeEvent.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from clipboard-apis (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ClipboardChangeEvent+       (ClipboardChangeEvent(..), gTypeClipboardChangeEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
src/GHCJS/DOM/JSFFI/Generated/ClipboardEvent.hs view
@@ -1,65 +1,37 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from clipboard-apis (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.ClipboardEvent-       (js_newClipboardEvent, newClipboardEvent, js_getClipboardData,-        getClipboardData, getClipboardDataUnsafe,-        getClipboardDataUnchecked, ClipboardEvent(..), gTypeClipboardEvent)+       (js_newClipboardEvent, js_getClipboardData, newClipboardEvent, getClipboardData, getClipboardDataUnsafe, getClipboardDataUnchecked, ClipboardEvent(..), gTypeClipboardEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"ClipboardEvent\"]($1,\n$2); })" js_newClipboardEvent ::-        JSString -> Optional ClipboardEventInit -> IO ClipboardEvent --- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent Mozilla ClipboardEvent documentation> -newClipboardEvent ::-                  (MonadIO m, ToJSString type') =>-                    type' -> Maybe ClipboardEventInit -> m ClipboardEvent-newClipboardEvent type' eventInitDict-  = liftIO-      (js_newClipboardEvent (toJSString type')-         (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"clipboardData\"]; })"-        js_getClipboardData :: ClipboardEvent -> IO (Nullable DataTransfer)+foreign import javascript safe "(($1, $2) => { return new globalThis[\"ClipboardEvent\"]($1, $2); })"+        js_newClipboardEvent :: JSString -> JSVal -> IO ClipboardEvent+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardEvent/ClipboardEvent MDN ClipboardEvent. documentation>+newClipboardEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe ClipboardEventInit -> m ClipboardEvent+newClipboardEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newClipboardEvent (toJSString type') a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent.clipboardData Mozilla ClipboardEvent.clipboardData documentation> -getClipboardData ::-                 (MonadIO m) => ClipboardEvent -> m (Maybe DataTransfer)-getClipboardData self-  = liftIO (nullableToMaybe <$> (js_getClipboardData self))+foreign import javascript unsafe "(($1) => { return $1[\"clipboardData\"]; })"+        js_getClipboardData :: ClipboardEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardEvent/clipboardData MDN ClipboardEvent.clipboardData documentation>+getClipboardData :: (MonadDOM m) => ClipboardEvent -> m (Maybe DataTransfer)+getClipboardData self = liftDOM (((js_getClipboardData (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent.clipboardData Mozilla ClipboardEvent.clipboardData documentation> -getClipboardDataUnsafe ::-                       (MonadIO m, HasCallStack) => ClipboardEvent -> m DataTransfer-getClipboardDataUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getClipboardData self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardEvent/clipboardData MDN ClipboardEvent.clipboardData documentation>+getClipboardDataUnsafe :: (MonadDOM m, HasCallStack) => ClipboardEvent -> m DataTransfer+getClipboardDataUnsafe self = liftDOM ((((js_getClipboardData (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent.clipboardData Mozilla ClipboardEvent.clipboardData documentation> -getClipboardDataUnchecked ::-                          (MonadIO m) => ClipboardEvent -> m DataTransfer-getClipboardDataUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getClipboardData self))+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardEvent/clipboardData MDN ClipboardEvent.clipboardData documentation>+getClipboardDataUnchecked :: (MonadDOM m) => ClipboardEvent -> m DataTransfer+getClipboardDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getClipboardData (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ClipboardEventInit.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from clipboard-apis (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ClipboardEventInit+       (js_newClipboardEventInit, js_setClipboardData, js_getClipboardData, newClipboardEventInit, setClipboardData, getClipboardData, getClipboardDataUnsafe, getClipboardDataUnchecked, ClipboardEventInit(..), gTypeClipboardEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newClipboardEventInit :: IO ClipboardEventInit+-- | <https://w3c.github.io/clipboard-apis/#dictdef-clipboardeventinit ClipboardEventInit specification>+newClipboardEventInit :: (MonadDOM m) => m ClipboardEventInit+newClipboardEventInit = liftDOM ((js_newClipboardEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"clipboardData\"] = $2; })"+        js_setClipboardData :: ClipboardEventInit -> JSVal -> IO ()+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardeventinit-clipboarddata ClipboardEventInit.clipboardData specification>+setClipboardData :: (MonadDOM m) => ClipboardEventInit -> Maybe DataTransfer -> m ()+setClipboardData self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setClipboardData (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"clipboardData\"]; })"+        js_getClipboardData :: ClipboardEventInit -> IO JSVal+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardeventinit-clipboarddata ClipboardEventInit.clipboardData specification>+getClipboardData :: (MonadDOM m) => ClipboardEventInit -> m (Maybe DataTransfer)+getClipboardData self = liftDOM (((js_getClipboardData (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardeventinit-clipboarddata ClipboardEventInit.clipboardData specification>+getClipboardDataUnsafe :: (MonadDOM m, HasCallStack) => ClipboardEventInit -> m DataTransfer+getClipboardDataUnsafe self = liftDOM ((((js_getClipboardData (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardeventinit-clipboarddata ClipboardEventInit.clipboardData specification>+getClipboardDataUnchecked :: (MonadDOM m) => ClipboardEventInit -> m DataTransfer+getClipboardDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getClipboardData (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ClipboardItem.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from clipboard-apis (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ClipboardItem+       (js_newClipboardItem, js_getType, js_supports, js_getPresentationStyle, js_getTypes, newClipboardItem, getType, getType_, supports, supports_, getPresentationStyle, getTypes, ClipboardItem(..), gTypeClipboardItem)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"ClipboardItem\"]($1, $2); })"+        js_newClipboardItem :: JSVal -> JSVal -> IO ClipboardItem+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/ClipboardItem MDN ClipboardItem. documentation>+newClipboardItem :: (MonadDOM m) => (Record JSString JSVal) -> Maybe ClipboardItemOptions -> m ClipboardItem+newClipboardItem items options = liftDOM (((toJSVal items) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newClipboardItem a1' a2'))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"getType\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_getType :: ClipboardItem -> JSString -> IO (JSVal, Blob)+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/getType MDN ClipboardItem.getType documentation>+getType :: (MonadDOM m, ToJSString type') => ClipboardItem -> type' -> m Blob+getType self type' = liftDOM (((js_getType (self) (toJSString type')) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/getType MDN ClipboardItem.getType documentation>+getType_ :: (MonadDOM m, ToJSString type') => ClipboardItem -> type' -> m ()+getType_ self type' = liftDOM (void (((js_getType (self) (toJSString type')) >>= checkPromiseResult)))++foreign import javascript safe "(($1) => { return globalThis[\"ClipboardItem\"][\"supports\"]($1); })"+        js_supports :: JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/supports_static MDN ClipboardItem.supports documentation>+supports :: (MonadDOM m, ToJSString type') => type' -> m Bool+supports type' = liftDOM ((js_supports (toJSString type')))++-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/supports_static MDN ClipboardItem.supports documentation>+supports_ :: (MonadDOM m, ToJSString type') => type' -> m ()+supports_ type' = liftDOM (void ((js_supports (toJSString type'))))++foreign import javascript unsafe "(($1) => { return $1[\"presentationStyle\"]; })"+        js_getPresentationStyle :: ClipboardItem -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/presentationStyle MDN ClipboardItem.presentationStyle documentation>+getPresentationStyle :: (MonadDOM m) => ClipboardItem -> m PresentationStyle+getPresentationStyle self = liftDOM (((js_getPresentationStyle (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"types\"]; })"+        js_getTypes :: ClipboardItem -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/types MDN ClipboardItem.types documentation>+getTypes :: (MonadDOM m, FromJSString result) => ClipboardItem -> m [result]+getTypes self = liftDOM (((js_getTypes (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/ClipboardItemOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from clipboard-apis (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ClipboardItemOptions+       (js_newClipboardItemOptions, js_setPresentationStyle, js_getPresentationStyle, newClipboardItemOptions, setPresentationStyle, getPresentationStyle, getPresentationStyleUnsafe, getPresentationStyleUnchecked, ClipboardItemOptions(..), gTypeClipboardItemOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newClipboardItemOptions :: IO ClipboardItemOptions+-- | <https://w3c.github.io/clipboard-apis/#dictdef-clipboarditemoptions ClipboardItemOptions specification>+newClipboardItemOptions :: (MonadDOM m) => m ClipboardItemOptions+newClipboardItemOptions = liftDOM ((js_newClipboardItemOptions))++foreign import javascript safe "(($1, $2) => { $1[\"presentationStyle\"] = $2; })"+        js_setPresentationStyle :: ClipboardItemOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboarditemoptions-presentationstyle ClipboardItemOptions.presentationStyle specification>+setPresentationStyle :: (MonadDOM m) => ClipboardItemOptions -> PresentationStyle -> m ()+setPresentationStyle self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setPresentationStyle (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"presentationStyle\"]; })"+        js_getPresentationStyle :: ClipboardItemOptions -> IO JSVal+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboarditemoptions-presentationstyle ClipboardItemOptions.presentationStyle specification>+getPresentationStyle :: (MonadDOM m) => ClipboardItemOptions -> m (Maybe PresentationStyle)+getPresentationStyle self = liftDOM (((js_getPresentationStyle (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboarditemoptions-presentationstyle ClipboardItemOptions.presentationStyle specification>+getPresentationStyleUnsafe :: (MonadDOM m, HasCallStack) => ClipboardItemOptions -> m PresentationStyle+getPresentationStyleUnsafe self = liftDOM ((((js_getPresentationStyle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboarditemoptions-presentationstyle ClipboardItemOptions.presentationStyle specification>+getPresentationStyleUnchecked :: (MonadDOM m) => ClipboardItemOptions -> m PresentationStyle+getPresentationStyleUnchecked self = liftDOM ((pFromJSVal <$> (js_getPresentationStyle (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ClipboardUnsanitizedFormats.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from clipboard-apis (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ClipboardUnsanitizedFormats+       (js_newClipboardUnsanitizedFormats, js_setUnsanitized, js_getUnsanitized, newClipboardUnsanitizedFormats, setUnsanitized, getUnsanitized, getUnsanitizedUnsafe, getUnsanitizedUnchecked, ClipboardUnsanitizedFormats(..), gTypeClipboardUnsanitizedFormats)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newClipboardUnsanitizedFormats :: IO ClipboardUnsanitizedFormats+-- | <https://w3c.github.io/clipboard-apis/#dictdef-clipboardunsanitizedformats ClipboardUnsanitizedFormats specification>+newClipboardUnsanitizedFormats :: (MonadDOM m) => m ClipboardUnsanitizedFormats+newClipboardUnsanitizedFormats = liftDOM ((js_newClipboardUnsanitizedFormats))++foreign import javascript safe "(($1, $2) => { $1[\"unsanitized\"] = $2; })"+        js_setUnsanitized :: ClipboardUnsanitizedFormats -> JSVal -> IO ()+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>+setUnsanitized :: (MonadDOM m, ToJSString val) => ClipboardUnsanitizedFormats -> [val] -> m ()+setUnsanitized self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setUnsanitized (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"unsanitized\"]; })"+        js_getUnsanitized :: ClipboardUnsanitizedFormats -> IO JSVal+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>+getUnsanitized :: (MonadDOM m, FromJSString result) => ClipboardUnsanitizedFormats -> m (Maybe [result])+getUnsanitized self = liftDOM (((js_getUnsanitized (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>+getUnsanitizedUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ClipboardUnsanitizedFormats -> m [result]+getUnsanitizedUnsafe self = liftDOM ((((js_getUnsanitized (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>+getUnsanitizedUnchecked :: (MonadDOM m, FromJSString result) => ClipboardUnsanitizedFormats -> m [result]+getUnsanitizedUnchecked self = liftDOM (((js_getUnsanitized (self)) >>= fromJSValUnchecked))
src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs view
@@ -1,63 +1,41 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from websockets (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CloseEvent-       (js_newCloseEvent, newCloseEvent, js_getWasClean, getWasClean,-        js_getCode, getCode, js_getReason, getReason, CloseEvent(..),-        gTypeCloseEvent)+       (js_newCloseEvent, js_getWasClean, js_getCode, js_getReason, newCloseEvent, getWasClean, getCode, getReason, CloseEvent(..), gTypeCloseEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"CloseEvent\"]($1, $2); })" js_newCloseEvent ::-        JSString -> Optional CloseEventInit -> IO CloseEvent --- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent Mozilla CloseEvent documentation> -newCloseEvent ::-              (MonadIO m, ToJSString type') =>-                type' -> Maybe CloseEventInit -> m CloseEvent-newCloseEvent type' eventInitDict-  = liftIO-      (js_newCloseEvent (toJSString type')-         (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { return ($1[\"wasClean\"] ? 1 : 0); })"-        js_getWasClean :: CloseEvent -> IO Bool+foreign import javascript safe "(($1, $2) => { return new globalThis[\"CloseEvent\"]($1, $2); })"+        js_newCloseEvent :: JSString -> JSVal -> IO CloseEvent+-- | <https://developer.mozilla.org/docs/Web/API/CloseEvent/CloseEvent MDN CloseEvent. documentation>+newCloseEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe CloseEventInit -> m CloseEvent+newCloseEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newCloseEvent (toJSString type') a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.wasClean Mozilla CloseEvent.wasClean documentation> -getWasClean :: (MonadIO m) => CloseEvent -> m Bool-getWasClean self = liftIO (js_getWasClean self)- -foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })" js_getCode ::-        CloseEvent -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"wasClean\"]; })"+        js_getWasClean :: CloseEvent -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CloseEvent/wasClean MDN CloseEvent.wasClean documentation>+getWasClean :: (MonadDOM m) => CloseEvent -> m Bool+getWasClean self = liftDOM ((js_getWasClean (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.code Mozilla CloseEvent.code documentation> -getCode :: (MonadIO m) => CloseEvent -> m Word-getCode self = liftIO (js_getCode self)- -foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })" js_getReason ::-        CloseEvent -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })"+        js_getCode :: CloseEvent -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CloseEvent/code MDN CloseEvent.code documentation>+getCode :: (MonadDOM m) => CloseEvent -> m Word+getCode self = liftDOM ((js_getCode (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.reason Mozilla CloseEvent.reason documentation> -getReason ::-          (MonadIO m, FromJSString result) => CloseEvent -> m result-getReason self = liftIO (fromJSString <$> (js_getReason self))+foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })"+        js_getReason :: CloseEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CloseEvent/reason MDN CloseEvent.reason documentation>+getReason :: (MonadDOM m, FromJSString result) => CloseEvent -> m result+getReason self = liftDOM ((fromJSString <$> (js_getReason (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CloseEventInit.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from websockets (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CloseEventInit+       (js_newCloseEventInit, js_setWasClean, js_getWasClean, js_setCode, js_getCode, js_setReason, js_getReason, newCloseEventInit, setWasClean, getWasClean, getWasCleanUnsafe, getWasCleanUnchecked, setCode, getCode, getCodeUnsafe, getCodeUnchecked, setReason, getReason, getReasonUnsafe, getReasonUnchecked, CloseEventInit(..), gTypeCloseEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCloseEventInit :: IO CloseEventInit+-- | <https://websockets.spec.whatwg.org/#dictdef-closeeventinit CloseEventInit specification>+newCloseEventInit :: (MonadDOM m) => m CloseEventInit+newCloseEventInit = liftDOM ((js_newCloseEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"wasClean\"] = $2; })"+        js_setWasClean :: CloseEventInit -> Bool -> IO ()+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-wasclean CloseEventInit.wasClean specification>+setWasClean :: (MonadDOM m) => CloseEventInit -> Bool -> m ()+setWasClean self val = liftDOM (void ((js_setWasClean (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"wasClean\"]; })"+        js_getWasClean :: CloseEventInit -> IO JSVal+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-wasclean CloseEventInit.wasClean specification>+getWasClean :: (MonadDOM m) => CloseEventInit -> m (Maybe Bool)+getWasClean self = liftDOM (((js_getWasClean (self)) >>= fromJSValUnchecked))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-wasclean CloseEventInit.wasClean specification>+getWasCleanUnsafe :: (MonadDOM m, HasCallStack) => CloseEventInit -> m Bool+getWasCleanUnsafe self = liftDOM ((((js_getWasClean (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-wasclean CloseEventInit.wasClean specification>+getWasCleanUnchecked :: (MonadDOM m) => CloseEventInit -> m Bool+getWasCleanUnchecked self = liftDOM ((pFromJSVal <$> (js_getWasClean (self))))++foreign import javascript safe "(($1, $2) => { $1[\"code\"] = $2; })"+        js_setCode :: CloseEventInit -> Word -> IO ()+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-code CloseEventInit.code specification>+setCode :: (MonadDOM m) => CloseEventInit -> Word -> m ()+setCode self val = liftDOM (void ((js_setCode (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })"+        js_getCode :: CloseEventInit -> IO JSVal+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-code CloseEventInit.code specification>+getCode :: (MonadDOM m) => CloseEventInit -> m (Maybe Word)+getCode self = liftDOM (((js_getCode (self)) >>= fromJSValUnchecked))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-code CloseEventInit.code specification>+getCodeUnsafe :: (MonadDOM m, HasCallStack) => CloseEventInit -> m Word+getCodeUnsafe self = liftDOM ((((js_getCode (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-code CloseEventInit.code specification>+getCodeUnchecked :: (MonadDOM m) => CloseEventInit -> m Word+getCodeUnchecked self = liftDOM ((pFromJSVal <$> (js_getCode (self))))++foreign import javascript safe "(($1, $2) => { $1[\"reason\"] = $2; })"+        js_setReason :: CloseEventInit -> JSString -> IO ()+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-reason CloseEventInit.reason specification>+setReason :: (MonadDOM m, ToJSString val) => CloseEventInit -> val -> m ()+setReason self val = liftDOM (void ((js_setReason (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })"+        js_getReason :: CloseEventInit -> IO JSVal+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-reason CloseEventInit.reason specification>+getReason :: (MonadDOM m, FromJSString result) => CloseEventInit -> m (Maybe result)+getReason self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getReason (self))))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-reason CloseEventInit.reason specification>+getReasonUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CloseEventInit -> m result+getReasonUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getReason (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-reason CloseEventInit.reason specification>+getReasonUnchecked :: (MonadDOM m, FromJSString result) => CloseEventInit -> m result+getReasonUnchecked self = liftDOM ((pFromJSVal <$> (js_getReason (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CloseWatcher.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CloseWatcher+       (js_newCloseWatcher, js_close, js_destroy, js_requestClose, newCloseWatcher, close, destroy, requestClose, cancel, closeEvent, CloseWatcher(..), gTypeCloseWatcher)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CloseWatcher\"]($1); })"+        js_newCloseWatcher :: JSVal -> IO CloseWatcher+-- | <https://developer.mozilla.org/docs/Web/API/CloseWatcher/CloseWatcher MDN CloseWatcher. documentation>+newCloseWatcher :: (MonadDOM m) => Maybe CloseWatcherOptions -> m CloseWatcher+newCloseWatcher options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a1' -> js_newCloseWatcher a1'))++foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+        js_close :: CloseWatcher -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CloseWatcher/close MDN CloseWatcher.close documentation>+close :: (MonadDOM m) => CloseWatcher -> m ()+close self = liftDOM (void ((js_close (self))))++foreign import javascript safe "(($1) => { return $1[\"destroy\"](); })"+        js_destroy :: CloseWatcher -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CloseWatcher/destroy MDN CloseWatcher.destroy documentation>+destroy :: (MonadDOM m) => CloseWatcher -> m ()+destroy self = liftDOM (void ((js_destroy (self))))++foreign import javascript safe "(($1) => { return $1[\"requestClose\"](); })"+        js_requestClose :: CloseWatcher -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CloseWatcher/requestClose MDN CloseWatcher.requestClose documentation>+requestClose :: (MonadDOM m) => CloseWatcher -> m ()+requestClose self = liftDOM (void ((js_requestClose (self))))++-- | <https://html.spec.whatwg.org/multipage/interaction.html#handler-closewatcher-oncancel cancel event>+cancel :: EventName CloseWatcher Event+cancel = unsafeEventName (toJSString "cancel")++-- | <https://html.spec.whatwg.org/multipage/interaction.html#handler-closewatcher-onclose close event>+closeEvent :: EventName CloseWatcher Event+closeEvent = unsafeEventNameAsync (toJSString "close")
+ src/GHCJS/DOM/JSFFI/Generated/CloseWatcherOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CloseWatcherOptions+       (js_newCloseWatcherOptions, js_setSignal, js_getSignal, newCloseWatcherOptions, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, CloseWatcherOptions(..), gTypeCloseWatcherOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCloseWatcherOptions :: IO CloseWatcherOptions+-- | <https://html.spec.whatwg.org/multipage/interaction.html#closewatcheroptions CloseWatcherOptions specification>+newCloseWatcherOptions :: (MonadDOM m) => m CloseWatcherOptions+newCloseWatcherOptions = liftDOM ((js_newCloseWatcherOptions))++foreign import javascript safe "(($1, $2) => { $1[\"signal\"] = $2; })"+        js_setSignal :: CloseWatcherOptions -> AbortSignal -> IO ()+-- | <https://html.spec.whatwg.org/multipage/interaction.html#dom-closewatcheroptions-signal CloseWatcherOptions.signal specification>+setSignal :: (MonadDOM m, IsAbortSignal val) => CloseWatcherOptions -> val -> m ()+setSignal self val = liftDOM (void ((js_setSignal (self) (Types.toAbortSignal val))))++foreign import javascript unsafe "(($1) => { return $1[\"signal\"]; })"+        js_getSignal :: CloseWatcherOptions -> IO JSVal+-- | <https://html.spec.whatwg.org/multipage/interaction.html#dom-closewatcheroptions-signal CloseWatcherOptions.signal specification>+getSignal :: (MonadDOM m) => CloseWatcherOptions -> m (Maybe AbortSignal)+getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/interaction.html#dom-closewatcheroptions-signal CloseWatcherOptions.signal specification>+getSignalUnsafe :: (MonadDOM m, HasCallStack) => CloseWatcherOptions -> m AbortSignal+getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/interaction.html#dom-closewatcheroptions-signal CloseWatcherOptions.signal specification>+getSignalUnchecked :: (MonadDOM m) => CloseWatcherOptions -> m AbortSignal+getSignalUnchecked self = liftDOM ((pFromJSVal <$> (js_getSignal (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CommandEvent.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CommandEvent+       (js_newCommandEvent, js_getSource, js_getCommand, newCommandEvent, getSource, getSourceUnsafe, getSourceUnchecked, getCommand, CommandEvent(..), gTypeCommandEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"CommandEvent\"]($1, $2); })"+        js_newCommandEvent :: JSString -> JSVal -> IO CommandEvent+-- | <https://developer.mozilla.org/docs/Web/API/CommandEvent/CommandEvent MDN CommandEvent. documentation>+newCommandEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe CommandEventInit -> m CommandEvent+newCommandEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newCommandEvent (toJSString type') a2'))++foreign import javascript unsafe "(($1) => { return $1[\"source\"]; })"+        js_getSource :: CommandEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CommandEvent/source MDN CommandEvent.source documentation>+getSource :: (MonadDOM m) => CommandEvent -> m (Maybe Element)+getSource self = liftDOM (((js_getSource (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CommandEvent/source MDN CommandEvent.source documentation>+getSourceUnsafe :: (MonadDOM m, HasCallStack) => CommandEvent -> m Element+getSourceUnsafe self = liftDOM ((((js_getSource (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CommandEvent/source MDN CommandEvent.source documentation>+getSourceUnchecked :: (MonadDOM m) => CommandEvent -> m Element+getSourceUnchecked self = liftDOM ((pFromJSVal <$> (js_getSource (self))))++foreign import javascript unsafe "(($1) => { return $1[\"command\"]; })"+        js_getCommand :: CommandEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CommandEvent/command MDN CommandEvent.command documentation>+getCommand :: (MonadDOM m, FromJSString result) => CommandEvent -> m result+getCommand self = liftDOM ((fromJSString <$> (js_getCommand (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CommandEventInit.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CommandEventInit+       (js_newCommandEventInit, js_setSource, js_getSource, js_setCommand, js_getCommand, newCommandEventInit, setSource, getSource, getSourceUnsafe, getSourceUnchecked, setCommand, getCommand, getCommandUnsafe, getCommandUnchecked, CommandEventInit(..), gTypeCommandEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCommandEventInit :: IO CommandEventInit+-- | <https://html.spec.whatwg.org/multipage/interaction.html#commandeventinit CommandEventInit specification>+newCommandEventInit :: (MonadDOM m) => m CommandEventInit+newCommandEventInit = liftDOM ((js_newCommandEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"source\"] = $2; })"+        js_setSource :: CommandEventInit -> JSVal -> IO ()+setSource :: (MonadDOM m, IsElement val) => CommandEventInit -> Maybe val -> m ()+setSource self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSource (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"source\"]; })"+        js_getSource :: CommandEventInit -> IO JSVal+getSource :: (MonadDOM m) => CommandEventInit -> m (Maybe Element)+getSource self = liftDOM (((js_getSource (self)) >>= fromJSValUnchecked))++getSourceUnsafe :: (MonadDOM m, HasCallStack) => CommandEventInit -> m Element+getSourceUnsafe self = liftDOM ((((js_getSource (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++getSourceUnchecked :: (MonadDOM m) => CommandEventInit -> m Element+getSourceUnchecked self = liftDOM ((pFromJSVal <$> (js_getSource (self))))++foreign import javascript safe "(($1, $2) => { $1[\"command\"] = $2; })"+        js_setCommand :: CommandEventInit -> JSString -> IO ()+setCommand :: (MonadDOM m, ToJSString val) => CommandEventInit -> val -> m ()+setCommand self val = liftDOM (void ((js_setCommand (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"command\"]; })"+        js_getCommand :: CommandEventInit -> IO JSVal+getCommand :: (MonadDOM m, FromJSString result) => CommandEventInit -> m (Maybe result)+getCommand self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCommand (self))))++getCommandUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CommandEventInit -> m result+getCommandUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getCommand (self))) >>= P.maybe (P.error "Nothing to return") P.return))++getCommandUnchecked :: (MonadDOM m, FromJSString result) => CommandEventInit -> m result+getCommandUnchecked self = liftDOM ((pFromJSVal <$> (js_getCommand (self))))
− src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs
@@ -1,128 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost-       (js_clearConsoleMessages, clearConsoleMessages, js_copyText,-        copyText, js_inspect, inspect, js_inspectedObject, inspectedObject,-        inspectedObject_, js_getEventListeners, getEventListeners,-        getEventListeners_, js_databaseId, databaseId, databaseId_,-        js_storageId, storageId, storageId_, CommandLineAPIHost(..),-        gTypeCommandLineAPIHost)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"clearConsoleMessages\"](); })"-        js_clearConsoleMessages :: CommandLineAPIHost -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.clearConsoleMessages Mozilla CommandLineAPIHost.clearConsoleMessages documentation> -clearConsoleMessages :: (MonadIO m) => CommandLineAPIHost -> m ()-clearConsoleMessages self = liftIO (js_clearConsoleMessages self)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"copyText\"]($2); })" js_copyText-        :: CommandLineAPIHost -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.copyText Mozilla CommandLineAPIHost.copyText documentation> -copyText ::-         (MonadIO m, ToJSString text) => CommandLineAPIHost -> text -> m ()-copyText self text = liftIO (js_copyText self (toJSString text))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"inspect\"]($2, $3); })"-        js_inspect :: CommandLineAPIHost -> JSVal -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspect Mozilla CommandLineAPIHost.inspect documentation> -inspect ::-        (MonadIO m, ToJSVal objectId, ToJSVal hints) =>-          CommandLineAPIHost -> objectId -> hints -> m ()-inspect self objectId hints-  = liftIO-      (toJSVal hints >>=-         \ hints' ->-           toJSVal objectId >>= \ objectId' -> js_inspect self objectId'-             hints')- -foreign import javascript unsafe "(($1) => { return $1[\"inspectedObject\"](); })"-        js_inspectedObject :: CommandLineAPIHost -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> -inspectedObject :: (MonadIO m) => CommandLineAPIHost -> m JSVal-inspectedObject self = liftIO (js_inspectedObject self)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> -inspectedObject_ :: (MonadIO m) => CommandLineAPIHost -> m ()-inspectedObject_ self = liftIO (void (js_inspectedObject self))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getEventListeners\"]($2); })"-        js_getEventListeners :: CommandLineAPIHost -> Node -> IO Array---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> -getEventListeners ::-                  (MonadIO m, IsNode node) => CommandLineAPIHost -> node -> m Array-getEventListeners self node-  = liftIO (js_getEventListeners self (toNode node))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> -getEventListeners_ ::-                   (MonadIO m, IsNode node) => CommandLineAPIHost -> node -> m ()-getEventListeners_ self node-  = liftIO (void (js_getEventListeners self (toNode node)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"databaseId\"]($2); })"-        js_databaseId :: CommandLineAPIHost -> JSVal -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation> -databaseId ::-           (MonadIO m, ToJSVal database, FromJSString result) =>-             CommandLineAPIHost -> database -> m result-databaseId self database-  = liftIO-      (fromJSString <$>-         (toJSVal database >>= \ database' -> js_databaseId self database'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation> -databaseId_ ::-            (MonadIO m, ToJSVal database) =>-              CommandLineAPIHost -> database -> m ()-databaseId_ self database-  = liftIO-      (void-         (toJSVal database >>= \ database' -> js_databaseId self database'))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"storageId\"]($2); })"-        js_storageId :: CommandLineAPIHost -> JSVal -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation> -storageId ::-          (MonadIO m, ToJSVal storage, FromJSString result) =>-            CommandLineAPIHost -> storage -> m result-storageId self storage-  = liftIO-      (fromJSString <$>-         (toJSVal storage >>= \ storage' -> js_storageId self storage'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation> -storageId_ ::-           (MonadIO m, ToJSVal storage) =>-             CommandLineAPIHost -> storage -> m ()-storageId_ self storage-  = liftIO-      (void-         (toJSVal storage >>= \ storage' -> js_storageId self storage'))
src/GHCJS/DOM/JSFFI/Generated/Comment.hs view
@@ -1,34 +1,23 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Comment-       (js_newComment, newComment, Comment(..), gTypeComment) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+       (js_newComment, newComment, Comment(..), gTypeComment)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return new window[\"Comment\"]($1); })"-        js_newComment :: Optional JSString -> IO Comment --- | <https://developer.mozilla.org/en-US/docs/Web/API/Comment Mozilla Comment documentation> -newComment ::-           (MonadIO m, ToJSString data') => Maybe data' -> m Comment-newComment data'-  = liftIO (js_newComment (toOptionalJSString data'))+foreign import javascript safe "(($1) => { return new globalThis[\"Comment\"]($1); })"+        js_newComment :: (Optional JSString) -> IO Comment+-- | <https://developer.mozilla.org/docs/Web/API/Comment/Comment MDN Comment. documentation>+newComment :: (MonadDOM m, ToJSString data') => Maybe data' -> m Comment+newComment data' = liftDOM ((js_newComment (toOptionalJSString data')))
src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs view
@@ -1,71 +1,35 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from uievents (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CompositionEvent-       (js_newCompositionEvent, newCompositionEvent,-        js_initCompositionEvent, initCompositionEvent, js_getData, getData,-        CompositionEvent(..), gTypeCompositionEvent)+       (js_newCompositionEvent, js_initCompositionEvent, js_getData, newCompositionEvent, initCompositionEvent, getData, CompositionEvent(..), gTypeCompositionEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"CompositionEvent\"]($1,\n$2); })" js_newCompositionEvent-        :: JSString -> Optional CompositionEventInit -> IO CompositionEvent --- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent Mozilla CompositionEvent documentation> -newCompositionEvent ::-                    (MonadIO m, ToJSString type') =>-                      type' -> Maybe CompositionEventInit -> m CompositionEvent-newCompositionEvent type' eventInitDict-  = liftIO-      (js_newCompositionEvent (toJSString type')-         (maybeToOptional eventInitDict))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6) => { return $1[\"initCompositionEvent\"]($2,\n$3, $4, $5, $6); })"-        js_initCompositionEvent ::-        CompositionEvent ->-          Optional JSString ->-            Bool -> Bool -> Optional Window -> Optional JSString -> IO ()+foreign import javascript safe "(($1, $2) => { return new globalThis[\"CompositionEvent\"]($1, $2); })"+        js_newCompositionEvent :: JSString -> JSVal -> IO CompositionEvent+-- | <https://developer.mozilla.org/docs/Web/API/CompositionEvent/CompositionEvent MDN CompositionEvent. documentation>+newCompositionEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe CompositionEventInit -> m CompositionEvent+newCompositionEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newCompositionEvent (toJSString type') a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.initCompositionEvent Mozilla CompositionEvent.initCompositionEvent documentation> -initCompositionEvent ::-                     (MonadIO m, ToJSString typeArg, ToJSString dataArg) =>-                       CompositionEvent ->-                         Maybe typeArg ->-                           Bool -> Bool -> Maybe Window -> Maybe dataArg -> m ()-initCompositionEvent self typeArg canBubbleArg cancelableArg-  viewArg dataArg-  = liftIO-      (js_initCompositionEvent self (toOptionalJSString typeArg)-         canBubbleArg-         cancelableArg-         (maybeToOptional viewArg)-         (toOptionalJSString dataArg))- -foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" js_getData ::-        CompositionEvent -> IO JSString+foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"initCompositionEvent\"]($2, $3, $4, $5, $6); })"+        js_initCompositionEvent :: CompositionEvent -> JSString -> JSVal -> JSVal -> JSVal -> (Optional JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CompositionEvent/initCompositionEvent MDN CompositionEvent.initCompositionEvent documentation>+initCompositionEvent :: (MonadDOM m, ToJSString typeArg, ToJSString dataArg) => CompositionEvent -> typeArg -> Maybe Bool -> Maybe Bool -> Maybe Window -> Maybe dataArg -> m ()+initCompositionEvent self typeArg bubblesArg cancelableArg viewArg dataArg = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bubblesArg) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal cancelableArg) >>= \a4' -> (toJSVal viewArg) >>= \a5' -> js_initCompositionEvent (self) (toJSString typeArg) a3' a4' a5' (toOptionalJSString dataArg)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.data Mozilla CompositionEvent.data documentation> -getData ::-        (MonadIO m, FromJSString result) => CompositionEvent -> m result-getData self = liftIO (fromJSString <$> (js_getData self))+foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: CompositionEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CompositionEvent/data MDN CompositionEvent.data documentation>+getData :: (MonadDOM m, FromJSString result) => CompositionEvent -> m result+getData self = liftDOM ((fromJSString <$> (js_getData (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CompositionEventInit.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from uievents (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CompositionEventInit+       (js_newCompositionEventInit, js_setData, js_getData, newCompositionEventInit, setData, getData, getDataUnsafe, getDataUnchecked, CompositionEventInit(..), gTypeCompositionEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCompositionEventInit :: IO CompositionEventInit+-- | <https://w3c.github.io/uievents/#dictdef-compositioneventinit CompositionEventInit specification>+newCompositionEventInit :: (MonadDOM m) => m CompositionEventInit+newCompositionEventInit = liftDOM ((js_newCompositionEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+        js_setData :: CompositionEventInit -> JSString -> IO ()+-- | <https://w3c.github.io/uievents/#dom-compositioneventinit-data CompositionEventInit.data specification>+setData :: (MonadDOM m, ToJSString val) => CompositionEventInit -> val -> m ()+setData self val = liftDOM (void ((js_setData (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: CompositionEventInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-compositioneventinit-data CompositionEventInit.data specification>+getData :: (MonadDOM m, FromJSString result) => CompositionEventInit -> m (Maybe result)+getData self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getData (self))))++-- | <https://w3c.github.io/uievents/#dom-compositioneventinit-data CompositionEventInit.data specification>+getDataUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CompositionEventInit -> m result+getDataUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getData (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-compositioneventinit-data CompositionEventInit.data specification>+getDataUnchecked :: (MonadDOM m, FromJSString result) => CompositionEventInit -> m result+getDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getData (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CompressionStream.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from compression (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CompressionStream+       (js_newCompressionStream, newCompressionStream, CompressionStream(..), gTypeCompressionStream)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"CompressionStream\"]($1); })"+        js_newCompressionStream :: JSVal -> IO CompressionStream+-- | <https://developer.mozilla.org/docs/Web/API/CompressionStream/CompressionStream MDN CompressionStream. documentation>+newCompressionStream :: (MonadDOM m) => CompressionFormat -> m CompressionStream+newCompressionStream format = liftDOM (((toJSVal format) >>= \a1' -> js_newCompressionStream a1'))
+ src/GHCJS/DOM/JSFFI/Generated/ComputedEffectTiming.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from web-animations-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ComputedEffectTiming+       (js_newComputedEffectTiming, js_setProgress, js_getProgress, js_setCurrentIteration, js_getCurrentIteration, js_setStartTime, js_getStartTime, js_setEndTime, js_getEndTime, js_setActiveDuration, js_getActiveDuration, js_setLocalTime, js_getLocalTime, newComputedEffectTiming, setProgress, getProgress, getProgressUnsafe, getProgressUnchecked, setCurrentIteration, getCurrentIteration, getCurrentIterationUnsafe, getCurrentIterationUnchecked, setStartTime, getStartTime, getStartTimeUnsafe, getStartTimeUnchecked, setEndTime, getEndTime, getEndTimeUnsafe, getEndTimeUnchecked, setActiveDuration, getActiveDuration, getActiveDurationUnsafe, getActiveDurationUnchecked, setLocalTime, getLocalTime, getLocalTimeUnsafe, getLocalTimeUnchecked, ComputedEffectTiming(..), gTypeComputedEffectTiming)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newComputedEffectTiming :: IO ComputedEffectTiming+-- | <https://drafts.csswg.org/web-animations-1/#dictdef-computedeffecttiming ComputedEffectTiming specification>+newComputedEffectTiming :: (MonadDOM m) => m ComputedEffectTiming+newComputedEffectTiming = liftDOM ((js_newComputedEffectTiming))++foreign import javascript safe "(($1, $2) => { $1[\"progress\"] = $2; })"+        js_setProgress :: ComputedEffectTiming -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>+setProgress :: (MonadDOM m) => ComputedEffectTiming -> Maybe Double -> m ()+setProgress self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setProgress (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"progress\"]; })"+        js_getProgress :: ComputedEffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>+getProgress :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe Double)+getProgress self = liftDOM (((js_getProgress (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>+getProgressUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m Double+getProgressUnsafe self = liftDOM ((((js_getProgress (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>+getProgressUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m Double+getProgressUnchecked self = liftDOM ((pFromJSVal <$> (js_getProgress (self))))++foreign import javascript safe "(($1, $2) => { $1[\"currentIteration\"] = $2; })"+        js_setCurrentIteration :: ComputedEffectTiming -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>+setCurrentIteration :: (MonadDOM m) => ComputedEffectTiming -> Maybe Double -> m ()+setCurrentIteration self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setCurrentIteration (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"currentIteration\"]; })"+        js_getCurrentIteration :: ComputedEffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>+getCurrentIteration :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe Double)+getCurrentIteration self = liftDOM (((js_getCurrentIteration (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>+getCurrentIterationUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m Double+getCurrentIterationUnsafe self = liftDOM ((((js_getCurrentIteration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>+getCurrentIterationUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m Double+getCurrentIterationUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentIteration (self))))++foreign import javascript safe "(($1, $2) => { $1[\"startTime\"] = $2; })"+        js_setStartTime :: ComputedEffectTiming -> CSSNumberish -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>+setStartTime :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> val -> m ()+setStartTime self val = liftDOM (void ((js_setStartTime (self) (Types.toCSSNumberish val))))++foreign import javascript unsafe "(($1) => { return $1[\"startTime\"]; })"+        js_getStartTime :: ComputedEffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>+getStartTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)+getStartTime self = liftDOM (((js_getStartTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>+getStartTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish+getStartTimeUnsafe self = liftDOM ((((js_getStartTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>+getStartTimeUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish+getStartTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getStartTime (self))))++foreign import javascript safe "(($1, $2) => { $1[\"endTime\"] = $2; })"+        js_setEndTime :: ComputedEffectTiming -> CSSNumberish -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>+setEndTime :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> val -> m ()+setEndTime self val = liftDOM (void ((js_setEndTime (self) (Types.toCSSNumberish val))))++foreign import javascript unsafe "(($1) => { return $1[\"endTime\"]; })"+        js_getEndTime :: ComputedEffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>+getEndTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)+getEndTime self = liftDOM (((js_getEndTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>+getEndTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish+getEndTimeUnsafe self = liftDOM ((((js_getEndTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>+getEndTimeUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish+getEndTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getEndTime (self))))++foreign import javascript safe "(($1, $2) => { $1[\"activeDuration\"] = $2; })"+        js_setActiveDuration :: ComputedEffectTiming -> CSSNumberish -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>+setActiveDuration :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> val -> m ()+setActiveDuration self val = liftDOM (void ((js_setActiveDuration (self) (Types.toCSSNumberish val))))++foreign import javascript unsafe "(($1) => { return $1[\"activeDuration\"]; })"+        js_getActiveDuration :: ComputedEffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>+getActiveDuration :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)+getActiveDuration self = liftDOM (((js_getActiveDuration (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>+getActiveDurationUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish+getActiveDurationUnsafe self = liftDOM ((((js_getActiveDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>+getActiveDurationUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish+getActiveDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getActiveDuration (self))))++foreign import javascript safe "(($1, $2) => { $1[\"localTime\"] = $2; })"+        js_setLocalTime :: ComputedEffectTiming -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>+setLocalTime :: (MonadDOM m, IsCSSNumberish val) => ComputedEffectTiming -> Maybe val -> m ()+setLocalTime self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setLocalTime (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"localTime\"]; })"+        js_getLocalTime :: ComputedEffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>+getLocalTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)+getLocalTime self = liftDOM (((js_getLocalTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>+getLocalTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish+getLocalTimeUnsafe self = liftDOM ((((js_getLocalTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>+getLocalTimeUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish+getLocalTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getLocalTime (self))))
+ src/GHCJS/DOM/JSFFI/Generated/Console.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from console (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.Console+       (js_assert, js_clear, js_count, js_countReset, js_debug, js_dir, js_dirxml, js_error, js_group, js_groupCollapsed, js_groupEnd, js_info, js_log, js_table, js_time, js_timeEnd, js_timeLog, js_trace, js_warn, assert, clear, count, countReset, debug, dir, dirxml, error, group, groupCollapsed, groupEnd, info, log, table, time, timeEnd, timeLog, trace, warn)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return globalThis[\"console\"][\"assert\"]($1, ...$2); })"+        js_assert :: JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/assert_static MDN console.assert documentation>+assert :: (MonadDOM m) => Maybe Bool -> [JSVal] -> m ()+assert condition data' = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal condition) >>= \a1' -> (toJSVal data') >>= \a2' -> js_assert a1' a2')))++foreign import javascript safe "(() => { return globalThis[\"console\"][\"clear\"](); })"+        js_clear :: IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/clear_static MDN console.clear documentation>+clear :: (MonadDOM m) => m ()+clear = liftDOM (void ((js_clear)))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"count\"]($1); })"+        js_count :: (Optional JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/count_static MDN console.count documentation>+count :: (MonadDOM m, ToJSString label) => Maybe label -> m ()+count label = liftDOM (void ((js_count (toOptionalJSString label))))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"countReset\"]($1); })"+        js_countReset :: (Optional JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/countReset_static MDN console.countReset documentation>+countReset :: (MonadDOM m, ToJSString label) => Maybe label -> m ()+countReset label = liftDOM (void ((js_countReset (toOptionalJSString label))))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"debug\"](...$1); })"+        js_debug :: JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/debug_static MDN console.debug documentation>+debug :: (MonadDOM m) => [JSVal] -> m ()+debug data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_debug a1')))++foreign import javascript safe "(($1, $2) => { return globalThis[\"console\"][\"dir\"]($1, $2); })"+        js_dir :: JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/dir_static MDN console.dir documentation>+dir :: (MonadDOM m) => JSVal -> Maybe GObject -> m ()+dir item options = liftDOM (void (((toJSVal options) >>= \a2' -> js_dir (item) a2')))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"dirxml\"](...$1); })"+        js_dirxml :: JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/dirxml_static MDN console.dirxml documentation>+dirxml :: (MonadDOM m) => [JSVal] -> m ()+dirxml data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_dirxml a1')))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"error\"](...$1); })"+        js_error :: JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/error_static MDN console.error documentation>+error :: (MonadDOM m) => [JSVal] -> m ()+error data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_error a1')))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"group\"](...$1); })"+        js_group :: JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/group_static MDN console.group documentation>+group :: (MonadDOM m) => [JSVal] -> m ()+group data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_group a1')))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"groupCollapsed\"](...$1); })"+        js_groupCollapsed :: JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/groupCollapsed_static MDN console.groupCollapsed documentation>+groupCollapsed :: (MonadDOM m) => [JSVal] -> m ()+groupCollapsed data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_groupCollapsed a1')))++foreign import javascript safe "(() => { return globalThis[\"console\"][\"groupEnd\"](); })"+        js_groupEnd :: IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/groupEnd_static MDN console.groupEnd documentation>+groupEnd :: (MonadDOM m) => m ()+groupEnd = liftDOM (void ((js_groupEnd)))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"info\"](...$1); })"+        js_info :: JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/info_static MDN console.info documentation>+info :: (MonadDOM m) => [JSVal] -> m ()+info data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_info a1')))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"log\"](...$1); })"+        js_log :: JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/log_static MDN console.log documentation>+log :: (MonadDOM m) => [JSVal] -> m ()+log data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_log a1')))++foreign import javascript safe "(($1, $2) => { return globalThis[\"console\"][\"table\"]($1, $2); })"+        js_table :: JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/table_static MDN console.table documentation>+table :: (MonadDOM m, ToJSString properties) => JSVal -> Maybe [properties] -> m ()+table tabularData properties = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal properties) >>= \a2' -> js_table (tabularData) a2')))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"time\"]($1); })"+        js_time :: (Optional JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/time_static MDN console.time documentation>+time :: (MonadDOM m, ToJSString label) => Maybe label -> m ()+time label = liftDOM (void ((js_time (toOptionalJSString label))))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"timeEnd\"]($1); })"+        js_timeEnd :: (Optional JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/timeEnd_static MDN console.timeEnd documentation>+timeEnd :: (MonadDOM m, ToJSString label) => Maybe label -> m ()+timeEnd label = liftDOM (void ((js_timeEnd (toOptionalJSString label))))++foreign import javascript safe "(($1, $2) => { return globalThis[\"console\"][\"timeLog\"]($1, ...$2); })"+        js_timeLog :: (Optional JSString) -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/timeLog_static MDN console.timeLog documentation>+timeLog :: (MonadDOM m, ToJSString label) => Maybe label -> [JSVal] -> m ()+timeLog label data' = liftDOM (void (((toJSVal data') >>= \a2' -> js_timeLog (toOptionalJSString label) a2')))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"trace\"](...$1); })"+        js_trace :: JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/trace_static MDN console.trace documentation>+trace :: (MonadDOM m) => [JSVal] -> m ()+trace data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_trace a1')))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"warn\"](...$1); })"+        js_warn :: JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/warn_static MDN console.warn documentation>+warn :: (MonadDOM m) => [JSVal] -> m ()+warn data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_warn a1')))
+ src/GHCJS/DOM/JSFFI/Generated/ConstantSourceNode.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ConstantSourceNode+       (js_newConstantSourceNode, js_getOffset, newConstantSourceNode, getOffset, ConstantSourceNode(..), gTypeConstantSourceNode)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"ConstantSourceNode\"]($1, $2); })"+        js_newConstantSourceNode :: BaseAudioContext -> JSVal -> IO ConstantSourceNode+-- | <https://developer.mozilla.org/docs/Web/API/ConstantSourceNode/ConstantSourceNode MDN ConstantSourceNode. documentation>+newConstantSourceNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe ConstantSourceOptions -> m ConstantSourceNode+newConstantSourceNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newConstantSourceNode (Types.toBaseAudioContext context) a2'))++foreign import javascript unsafe "(($1) => { return $1[\"offset\"]; })"+        js_getOffset :: ConstantSourceNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/ConstantSourceNode/offset MDN ConstantSourceNode.offset documentation>+getOffset :: (MonadDOM m) => ConstantSourceNode -> m AudioParam+getOffset self = liftDOM ((js_getOffset (self)))
+ src/GHCJS/DOM/JSFFI/Generated/ConstantSourceOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ConstantSourceOptions+       (js_newConstantSourceOptions, js_setOffset, js_getOffset, newConstantSourceOptions, setOffset, getOffset, getOffsetUnsafe, getOffsetUnchecked, ConstantSourceOptions(..), gTypeConstantSourceOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newConstantSourceOptions :: IO ConstantSourceOptions+-- | <https://webaudio.github.io/web-audio-api/#ConstantSourceOptions ConstantSourceOptions specification>+newConstantSourceOptions :: (MonadDOM m) => m ConstantSourceOptions+newConstantSourceOptions = liftDOM ((js_newConstantSourceOptions))++foreign import javascript safe "(($1, $2) => { $1[\"offset\"] = $2; })"+        js_setOffset :: ConstantSourceOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-constantsourceoptions-offset ConstantSourceOptions.offset specification>+setOffset :: (MonadDOM m) => ConstantSourceOptions -> Float -> m ()+setOffset self val = liftDOM (void ((js_setOffset (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"offset\"]; })"+        js_getOffset :: ConstantSourceOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-constantsourceoptions-offset ConstantSourceOptions.offset specification>+getOffset :: (MonadDOM m) => ConstantSourceOptions -> m (Maybe Float)+getOffset self = liftDOM (((js_getOffset (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-constantsourceoptions-offset ConstantSourceOptions.offset specification>+getOffsetUnsafe :: (MonadDOM m, HasCallStack) => ConstantSourceOptions -> m Float+getOffsetUnsafe self = liftDOM ((((js_getOffset (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-constantsourceoptions-offset ConstantSourceOptions.offset specification>+getOffsetUnchecked :: (MonadDOM m) => ConstantSourceOptions -> m Float+getOffsetUnchecked self = liftDOM ((pFromJSVal <$> (js_getOffset (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ConstrainBooleanOrDOMStringParameters.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ConstrainBooleanOrDOMStringParameters+       (js_newConstrainBooleanOrDOMStringParameters, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainBooleanOrDOMStringParameters, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainBooleanOrDOMStringParameters(..), gTypeConstrainBooleanOrDOMStringParameters)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newConstrainBooleanOrDOMStringParameters :: IO ConstrainBooleanOrDOMStringParameters+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters ConstrainBooleanOrDOMStringParameters specification>+newConstrainBooleanOrDOMStringParameters :: (MonadDOM m) => m ConstrainBooleanOrDOMStringParameters+newConstrainBooleanOrDOMStringParameters = liftDOM ((js_newConstrainBooleanOrDOMStringParameters))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+        js_setExact :: ConstrainBooleanOrDOMStringParameters -> BoolOrString -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-exact ConstrainBooleanOrDOMStringParameters.exact specification>+setExact :: (MonadDOM m, IsBoolOrString val) => ConstrainBooleanOrDOMStringParameters -> val -> m ()+setExact self val = liftDOM (void ((js_setExact (self) (Types.toBoolOrString val))))++foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })"+        js_getExact :: ConstrainBooleanOrDOMStringParameters -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-exact ConstrainBooleanOrDOMStringParameters.exact specification>+getExact :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m (Maybe BoolOrString)+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-exact ConstrainBooleanOrDOMStringParameters.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-exact ConstrainBooleanOrDOMStringParameters.exact specification>+getExactUnchecked :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString+getExactUnchecked self = liftDOM ((pFromJSVal <$> (js_getExact (self))))++foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })"+        js_setIdeal :: ConstrainBooleanOrDOMStringParameters -> BoolOrString -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-ideal ConstrainBooleanOrDOMStringParameters.ideal specification>+setIdeal :: (MonadDOM m, IsBoolOrString val) => ConstrainBooleanOrDOMStringParameters -> val -> m ()+setIdeal self val = liftDOM (void ((js_setIdeal (self) (Types.toBoolOrString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })"+        js_getIdeal :: ConstrainBooleanOrDOMStringParameters -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-ideal ConstrainBooleanOrDOMStringParameters.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m (Maybe BoolOrString)+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-ideal ConstrainBooleanOrDOMStringParameters.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-ideal ConstrainBooleanOrDOMStringParameters.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString+getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ConstrainBooleanParameters.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ConstrainBooleanParameters+       (js_newConstrainBooleanParameters, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainBooleanParameters, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainBooleanParameters(..), gTypeConstrainBooleanParameters)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newConstrainBooleanParameters :: IO ConstrainBooleanParameters+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters ConstrainBooleanParameters specification>+newConstrainBooleanParameters :: (MonadDOM m) => m ConstrainBooleanParameters+newConstrainBooleanParameters = liftDOM ((js_newConstrainBooleanParameters))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+        js_setExact :: ConstrainBooleanParameters -> Bool -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-exact ConstrainBooleanParameters.exact specification>+setExact :: (MonadDOM m) => ConstrainBooleanParameters -> Bool -> m ()+setExact self val = liftDOM (void ((js_setExact (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })"+        js_getExact :: ConstrainBooleanParameters -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-exact ConstrainBooleanParameters.exact specification>+getExact :: (MonadDOM m) => ConstrainBooleanParameters -> m (Maybe Bool)+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-exact ConstrainBooleanParameters.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanParameters -> m Bool+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-exact ConstrainBooleanParameters.exact specification>+getExactUnchecked :: (MonadDOM m) => ConstrainBooleanParameters -> m Bool+getExactUnchecked self = liftDOM ((pFromJSVal <$> (js_getExact (self))))++foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })"+        js_setIdeal :: ConstrainBooleanParameters -> Bool -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-ideal ConstrainBooleanParameters.ideal specification>+setIdeal :: (MonadDOM m) => ConstrainBooleanParameters -> Bool -> m ()+setIdeal self val = liftDOM (void ((js_setIdeal (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })"+        js_getIdeal :: ConstrainBooleanParameters -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-ideal ConstrainBooleanParameters.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainBooleanParameters -> m (Maybe Bool)+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-ideal ConstrainBooleanParameters.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanParameters -> m Bool+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-ideal ConstrainBooleanParameters.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainBooleanParameters -> m Bool+getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ConstrainDOMStringParameters.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ConstrainDOMStringParameters+       (js_newConstrainDOMStringParameters, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainDOMStringParameters, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainDOMStringParameters(..), gTypeConstrainDOMStringParameters)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newConstrainDOMStringParameters :: IO ConstrainDOMStringParameters+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters ConstrainDOMStringParameters specification>+newConstrainDOMStringParameters :: (MonadDOM m) => m ConstrainDOMStringParameters+newConstrainDOMStringParameters = liftDOM ((js_newConstrainDOMStringParameters))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+        js_setExact :: ConstrainDOMStringParameters -> StringOrSequenceString -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-exact ConstrainDOMStringParameters.exact specification>+setExact :: (MonadDOM m, IsStringOrSequenceString val) => ConstrainDOMStringParameters -> val -> m ()+setExact self val = liftDOM (void ((js_setExact (self) (Types.toStringOrSequenceString val))))++foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })"+        js_getExact :: ConstrainDOMStringParameters -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-exact ConstrainDOMStringParameters.exact specification>+getExact :: (MonadDOM m) => ConstrainDOMStringParameters -> m (Maybe StringOrSequenceString)+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-exact ConstrainDOMStringParameters.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDOMStringParameters -> m StringOrSequenceString+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-exact ConstrainDOMStringParameters.exact specification>+getExactUnchecked :: (MonadDOM m) => ConstrainDOMStringParameters -> m StringOrSequenceString+getExactUnchecked self = liftDOM ((pFromJSVal <$> (js_getExact (self))))++foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })"+        js_setIdeal :: ConstrainDOMStringParameters -> StringOrSequenceString -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-ideal ConstrainDOMStringParameters.ideal specification>+setIdeal :: (MonadDOM m, IsStringOrSequenceString val) => ConstrainDOMStringParameters -> val -> m ()+setIdeal self val = liftDOM (void ((js_setIdeal (self) (Types.toStringOrSequenceString val))))++foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })"+        js_getIdeal :: ConstrainDOMStringParameters -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-ideal ConstrainDOMStringParameters.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainDOMStringParameters -> m (Maybe StringOrSequenceString)+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-ideal ConstrainDOMStringParameters.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDOMStringParameters -> m StringOrSequenceString+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-ideal ConstrainDOMStringParameters.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainDOMStringParameters -> m StringOrSequenceString+getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ConstrainDoubleRange.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ConstrainDoubleRange+       (js_newConstrainDoubleRange, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainDoubleRange, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainDoubleRange(..), gTypeConstrainDoubleRange)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newConstrainDoubleRange :: IO ConstrainDoubleRange+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange ConstrainDoubleRange specification>+newConstrainDoubleRange :: (MonadDOM m) => m ConstrainDoubleRange+newConstrainDoubleRange = liftDOM ((js_newConstrainDoubleRange))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+        js_setExact :: ConstrainDoubleRange -> Double -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-exact ConstrainDoubleRange.exact specification>+setExact :: (MonadDOM m) => ConstrainDoubleRange -> Double -> m ()+setExact self val = liftDOM (void ((js_setExact (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })"+        js_getExact :: ConstrainDoubleRange -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-exact ConstrainDoubleRange.exact specification>+getExact :: (MonadDOM m) => ConstrainDoubleRange -> m (Maybe Double)+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-exact ConstrainDoubleRange.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDoubleRange -> m Double+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-exact ConstrainDoubleRange.exact specification>+getExactUnchecked :: (MonadDOM m) => ConstrainDoubleRange -> m Double+getExactUnchecked self = liftDOM ((pFromJSVal <$> (js_getExact (self))))++foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })"+        js_setIdeal :: ConstrainDoubleRange -> Double -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-ideal ConstrainDoubleRange.ideal specification>+setIdeal :: (MonadDOM m) => ConstrainDoubleRange -> Double -> m ()+setIdeal self val = liftDOM (void ((js_setIdeal (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })"+        js_getIdeal :: ConstrainDoubleRange -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-ideal ConstrainDoubleRange.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainDoubleRange -> m (Maybe Double)+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-ideal ConstrainDoubleRange.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDoubleRange -> m Double+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-ideal ConstrainDoubleRange.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainDoubleRange -> m Double+getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ConstrainPoint2DParameters.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from image-capture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ConstrainPoint2DParameters+       (js_newConstrainPoint2DParameters, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainPoint2DParameters, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainPoint2DParameters(..), gTypeConstrainPoint2DParameters)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newConstrainPoint2DParameters :: IO ConstrainPoint2DParameters+-- | <https://w3c.github.io/mediacapture-image/#dictdef-constrainpoint2dparameters ConstrainPoint2DParameters specification>+newConstrainPoint2DParameters :: (MonadDOM m) => m ConstrainPoint2DParameters+newConstrainPoint2DParameters = liftDOM ((js_newConstrainPoint2DParameters))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+        js_setExact :: ConstrainPoint2DParameters -> JSVal -> IO ()+-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>+setExact :: (MonadDOM m) => ConstrainPoint2DParameters -> [Point2D] -> m ()+setExact self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setExact (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })"+        js_getExact :: ConstrainPoint2DParameters -> IO JSVal+-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>+getExact :: (MonadDOM m) => ConstrainPoint2DParameters -> m (Maybe [Point2D])+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainPoint2DParameters -> m [Point2D]+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>+getExactUnchecked :: (MonadDOM m) => ConstrainPoint2DParameters -> m [Point2D]+getExactUnchecked self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })"+        js_setIdeal :: ConstrainPoint2DParameters -> JSVal -> IO ()+-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>+setIdeal :: (MonadDOM m) => ConstrainPoint2DParameters -> [Point2D] -> m ()+setIdeal self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setIdeal (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })"+        js_getIdeal :: ConstrainPoint2DParameters -> IO JSVal+-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainPoint2DParameters -> m (Maybe [Point2D])+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainPoint2DParameters -> m [Point2D]+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainPoint2DParameters -> m [Point2D]+getIdealUnchecked self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/ConstrainULongRange.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ConstrainULongRange+       (js_newConstrainULongRange, js_setExact, js_getExact, js_setIdeal, js_getIdeal, newConstrainULongRange, setExact, getExact, getExactUnsafe, getExactUnchecked, setIdeal, getIdeal, getIdealUnsafe, getIdealUnchecked, ConstrainULongRange(..), gTypeConstrainULongRange)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newConstrainULongRange :: IO ConstrainULongRange+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange ConstrainULongRange specification>+newConstrainULongRange :: (MonadDOM m) => m ConstrainULongRange+newConstrainULongRange = liftDOM ((js_newConstrainULongRange))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+        js_setExact :: ConstrainULongRange -> Word -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-exact ConstrainULongRange.exact specification>+setExact :: (MonadDOM m) => ConstrainULongRange -> Word -> m ()+setExact self val = liftDOM (void ((js_setExact (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"exact\"]; })"+        js_getExact :: ConstrainULongRange -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-exact ConstrainULongRange.exact specification>+getExact :: (MonadDOM m) => ConstrainULongRange -> m (Maybe Word)+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-exact ConstrainULongRange.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainULongRange -> m Word+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-exact ConstrainULongRange.exact specification>+getExactUnchecked :: (MonadDOM m) => ConstrainULongRange -> m Word+getExactUnchecked self = liftDOM ((pFromJSVal <$> (js_getExact (self))))++foreign import javascript safe "(($1, $2) => { $1[\"ideal\"] = $2; })"+        js_setIdeal :: ConstrainULongRange -> Word -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-ideal ConstrainULongRange.ideal specification>+setIdeal :: (MonadDOM m) => ConstrainULongRange -> Word -> m ()+setIdeal self val = liftDOM (void ((js_setIdeal (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"ideal\"]; })"+        js_getIdeal :: ConstrainULongRange -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-ideal ConstrainULongRange.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainULongRange -> m (Maybe Word)+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-ideal ConstrainULongRange.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainULongRange -> m Word+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-ideal ConstrainULongRange.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainULongRange -> m Word+getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ContactAddress.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from contact-picker (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ContactAddress+       (ContactAddress(..), gTypeContactAddress)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
+ src/GHCJS/DOM/JSFFI/Generated/ContentVisibilityAutoStateChangeEvent.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-contain-2 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEvent+       (js_newContentVisibilityAutoStateChangeEvent, js_getSkipped, newContentVisibilityAutoStateChangeEvent, getSkipped, ContentVisibilityAutoStateChangeEvent(..), gTypeContentVisibilityAutoStateChangeEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"ContentVisibilityAutoStateChangeEvent\"]($1, $2); })"+        js_newContentVisibilityAutoStateChangeEvent :: JSString -> JSVal -> IO ContentVisibilityAutoStateChangeEvent+-- | <https://developer.mozilla.org/docs/Web/API/ContentVisibilityAutoStateChangeEvent/ContentVisibilityAutoStateChangeEvent MDN ContentVisibilityAutoStateChangeEvent. documentation>+newContentVisibilityAutoStateChangeEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe ContentVisibilityAutoStateChangeEventInit -> m ContentVisibilityAutoStateChangeEvent+newContentVisibilityAutoStateChangeEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newContentVisibilityAutoStateChangeEvent (toJSString type') a2'))++foreign import javascript unsafe "(($1) => { return $1[\"skipped\"]; })"+        js_getSkipped :: ContentVisibilityAutoStateChangeEvent -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/ContentVisibilityAutoStateChangeEvent/skipped MDN ContentVisibilityAutoStateChangeEvent.skipped documentation>+getSkipped :: (MonadDOM m) => ContentVisibilityAutoStateChangeEvent -> m Bool+getSkipped self = liftDOM ((js_getSkipped (self)))
+ src/GHCJS/DOM/JSFFI/Generated/ContentVisibilityAutoStateChangeEventInit.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from css-contain-2 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ContentVisibilityAutoStateChangeEventInit+       (js_newContentVisibilityAutoStateChangeEventInit, js_setSkipped, js_getSkipped, newContentVisibilityAutoStateChangeEventInit, setSkipped, getSkipped, getSkippedUnsafe, getSkippedUnchecked, ContentVisibilityAutoStateChangeEventInit(..), gTypeContentVisibilityAutoStateChangeEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newContentVisibilityAutoStateChangeEventInit :: IO ContentVisibilityAutoStateChangeEventInit+-- | <https://drafts.csswg.org/css-contain-2/#dictdef-contentvisibilityautostatechangeeventinit ContentVisibilityAutoStateChangeEventInit specification>+newContentVisibilityAutoStateChangeEventInit :: (MonadDOM m) => m ContentVisibilityAutoStateChangeEventInit+newContentVisibilityAutoStateChangeEventInit = liftDOM ((js_newContentVisibilityAutoStateChangeEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"skipped\"] = $2; })"+        js_setSkipped :: ContentVisibilityAutoStateChangeEventInit -> Bool -> IO ()+-- | <https://drafts.csswg.org/css-contain-2/#dom-contentvisibilityautostatechangeeventinit-skipped ContentVisibilityAutoStateChangeEventInit.skipped specification>+setSkipped :: (MonadDOM m) => ContentVisibilityAutoStateChangeEventInit -> Bool -> m ()+setSkipped self val = liftDOM (void ((js_setSkipped (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"skipped\"]; })"+        js_getSkipped :: ContentVisibilityAutoStateChangeEventInit -> IO JSVal+-- | <https://drafts.csswg.org/css-contain-2/#dom-contentvisibilityautostatechangeeventinit-skipped ContentVisibilityAutoStateChangeEventInit.skipped specification>+getSkipped :: (MonadDOM m) => ContentVisibilityAutoStateChangeEventInit -> m (Maybe Bool)+getSkipped self = liftDOM (((js_getSkipped (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/css-contain-2/#dom-contentvisibilityautostatechangeeventinit-skipped ContentVisibilityAutoStateChangeEventInit.skipped specification>+getSkippedUnsafe :: (MonadDOM m, HasCallStack) => ContentVisibilityAutoStateChangeEventInit -> m Bool+getSkippedUnsafe self = liftDOM ((((js_getSkipped (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/css-contain-2/#dom-contentvisibilityautostatechangeeventinit-skipped ContentVisibilityAutoStateChangeEventInit.skipped specification>+getSkippedUnchecked :: (MonadDOM m) => ContentVisibilityAutoStateChangeEventInit -> m Bool+getSkippedUnchecked self = liftDOM ((pFromJSVal <$> (js_getSkipped (self))))
src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs view
@@ -1,71 +1,55 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.ConvolverNode-       (js_setBuffer, setBuffer, js_getBuffer, getBuffer, getBufferUnsafe,-        getBufferUnchecked, js_setNormalize, setNormalize, js_getNormalize,-        getNormalize, ConvolverNode(..), gTypeConvolverNode)+       (js_newConvolverNode, js_setBuffer, js_getBuffer, js_setNormalize, js_getNormalize, newConvolverNode, setBuffer, getBuffer, getBufferUnsafe, getBufferUnchecked, setNormalize, getNormalize, ConvolverNode(..), gTypeConvolverNode)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })" js_setBuffer-        :: ConvolverNode -> Optional AudioBuffer -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> -setBuffer ::-          (MonadIO m) => ConvolverNode -> Maybe AudioBuffer -> m ()-setBuffer self val-  = liftIO (js_setBuffer self (maybeToOptional val))- -foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })" js_getBuffer ::-        ConvolverNode -> IO (Nullable AudioBuffer)+foreign import javascript safe "(($1, $2) => { return new globalThis[\"ConvolverNode\"]($1, $2); })"+        js_newConvolverNode :: BaseAudioContext -> JSVal -> IO ConvolverNode+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/ConvolverNode MDN ConvolverNode. documentation>+newConvolverNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe ConvolverOptions -> m ConvolverNode+newConvolverNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newConvolverNode (Types.toBaseAudioContext context) a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> -getBuffer :: (MonadIO m) => ConvolverNode -> m (Maybe AudioBuffer)-getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer self))+foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })"+        js_setBuffer :: ConvolverNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/buffer MDN ConvolverNode.buffer documentation>+setBuffer :: (MonadDOM m) => ConvolverNode -> Maybe AudioBuffer -> m ()+setBuffer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBuffer (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> -getBufferUnsafe ::-                (MonadIO m, HasCallStack) => ConvolverNode -> m AudioBuffer-getBufferUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBuffer self)) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })"+        js_getBuffer :: ConvolverNode -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/buffer MDN ConvolverNode.buffer documentation>+getBuffer :: (MonadDOM m) => ConvolverNode -> m (Maybe AudioBuffer)+getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> -getBufferUnchecked :: (MonadIO m) => ConvolverNode -> m AudioBuffer-getBufferUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBuffer self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"normalize\"] = $2; })"+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/buffer MDN ConvolverNode.buffer documentation>+getBufferUnsafe :: (MonadDOM m, HasCallStack) => ConvolverNode -> m AudioBuffer+getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/buffer MDN ConvolverNode.buffer documentation>+getBufferUnchecked :: (MonadDOM m) => ConvolverNode -> m AudioBuffer+getBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getBuffer (self))))++foreign import javascript safe "(($1, $2) => { $1[\"normalize\"] = $2; })"         js_setNormalize :: ConvolverNode -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/normalize MDN ConvolverNode.normalize documentation>+setNormalize :: (MonadDOM m) => ConvolverNode -> Bool -> m ()+setNormalize self val = liftDOM (void ((js_setNormalize (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> -setNormalize :: (MonadIO m) => ConvolverNode -> Bool -> m ()-setNormalize self val = liftIO (js_setNormalize self val)- -foreign import javascript unsafe "(($1) => { return ($1[\"normalize\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"normalize\"]; })"         js_getNormalize :: ConvolverNode -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> -getNormalize :: (MonadIO m) => ConvolverNode -> m Bool-getNormalize self = liftIO (js_getNormalize self)+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/normalize MDN ConvolverNode.normalize documentation>+getNormalize :: (MonadDOM m) => ConvolverNode -> m Bool+getNormalize self = liftDOM ((js_getNormalize (self)))
+ src/GHCJS/DOM/JSFFI/Generated/ConvolverOptions.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ConvolverOptions+       (js_newConvolverOptions, js_setBuffer, js_getBuffer, js_setDisableNormalization, js_getDisableNormalization, newConvolverOptions, setBuffer, getBuffer, getBufferUnsafe, getBufferUnchecked, setDisableNormalization, getDisableNormalization, getDisableNormalizationUnsafe, getDisableNormalizationUnchecked, ConvolverOptions(..), gTypeConvolverOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newConvolverOptions :: IO ConvolverOptions+-- | <https://webaudio.github.io/web-audio-api/#ConvolverOptions ConvolverOptions specification>+newConvolverOptions :: (MonadDOM m) => m ConvolverOptions+newConvolverOptions = liftDOM ((js_newConvolverOptions))++foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })"+        js_setBuffer :: ConvolverOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-buffer ConvolverOptions.buffer specification>+setBuffer :: (MonadDOM m) => ConvolverOptions -> Maybe AudioBuffer -> m ()+setBuffer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBuffer (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })"+        js_getBuffer :: ConvolverOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-buffer ConvolverOptions.buffer specification>+getBuffer :: (MonadDOM m) => ConvolverOptions -> m (Maybe AudioBuffer)+getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-buffer ConvolverOptions.buffer specification>+getBufferUnsafe :: (MonadDOM m, HasCallStack) => ConvolverOptions -> m AudioBuffer+getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-buffer ConvolverOptions.buffer specification>+getBufferUnchecked :: (MonadDOM m) => ConvolverOptions -> m AudioBuffer+getBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getBuffer (self))))++foreign import javascript safe "(($1, $2) => { $1[\"disableNormalization\"] = $2; })"+        js_setDisableNormalization :: ConvolverOptions -> Bool -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-disablenormalization ConvolverOptions.disableNormalization specification>+setDisableNormalization :: (MonadDOM m) => ConvolverOptions -> Bool -> m ()+setDisableNormalization self val = liftDOM (void ((js_setDisableNormalization (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"disableNormalization\"]; })"+        js_getDisableNormalization :: ConvolverOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-disablenormalization ConvolverOptions.disableNormalization specification>+getDisableNormalization :: (MonadDOM m) => ConvolverOptions -> m (Maybe Bool)+getDisableNormalization self = liftDOM (((js_getDisableNormalization (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-disablenormalization ConvolverOptions.disableNormalization specification>+getDisableNormalizationUnsafe :: (MonadDOM m, HasCallStack) => ConvolverOptions -> m Bool+getDisableNormalizationUnsafe self = liftDOM ((((js_getDisableNormalization (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-disablenormalization ConvolverOptions.disableNormalization specification>+getDisableNormalizationUnchecked :: (MonadDOM m) => ConvolverOptions -> m Bool+getDisableNormalizationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDisableNormalization (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CookieChangeEvent.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cookiestore (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CookieChangeEvent+       (js_newCookieChangeEvent, js_getChanged, js_getDeleted, newCookieChangeEvent, getChanged, getDeleted, CookieChangeEvent(..), gTypeCookieChangeEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"CookieChangeEvent\"]($1, $2); })"+        js_newCookieChangeEvent :: JSString -> JSVal -> IO CookieChangeEvent+-- | <https://developer.mozilla.org/docs/Web/API/CookieChangeEvent/CookieChangeEvent MDN CookieChangeEvent. documentation>+newCookieChangeEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe CookieChangeEventInit -> m CookieChangeEvent+newCookieChangeEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newCookieChangeEvent (toJSString type') a2'))++foreign import javascript unsafe "(($1) => { return $1[\"changed\"]; })"+        js_getChanged :: CookieChangeEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CookieChangeEvent/changed MDN CookieChangeEvent.changed documentation>+getChanged :: (MonadDOM m) => CookieChangeEvent -> m [CookieListItem]+getChanged self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"deleted\"]; })"+        js_getDeleted :: CookieChangeEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CookieChangeEvent/deleted MDN CookieChangeEvent.deleted documentation>+getDeleted :: (MonadDOM m) => CookieChangeEvent -> m [CookieListItem]+getDeleted self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/CookieChangeEventInit.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cookiestore (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CookieChangeEventInit+       (js_newCookieChangeEventInit, js_setChanged, js_getChanged, js_setDeleted, js_getDeleted, newCookieChangeEventInit, setChanged, getChanged, getChangedUnsafe, getChangedUnchecked, setDeleted, getDeleted, getDeletedUnsafe, getDeletedUnchecked, CookieChangeEventInit(..), gTypeCookieChangeEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCookieChangeEventInit :: IO CookieChangeEventInit+-- | <https://cookiestore.spec.whatwg.org/#dictdef-cookiechangeeventinit CookieChangeEventInit specification>+newCookieChangeEventInit :: (MonadDOM m) => m CookieChangeEventInit+newCookieChangeEventInit = liftDOM ((js_newCookieChangeEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"changed\"] = $2; })"+        js_setChanged :: CookieChangeEventInit -> JSVal -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-changed CookieChangeEventInit.changed specification>+setChanged :: (MonadDOM m) => CookieChangeEventInit -> [CookieListItem] -> m ()+setChanged self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChanged (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"changed\"]; })"+        js_getChanged :: CookieChangeEventInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-changed CookieChangeEventInit.changed specification>+getChanged :: (MonadDOM m) => CookieChangeEventInit -> m (Maybe [CookieListItem])+getChanged self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-changed CookieChangeEventInit.changed specification>+getChangedUnsafe :: (MonadDOM m, HasCallStack) => CookieChangeEventInit -> m [CookieListItem]+getChangedUnsafe self = liftDOM ((((js_getChanged (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-changed CookieChangeEventInit.changed specification>+getChangedUnchecked :: (MonadDOM m) => CookieChangeEventInit -> m [CookieListItem]+getChangedUnchecked self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"deleted\"] = $2; })"+        js_setDeleted :: CookieChangeEventInit -> JSVal -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-deleted CookieChangeEventInit.deleted specification>+setDeleted :: (MonadDOM m) => CookieChangeEventInit -> [CookieListItem] -> m ()+setDeleted self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDeleted (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"deleted\"]; })"+        js_getDeleted :: CookieChangeEventInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-deleted CookieChangeEventInit.deleted specification>+getDeleted :: (MonadDOM m) => CookieChangeEventInit -> m (Maybe [CookieListItem])+getDeleted self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-deleted CookieChangeEventInit.deleted specification>+getDeletedUnsafe :: (MonadDOM m, HasCallStack) => CookieChangeEventInit -> m [CookieListItem]+getDeletedUnsafe self = liftDOM ((((js_getDeleted (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-deleted CookieChangeEventInit.deleted specification>+getDeletedUnchecked :: (MonadDOM m) => CookieChangeEventInit -> m [CookieListItem]+getDeletedUnchecked self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/CookieInit.hs view
@@ -0,0 +1,167 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cookiestore (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CookieInit+       (js_newCookieInit, js_setName, js_getName, js_setValue, js_getValue, js_setExpires, js_getExpires, js_setDomain, js_getDomain, js_setPath, js_getPath, js_setSameSite, js_getSameSite, js_setPartitioned, js_getPartitioned, js_setMaxAge, js_getMaxAge, newCookieInit, setName, getName, setValue, getValue, setExpires, getExpires, getExpiresUnsafe, getExpiresUnchecked, setDomain, getDomain, getDomainUnsafe, getDomainUnchecked, setPath, getPath, getPathUnsafe, getPathUnchecked, setSameSite, getSameSite, getSameSiteUnsafe, getSameSiteUnchecked, setPartitioned, getPartitioned, getPartitionedUnsafe, getPartitionedUnchecked, setMaxAge, getMaxAge, getMaxAgeUnsafe, getMaxAgeUnchecked, CookieInit(..), gTypeCookieInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return ({\"name\": $1, \"value\": $2}); })"+        js_newCookieInit :: JSString -> JSString -> IO CookieInit+-- | <https://cookiestore.spec.whatwg.org/#dictdef-cookieinit CookieInit specification>+newCookieInit :: (MonadDOM m, ToJSString name, ToJSString value) => name -> value -> m CookieInit+newCookieInit name value = liftDOM ((js_newCookieInit (toJSString name) (toJSString value)))++foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+        js_setName :: CookieInit -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-name CookieInit.name specification>+setName :: (MonadDOM m, ToJSString val) => CookieInit -> val -> m ()+setName self val = liftDOM (void ((js_setName (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CookieInit -> IO JSString+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-name CookieInit.name specification>+getName :: (MonadDOM m, FromJSString result) => CookieInit -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })"+        js_setValue :: CookieInit -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-value CookieInit.value specification>+setValue :: (MonadDOM m, ToJSString val) => CookieInit -> val -> m ()+setValue self val = liftDOM (void ((js_setValue (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: CookieInit -> IO JSString+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-value CookieInit.value specification>+getValue :: (MonadDOM m, FromJSString result) => CookieInit -> m result+getValue self = liftDOM ((fromJSString <$> (js_getValue (self))))++foreign import javascript safe "(($1, $2) => { $1[\"expires\"] = $2; })"+        js_setExpires :: CookieInit -> JSVal -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-expires CookieInit.expires specification>+setExpires :: (MonadDOM m) => CookieInit -> Maybe Double -> m ()+setExpires self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setExpires (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"expires\"]; })"+        js_getExpires :: CookieInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-expires CookieInit.expires specification>+getExpires :: (MonadDOM m) => CookieInit -> m (Maybe Double)+getExpires self = liftDOM (((js_getExpires (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-expires CookieInit.expires specification>+getExpiresUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m Double+getExpiresUnsafe self = liftDOM ((((js_getExpires (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-expires CookieInit.expires specification>+getExpiresUnchecked :: (MonadDOM m) => CookieInit -> m Double+getExpiresUnchecked self = liftDOM ((pFromJSVal <$> (js_getExpires (self))))++foreign import javascript safe "(($1, $2) => { $1[\"domain\"] = $2; })"+        js_setDomain :: CookieInit -> (Nullable JSString) -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-domain CookieInit.domain specification>+setDomain :: (MonadDOM m, ToJSString val) => CookieInit -> Maybe val -> m ()+setDomain self val = liftDOM (void ((js_setDomain (self) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"domain\"]; })"+        js_getDomain :: CookieInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-domain CookieInit.domain specification>+getDomain :: (MonadDOM m, FromJSString result) => CookieInit -> m (Maybe result)+getDomain self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getDomain (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-domain CookieInit.domain specification>+getDomainUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieInit -> m result+getDomainUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getDomain (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-domain CookieInit.domain specification>+getDomainUnchecked :: (MonadDOM m, FromJSString result) => CookieInit -> m result+getDomainUnchecked self = liftDOM ((pFromJSVal <$> (js_getDomain (self))))++foreign import javascript safe "(($1, $2) => { $1[\"path\"] = $2; })"+        js_setPath :: CookieInit -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-path CookieInit.path specification>+setPath :: (MonadDOM m, ToJSString val) => CookieInit -> val -> m ()+setPath self val = liftDOM (void ((js_setPath (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"path\"]; })"+        js_getPath :: CookieInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-path CookieInit.path specification>+getPath :: (MonadDOM m, FromJSString result) => CookieInit -> m (Maybe result)+getPath self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPath (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-path CookieInit.path specification>+getPathUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieInit -> m result+getPathUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPath (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-path CookieInit.path specification>+getPathUnchecked :: (MonadDOM m, FromJSString result) => CookieInit -> m result+getPathUnchecked self = liftDOM ((pFromJSVal <$> (js_getPath (self))))++foreign import javascript safe "(($1, $2) => { $1[\"sameSite\"] = $2; })"+        js_setSameSite :: CookieInit -> JSVal -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-samesite CookieInit.sameSite specification>+setSameSite :: (MonadDOM m) => CookieInit -> CookieSameSite -> m ()+setSameSite self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSameSite (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"sameSite\"]; })"+        js_getSameSite :: CookieInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-samesite CookieInit.sameSite specification>+getSameSite :: (MonadDOM m) => CookieInit -> m (Maybe CookieSameSite)+getSameSite self = liftDOM (((js_getSameSite (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-samesite CookieInit.sameSite specification>+getSameSiteUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m CookieSameSite+getSameSiteUnsafe self = liftDOM ((((js_getSameSite (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-samesite CookieInit.sameSite specification>+getSameSiteUnchecked :: (MonadDOM m) => CookieInit -> m CookieSameSite+getSameSiteUnchecked self = liftDOM ((pFromJSVal <$> (js_getSameSite (self))))++foreign import javascript safe "(($1, $2) => { $1[\"partitioned\"] = $2; })"+        js_setPartitioned :: CookieInit -> Bool -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-partitioned CookieInit.partitioned specification>+setPartitioned :: (MonadDOM m) => CookieInit -> Bool -> m ()+setPartitioned self val = liftDOM (void ((js_setPartitioned (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"partitioned\"]; })"+        js_getPartitioned :: CookieInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-partitioned CookieInit.partitioned specification>+getPartitioned :: (MonadDOM m) => CookieInit -> m (Maybe Bool)+getPartitioned self = liftDOM (((js_getPartitioned (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-partitioned CookieInit.partitioned specification>+getPartitionedUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m Bool+getPartitionedUnsafe self = liftDOM ((((js_getPartitioned (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-partitioned CookieInit.partitioned specification>+getPartitionedUnchecked :: (MonadDOM m) => CookieInit -> m Bool+getPartitionedUnchecked self = liftDOM ((pFromJSVal <$> (js_getPartitioned (self))))++foreign import javascript safe "(($1, $2) => { $1[\"maxAge\"] = $2; })"+        js_setMaxAge :: CookieInit -> JSVal -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-maxage CookieInit.maxAge specification>+setMaxAge :: (MonadDOM m) => CookieInit -> Maybe Int53 -> m ()+setMaxAge self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setMaxAge (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"maxAge\"]; })"+        js_getMaxAge :: CookieInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-maxage CookieInit.maxAge specification>+getMaxAge :: (MonadDOM m) => CookieInit -> m (Maybe Int53)+getMaxAge self = liftDOM (((js_getMaxAge (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-maxage CookieInit.maxAge specification>+getMaxAgeUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m Int53+getMaxAgeUnsafe self = liftDOM ((((js_getMaxAge (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-maxage CookieInit.maxAge specification>+getMaxAgeUnchecked :: (MonadDOM m) => CookieInit -> m Int53+getMaxAgeUnchecked self = liftDOM ((pFromJSVal <$> (js_getMaxAge (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CookieListItem.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cookiestore (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CookieListItem+       (js_newCookieListItem, js_setName, js_getName, js_setValue, js_getValue, newCookieListItem, setName, getName, getNameUnsafe, getNameUnchecked, setValue, getValue, getValueUnsafe, getValueUnchecked, CookieListItem(..), gTypeCookieListItem)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCookieListItem :: IO CookieListItem+-- | <https://cookiestore.spec.whatwg.org/#dictdef-cookielistitem CookieListItem specification>+newCookieListItem :: (MonadDOM m) => m CookieListItem+newCookieListItem = liftDOM ((js_newCookieListItem))++foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+        js_setName :: CookieListItem -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-name CookieListItem.name specification>+setName :: (MonadDOM m, ToJSString val) => CookieListItem -> val -> m ()+setName self val = liftDOM (void ((js_setName (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CookieListItem -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-name CookieListItem.name specification>+getName :: (MonadDOM m, FromJSString result) => CookieListItem -> m (Maybe result)+getName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getName (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-name CookieListItem.name specification>+getNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieListItem -> m result+getNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getName (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-name CookieListItem.name specification>+getNameUnchecked :: (MonadDOM m, FromJSString result) => CookieListItem -> m result+getNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getName (self))))++foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })"+        js_setValue :: CookieListItem -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-value CookieListItem.value specification>+setValue :: (MonadDOM m, ToJSString val) => CookieListItem -> val -> m ()+setValue self val = liftDOM (void ((js_setValue (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: CookieListItem -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-value CookieListItem.value specification>+getValue :: (MonadDOM m, FromJSString result) => CookieListItem -> m (Maybe result)+getValue self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getValue (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-value CookieListItem.value specification>+getValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieListItem -> m result+getValueUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getValue (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-value CookieListItem.value specification>+getValueUnchecked :: (MonadDOM m, FromJSString result) => CookieListItem -> m result+getValueUnchecked self = liftDOM ((pFromJSVal <$> (js_getValue (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CookieStore.hs view
@@ -0,0 +1,101 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cookiestore (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CookieStore+       (js_delete, js_deleteOptions, js_get, js_getOptions, js_getAll, js_getAllOptions, js_set, js_setOptions, delete, deleteOptions, get, get_, getUnsafe, getUnchecked, getOptions, getOptions_, getOptionsUnsafe, getOptionsUnchecked, getAll, getAll_, getAllOptions, getAllOptions_, set, setOptions, change, CookieStore(..), gTypeCookieStore)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"delete\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_delete :: CookieStore -> JSString -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/delete MDN CookieStore.delete documentation>+delete :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m ()+delete self name = liftDOM (void (((js_delete (self) (toJSString name)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"delete\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_deleteOptions :: CookieStore -> CookieStoreDeleteOptions -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/delete MDN CookieStore.delete documentation>+deleteOptions :: (MonadDOM m) => CookieStore -> CookieStoreDeleteOptions -> m ()+deleteOptions self options = liftDOM (void (((js_deleteOptions (self) (options)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"get\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_get :: CookieStore -> JSString -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+get :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m (Maybe CookieListItem)+get self name = liftDOM ((((js_get (self) (toJSString name)) >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+get_ :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m ()+get_ self name = liftDOM (void (((js_get (self) (toJSString name)) >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+getUnsafe :: (MonadDOM m, ToJSString name, HasCallStack) => CookieStore -> name -> m CookieListItem+getUnsafe self name = liftDOM (((((js_get (self) (toJSString name)) >>= checkPromiseResult) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+getUnchecked :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m CookieListItem+getUnchecked self name = liftDOM ((pFromJSVal <$> ((js_get (self) (toJSString name)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"get\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_getOptions :: CookieStore -> JSVal -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+getOptions :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m (Maybe CookieListItem)+getOptions self options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+getOptions_ :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m ()+getOptions_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+getOptionsUnsafe :: (MonadDOM m, HasCallStack) => CookieStore -> Maybe CookieStoreGetOptions -> m CookieListItem+getOptionsUnsafe self options = liftDOM ((((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+getOptionsUnchecked :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m CookieListItem+getOptionsUnchecked self options = liftDOM ((pFromJSVal <$> (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"getAll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_getAll :: CookieStore -> JSString -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>+getAll :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m [CookieListItem]+getAll self name = liftDOM ((((js_getAll (self) (toJSString name)) >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>+getAll_ :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m ()+getAll_ self name = liftDOM (void (((js_getAll (self) (toJSString name)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"getAll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_getAllOptions :: CookieStore -> JSVal -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>+getAllOptions :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m [CookieListItem]+getAllOptions self options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getAllOptions (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>+getAllOptions_ :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m ()+getAllOptions_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getAllOptions (self) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"set\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_set :: CookieStore -> JSString -> JSString -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/set MDN CookieStore.set documentation>+set :: (MonadDOM m, ToJSString name, ToJSString value) => CookieStore -> name -> value -> m ()+set self name value = liftDOM (void (((js_set (self) (toJSString name) (toJSString value)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"set\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_setOptions :: CookieStore -> CookieInit -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/set MDN CookieStore.set documentation>+setOptions :: (MonadDOM m) => CookieStore -> CookieInit -> m ()+setOptions self options = liftDOM (void (((js_setOptions (self) (options)) >>= checkPromiseResult)))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestore-onchange change event>+change :: EventName CookieStore CookieChangeEvent+change = unsafeEventName (toJSString "change")
+ src/GHCJS/DOM/JSFFI/Generated/CookieStoreDeleteOptions.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cookiestore (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CookieStoreDeleteOptions+       (js_newCookieStoreDeleteOptions, js_setName, js_getName, js_setDomain, js_getDomain, js_setPath, js_getPath, js_setPartitioned, js_getPartitioned, newCookieStoreDeleteOptions, setName, getName, setDomain, getDomain, getDomainUnsafe, getDomainUnchecked, setPath, getPath, getPathUnsafe, getPathUnchecked, setPartitioned, getPartitioned, getPartitionedUnsafe, getPartitionedUnchecked, CookieStoreDeleteOptions(..), gTypeCookieStoreDeleteOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"name\": $1}); })"+        js_newCookieStoreDeleteOptions :: JSString -> IO CookieStoreDeleteOptions+-- | <https://cookiestore.spec.whatwg.org/#dictdef-cookiestoredeleteoptions CookieStoreDeleteOptions specification>+newCookieStoreDeleteOptions :: (MonadDOM m, ToJSString name) => name -> m CookieStoreDeleteOptions+newCookieStoreDeleteOptions name = liftDOM ((js_newCookieStoreDeleteOptions (toJSString name)))++foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+        js_setName :: CookieStoreDeleteOptions -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-name CookieStoreDeleteOptions.name specification>+setName :: (MonadDOM m, ToJSString val) => CookieStoreDeleteOptions -> val -> m ()+setName self val = liftDOM (void ((js_setName (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CookieStoreDeleteOptions -> IO JSString+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-name CookieStoreDeleteOptions.name specification>+getName :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++foreign import javascript safe "(($1, $2) => { $1[\"domain\"] = $2; })"+        js_setDomain :: CookieStoreDeleteOptions -> (Nullable JSString) -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>+setDomain :: (MonadDOM m, ToJSString val) => CookieStoreDeleteOptions -> Maybe val -> m ()+setDomain self val = liftDOM (void ((js_setDomain (self) (toMaybeJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"domain\"]; })"+        js_getDomain :: CookieStoreDeleteOptions -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>+getDomain :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m (Maybe result)+getDomain self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getDomain (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>+getDomainUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieStoreDeleteOptions -> m result+getDomainUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getDomain (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>+getDomainUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m result+getDomainUnchecked self = liftDOM ((pFromJSVal <$> (js_getDomain (self))))++foreign import javascript safe "(($1, $2) => { $1[\"path\"] = $2; })"+        js_setPath :: CookieStoreDeleteOptions -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>+setPath :: (MonadDOM m, ToJSString val) => CookieStoreDeleteOptions -> val -> m ()+setPath self val = liftDOM (void ((js_setPath (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"path\"]; })"+        js_getPath :: CookieStoreDeleteOptions -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>+getPath :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m (Maybe result)+getPath self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPath (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>+getPathUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieStoreDeleteOptions -> m result+getPathUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPath (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>+getPathUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m result+getPathUnchecked self = liftDOM ((pFromJSVal <$> (js_getPath (self))))++foreign import javascript safe "(($1, $2) => { $1[\"partitioned\"] = $2; })"+        js_setPartitioned :: CookieStoreDeleteOptions -> Bool -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>+setPartitioned :: (MonadDOM m) => CookieStoreDeleteOptions -> Bool -> m ()+setPartitioned self val = liftDOM (void ((js_setPartitioned (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"partitioned\"]; })"+        js_getPartitioned :: CookieStoreDeleteOptions -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>+getPartitioned :: (MonadDOM m) => CookieStoreDeleteOptions -> m (Maybe Bool)+getPartitioned self = liftDOM (((js_getPartitioned (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>+getPartitionedUnsafe :: (MonadDOM m, HasCallStack) => CookieStoreDeleteOptions -> m Bool+getPartitionedUnsafe self = liftDOM ((((js_getPartitioned (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>+getPartitionedUnchecked :: (MonadDOM m) => CookieStoreDeleteOptions -> m Bool+getPartitionedUnchecked self = liftDOM ((pFromJSVal <$> (js_getPartitioned (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CookieStoreGetOptions.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cookiestore (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CookieStoreGetOptions+       (js_newCookieStoreGetOptions, js_setName, js_getName, js_setUrl, js_getUrl, newCookieStoreGetOptions, setName, getName, getNameUnsafe, getNameUnchecked, setUrl, getUrl, getUrlUnsafe, getUrlUnchecked, CookieStoreGetOptions(..), gTypeCookieStoreGetOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCookieStoreGetOptions :: IO CookieStoreGetOptions+-- | <https://cookiestore.spec.whatwg.org/#dictdef-cookiestoregetoptions CookieStoreGetOptions specification>+newCookieStoreGetOptions :: (MonadDOM m) => m CookieStoreGetOptions+newCookieStoreGetOptions = liftDOM ((js_newCookieStoreGetOptions))++foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+        js_setName :: CookieStoreGetOptions -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-name CookieStoreGetOptions.name specification>+setName :: (MonadDOM m, ToJSString val) => CookieStoreGetOptions -> val -> m ()+setName self val = liftDOM (void ((js_setName (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CookieStoreGetOptions -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-name CookieStoreGetOptions.name specification>+getName :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m (Maybe result)+getName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getName (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-name CookieStoreGetOptions.name specification>+getNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieStoreGetOptions -> m result+getNameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getName (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-name CookieStoreGetOptions.name specification>+getNameUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m result+getNameUnchecked self = liftDOM ((pFromJSVal <$> (js_getName (self))))++foreign import javascript safe "(($1, $2) => { $1[\"url\"] = $2; })"+        js_setUrl :: CookieStoreGetOptions -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>+setUrl :: (MonadDOM m, ToJSString val) => CookieStoreGetOptions -> val -> m ()+setUrl self val = liftDOM (void ((js_setUrl (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })"+        js_getUrl :: CookieStoreGetOptions -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>+getUrl :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m (Maybe result)+getUrl self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getUrl (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>+getUrlUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieStoreGetOptions -> m result+getUrlUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getUrl (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>+getUrlUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m result+getUrlUnchecked self = liftDOM ((pFromJSVal <$> (js_getUrl (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CookieStoreManager.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cookiestore (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CookieStoreManager+       (js_getSubscriptions, js_subscribe, js_unsubscribe, getSubscriptions, getSubscriptions_, subscribe, unsubscribe, CookieStoreManager(..), gTypeCookieStoreManager)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript interruptible "(($1, $c) => { return $1[\"getSubscriptions\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_getSubscriptions :: CookieStoreManager -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/CookieStoreManager/getSubscriptions MDN CookieStoreManager.getSubscriptions documentation>+getSubscriptions :: (MonadDOM m) => CookieStoreManager -> m [CookieStoreGetOptions]+getSubscriptions self = liftDOM ((((js_getSubscriptions (self)) >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStoreManager/getSubscriptions MDN CookieStoreManager.getSubscriptions documentation>+getSubscriptions_ :: (MonadDOM m) => CookieStoreManager -> m ()+getSubscriptions_ self = liftDOM (void (((js_getSubscriptions (self)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"subscribe\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_subscribe :: CookieStoreManager -> JSVal -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStoreManager/subscribe MDN CookieStoreManager.subscribe documentation>+subscribe :: (MonadDOM m) => CookieStoreManager -> [CookieStoreGetOptions] -> m ()+subscribe self subscriptions = liftDOM (void ((((toJSVal subscriptions) >>= \a2' -> js_subscribe (self) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"unsubscribe\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_unsubscribe :: CookieStoreManager -> JSVal -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStoreManager/unsubscribe MDN CookieStoreManager.unsubscribe documentation>+unsubscribe :: (MonadDOM m) => CookieStoreManager -> [CookieStoreGetOptions] -> m ()+unsubscribe self subscriptions = liftDOM (void ((((toJSVal subscriptions) >>= \a2' -> js_unsubscribe (self) a2') >>= checkPromiseResult)))
− src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs
@@ -1,139 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.Coordinates-       (js_getLatitude, getLatitude, js_getLongitude, getLongitude,-        js_getAltitude, getAltitude, getAltitudeUnsafe,-        getAltitudeUnchecked, js_getAccuracy, getAccuracy,-        js_getAltitudeAccuracy, getAltitudeAccuracy,-        getAltitudeAccuracyUnsafe, getAltitudeAccuracyUnchecked,-        js_getHeading, getHeading, getHeadingUnsafe, getHeadingUnchecked,-        js_getSpeed, getSpeed, getSpeedUnsafe, getSpeedUnchecked,-        Coordinates(..), gTypeCoordinates)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"latitude\"]; })" js_getLatitude-        :: Coordinates -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.latitude Mozilla Coordinates.latitude documentation> -getLatitude :: (MonadIO m) => Coordinates -> m Double-getLatitude self = liftIO (js_getLatitude self)- -foreign import javascript unsafe "(($1) => { return $1[\"longitude\"]; })"-        js_getLongitude :: Coordinates -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.longitude Mozilla Coordinates.longitude documentation> -getLongitude :: (MonadIO m) => Coordinates -> m Double-getLongitude self = liftIO (js_getLongitude self)- -foreign import javascript unsafe "(($1) => { return $1[\"altitude\"]; })" js_getAltitude-        :: Coordinates -> IO (Nullable Double)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> -getAltitude :: (MonadIO m) => Coordinates -> m (Maybe Double)-getAltitude self-  = liftIO (nullableToMaybe <$> (js_getAltitude self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> -getAltitudeUnsafe ::-                  (MonadIO m, HasCallStack) => Coordinates -> m Double-getAltitudeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAltitude self)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> -getAltitudeUnchecked :: (MonadIO m) => Coordinates -> m Double-getAltitudeUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAltitude self))- -foreign import javascript unsafe "(($1) => { return $1[\"accuracy\"]; })" js_getAccuracy-        :: Coordinates -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.accuracy Mozilla Coordinates.accuracy documentation> -getAccuracy :: (MonadIO m) => Coordinates -> m Double-getAccuracy self = liftIO (js_getAccuracy self)- -foreign import javascript unsafe "(($1) => { return $1[\"altitudeAccuracy\"]; })"-        js_getAltitudeAccuracy :: Coordinates -> IO (Nullable Double)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> -getAltitudeAccuracy ::-                    (MonadIO m) => Coordinates -> m (Maybe Double)-getAltitudeAccuracy self-  = liftIO (nullableToMaybe <$> (js_getAltitudeAccuracy self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> -getAltitudeAccuracyUnsafe ::-                          (MonadIO m, HasCallStack) => Coordinates -> m Double-getAltitudeAccuracyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAltitudeAccuracy self)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> -getAltitudeAccuracyUnchecked ::-                             (MonadIO m) => Coordinates -> m Double-getAltitudeAccuracyUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getAltitudeAccuracy self))- -foreign import javascript unsafe "(($1) => { return $1[\"heading\"]; })" js_getHeading ::-        Coordinates -> IO (Nullable Double)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> -getHeading :: (MonadIO m) => Coordinates -> m (Maybe Double)-getHeading self = liftIO (nullableToMaybe <$> (js_getHeading self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> -getHeadingUnsafe ::-                 (MonadIO m, HasCallStack) => Coordinates -> m Double-getHeadingUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getHeading self)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> -getHeadingUnchecked :: (MonadIO m) => Coordinates -> m Double-getHeadingUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getHeading self))- -foreign import javascript unsafe "(($1) => { return $1[\"speed\"]; })" js_getSpeed ::-        Coordinates -> IO (Nullable Double)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> -getSpeed :: (MonadIO m) => Coordinates -> m (Maybe Double)-getSpeed self = liftIO (nullableToMaybe <$> (js_getSpeed self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> -getSpeedUnsafe ::-               (MonadIO m, HasCallStack) => Coordinates -> m Double-getSpeedUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSpeed self)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> -getSpeedUnchecked :: (MonadIO m) => Coordinates -> m Double-getSpeedUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getSpeed self))
src/GHCJS/DOM/JSFFI/Generated/CountQueuingStrategy.hs view
@@ -1,46 +1,35 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from streams (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CountQueuingStrategy-       (js_newCountQueuingStrategy, newCountQueuingStrategy, js_size,-        size, size_, CountQueuingStrategy(..), gTypeCountQueuingStrategy)+       (js_newCountQueuingStrategy, js_getHighWaterMark, js_getSize, newCountQueuingStrategy, getHighWaterMark, getSize, CountQueuingStrategy(..), gTypeCountQueuingStrategy)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(() => { return new window[\"CountQueuingStrategy\"](); })" js_newCountQueuingStrategy-        :: IO CountQueuingStrategy --- | <https://developer.mozilla.org/en-US/docs/Web/API/CountQueuingStrategy Mozilla CountQueuingStrategy documentation> -newCountQueuingStrategy :: (MonadIO m) => m CountQueuingStrategy-newCountQueuingStrategy = liftIO (js_newCountQueuingStrategy)- -foreign import javascript unsafe "(($1) => { return $1[\"size\"](); })" js_size ::-        CountQueuingStrategy -> IO Double+foreign import javascript safe "(($1) => { return new globalThis[\"CountQueuingStrategy\"]($1); })"+        js_newCountQueuingStrategy :: QueuingStrategyInit -> IO CountQueuingStrategy+-- | <https://developer.mozilla.org/docs/Web/API/CountQueuingStrategy/CountQueuingStrategy MDN CountQueuingStrategy. documentation>+newCountQueuingStrategy :: (MonadDOM m) => QueuingStrategyInit -> m CountQueuingStrategy+newCountQueuingStrategy init = liftDOM ((js_newCountQueuingStrategy (init))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CountQueuingStrategy.size Mozilla CountQueuingStrategy.size documentation> -size :: (MonadIO m) => CountQueuingStrategy -> m Double-size self = liftIO (js_size self)+foreign import javascript unsafe "(($1) => { return $1[\"highWaterMark\"]; })"+        js_getHighWaterMark :: CountQueuingStrategy -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/CountQueuingStrategy/highWaterMark MDN CountQueuingStrategy.highWaterMark documentation>+getHighWaterMark :: (MonadDOM m) => CountQueuingStrategy -> m Double+getHighWaterMark self = liftDOM ((js_getHighWaterMark (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CountQueuingStrategy.size Mozilla CountQueuingStrategy.size documentation> -size_ :: (MonadIO m) => CountQueuingStrategy -> m ()-size_ self = liftIO (void (js_size self))+foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })"+        js_getSize :: CountQueuingStrategy -> IO Function+-- | <https://developer.mozilla.org/docs/Web/API/CountQueuingStrategy/size MDN CountQueuingStrategy.size documentation>+getSize :: (MonadDOM m) => CountQueuingStrategy -> m Function+getSize self = liftDOM ((js_getSize (self)))
− src/GHCJS/DOM/JSFFI/Generated/Counter.hs
@@ -1,54 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.Counter-       (js_getIdentifier, getIdentifier, js_getListStyle, getListStyle,-        js_getSeparator, getSeparator, Counter(..), gTypeCounter)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"identifier\"]; })"-        js_getIdentifier :: Counter -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.identifier Mozilla Counter.identifier documentation> -getIdentifier ::-              (MonadIO m, FromJSString result) => Counter -> m result-getIdentifier self-  = liftIO (fromJSString <$> (js_getIdentifier self))- -foreign import javascript unsafe "(($1) => { return $1[\"listStyle\"]; })"-        js_getListStyle :: Counter -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.listStyle Mozilla Counter.listStyle documentation> -getListStyle ::-             (MonadIO m, FromJSString result) => Counter -> m result-getListStyle self-  = liftIO (fromJSString <$> (js_getListStyle self))- -foreign import javascript unsafe "(($1) => { return $1[\"separator\"]; })"-        js_getSeparator :: Counter -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.separator Mozilla Counter.separator documentation> -getSeparator ::-             (MonadIO m, FromJSString result) => Counter -> m result-getSeparator self-  = liftIO (fromJSString <$> (js_getSeparator self))
+ src/GHCJS/DOM/JSFFI/Generated/CreateHTMLCallback.hs view
@@ -0,0 +1,32 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from trusted-types (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CreateHTMLCallback+       (newCreateHTMLCallback, newCreateHTMLCallbackSync, newCreateHTMLCallbackAsync, CreateHTMLCallback)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newCreateHTMLCallback :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateHTMLCallback+newCreateHTMLCallback callback = liftDOM ((CreateHTMLCallback . coerce) <$> syncCallback2 ContinueAsync (\ input arguments -> do+          input' <- fromJSValUnchecked input+          arguments' <- P.return arguments+          callback input' arguments'))++newCreateHTMLCallbackSync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateHTMLCallback+newCreateHTMLCallbackSync callback = liftDOM ((CreateHTMLCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ input arguments -> do+          input' <- fromJSValUnchecked input+          arguments' <- P.return arguments+          callback input' arguments'))++newCreateHTMLCallbackAsync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateHTMLCallback+newCreateHTMLCallbackAsync callback = liftDOM ((CreateHTMLCallback . coerce) <$> asyncCallback2 (\ input arguments -> do+          input' <- fromJSValUnchecked input+          arguments' <- P.return arguments+          callback input' arguments'))
+ src/GHCJS/DOM/JSFFI/Generated/CreateParserOptionsCallback.hs view
@@ -0,0 +1,32 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from trusted-types (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CreateParserOptionsCallback+       (newCreateParserOptionsCallback, newCreateParserOptionsCallbackSync, newCreateParserOptionsCallbackAsync, CreateParserOptionsCallback)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newCreateParserOptionsCallback :: (MonadDOM m) => (SetHTMLUnsafeOptions -> JSVal -> IO ()) -> m CreateParserOptionsCallback+newCreateParserOptionsCallback callback = liftDOM ((CreateParserOptionsCallback . coerce) <$> syncCallback2 ContinueAsync (\ options arguments -> do+          options' <- fromJSValUnchecked options+          arguments' <- P.return arguments+          callback options' arguments'))++newCreateParserOptionsCallbackSync :: (MonadDOM m) => (SetHTMLUnsafeOptions -> JSVal -> IO ()) -> m CreateParserOptionsCallback+newCreateParserOptionsCallbackSync callback = liftDOM ((CreateParserOptionsCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ options arguments -> do+          options' <- fromJSValUnchecked options+          arguments' <- P.return arguments+          callback options' arguments'))++newCreateParserOptionsCallbackAsync :: (MonadDOM m) => (SetHTMLUnsafeOptions -> JSVal -> IO ()) -> m CreateParserOptionsCallback+newCreateParserOptionsCallbackAsync callback = liftDOM ((CreateParserOptionsCallback . coerce) <$> asyncCallback2 (\ options arguments -> do+          options' <- fromJSValUnchecked options+          arguments' <- P.return arguments+          callback options' arguments'))
+ src/GHCJS/DOM/JSFFI/Generated/CreateScriptCallback.hs view
@@ -0,0 +1,32 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from trusted-types (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CreateScriptCallback+       (newCreateScriptCallback, newCreateScriptCallbackSync, newCreateScriptCallbackAsync, CreateScriptCallback)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newCreateScriptCallback :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptCallback+newCreateScriptCallback callback = liftDOM ((CreateScriptCallback . coerce) <$> syncCallback2 ContinueAsync (\ input arguments -> do+          input' <- fromJSValUnchecked input+          arguments' <- P.return arguments+          callback input' arguments'))++newCreateScriptCallbackSync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptCallback+newCreateScriptCallbackSync callback = liftDOM ((CreateScriptCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ input arguments -> do+          input' <- fromJSValUnchecked input+          arguments' <- P.return arguments+          callback input' arguments'))++newCreateScriptCallbackAsync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptCallback+newCreateScriptCallbackAsync callback = liftDOM ((CreateScriptCallback . coerce) <$> asyncCallback2 (\ input arguments -> do+          input' <- fromJSValUnchecked input+          arguments' <- P.return arguments+          callback input' arguments'))
+ src/GHCJS/DOM/JSFFI/Generated/CreateScriptURLCallback.hs view
@@ -0,0 +1,32 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from trusted-types (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CreateScriptURLCallback+       (newCreateScriptURLCallback, newCreateScriptURLCallbackSync, newCreateScriptURLCallbackAsync, CreateScriptURLCallback)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newCreateScriptURLCallback :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptURLCallback+newCreateScriptURLCallback callback = liftDOM ((CreateScriptURLCallback . coerce) <$> syncCallback2 ContinueAsync (\ input arguments -> do+          input' <- fromJSValUnchecked input+          arguments' <- P.return arguments+          callback input' arguments'))++newCreateScriptURLCallbackSync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptURLCallback+newCreateScriptURLCallbackSync callback = liftDOM ((CreateScriptURLCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ input arguments -> do+          input' <- fromJSValUnchecked input+          arguments' <- P.return arguments+          callback input' arguments'))++newCreateScriptURLCallbackAsync :: (MonadDOM m) => (JSString -> JSVal -> IO ()) -> m CreateScriptURLCallback+newCreateScriptURLCallbackAsync callback = liftDOM ((CreateScriptURLCallback . coerce) <$> asyncCallback2 (\ input arguments -> do+          input' <- fromJSValUnchecked input+          arguments' <- P.return arguments+          callback input' arguments'))
+ src/GHCJS/DOM/JSFFI/Generated/Credential.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from credential-management-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.Credential+       (js_isConditionalMediationAvailable, js_getId, js_getType, isConditionalMediationAvailable, isConditionalMediationAvailable_, getId, getType, Credential(..), gTypeCredential, IsCredential, toCredential)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript interruptible "(($c) => { return globalThis[\"Credential\"][\"isConditionalMediationAvailable\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_isConditionalMediationAvailable :: IO (JSVal, Bool)+-- | <https://developer.mozilla.org/docs/Web/API/Credential/isConditionalMediationAvailable_static MDN Credential.isConditionalMediationAvailable documentation>+isConditionalMediationAvailable :: (MonadDOM m) => m Bool+isConditionalMediationAvailable = liftDOM (((js_isConditionalMediationAvailable) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Credential/isConditionalMediationAvailable_static MDN Credential.isConditionalMediationAvailable documentation>+isConditionalMediationAvailable_ :: (MonadDOM m) => m ()+isConditionalMediationAvailable_ = liftDOM (void (((js_isConditionalMediationAvailable) >>= checkPromiseResult)))++foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })"+        js_getId :: Credential -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Credential/id MDN Credential.id documentation>+getId :: (MonadDOM m, IsCredential self, FromJSString result) => self -> m result+getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toCredential self)))))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: Credential -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Credential/type MDN Credential.type documentation>+getType :: (MonadDOM m, IsCredential self, FromJSString result) => self -> m result+getType self = liftDOM ((fromJSString <$> (js_getType ((Types.toCredential self)))))
+ src/GHCJS/DOM/JSFFI/Generated/CredentialCreationOptions.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from credential-management-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CredentialCreationOptions+       (js_newCredentialCreationOptions, js_setMediation, js_getMediation, js_setSignal, js_getSignal, js_setPassword, js_getPassword, js_setFederated, js_getFederated, js_setDigital, js_getDigital, js_setPublicKey, js_getPublicKey, newCredentialCreationOptions, setMediation, getMediation, getMediationUnsafe, getMediationUnchecked, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, setPassword, getPassword, getPasswordUnsafe, getPasswordUnchecked, setFederated, getFederated, getFederatedUnsafe, getFederatedUnchecked, setDigital, getDigital, getDigitalUnsafe, getDigitalUnchecked, setPublicKey, getPublicKey, getPublicKeyUnsafe, getPublicKeyUnchecked, CredentialCreationOptions(..), gTypeCredentialCreationOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCredentialCreationOptions :: IO CredentialCreationOptions+-- | <https://w3c.github.io/webappsec-credential-management/#dictdef-credentialcreationoptions CredentialCreationOptions specification>+newCredentialCreationOptions :: (MonadDOM m) => m CredentialCreationOptions+newCredentialCreationOptions = liftDOM ((js_newCredentialCreationOptions))++foreign import javascript safe "(($1, $2) => { $1[\"mediation\"] = $2; })"+        js_setMediation :: CredentialCreationOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-mediation CredentialCreationOptions.mediation specification>+setMediation :: (MonadDOM m) => CredentialCreationOptions -> CredentialMediationRequirement -> m ()+setMediation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setMediation (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"mediation\"]; })"+        js_getMediation :: CredentialCreationOptions -> IO JSVal+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-mediation CredentialCreationOptions.mediation specification>+getMediation :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe CredentialMediationRequirement)+getMediation self = liftDOM (((js_getMediation (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-mediation CredentialCreationOptions.mediation specification>+getMediationUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m CredentialMediationRequirement+getMediationUnsafe self = liftDOM ((((js_getMediation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-mediation CredentialCreationOptions.mediation specification>+getMediationUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m CredentialMediationRequirement+getMediationUnchecked self = liftDOM ((pFromJSVal <$> (js_getMediation (self))))++foreign import javascript safe "(($1, $2) => { $1[\"signal\"] = $2; })"+        js_setSignal :: CredentialCreationOptions -> AbortSignal -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-signal CredentialCreationOptions.signal specification>+setSignal :: (MonadDOM m, IsAbortSignal val) => CredentialCreationOptions -> val -> m ()+setSignal self val = liftDOM (void ((js_setSignal (self) (Types.toAbortSignal val))))++foreign import javascript unsafe "(($1) => { return $1[\"signal\"]; })"+        js_getSignal :: CredentialCreationOptions -> IO JSVal+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-signal CredentialCreationOptions.signal specification>+getSignal :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe AbortSignal)+getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-signal CredentialCreationOptions.signal specification>+getSignalUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m AbortSignal+getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-signal CredentialCreationOptions.signal specification>+getSignalUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m AbortSignal+getSignalUnchecked self = liftDOM ((pFromJSVal <$> (js_getSignal (self))))++foreign import javascript safe "(($1, $2) => { $1[\"password\"] = $2; })"+        js_setPassword :: CredentialCreationOptions -> PasswordCredentialInit -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-password CredentialCreationOptions.password specification>+setPassword :: (MonadDOM m, IsPasswordCredentialInit val) => CredentialCreationOptions -> val -> m ()+setPassword self val = liftDOM (void ((js_setPassword (self) (Types.toPasswordCredentialInit val))))++foreign import javascript unsafe "(($1) => { return $1[\"password\"]; })"+        js_getPassword :: CredentialCreationOptions -> IO JSVal+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-password CredentialCreationOptions.password specification>+getPassword :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe PasswordCredentialInit)+getPassword self = liftDOM (((js_getPassword (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-password CredentialCreationOptions.password specification>+getPasswordUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m PasswordCredentialInit+getPasswordUnsafe self = liftDOM ((((js_getPassword (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-password CredentialCreationOptions.password specification>+getPasswordUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m PasswordCredentialInit+getPasswordUnchecked self = liftDOM ((pFromJSVal <$> (js_getPassword (self))))++foreign import javascript safe "(($1, $2) => { $1[\"federated\"] = $2; })"+        js_setFederated :: CredentialCreationOptions -> FederatedCredentialInit -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-federated CredentialCreationOptions.federated specification>+setFederated :: (MonadDOM m) => CredentialCreationOptions -> FederatedCredentialInit -> m ()+setFederated self val = liftDOM (void ((js_setFederated (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"federated\"]; })"+        js_getFederated :: CredentialCreationOptions -> IO JSVal+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-federated CredentialCreationOptions.federated specification>+getFederated :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe FederatedCredentialInit)+getFederated self = liftDOM (((js_getFederated (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-federated CredentialCreationOptions.federated specification>+getFederatedUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m FederatedCredentialInit+getFederatedUnsafe self = liftDOM ((((js_getFederated (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-federated CredentialCreationOptions.federated specification>+getFederatedUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m FederatedCredentialInit+getFederatedUnchecked self = liftDOM ((pFromJSVal <$> (js_getFederated (self))))++foreign import javascript safe "(($1, $2) => { $1[\"digital\"] = $2; })"+        js_setDigital :: CredentialCreationOptions -> DigitalCredentialCreationOptions -> IO ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialcreationoptions-digital CredentialCreationOptions.digital specification>+setDigital :: (MonadDOM m) => CredentialCreationOptions -> DigitalCredentialCreationOptions -> m ()+setDigital self val = liftDOM (void ((js_setDigital (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"digital\"]; })"+        js_getDigital :: CredentialCreationOptions -> IO JSVal+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialcreationoptions-digital CredentialCreationOptions.digital specification>+getDigital :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe DigitalCredentialCreationOptions)+getDigital self = liftDOM (((js_getDigital (self)) >>= fromJSValUnchecked))++-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialcreationoptions-digital CredentialCreationOptions.digital specification>+getDigitalUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m DigitalCredentialCreationOptions+getDigitalUnsafe self = liftDOM ((((js_getDigital (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialcreationoptions-digital CredentialCreationOptions.digital specification>+getDigitalUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m DigitalCredentialCreationOptions+getDigitalUnchecked self = liftDOM ((pFromJSVal <$> (js_getDigital (self))))++foreign import javascript safe "(($1, $2) => { $1[\"publicKey\"] = $2; })"+        js_setPublicKey :: CredentialCreationOptions -> PublicKeyCredentialCreationOptions -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-credentialcreationoptions-publickey CredentialCreationOptions.publicKey specification>+setPublicKey :: (MonadDOM m) => CredentialCreationOptions -> PublicKeyCredentialCreationOptions -> m ()+setPublicKey self val = liftDOM (void ((js_setPublicKey (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"publicKey\"]; })"+        js_getPublicKey :: CredentialCreationOptions -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-credentialcreationoptions-publickey CredentialCreationOptions.publicKey specification>+getPublicKey :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe PublicKeyCredentialCreationOptions)+getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-credentialcreationoptions-publickey CredentialCreationOptions.publicKey specification>+getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m PublicKeyCredentialCreationOptions+getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-credentialcreationoptions-publickey CredentialCreationOptions.publicKey specification>+getPublicKeyUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m PublicKeyCredentialCreationOptions+getPublicKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPublicKey (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CredentialData.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from credential-management-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CredentialData+       (js_newCredentialData, js_setId, js_getId, newCredentialData, setId, getId, CredentialData(..), gTypeCredentialData, IsCredentialData, toCredentialData)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"id\": $1}); })"+        js_newCredentialData :: JSString -> IO CredentialData+-- | <https://w3c.github.io/webappsec-credential-management/#dictdef-credentialdata CredentialData specification>+newCredentialData :: (MonadDOM m, ToJSString id) => id -> m CredentialData+newCredentialData id = liftDOM ((js_newCredentialData (toJSString id)))++foreign import javascript safe "(($1, $2) => { $1[\"id\"] = $2; })"+        js_setId :: CredentialData -> JSString -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialdata-id CredentialData.id specification>+setId :: (MonadDOM m, IsCredentialData self, ToJSString val) => self -> val -> m ()+setId self val = liftDOM (void ((js_setId ((Types.toCredentialData self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })"+        js_getId :: CredentialData -> IO JSString+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialdata-id CredentialData.id specification>+getId :: (MonadDOM m, IsCredentialData self, FromJSString result) => self -> m result+getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toCredentialData self)))))
+ src/GHCJS/DOM/JSFFI/Generated/CredentialPropertiesOutput.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CredentialPropertiesOutput+       (js_newCredentialPropertiesOutput, js_setRk, js_getRk, newCredentialPropertiesOutput, setRk, getRk, getRkUnsafe, getRkUnchecked, CredentialPropertiesOutput(..), gTypeCredentialPropertiesOutput)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCredentialPropertiesOutput :: IO CredentialPropertiesOutput+-- | <https://w3c.github.io/webauthn/#dictdef-credentialpropertiesoutput CredentialPropertiesOutput specification>+newCredentialPropertiesOutput :: (MonadDOM m) => m CredentialPropertiesOutput+newCredentialPropertiesOutput = liftDOM ((js_newCredentialPropertiesOutput))++foreign import javascript safe "(($1, $2) => { $1[\"rk\"] = $2; })"+        js_setRk :: CredentialPropertiesOutput -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-credentialpropertiesoutput-rk CredentialPropertiesOutput.rk specification>+setRk :: (MonadDOM m) => CredentialPropertiesOutput -> Bool -> m ()+setRk self val = liftDOM (void ((js_setRk (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"rk\"]; })"+        js_getRk :: CredentialPropertiesOutput -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-credentialpropertiesoutput-rk CredentialPropertiesOutput.rk specification>+getRk :: (MonadDOM m) => CredentialPropertiesOutput -> m (Maybe Bool)+getRk self = liftDOM (((js_getRk (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-credentialpropertiesoutput-rk CredentialPropertiesOutput.rk specification>+getRkUnsafe :: (MonadDOM m, HasCallStack) => CredentialPropertiesOutput -> m Bool+getRkUnsafe self = liftDOM ((((js_getRk (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-credentialpropertiesoutput-rk CredentialPropertiesOutput.rk specification>+getRkUnchecked :: (MonadDOM m) => CredentialPropertiesOutput -> m Bool+getRkUnchecked self = liftDOM ((pFromJSVal <$> (js_getRk (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CredentialRequestOptions.hs view
@@ -0,0 +1,203 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from credential-management-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CredentialRequestOptions+       (js_newCredentialRequestOptions, js_setMediation, js_getMediation, js_setUiMode, js_getUiMode, js_setSignal, js_getSignal, js_setPassword, js_getPassword, js_setFederated, js_getFederated, js_setDigital, js_getDigital, js_setIdentity, js_getIdentity, js_setOtp, js_getOtp, js_setPublicKey, js_getPublicKey, newCredentialRequestOptions, setMediation, getMediation, getMediationUnsafe, getMediationUnchecked, setUiMode, getUiMode, getUiModeUnsafe, getUiModeUnchecked, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, setPassword, getPassword, getPasswordUnsafe, getPasswordUnchecked, setFederated, getFederated, getFederatedUnsafe, getFederatedUnchecked, setDigital, getDigital, getDigitalUnsafe, getDigitalUnchecked, setIdentity, getIdentity, getIdentityUnsafe, getIdentityUnchecked, setOtp, getOtp, getOtpUnsafe, getOtpUnchecked, setPublicKey, getPublicKey, getPublicKeyUnsafe, getPublicKeyUnchecked, CredentialRequestOptions(..), gTypeCredentialRequestOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCredentialRequestOptions :: IO CredentialRequestOptions+-- | <https://w3c.github.io/webappsec-credential-management/#dictdef-credentialrequestoptions CredentialRequestOptions specification>+newCredentialRequestOptions :: (MonadDOM m) => m CredentialRequestOptions+newCredentialRequestOptions = liftDOM ((js_newCredentialRequestOptions))++foreign import javascript safe "(($1, $2) => { $1[\"mediation\"] = $2; })"+        js_setMediation :: CredentialRequestOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>+setMediation :: (MonadDOM m) => CredentialRequestOptions -> CredentialMediationRequirement -> m ()+setMediation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setMediation (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"mediation\"]; })"+        js_getMediation :: CredentialRequestOptions -> IO JSVal+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>+getMediation :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe CredentialMediationRequirement)+getMediation self = liftDOM (((js_getMediation (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>+getMediationUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m CredentialMediationRequirement+getMediationUnsafe self = liftDOM ((((js_getMediation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>+getMediationUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m CredentialMediationRequirement+getMediationUnchecked self = liftDOM ((pFromJSVal <$> (js_getMediation (self))))++foreign import javascript safe "(($1, $2) => { $1[\"uiMode\"] = $2; })"+        js_setUiMode :: CredentialRequestOptions -> JSString -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>+setUiMode :: (MonadDOM m, ToJSString val) => CredentialRequestOptions -> val -> m ()+setUiMode self val = liftDOM (void ((js_setUiMode (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"uiMode\"]; })"+        js_getUiMode :: CredentialRequestOptions -> IO JSVal+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>+getUiMode :: (MonadDOM m, FromJSString result) => CredentialRequestOptions -> m (Maybe result)+getUiMode self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getUiMode (self))))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>+getUiModeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CredentialRequestOptions -> m result+getUiModeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getUiMode (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>+getUiModeUnchecked :: (MonadDOM m, FromJSString result) => CredentialRequestOptions -> m result+getUiModeUnchecked self = liftDOM ((pFromJSVal <$> (js_getUiMode (self))))++foreign import javascript safe "(($1, $2) => { $1[\"signal\"] = $2; })"+        js_setSignal :: CredentialRequestOptions -> AbortSignal -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>+setSignal :: (MonadDOM m, IsAbortSignal val) => CredentialRequestOptions -> val -> m ()+setSignal self val = liftDOM (void ((js_setSignal (self) (Types.toAbortSignal val))))++foreign import javascript unsafe "(($1) => { return $1[\"signal\"]; })"+        js_getSignal :: CredentialRequestOptions -> IO JSVal+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>+getSignal :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe AbortSignal)+getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>+getSignalUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m AbortSignal+getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>+getSignalUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m AbortSignal+getSignalUnchecked self = liftDOM ((pFromJSVal <$> (js_getSignal (self))))++foreign import javascript safe "(($1, $2) => { $1[\"password\"] = $2; })"+        js_setPassword :: CredentialRequestOptions -> Bool -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>+setPassword :: (MonadDOM m) => CredentialRequestOptions -> Bool -> m ()+setPassword self val = liftDOM (void ((js_setPassword (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"password\"]; })"+        js_getPassword :: CredentialRequestOptions -> IO JSVal+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>+getPassword :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe Bool)+getPassword self = liftDOM (((js_getPassword (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>+getPasswordUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m Bool+getPasswordUnsafe self = liftDOM ((((js_getPassword (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>+getPasswordUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m Bool+getPasswordUnchecked self = liftDOM ((pFromJSVal <$> (js_getPassword (self))))++foreign import javascript safe "(($1, $2) => { $1[\"federated\"] = $2; })"+        js_setFederated :: CredentialRequestOptions -> FederatedCredentialRequestOptions -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>+setFederated :: (MonadDOM m) => CredentialRequestOptions -> FederatedCredentialRequestOptions -> m ()+setFederated self val = liftDOM (void ((js_setFederated (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"federated\"]; })"+        js_getFederated :: CredentialRequestOptions -> IO JSVal+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>+getFederated :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe FederatedCredentialRequestOptions)+getFederated self = liftDOM (((js_getFederated (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>+getFederatedUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m FederatedCredentialRequestOptions+getFederatedUnsafe self = liftDOM ((((js_getFederated (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>+getFederatedUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m FederatedCredentialRequestOptions+getFederatedUnchecked self = liftDOM ((pFromJSVal <$> (js_getFederated (self))))++foreign import javascript safe "(($1, $2) => { $1[\"digital\"] = $2; })"+        js_setDigital :: CredentialRequestOptions -> DigitalCredentialRequestOptions -> IO ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>+setDigital :: (MonadDOM m) => CredentialRequestOptions -> DigitalCredentialRequestOptions -> m ()+setDigital self val = liftDOM (void ((js_setDigital (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"digital\"]; })"+        js_getDigital :: CredentialRequestOptions -> IO JSVal+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>+getDigital :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe DigitalCredentialRequestOptions)+getDigital self = liftDOM (((js_getDigital (self)) >>= fromJSValUnchecked))++-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>+getDigitalUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m DigitalCredentialRequestOptions+getDigitalUnsafe self = liftDOM ((((js_getDigital (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>+getDigitalUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m DigitalCredentialRequestOptions+getDigitalUnchecked self = liftDOM ((pFromJSVal <$> (js_getDigital (self))))++foreign import javascript safe "(($1, $2) => { $1[\"identity\"] = $2; })"+        js_setIdentity :: CredentialRequestOptions -> IdentityCredentialRequestOptions -> IO ()+-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>+setIdentity :: (MonadDOM m) => CredentialRequestOptions -> IdentityCredentialRequestOptions -> m ()+setIdentity self val = liftDOM (void ((js_setIdentity (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"identity\"]; })"+        js_getIdentity :: CredentialRequestOptions -> IO JSVal+-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>+getIdentity :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe IdentityCredentialRequestOptions)+getIdentity self = liftDOM (((js_getIdentity (self)) >>= fromJSValUnchecked))++-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>+getIdentityUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m IdentityCredentialRequestOptions+getIdentityUnsafe self = liftDOM ((((js_getIdentity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>+getIdentityUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m IdentityCredentialRequestOptions+getIdentityUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdentity (self))))++foreign import javascript safe "(($1, $2) => { $1[\"otp\"] = $2; })"+        js_setOtp :: CredentialRequestOptions -> OTPCredentialRequestOptions -> IO ()+-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>+setOtp :: (MonadDOM m) => CredentialRequestOptions -> OTPCredentialRequestOptions -> m ()+setOtp self val = liftDOM (void ((js_setOtp (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"otp\"]; })"+        js_getOtp :: CredentialRequestOptions -> IO JSVal+-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>+getOtp :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe OTPCredentialRequestOptions)+getOtp self = liftDOM (((js_getOtp (self)) >>= fromJSValUnchecked))++-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>+getOtpUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m OTPCredentialRequestOptions+getOtpUnsafe self = liftDOM ((((js_getOtp (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>+getOtpUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m OTPCredentialRequestOptions+getOtpUnchecked self = liftDOM ((pFromJSVal <$> (js_getOtp (self))))++foreign import javascript safe "(($1, $2) => { $1[\"publicKey\"] = $2; })"+        js_setPublicKey :: CredentialRequestOptions -> PublicKeyCredentialRequestOptions -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>+setPublicKey :: (MonadDOM m) => CredentialRequestOptions -> PublicKeyCredentialRequestOptions -> m ()+setPublicKey self val = liftDOM (void ((js_setPublicKey (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"publicKey\"]; })"+        js_getPublicKey :: CredentialRequestOptions -> IO JSVal+-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>+getPublicKey :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe PublicKeyCredentialRequestOptions)+getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>+getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m PublicKeyCredentialRequestOptions+getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>+getPublicKeyUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m PublicKeyCredentialRequestOptions+getPublicKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPublicKey (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CredentialsContainer.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from credential-management-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CredentialsContainer+       (js_create, js_get, js_preventSilentAccess, js_store, create, create_, createUnsafe, createUnchecked, get, get_, getUnsafe, getUnchecked, preventSilentAccess, store, CredentialsContainer(..), gTypeCredentialsContainer)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"create\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_create :: CredentialsContainer -> JSVal -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>+create :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialCreationOptions -> m (Maybe Credential)+create self options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_create (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>+create_ :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialCreationOptions -> m ()+create_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_create (self) a2') >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>+createUnsafe :: (MonadDOM m, HasCallStack) => CredentialsContainer -> Maybe CredentialCreationOptions -> m Credential+createUnsafe self options = liftDOM ((((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_create (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>+createUnchecked :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialCreationOptions -> m Credential+createUnchecked self options = liftDOM ((pFromJSVal <$> (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_create (self) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"get\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_get :: CredentialsContainer -> JSVal -> IO (JSVal, JSVal)+-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>+get :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialRequestOptions -> m (Maybe Credential)+get self options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_get (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>+get_ :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialRequestOptions -> m ()+get_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_get (self) a2') >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>+getUnsafe :: (MonadDOM m, HasCallStack) => CredentialsContainer -> Maybe CredentialRequestOptions -> m Credential+getUnsafe self options = liftDOM ((((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_get (self) a2') >>= checkPromiseResult) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>+getUnchecked :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialRequestOptions -> m Credential+getUnchecked self options = liftDOM ((pFromJSVal <$> (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_get (self) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $c) => { return $1[\"preventSilentAccess\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_preventSilentAccess :: CredentialsContainer -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/preventSilentAccess MDN CredentialsContainer.preventSilentAccess documentation>+preventSilentAccess :: (MonadDOM m) => CredentialsContainer -> m ()+preventSilentAccess self = liftDOM (void (((js_preventSilentAccess (self)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"store\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_store :: CredentialsContainer -> Credential -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/store MDN CredentialsContainer.store documentation>+store :: (MonadDOM m, IsCredential credential) => CredentialsContainer -> credential -> m ()+store self credential = liftDOM (void (((js_store (self) (Types.toCredential credential)) >>= checkPromiseResult)))
src/GHCJS/DOM/JSFFI/Generated/Crypto.hs view
@@ -1,59 +1,43 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcrypto-2 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Crypto-       (js_getRandomValues, getRandomValues, getRandomValues_,-        js_getSubtle, getSubtle, js_getWebkitSubtle, getWebkitSubtle,-        Crypto(..), gTypeCrypto)+       (js_getRandomValues, js_randomUUID, js_getSubtle, getRandomValues, getRandomValues_, randomUUID, randomUUID_, getSubtle, Crypto(..), gTypeCrypto)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- + foreign import javascript safe "(($1, $2) => { return $1[\"getRandomValues\"]($2); })"-        js_getRandomValues ::-        Crypto -> ArrayBufferView -> IO ArrayBufferView+        js_getRandomValues :: Crypto -> ArrayBufferView -> IO ArrayBufferView+-- | <https://developer.mozilla.org/docs/Web/API/Crypto/getRandomValues MDN Crypto.getRandomValues documentation>+getRandomValues :: (MonadDOM m, IsArrayBufferView array) => Crypto -> array -> m ArrayBufferView+getRandomValues self array = liftDOM ((js_getRandomValues (self) (Types.toArrayBufferView array))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> -getRandomValues ::-                (MonadIO m, IsArrayBufferView array) =>-                  Crypto -> array -> m ArrayBufferView-getRandomValues self array-  = liftIO (js_getRandomValues self (toArrayBufferView array))+-- | <https://developer.mozilla.org/docs/Web/API/Crypto/getRandomValues MDN Crypto.getRandomValues documentation>+getRandomValues_ :: (MonadDOM m, IsArrayBufferView array) => Crypto -> array -> m ()+getRandomValues_ self array = liftDOM (void ((js_getRandomValues (self) (Types.toArrayBufferView array)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> -getRandomValues_ ::-                 (MonadIO m, IsArrayBufferView array) => Crypto -> array -> m ()-getRandomValues_ self array-  = liftIO (void (js_getRandomValues self (toArrayBufferView array)))- -foreign import javascript unsafe "(($1) => { return $1[\"subtle\"]; })" js_getSubtle ::-        Crypto -> IO SubtleCrypto+foreign import javascript safe "(($1) => { return $1[\"randomUUID\"](); })"+        js_randomUUID :: Crypto -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Crypto/randomUUID MDN Crypto.randomUUID documentation>+randomUUID :: (MonadDOM m, FromJSString result) => Crypto -> m result+randomUUID self = liftDOM ((fromJSString <$> (js_randomUUID (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.subtle Mozilla Crypto.subtle documentation> -getSubtle :: (MonadIO m) => Crypto -> m SubtleCrypto-getSubtle self = liftIO (js_getSubtle self)- -foreign import javascript safe "(($1) => { return $1[\"webkitSubtle\"]; })"-        js_getWebkitSubtle :: Crypto -> IO WebKitSubtleCrypto+-- | <https://developer.mozilla.org/docs/Web/API/Crypto/randomUUID MDN Crypto.randomUUID documentation>+randomUUID_ :: (MonadDOM m) => Crypto -> m ()+randomUUID_ self = liftDOM (void ((js_randomUUID (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation> -getWebkitSubtle :: (MonadIO m) => Crypto -> m WebKitSubtleCrypto-getWebkitSubtle self = liftIO (js_getWebkitSubtle self)+foreign import javascript unsafe "(($1) => { return $1[\"subtle\"]; })"+        js_getSubtle :: Crypto -> IO SubtleCrypto+-- | <https://developer.mozilla.org/docs/Web/API/Crypto/subtle MDN Crypto.subtle documentation>+getSubtle :: (MonadDOM m) => Crypto -> m SubtleCrypto+getSubtle self = liftDOM ((js_getSubtle (self)))
src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs view
@@ -1,57 +1,41 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcrypto-2 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CryptoKey-       (js_getType, getType, js_getExtractable, getExtractable,-        js_getAlgorithm, getAlgorithm, js_getUsages, getUsages,-        CryptoKey(..), gTypeCryptoKey)+       (js_getType, js_getExtractable, js_getAlgorithm, js_getUsages, getType, getExtractable, getAlgorithm, getUsages, CryptoKey(..), gTypeCryptoKey)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::-        CryptoKey -> IO JSVal --- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.type Mozilla CryptoKey.type documentation> -getType :: (MonadIO m) => CryptoKey -> m KeyType-getType self = liftIO ((js_getType self) >>= fromJSValUnchecked)- -foreign import javascript unsafe "(($1) => { return ($1[\"extractable\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: CryptoKey -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CryptoKey/type MDN CryptoKey.type documentation>+getType :: (MonadDOM m) => CryptoKey -> m KeyType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"extractable\"]; })"         js_getExtractable :: CryptoKey -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CryptoKey/extractable MDN CryptoKey.extractable documentation>+getExtractable :: (MonadDOM m) => CryptoKey -> m Bool+getExtractable self = liftDOM ((js_getExtractable (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.extractable Mozilla CryptoKey.extractable documentation> -getExtractable :: (MonadIO m) => CryptoKey -> m Bool-getExtractable self = liftIO (js_getExtractable self)-  foreign import javascript unsafe "(($1) => { return $1[\"algorithm\"]; })"         js_getAlgorithm :: CryptoKey -> IO GObject---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation> -getAlgorithm :: (MonadIO m) => CryptoKey -> m GObject-getAlgorithm self = liftIO (js_getAlgorithm self)- -foreign import javascript unsafe "(($1) => { return $1[\"usages\"]; })" js_getUsages ::-        CryptoKey -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CryptoKey/algorithm MDN CryptoKey.algorithm documentation>+getAlgorithm :: (MonadDOM m) => CryptoKey -> m GObject+getAlgorithm self = liftDOM ((js_getAlgorithm (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.usages Mozilla CryptoKey.usages documentation> -getUsages :: (MonadIO m) => CryptoKey -> m [CryptoKeyUsage]-getUsages self-  = liftIO ((js_getUsages self) >>= fromJSValUnchecked)+foreign import javascript unsafe "(($1) => { return $1[\"usages\"]; })"+        js_getUsages :: CryptoKey -> IO GObject+-- | <https://developer.mozilla.org/docs/Web/API/CryptoKey/usages MDN CryptoKey.usages documentation>+getUsages :: (MonadDOM m) => CryptoKey -> m GObject+getUsages self = liftDOM ((js_getUsages (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcrypto-2 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CryptoKeyPair+       (js_newCryptoKeyPair, js_setPublicKey, js_getPublicKey, js_setPrivateKey, js_getPrivateKey, newCryptoKeyPair, setPublicKey, getPublicKey, getPublicKeyUnsafe, getPublicKeyUnchecked, setPrivateKey, getPrivateKey, getPrivateKeyUnsafe, getPrivateKeyUnchecked, CryptoKeyPair(..), gTypeCryptoKeyPair)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCryptoKeyPair :: IO CryptoKeyPair+-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair CryptoKeyPair specification>+newCryptoKeyPair :: (MonadDOM m) => m CryptoKeyPair+newCryptoKeyPair = liftDOM ((js_newCryptoKeyPair))++foreign import javascript safe "(($1, $2) => { $1[\"publicKey\"] = $2; })"+        js_setPublicKey :: CryptoKeyPair -> CryptoKey -> IO ()+-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-publicKey CryptoKeyPair.publicKey specification>+setPublicKey :: (MonadDOM m) => CryptoKeyPair -> CryptoKey -> m ()+setPublicKey self val = liftDOM (void ((js_setPublicKey (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"publicKey\"]; })"+        js_getPublicKey :: CryptoKeyPair -> IO JSVal+-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-publicKey CryptoKeyPair.publicKey specification>+getPublicKey :: (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey)+getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-publicKey CryptoKeyPair.publicKey specification>+getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => CryptoKeyPair -> m CryptoKey+getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-publicKey CryptoKeyPair.publicKey specification>+getPublicKeyUnchecked :: (MonadDOM m) => CryptoKeyPair -> m CryptoKey+getPublicKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPublicKey (self))))++foreign import javascript safe "(($1, $2) => { $1[\"privateKey\"] = $2; })"+        js_setPrivateKey :: CryptoKeyPair -> CryptoKey -> IO ()+-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-privateKey CryptoKeyPair.privateKey specification>+setPrivateKey :: (MonadDOM m) => CryptoKeyPair -> CryptoKey -> m ()+setPrivateKey self val = liftDOM (void ((js_setPrivateKey (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"privateKey\"]; })"+        js_getPrivateKey :: CryptoKeyPair -> IO JSVal+-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-privateKey CryptoKeyPair.privateKey specification>+getPrivateKey :: (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey)+getPrivateKey self = liftDOM (((js_getPrivateKey (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-privateKey CryptoKeyPair.privateKey specification>+getPrivateKeyUnsafe :: (MonadDOM m, HasCallStack) => CryptoKeyPair -> m CryptoKey+getPrivateKeyUnsafe self = liftDOM ((((js_getPrivateKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-privateKey CryptoKeyPair.privateKey specification>+getPrivateKeyUnchecked :: (MonadDOM m) => CryptoKeyPair -> m CryptoKey+getPrivateKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrivateKey (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CurrentUserDetailsOptions.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CurrentUserDetailsOptions+       (js_newCurrentUserDetailsOptions, js_setRpId, js_getRpId, js_setUserId, js_getUserId, js_setName, js_getName, js_setDisplayName, js_getDisplayName, newCurrentUserDetailsOptions, setRpId, getRpId, setUserId, getUserId, setName, getName, setDisplayName, getDisplayName, CurrentUserDetailsOptions(..), gTypeCurrentUserDetailsOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3, $4) => { return ({\"rpId\": $1, \"userId\": $2, \"name\": $3, \"displayName\": $4}); })"+        js_newCurrentUserDetailsOptions :: JSString -> JSString -> JSString -> JSString -> IO CurrentUserDetailsOptions+-- | <https://w3c.github.io/webauthn/#dictdef-currentuserdetailsoptions CurrentUserDetailsOptions specification>+newCurrentUserDetailsOptions :: (MonadDOM m, ToJSString rpId, ToJSString userId, ToJSString name, ToJSString displayName) => rpId -> userId -> name -> displayName -> m CurrentUserDetailsOptions+newCurrentUserDetailsOptions rpId userId name displayName = liftDOM ((js_newCurrentUserDetailsOptions (toJSString rpId) (toJSString userId) (toJSString name) (toJSString displayName)))++foreign import javascript safe "(($1, $2) => { $1[\"rpId\"] = $2; })"+        js_setRpId :: CurrentUserDetailsOptions -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-rpid CurrentUserDetailsOptions.rpId specification>+setRpId :: (MonadDOM m, ToJSString val) => CurrentUserDetailsOptions -> val -> m ()+setRpId self val = liftDOM (void ((js_setRpId (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"rpId\"]; })"+        js_getRpId :: CurrentUserDetailsOptions -> IO JSString+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-rpid CurrentUserDetailsOptions.rpId specification>+getRpId :: (MonadDOM m, FromJSString result) => CurrentUserDetailsOptions -> m result+getRpId self = liftDOM ((fromJSString <$> (js_getRpId (self))))++foreign import javascript safe "(($1, $2) => { $1[\"userId\"] = $2; })"+        js_setUserId :: CurrentUserDetailsOptions -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-userid CurrentUserDetailsOptions.userId specification>+setUserId :: (MonadDOM m, ToJSString val) => CurrentUserDetailsOptions -> val -> m ()+setUserId self val = liftDOM (void ((js_setUserId (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"userId\"]; })"+        js_getUserId :: CurrentUserDetailsOptions -> IO JSString+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-userid CurrentUserDetailsOptions.userId specification>+getUserId :: (MonadDOM m, FromJSString result) => CurrentUserDetailsOptions -> m result+getUserId self = liftDOM ((fromJSString <$> (js_getUserId (self))))++foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+        js_setName :: CurrentUserDetailsOptions -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-name CurrentUserDetailsOptions.name specification>+setName :: (MonadDOM m, ToJSString val) => CurrentUserDetailsOptions -> val -> m ()+setName self val = liftDOM (void ((js_setName (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: CurrentUserDetailsOptions -> IO JSString+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-name CurrentUserDetailsOptions.name specification>+getName :: (MonadDOM m, FromJSString result) => CurrentUserDetailsOptions -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++foreign import javascript safe "(($1, $2) => { $1[\"displayName\"] = $2; })"+        js_setDisplayName :: CurrentUserDetailsOptions -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-displayname CurrentUserDetailsOptions.displayName specification>+setDisplayName :: (MonadDOM m, ToJSString val) => CurrentUserDetailsOptions -> val -> m ()+setDisplayName self val = liftDOM (void ((js_setDisplayName (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"displayName\"]; })"+        js_getDisplayName :: CurrentUserDetailsOptions -> IO JSString+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-displayname CurrentUserDetailsOptions.displayName specification>+getDisplayName :: (MonadDOM m, FromJSString result) => CurrentUserDetailsOptions -> m result+getDisplayName self = liftDOM ((fromJSString <$> (js_getDisplayName (self))))
+ src/GHCJS/DOM/JSFFI/Generated/CustomElementConstructor.hs view
@@ -0,0 +1,23 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CustomElementConstructor+       (newCustomElementConstructor, newCustomElementConstructorSync, newCustomElementConstructorAsync, CustomElementConstructor)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback, asyncCallback)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newCustomElementConstructor :: (MonadDOM m) => (IO ()) -> m CustomElementConstructor+newCustomElementConstructor callback = liftDOM ((CustomElementConstructor . coerce) <$> syncCallback ContinueAsync callback)++newCustomElementConstructorSync :: (MonadDOM m) => (IO ()) -> m CustomElementConstructor+newCustomElementConstructorSync callback = liftDOM ((CustomElementConstructor . coerce) <$> syncCallback ThrowWouldBlock callback)++newCustomElementConstructorAsync :: (MonadDOM m) => (IO ()) -> m CustomElementConstructor+newCustomElementConstructorAsync callback = liftDOM ((CustomElementConstructor . coerce) <$> asyncCallback callback)
src/GHCJS/DOM/JSFFI/Generated/CustomElementRegistry.hs view
@@ -1,66 +1,85 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CustomElementRegistry-       (js_define, define, js_get, get, get_, js_whenDefined, whenDefined,-        CustomElementRegistry(..), gTypeCustomElementRegistry)+       (js_newCustomElementRegistry, js_define, js_define', js_get, js_getName, js_initialize, js_upgrade, js_whenDefined, newCustomElementRegistry, define, define', get, get_, getName, getName_, getNameUnsafe, getNameUnchecked, initialize, upgrade, whenDefined, whenDefined_, CustomElementRegistry(..), gTypeCustomElementRegistry)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"define\"]($2, $3); })" js_define-        :: CustomElementRegistry -> JSString -> Function -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.define Mozilla CustomElementRegistry.define documentation> -define ::-       (MonadIO m, ToJSString name, IsFunction constructor) =>-         CustomElementRegistry -> name -> constructor -> m ()-define self name constructor-  = liftIO-      (js_define self (toJSString name) (toFunction constructor))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"get\"]($2); })" js_get ::-        CustomElementRegistry -> JSString -> IO JSVal+foreign import javascript safe "(() => { return new globalThis[\"CustomElementRegistry\"](); })"+        js_newCustomElementRegistry :: IO CustomElementRegistry+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/CustomElementRegistry MDN CustomElementRegistry. documentation>+newCustomElementRegistry :: (MonadDOM m) => m CustomElementRegistry+newCustomElementRegistry = liftDOM ((js_newCustomElementRegistry)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.get Mozilla CustomElementRegistry.get documentation> -get ::-    (MonadIO m, ToJSString name) =>-      CustomElementRegistry -> name -> m JSVal-get self name = liftIO (js_get self (toJSString name))+foreign import javascript safe "(($1, $2, $3) => { return $1[\"define\"]($2, $3); })"+        js_define :: CustomElementRegistry -> JSString -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/define MDN CustomElementRegistry.define documentation>+define :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> CustomElementConstructor -> m ()+define self name constructor = liftDOM (void (((toJSVal constructor) >>= \a3' -> js_define (self) (toJSString name) a3'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.get Mozilla CustomElementRegistry.get documentation> -get_ ::-     (MonadIO m, ToJSString name) =>-       CustomElementRegistry -> name -> m ()-get_ self name = liftIO (void (js_get self (toJSString name)))- -foreign import javascript interruptible-        "(($1, $2, $c) => { return $1[\"whenDefined\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"define\"]($2, $3, $4); })"+        js_define' :: CustomElementRegistry -> JSString -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/define MDN CustomElementRegistry.define documentation>+define' :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> CustomElementConstructor -> Maybe ElementDefinitionOptions -> m ()+define' self name constructor options = liftDOM (void (((toJSVal constructor) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_define' (self) (toJSString name) a3' a4')))++foreign import javascript safe "(($1, $2) => { return $1[\"get\"]($2); })"+        js_get :: CustomElementRegistry -> JSString -> IO CustomElementConstructorOrUndefined+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/get MDN CustomElementRegistry.get documentation>+get :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m CustomElementConstructorOrUndefined+get self name = liftDOM ((js_get (self) (toJSString name)))++-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/get MDN CustomElementRegistry.get documentation>+get_ :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m ()+get_ self name = liftDOM (void ((js_get (self) (toJSString name))))++foreign import javascript safe "(($1, $2) => { return $1[\"getName\"]($2); })"+        js_getName :: CustomElementRegistry -> JSVal -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/getName MDN CustomElementRegistry.getName documentation>+getName :: (MonadDOM m, FromJSString result) => CustomElementRegistry -> CustomElementConstructor -> m (Maybe result)+getName self constructor = liftDOM (((fromMaybeJSString . Nullable) <$> ((toJSVal constructor) >>= \a2' -> js_getName (self) a2')))++-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/getName MDN CustomElementRegistry.getName documentation>+getName_ :: (MonadDOM m) => CustomElementRegistry -> CustomElementConstructor -> m ()+getName_ self constructor = liftDOM (void (((toJSVal constructor) >>= \a2' -> js_getName (self) a2')))++-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/getName MDN CustomElementRegistry.getName documentation>+getNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CustomElementRegistry -> CustomElementConstructor -> m result+getNameUnsafe self constructor = liftDOM ((((fromMaybeJSString . Nullable) <$> ((toJSVal constructor) >>= \a2' -> js_getName (self) a2')) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/getName MDN CustomElementRegistry.getName documentation>+getNameUnchecked :: (MonadDOM m, FromJSString result) => CustomElementRegistry -> CustomElementConstructor -> m result+getNameUnchecked self constructor = liftDOM ((pFromJSVal <$> ((toJSVal constructor) >>= \a2' -> js_getName (self) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"initialize\"]($2); })"+        js_initialize :: CustomElementRegistry -> Node -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/initialize MDN CustomElementRegistry.initialize documentation>+initialize :: (MonadDOM m, IsNode root) => CustomElementRegistry -> root -> m ()+initialize self root = liftDOM (void ((js_initialize (self) (Types.toNode root))))++foreign import javascript safe "(($1, $2) => { return $1[\"upgrade\"]($2); })"+        js_upgrade :: CustomElementRegistry -> Node -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/upgrade MDN CustomElementRegistry.upgrade documentation>+upgrade :: (MonadDOM m, IsNode root) => CustomElementRegistry -> root -> m ()+upgrade self root = liftDOM (void ((js_upgrade (self) (Types.toNode root))))++foreign import javascript safe "(($1, $2) => { return $1[\"whenDefined\"]($2); })"         js_whenDefined :: CustomElementRegistry -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/whenDefined MDN CustomElementRegistry.whenDefined documentation>+whenDefined :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m JSVal+whenDefined self name = liftDOM ((js_whenDefined (self) (toJSString name))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.whenDefined Mozilla CustomElementRegistry.whenDefined documentation> -whenDefined ::-            (MonadIO m, ToJSString name) =>-              CustomElementRegistry -> name -> m ()-whenDefined self name-  = liftIO-      ((js_whenDefined self (toJSString name)) >>=-         maybeThrowPromiseRejected)+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/whenDefined MDN CustomElementRegistry.whenDefined documentation>+whenDefined_ :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m ()+whenDefined_ self name = liftDOM (void ((js_whenDefined (self) (toJSString name))))
src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs view
@@ -1,63 +1,35 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.CustomEvent-       (js_newCustomEvent, newCustomEvent, js_initCustomEvent,-        initCustomEvent, js_getDetail, getDetail, CustomEvent(..),-        gTypeCustomEvent)+       (js_newCustomEvent, js_initCustomEvent, js_getDetail, newCustomEvent, initCustomEvent, getDetail, CustomEvent(..), gTypeCustomEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"CustomEvent\"]($1,\n$2); })" js_newCustomEvent ::-        JSString -> Optional CustomEventInit -> IO CustomEvent --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent Mozilla CustomEvent documentation> -newCustomEvent ::-               (MonadIO m, ToJSString type') =>-                 type' -> Maybe CustomEventInit -> m CustomEvent-newCustomEvent type' eventInitDict-  = liftIO-      (js_newCustomEvent (toJSString type')-         (maybeToOptional eventInitDict))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5) => { return $1[\"initCustomEvent\"]($2, $3,\n$4, $5); })" js_initCustomEvent ::-        CustomEvent -> JSString -> Bool -> Bool -> Optional JSVal -> IO ()+foreign import javascript safe "(($1, $2) => { return new globalThis[\"CustomEvent\"]($1, $2); })"+        js_newCustomEvent :: JSString -> JSVal -> IO CustomEvent+-- | <https://developer.mozilla.org/docs/Web/API/CustomEvent/CustomEvent MDN CustomEvent. documentation>+newCustomEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe CustomEventInit -> m CustomEvent+newCustomEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newCustomEvent (toJSString type') a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.initCustomEvent Mozilla CustomEvent.initCustomEvent documentation> -initCustomEvent ::-                (MonadIO m, ToJSString type', ToJSVal detail) =>-                  CustomEvent -> type' -> Bool -> Bool -> Maybe detail -> m ()-initCustomEvent self type' bubbles cancelable detail-  = liftIO-      (mapM toJSVal detail >>=-         \ detail' ->-           js_initCustomEvent self (toJSString type') bubbles cancelable-             (maybeToOptional detail'))- -foreign import javascript unsafe "(($1) => { return $1[\"detail\"]; })" js_getDetail ::-        CustomEvent -> IO JSVal+foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"initCustomEvent\"]($2, $3, $4, $5); })"+        js_initCustomEvent :: CustomEvent -> JSString -> JSVal -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CustomEvent/initCustomEvent MDN CustomEvent.initCustomEvent documentation>+initCustomEvent :: (MonadDOM m, ToJSString type') => CustomEvent -> type' -> Maybe Bool -> Maybe Bool -> JSVal -> m ()+initCustomEvent self type' bubbles cancelable detail = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bubbles) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal cancelable) >>= \a4' -> js_initCustomEvent (self) (toJSString type') a3' a4' (detail)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.detail Mozilla CustomEvent.detail documentation> -getDetail :: (MonadIO m) => CustomEvent -> m JSVal-getDetail self = liftIO (js_getDetail self)+foreign import javascript unsafe "(($1) => { return $1[\"detail\"]; })"+        js_getDetail :: CustomEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CustomEvent/detail MDN CustomEvent.detail documentation>+getDetail :: (MonadDOM m) => CustomEvent -> m JSVal+getDetail self = liftDOM ((js_getDetail (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CustomEventInit.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CustomEventInit+       (js_newCustomEventInit, js_setDetail, js_getDetail, newCustomEventInit, setDetail, getDetail, CustomEventInit(..), gTypeCustomEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newCustomEventInit :: IO CustomEventInit+-- | <https://dom.spec.whatwg.org/#dictdef-customeventinit CustomEventInit specification>+newCustomEventInit :: (MonadDOM m) => m CustomEventInit+newCustomEventInit = liftDOM ((js_newCustomEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"detail\"] = $2; })"+        js_setDetail :: CustomEventInit -> JSVal -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-customeventinit-detail CustomEventInit.detail specification>+setDetail :: (MonadDOM m) => CustomEventInit -> JSVal -> m ()+setDetail self val = liftDOM (void ((js_setDetail (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"detail\"]; })"+        js_getDetail :: CustomEventInit -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-customeventinit-detail CustomEventInit.detail specification>+getDetail :: (MonadDOM m) => CustomEventInit -> m JSVal+getDetail self = liftDOM ((js_getDetail (self)))
+ src/GHCJS/DOM/JSFFI/Generated/CustomStateSet.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.CustomStateSet+       (CustomStateSet(..), gTypeCustomStateSet)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
− src/GHCJS/DOM/JSFFI/Generated/DOMError.hs
@@ -1,47 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.DOMError-       (js_getName, getName, js_getMessage, getMessage, DOMError(..),-        gTypeDOMError, IsDOMError, toDOMError)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName ::-        DOMError -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMError.name Mozilla DOMError.name documentation> -getName ::-        (MonadIO m, IsDOMError self, FromJSString result) =>-          self -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (toDOMError self)))- -foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" js_getMessage ::-        DOMError -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMError.message Mozilla DOMError.message documentation> -getMessage ::-           (MonadIO m, IsDOMError self, FromJSString result) =>-             self -> m result-getMessage self-  = liftIO (fromJSString <$> (js_getMessage (toDOMError self)))
src/GHCJS/DOM/JSFFI/Generated/DOMException.hs view
@@ -1,113 +1,91 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webidl (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMException-       (js_newDOMException, newDOMException, js_toString, toString,-        toString_, pattern INDEX_SIZE_ERR, pattern DOMSTRING_SIZE_ERR,-        pattern HIERARCHY_REQUEST_ERR, pattern WRONG_DOCUMENT_ERR,-        pattern INVALID_CHARACTER_ERR, pattern NO_DATA_ALLOWED_ERR,-        pattern NO_MODIFICATION_ALLOWED_ERR, pattern NOT_FOUND_ERR,-        pattern NOT_SUPPORTED_ERR, pattern INUSE_ATTRIBUTE_ERR,-        pattern INVALID_STATE_ERR, pattern SYNTAX_ERR,-        pattern INVALID_MODIFICATION_ERR, pattern NAMESPACE_ERR,-        pattern INVALID_ACCESS_ERR, pattern VALIDATION_ERR,-        pattern TYPE_MISMATCH_ERR, pattern SECURITY_ERR,-        pattern NETWORK_ERR, pattern ABORT_ERR, pattern URL_MISMATCH_ERR,-        pattern QUOTA_EXCEEDED_ERR, pattern TIMEOUT_ERR,-        pattern INVALID_NODE_TYPE_ERR, pattern DATA_CLONE_ERR, js_getCode,-        getCode, js_getName, getName, js_getMessage, getMessage,-        DOMException(..), gTypeDOMException)+       (js_newDOMException, js_getName, js_getMessage, js_getCode, newDOMException, getName, getMessage, getCode, pattern INDEX_SIZE_ERR, pattern DOMSTRING_SIZE_ERR, pattern HIERARCHY_REQUEST_ERR, pattern WRONG_DOCUMENT_ERR, pattern INVALID_CHARACTER_ERR, pattern NO_DATA_ALLOWED_ERR, pattern NO_MODIFICATION_ALLOWED_ERR, pattern NOT_FOUND_ERR, pattern NOT_SUPPORTED_ERR, pattern INUSE_ATTRIBUTE_ERR, pattern INVALID_STATE_ERR, pattern SYNTAX_ERR, pattern INVALID_MODIFICATION_ERR, pattern NAMESPACE_ERR, pattern INVALID_ACCESS_ERR, pattern VALIDATION_ERR, pattern TYPE_MISMATCH_ERR, pattern SECURITY_ERR, pattern NETWORK_ERR, pattern ABORT_ERR, pattern URL_MISMATCH_ERR, pattern QUOTA_EXCEEDED_ERR, pattern TIMEOUT_ERR, pattern INVALID_NODE_TYPE_ERR, pattern DATA_CLONE_ERR, DOMException(..), gTypeDOMException, IsDOMException, toDOMException)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"DOMException\"]($1,\n$2); })" js_newDOMException ::-        Optional JSString -> Optional JSString -> IO DOMException --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException Mozilla DOMException documentation> -newDOMException ::-                (MonadIO m, ToJSString message, ToJSString name) =>-                  Maybe message -> Maybe name -> m DOMException-newDOMException message name-  = liftIO-      (js_newDOMException (toOptionalJSString message)-         (toOptionalJSString name))- -foreign import javascript unsafe "(($1) => { return $1[\"toString\"](); })" js_toString-        :: DOMException -> IO JSString+foreign import javascript safe "(($1, $2) => { return new globalThis[\"DOMException\"]($1, $2); })"+        js_newDOMException :: (Optional JSString) -> (Optional JSString) -> IO DOMException+-- | <https://developer.mozilla.org/docs/Web/API/DOMException/DOMException MDN DOMException. documentation>+newDOMException :: (MonadDOM m, ToJSString message, ToJSString name) => Maybe message -> Maybe name -> m DOMException+newDOMException message name = liftDOM ((js_newDOMException (toOptionalJSString message) (toOptionalJSString name))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.toString Mozilla DOMException.toString documentation> -toString ::-         (MonadIO m, FromJSString result) => DOMException -> m result-toString self = liftIO (fromJSString <$> (js_toString self))+foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: DOMException -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DOMException/name MDN DOMException.name documentation>+getName :: (MonadDOM m, IsDOMException self, FromJSString result) => self -> m result+getName self = liftDOM ((fromJSString <$> (js_getName ((Types.toDOMException self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.toString Mozilla DOMException.toString documentation> -toString_ :: (MonadIO m) => DOMException -> m ()-toString_ self = liftIO (void (js_toString self))+foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })"+        js_getMessage :: DOMException -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DOMException/message MDN DOMException.message documentation>+getMessage :: (MonadDOM m, IsDOMException self, FromJSString result) => self -> m result+getMessage self = liftDOM ((fromJSString <$> (js_getMessage ((Types.toDOMException self)))))++foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })"+        js_getCode :: DOMException -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/DOMException/code MDN DOMException.code documentation>+getCode :: (MonadDOM m, IsDOMException self) => self -> m Word+getCode self = liftDOM ((js_getCode ((Types.toDOMException self))))+ pattern INDEX_SIZE_ERR = 1+ pattern DOMSTRING_SIZE_ERR = 2+ pattern HIERARCHY_REQUEST_ERR = 3+ pattern WRONG_DOCUMENT_ERR = 4+ pattern INVALID_CHARACTER_ERR = 5+ pattern NO_DATA_ALLOWED_ERR = 6+ pattern NO_MODIFICATION_ALLOWED_ERR = 7+ pattern NOT_FOUND_ERR = 8+ pattern NOT_SUPPORTED_ERR = 9+ pattern INUSE_ATTRIBUTE_ERR = 10+ pattern INVALID_STATE_ERR = 11+ pattern SYNTAX_ERR = 12+ pattern INVALID_MODIFICATION_ERR = 13+ pattern NAMESPACE_ERR = 14+ pattern INVALID_ACCESS_ERR = 15+ pattern VALIDATION_ERR = 16+ pattern TYPE_MISMATCH_ERR = 17+ pattern SECURITY_ERR = 18+ pattern NETWORK_ERR = 19+ pattern ABORT_ERR = 20+ pattern URL_MISMATCH_ERR = 21+ pattern QUOTA_EXCEEDED_ERR = 22-pattern TIMEOUT_ERR = 23-pattern INVALID_NODE_TYPE_ERR = 24-pattern DATA_CLONE_ERR = 25- -foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })" js_getCode ::-        DOMException -> IO Word --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.code Mozilla DOMException.code documentation> -getCode :: (MonadIO m) => DOMException -> m Word-getCode self = liftIO (js_getCode self)- -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName ::-        DOMException -> IO JSString+pattern TIMEOUT_ERR = 23 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.name Mozilla DOMException.name documentation> -getName ::-        (MonadIO m, FromJSString result) => DOMException -> m result-getName self = liftIO (fromJSString <$> (js_getName self))- -foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" js_getMessage ::-        DOMException -> IO JSString+pattern INVALID_NODE_TYPE_ERR = 24 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.message Mozilla DOMException.message documentation> -getMessage ::-           (MonadIO m, FromJSString result) => DOMException -> m result-getMessage self = liftIO (fromJSString <$> (js_getMessage self))+pattern DATA_CLONE_ERR = 25
src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs view
@@ -1,119 +1,57 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMImplementation-       (js_createDocumentType, createDocumentType, createDocumentType_,-        js_createDocument, createDocument, createDocument_,-        js_createHTMLDocument, createHTMLDocument, createHTMLDocument_,-        js_hasFeature, hasFeature, hasFeature_, DOMImplementation(..),-        gTypeDOMImplementation)+       (js_createDocument, js_createDocumentType, js_createHTMLDocument, js_hasFeature, createDocument, createDocument_, createDocumentType, createDocumentType_, createHTMLDocument, createHTMLDocument_, hasFeature, hasFeature_, DOMImplementation(..), gTypeDOMImplementation)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe-        "(($1, $2, $3, $4) => { return $1[\"createDocumentType\"]($2, $3,\n$4); })" js_createDocumentType ::-        DOMImplementation ->-          JSString -> JSString -> JSString -> IO DocumentType --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> -createDocumentType ::-                   (MonadIO m, ToJSString qualifiedName, ToJSString publicId,-                    ToJSString systemId) =>-                     DOMImplementation ->-                       qualifiedName -> publicId -> systemId -> m DocumentType-createDocumentType self qualifiedName publicId systemId-  = liftIO-      (js_createDocumentType self (toJSString qualifiedName)-         (toJSString publicId)-         (toJSString systemId))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> -createDocumentType_ ::-                    (MonadIO m, ToJSString qualifiedName, ToJSString publicId,-                     ToJSString systemId) =>-                      DOMImplementation -> qualifiedName -> publicId -> systemId -> m ()-createDocumentType_ self qualifiedName publicId systemId-  = liftIO-      (void-         (js_createDocumentType self (toJSString qualifiedName)-            (toJSString publicId)-            (toJSString systemId)))-  foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createDocument\"]($2, $3, $4); })"-        js_createDocument ::-        DOMImplementation ->-          Optional JSString ->-            JSString -> Optional DocumentType -> IO XMLDocument+        js_createDocument :: DOMImplementation -> (Nullable JSString) -> JSString -> JSVal -> IO XMLDocument+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocument MDN DOMImplementation.createDocument documentation>+createDocument :: (MonadDOM m, ToJSString namespace, ToJSString qualifiedName) => DOMImplementation -> Maybe namespace -> qualifiedName -> Maybe DocumentType -> m XMLDocument+createDocument self namespace qualifiedName doctype = liftDOM (((toJSVal doctype) >>= \a4' -> js_createDocument (self) (toMaybeJSString namespace) (toJSString qualifiedName) a4')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> -createDocument ::-               (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) =>-                 DOMImplementation ->-                   Maybe namespaceURI ->-                     qualifiedName -> Maybe DocumentType -> m XMLDocument-createDocument self namespaceURI qualifiedName doctype-  = liftIO-      (js_createDocument self (toOptionalJSString namespaceURI)-         (toJSString qualifiedName)-         (maybeToOptional doctype))+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocument MDN DOMImplementation.createDocument documentation>+createDocument_ :: (MonadDOM m, ToJSString namespace, ToJSString qualifiedName) => DOMImplementation -> Maybe namespace -> qualifiedName -> Maybe DocumentType -> m ()+createDocument_ self namespace qualifiedName doctype = liftDOM (void (((toJSVal doctype) >>= \a4' -> js_createDocument (self) (toMaybeJSString namespace) (toJSString qualifiedName) a4'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> -createDocument_ ::-                (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) =>-                  DOMImplementation ->-                    Maybe namespaceURI -> qualifiedName -> Maybe DocumentType -> m ()-createDocument_ self namespaceURI qualifiedName doctype-  = liftIO-      (void-         (js_createDocument self (toOptionalJSString namespaceURI)-            (toJSString qualifiedName)-            (maybeToOptional doctype)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"createHTMLDocument\"]($2); })"-        js_createHTMLDocument ::-        DOMImplementation -> Optional JSString -> IO HTMLDocument+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createDocumentType\"]($2, $3, $4); })"+        js_createDocumentType :: DOMImplementation -> JSString -> JSString -> JSString -> IO DocumentType+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocumentType MDN DOMImplementation.createDocumentType documentation>+createDocumentType :: (MonadDOM m, ToJSString name, ToJSString publicId, ToJSString systemId) => DOMImplementation -> name -> publicId -> systemId -> m DocumentType+createDocumentType self name publicId systemId = liftDOM ((js_createDocumentType (self) (toJSString name) (toJSString publicId) (toJSString systemId))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> -createHTMLDocument ::-                   (MonadIO m, ToJSString title) =>-                     DOMImplementation -> Maybe title -> m HTMLDocument-createHTMLDocument self title-  = liftIO (js_createHTMLDocument self (toOptionalJSString title))+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocumentType MDN DOMImplementation.createDocumentType documentation>+createDocumentType_ :: (MonadDOM m, ToJSString name, ToJSString publicId, ToJSString systemId) => DOMImplementation -> name -> publicId -> systemId -> m ()+createDocumentType_ self name publicId systemId = liftDOM (void ((js_createDocumentType (self) (toJSString name) (toJSString publicId) (toJSString systemId)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> -createHTMLDocument_ ::-                    (MonadIO m, ToJSString title) =>-                      DOMImplementation -> Maybe title -> m ()-createHTMLDocument_ self title-  = liftIO-      (void (js_createHTMLDocument self (toOptionalJSString title)))- -foreign import javascript unsafe "(($1) => { return ($1[\"hasFeature\"]() ? 1 : 0); })"-        js_hasFeature :: DOMImplementation -> IO Bool+foreign import javascript safe "(($1, $2) => { return $1[\"createHTMLDocument\"]($2); })"+        js_createHTMLDocument :: DOMImplementation -> (Optional JSString) -> IO Document+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createHTMLDocument MDN DOMImplementation.createHTMLDocument documentation>+createHTMLDocument :: (MonadDOM m, ToJSString title) => DOMImplementation -> Maybe title -> m Document+createHTMLDocument self title = liftDOM ((js_createHTMLDocument (self) (toOptionalJSString title))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation> -hasFeature :: (MonadIO m) => DOMImplementation -> m Bool-hasFeature self = liftIO (js_hasFeature self)+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createHTMLDocument MDN DOMImplementation.createHTMLDocument documentation>+createHTMLDocument_ :: (MonadDOM m, ToJSString title) => DOMImplementation -> Maybe title -> m ()+createHTMLDocument_ self title = liftDOM (void ((js_createHTMLDocument (self) (toOptionalJSString title)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation> -hasFeature_ :: (MonadIO m) => DOMImplementation -> m ()-hasFeature_ self = liftIO (void (js_hasFeature self))+foreign import javascript safe "(($1) => { return $1[\"hasFeature\"](); })"+        js_hasFeature :: DOMImplementation -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/hasFeature MDN DOMImplementation.hasFeature documentation>+hasFeature :: (MonadDOM m) => DOMImplementation -> m Bool+hasFeature self = liftDOM ((js_hasFeature (self)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/hasFeature MDN DOMImplementation.hasFeature documentation>+hasFeature_ :: (MonadDOM m) => DOMImplementation -> m ()+hasFeature_ self = liftDOM (void ((js_hasFeature (self))))
+ src/GHCJS/DOM/JSFFI/Generated/DOMMatrix.hs view
@@ -0,0 +1,437 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DOMMatrix+       (js_newDOMMatrix, js_invertSelf, js_multiplySelf, js_preMultiplySelf, js_rotateAxisAngleSelf, js_rotateFromVectorSelf, js_rotateSelf, js_scale3dSelf, js_scaleSelf, js_setMatrixValue, js_skewXSelf, js_skewYSelf, js_translateSelf, js_fromFloat32Array, js_fromFloat64Array, js_fromMatrix, js_setA, js_getA, js_setB, js_getB, js_setC, js_getC, js_setD, js_getD, js_setE, js_getE, js_setF, js_getF, js_setM11, js_getM11, js_setM12, js_getM12, js_setM13, js_getM13, js_setM14, js_getM14, js_setM21, js_getM21, js_setM22, js_getM22, js_setM23, js_getM23, js_setM24, js_getM24, js_setM31, js_getM31, js_setM32, js_getM32, js_setM33, js_getM33, js_setM34, js_getM34, js_setM41, js_getM41, js_setM42, js_getM42, js_setM43, js_getM43, js_setM44, js_getM44, newDOMMatrix, invertSelf, invertSelf_, multiplySelf, multiplySelf_, preMultiplySelf, preMultiplySelf_, rotateAxisAngleSelf, rotateAxisAngleSelf_, rotateFromVectorSelf, rotateFromVectorSelf_, rotateSelf, rotateSelf_, scale3dSelf, scale3dSelf_, scaleSelf, scaleSelf_, setMatrixValue, setMatrixValue_, skewXSelf, skewXSelf_, skewYSelf, skewYSelf_, translateSelf, translateSelf_, fromFloat32Array, fromFloat32Array_, fromFloat64Array, fromFloat64Array_, fromMatrix, fromMatrix_, setA, getA, setB, getB, setC, getC, setD, getD, setE, getE, setF, getF, setM11, getM11, setM12, getM12, setM13, getM13, setM14, getM14, setM21, getM21, setM22, getM22, setM23, getM23, setM24, getM24, setM31, getM31, setM32, getM32, setM33, getM33, setM34, getM34, setM41, getM41, setM42, getM42, setM43, getM43, setM44, getM44, DOMMatrix(..), gTypeDOMMatrix)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"DOMMatrix\"]($1); })"+        js_newDOMMatrix :: JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/DOMMatrix MDN DOMMatrix. documentation>+newDOMMatrix :: (MonadDOM m, IsStringOrSequenceDouble init) => Maybe init -> m DOMMatrix+newDOMMatrix init = liftDOM (((P.maybe (P.return jsUndefined) toJSVal init) >>= \a1' -> js_newDOMMatrix a1'))++foreign import javascript safe "(($1) => { return $1[\"invertSelf\"](); })"+        js_invertSelf :: DOMMatrix -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/invertSelf MDN DOMMatrix.invertSelf documentation>+invertSelf :: (MonadDOM m) => DOMMatrix -> m DOMMatrix+invertSelf self = liftDOM ((js_invertSelf (self)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/invertSelf MDN DOMMatrix.invertSelf documentation>+invertSelf_ :: (MonadDOM m) => DOMMatrix -> m ()+invertSelf_ self = liftDOM (void ((js_invertSelf (self))))++foreign import javascript safe "(($1, $2) => { return $1[\"multiplySelf\"]($2); })"+        js_multiplySelf :: DOMMatrix -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/multiplySelf MDN DOMMatrix.multiplySelf documentation>+multiplySelf :: (MonadDOM m) => DOMMatrix -> Maybe DOMMatrixInit -> m DOMMatrix+multiplySelf self other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_multiplySelf (self) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/multiplySelf MDN DOMMatrix.multiplySelf documentation>+multiplySelf_ :: (MonadDOM m) => DOMMatrix -> Maybe DOMMatrixInit -> m ()+multiplySelf_ self other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_multiplySelf (self) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"preMultiplySelf\"]($2); })"+        js_preMultiplySelf :: DOMMatrix -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/preMultiplySelf MDN DOMMatrix.preMultiplySelf documentation>+preMultiplySelf :: (MonadDOM m) => DOMMatrix -> Maybe DOMMatrixInit -> m DOMMatrix+preMultiplySelf self other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_preMultiplySelf (self) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/preMultiplySelf MDN DOMMatrix.preMultiplySelf documentation>+preMultiplySelf_ :: (MonadDOM m) => DOMMatrix -> Maybe DOMMatrixInit -> m ()+preMultiplySelf_ self other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_preMultiplySelf (self) a2')))++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"rotateAxisAngleSelf\"]($2, $3, $4, $5); })"+        js_rotateAxisAngleSelf :: DOMMatrix -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateAxisAngleSelf MDN DOMMatrix.rotateAxisAngleSelf documentation>+rotateAxisAngleSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix+rotateAxisAngleSelf self x y z angle = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal angle) >>= \a5' -> js_rotateAxisAngleSelf (self) a2' a3' a4' a5'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateAxisAngleSelf MDN DOMMatrix.rotateAxisAngleSelf documentation>+rotateAxisAngleSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+rotateAxisAngleSelf_ self x y z angle = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal angle) >>= \a5' -> js_rotateAxisAngleSelf (self) a2' a3' a4' a5')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"rotateFromVectorSelf\"]($2, $3); })"+        js_rotateFromVectorSelf :: DOMMatrix -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateFromVectorSelf MDN DOMMatrix.rotateFromVectorSelf documentation>+rotateFromVectorSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> m DOMMatrix+rotateFromVectorSelf self x y = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> js_rotateFromVectorSelf (self) a2' a3'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateFromVectorSelf MDN DOMMatrix.rotateFromVectorSelf documentation>+rotateFromVectorSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> m ()+rotateFromVectorSelf_ self x y = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> js_rotateFromVectorSelf (self) a2' a3')))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"rotateSelf\"]($2, $3, $4); })"+        js_rotateSelf :: DOMMatrix -> JSVal -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateSelf MDN DOMMatrix.rotateSelf documentation>+rotateSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix+rotateSelf self rotX rotY rotZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal rotX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal rotY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal rotZ) >>= \a4' -> js_rotateSelf (self) a2' a3' a4'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateSelf MDN DOMMatrix.rotateSelf documentation>+rotateSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+rotateSelf_ self rotX rotY rotZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal rotX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal rotY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal rotZ) >>= \a4' -> js_rotateSelf (self) a2' a3' a4')))++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"scale3dSelf\"]($2, $3, $4, $5); })"+        js_scale3dSelf :: DOMMatrix -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/scale3dSelf MDN DOMMatrix.scale3dSelf documentation>+scale3dSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix+scale3dSelf self scale originX originY originZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal scale) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a5' -> js_scale3dSelf (self) a2' a3' a4' a5'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/scale3dSelf MDN DOMMatrix.scale3dSelf documentation>+scale3dSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+scale3dSelf_ self scale originX originY originZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal scale) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a5' -> js_scale3dSelf (self) a2' a3' a4' a5')))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"scaleSelf\"]($2, $3, $4, $5, $6, $7); })"+        js_scaleSelf :: DOMMatrix -> JSVal -> JSVal -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/scaleSelf MDN DOMMatrix.scaleSelf documentation>+scaleSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix+scaleSelf self scaleX scaleY scaleZ originX originY originZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal scaleZ) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a5' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a6' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a7' -> js_scaleSelf (self) a2' a3' a4' a5' a6' a7'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/scaleSelf MDN DOMMatrix.scaleSelf documentation>+scaleSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+scaleSelf_ self scaleX scaleY scaleZ originX originY originZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal scaleZ) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a5' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a6' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a7' -> js_scaleSelf (self) a2' a3' a4' a5' a6' a7')))++foreign import javascript safe "(($1, $2) => { return $1[\"setMatrixValue\"]($2); })"+        js_setMatrixValue :: DOMMatrix -> JSString -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/setMatrixValue MDN DOMMatrix.setMatrixValue documentation>+setMatrixValue :: (MonadDOM m, ToJSString transformList) => DOMMatrix -> transformList -> m DOMMatrix+setMatrixValue self transformList = liftDOM ((js_setMatrixValue (self) (toJSString transformList)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/setMatrixValue MDN DOMMatrix.setMatrixValue documentation>+setMatrixValue_ :: (MonadDOM m, ToJSString transformList) => DOMMatrix -> transformList -> m ()+setMatrixValue_ self transformList = liftDOM (void ((js_setMatrixValue (self) (toJSString transformList))))++foreign import javascript safe "(($1, $2) => { return $1[\"skewXSelf\"]($2); })"+        js_skewXSelf :: DOMMatrix -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/skewXSelf MDN DOMMatrix.skewXSelf documentation>+skewXSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> m DOMMatrix+skewXSelf self sx = liftDOM (((P.maybe (P.return jsUndefined) toJSVal sx) >>= \a2' -> js_skewXSelf (self) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/skewXSelf MDN DOMMatrix.skewXSelf documentation>+skewXSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> m ()+skewXSelf_ self sx = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal sx) >>= \a2' -> js_skewXSelf (self) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"skewYSelf\"]($2); })"+        js_skewYSelf :: DOMMatrix -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/skewYSelf MDN DOMMatrix.skewYSelf documentation>+skewYSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> m DOMMatrix+skewYSelf self sy = liftDOM (((P.maybe (P.return jsUndefined) toJSVal sy) >>= \a2' -> js_skewYSelf (self) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/skewYSelf MDN DOMMatrix.skewYSelf documentation>+skewYSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> m ()+skewYSelf_ self sy = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal sy) >>= \a2' -> js_skewYSelf (self) a2')))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"translateSelf\"]($2, $3, $4); })"+        js_translateSelf :: DOMMatrix -> JSVal -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/translateSelf MDN DOMMatrix.translateSelf documentation>+translateSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix+translateSelf self tx ty tz = liftDOM (((P.maybe (P.return jsUndefined) toJSVal tx) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal ty) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal tz) >>= \a4' -> js_translateSelf (self) a2' a3' a4'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/translateSelf MDN DOMMatrix.translateSelf documentation>+translateSelf_ :: (MonadDOM m) => DOMMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+translateSelf_ self tx ty tz = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal tx) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal ty) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal tz) >>= \a4' -> js_translateSelf (self) a2' a3' a4')))++foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrix\"][\"fromFloat32Array\"]($1); })"+        js_fromFloat32Array :: Float32Array -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromFloat32Array_static MDN DOMMatrix.fromFloat32Array documentation>+fromFloat32Array :: (MonadDOM m, IsFloat32Array array32) => array32 -> m DOMMatrix+fromFloat32Array array32 = liftDOM ((js_fromFloat32Array (Types.toFloat32Array array32)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromFloat32Array_static MDN DOMMatrix.fromFloat32Array documentation>+fromFloat32Array_ :: (MonadDOM m, IsFloat32Array array32) => array32 -> m ()+fromFloat32Array_ array32 = liftDOM (void ((js_fromFloat32Array (Types.toFloat32Array array32))))++foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrix\"][\"fromFloat64Array\"]($1); })"+        js_fromFloat64Array :: Float64Array -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromFloat64Array_static MDN DOMMatrix.fromFloat64Array documentation>+fromFloat64Array :: (MonadDOM m, IsFloat64Array array64) => array64 -> m DOMMatrix+fromFloat64Array array64 = liftDOM ((js_fromFloat64Array (Types.toFloat64Array array64)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromFloat64Array_static MDN DOMMatrix.fromFloat64Array documentation>+fromFloat64Array_ :: (MonadDOM m, IsFloat64Array array64) => array64 -> m ()+fromFloat64Array_ array64 = liftDOM (void ((js_fromFloat64Array (Types.toFloat64Array array64))))++foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrix\"][\"fromMatrix\"]($1); })"+        js_fromMatrix :: JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromMatrix_static MDN DOMMatrix.fromMatrix documentation>+fromMatrix :: (MonadDOM m) => Maybe DOMMatrixInit -> m DOMMatrix+fromMatrix other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromMatrix a1'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromMatrix_static MDN DOMMatrix.fromMatrix documentation>+fromMatrix_ :: (MonadDOM m) => Maybe DOMMatrixInit -> m ()+fromMatrix_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromMatrix a1')))++foreign import javascript safe "(($1, $2) => { $1[\"a\"] = $2; })"+        js_setA :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.a documentation>+setA :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setA self val = liftDOM (void ((js_setA (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"a\"]; })"+        js_getA :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.a documentation>+getA :: (MonadDOM m) => DOMMatrix -> m Double+getA self = liftDOM ((js_getA (self)))++foreign import javascript safe "(($1, $2) => { $1[\"b\"] = $2; })"+        js_setB :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.b documentation>+setB :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setB self val = liftDOM (void ((js_setB (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"b\"]; })"+        js_getB :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.b documentation>+getB :: (MonadDOM m) => DOMMatrix -> m Double+getB self = liftDOM ((js_getB (self)))++foreign import javascript safe "(($1, $2) => { $1[\"c\"] = $2; })"+        js_setC :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.c documentation>+setC :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setC self val = liftDOM (void ((js_setC (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"c\"]; })"+        js_getC :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.c documentation>+getC :: (MonadDOM m) => DOMMatrix -> m Double+getC self = liftDOM ((js_getC (self)))++foreign import javascript safe "(($1, $2) => { $1[\"d\"] = $2; })"+        js_setD :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.d documentation>+setD :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setD self val = liftDOM (void ((js_setD (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"d\"]; })"+        js_getD :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.d documentation>+getD :: (MonadDOM m) => DOMMatrix -> m Double+getD self = liftDOM ((js_getD (self)))++foreign import javascript safe "(($1, $2) => { $1[\"e\"] = $2; })"+        js_setE :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.e documentation>+setE :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setE self val = liftDOM (void ((js_setE (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"e\"]; })"+        js_getE :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.e documentation>+getE :: (MonadDOM m) => DOMMatrix -> m Double+getE self = liftDOM ((js_getE (self)))++foreign import javascript safe "(($1, $2) => { $1[\"f\"] = $2; })"+        js_setF :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.f documentation>+setF :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setF self val = liftDOM (void ((js_setF (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"f\"]; })"+        js_getF :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.f documentation>+getF :: (MonadDOM m) => DOMMatrix -> m Double+getF self = liftDOM ((js_getF (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m11\"] = $2; })"+        js_setM11 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m11 documentation>+setM11 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM11 self val = liftDOM (void ((js_setM11 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m11\"]; })"+        js_getM11 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m11 documentation>+getM11 :: (MonadDOM m) => DOMMatrix -> m Double+getM11 self = liftDOM ((js_getM11 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m12\"] = $2; })"+        js_setM12 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m12 documentation>+setM12 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM12 self val = liftDOM (void ((js_setM12 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m12\"]; })"+        js_getM12 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m12 documentation>+getM12 :: (MonadDOM m) => DOMMatrix -> m Double+getM12 self = liftDOM ((js_getM12 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m13\"] = $2; })"+        js_setM13 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m13 documentation>+setM13 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM13 self val = liftDOM (void ((js_setM13 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m13\"]; })"+        js_getM13 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m13 documentation>+getM13 :: (MonadDOM m) => DOMMatrix -> m Double+getM13 self = liftDOM ((js_getM13 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m14\"] = $2; })"+        js_setM14 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m14 documentation>+setM14 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM14 self val = liftDOM (void ((js_setM14 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m14\"]; })"+        js_getM14 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m14 documentation>+getM14 :: (MonadDOM m) => DOMMatrix -> m Double+getM14 self = liftDOM ((js_getM14 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m21\"] = $2; })"+        js_setM21 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m21 documentation>+setM21 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM21 self val = liftDOM (void ((js_setM21 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m21\"]; })"+        js_getM21 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m21 documentation>+getM21 :: (MonadDOM m) => DOMMatrix -> m Double+getM21 self = liftDOM ((js_getM21 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m22\"] = $2; })"+        js_setM22 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m22 documentation>+setM22 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM22 self val = liftDOM (void ((js_setM22 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m22\"]; })"+        js_getM22 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m22 documentation>+getM22 :: (MonadDOM m) => DOMMatrix -> m Double+getM22 self = liftDOM ((js_getM22 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m23\"] = $2; })"+        js_setM23 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m23 documentation>+setM23 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM23 self val = liftDOM (void ((js_setM23 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m23\"]; })"+        js_getM23 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m23 documentation>+getM23 :: (MonadDOM m) => DOMMatrix -> m Double+getM23 self = liftDOM ((js_getM23 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m24\"] = $2; })"+        js_setM24 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m24 documentation>+setM24 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM24 self val = liftDOM (void ((js_setM24 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m24\"]; })"+        js_getM24 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m24 documentation>+getM24 :: (MonadDOM m) => DOMMatrix -> m Double+getM24 self = liftDOM ((js_getM24 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m31\"] = $2; })"+        js_setM31 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m31 documentation>+setM31 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM31 self val = liftDOM (void ((js_setM31 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m31\"]; })"+        js_getM31 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m31 documentation>+getM31 :: (MonadDOM m) => DOMMatrix -> m Double+getM31 self = liftDOM ((js_getM31 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m32\"] = $2; })"+        js_setM32 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m32 documentation>+setM32 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM32 self val = liftDOM (void ((js_setM32 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m32\"]; })"+        js_getM32 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m32 documentation>+getM32 :: (MonadDOM m) => DOMMatrix -> m Double+getM32 self = liftDOM ((js_getM32 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m33\"] = $2; })"+        js_setM33 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m33 documentation>+setM33 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM33 self val = liftDOM (void ((js_setM33 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m33\"]; })"+        js_getM33 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m33 documentation>+getM33 :: (MonadDOM m) => DOMMatrix -> m Double+getM33 self = liftDOM ((js_getM33 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m34\"] = $2; })"+        js_setM34 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m34 documentation>+setM34 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM34 self val = liftDOM (void ((js_setM34 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m34\"]; })"+        js_getM34 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m34 documentation>+getM34 :: (MonadDOM m) => DOMMatrix -> m Double+getM34 self = liftDOM ((js_getM34 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m41\"] = $2; })"+        js_setM41 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m41 documentation>+setM41 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM41 self val = liftDOM (void ((js_setM41 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m41\"]; })"+        js_getM41 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m41 documentation>+getM41 :: (MonadDOM m) => DOMMatrix -> m Double+getM41 self = liftDOM ((js_getM41 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m42\"] = $2; })"+        js_setM42 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m42 documentation>+setM42 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM42 self val = liftDOM (void ((js_setM42 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m42\"]; })"+        js_getM42 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m42 documentation>+getM42 :: (MonadDOM m) => DOMMatrix -> m Double+getM42 self = liftDOM ((js_getM42 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m43\"] = $2; })"+        js_setM43 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m43 documentation>+setM43 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM43 self val = liftDOM (void ((js_setM43 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m43\"]; })"+        js_getM43 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m43 documentation>+getM43 :: (MonadDOM m) => DOMMatrix -> m Double+getM43 self = liftDOM ((js_getM43 (self)))++foreign import javascript safe "(($1, $2) => { $1[\"m44\"] = $2; })"+        js_setM44 :: DOMMatrix -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m44 documentation>+setM44 :: (MonadDOM m) => DOMMatrix -> Double -> m ()+setM44 self val = liftDOM (void ((js_setM44 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m44\"]; })"+        js_getM44 :: DOMMatrix -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m44 documentation>+getM44 :: (MonadDOM m) => DOMMatrix -> m Double+getM44 self = liftDOM ((js_getM44 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMMatrix2DInit.hs view
@@ -0,0 +1,263 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DOMMatrix2DInit+       (js_newDOMMatrix2DInit, js_setA, js_getA, js_setB, js_getB, js_setC, js_getC, js_setD, js_getD, js_setE, js_getE, js_setF, js_getF, js_setM11, js_getM11, js_setM12, js_getM12, js_setM21, js_getM21, js_setM22, js_getM22, js_setM41, js_getM41, js_setM42, js_getM42, newDOMMatrix2DInit, setA, getA, getAUnsafe, getAUnchecked, setB, getB, getBUnsafe, getBUnchecked, setC, getC, getCUnsafe, getCUnchecked, setD, getD, getDUnsafe, getDUnchecked, setE, getE, getEUnsafe, getEUnchecked, setF, getF, getFUnsafe, getFUnchecked, setM11, getM11, getM11Unsafe, getM11Unchecked, setM12, getM12, getM12Unsafe, getM12Unchecked, setM21, getM21, getM21Unsafe, getM21Unchecked, setM22, getM22, getM22Unsafe, getM22Unchecked, setM41, getM41, getM41Unsafe, getM41Unchecked, setM42, getM42, getM42Unsafe, getM42Unchecked, DOMMatrix2DInit(..), gTypeDOMMatrix2DInit, IsDOMMatrix2DInit, toDOMMatrix2DInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDOMMatrix2DInit :: IO DOMMatrix2DInit+-- | <https://drafts.csswg.org/geometry-1/#dictdef-dommatrix2dinit DOMMatrix2DInit specification>+newDOMMatrix2DInit :: (MonadDOM m) => m DOMMatrix2DInit+newDOMMatrix2DInit = liftDOM ((js_newDOMMatrix2DInit))++foreign import javascript safe "(($1, $2) => { $1[\"a\"] = $2; })"+        js_setA :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-a DOMMatrix2DInit.a specification>+setA :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setA self val = liftDOM (void ((js_setA ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"a\"]; })"+        js_getA :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-a DOMMatrix2DInit.a specification>+getA :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getA self = liftDOM (((js_getA ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-a DOMMatrix2DInit.a specification>+getAUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getAUnsafe self = liftDOM ((((js_getA ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-a DOMMatrix2DInit.a specification>+getAUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getAUnchecked self = liftDOM ((pFromJSVal <$> (js_getA ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"b\"] = $2; })"+        js_setB :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-b DOMMatrix2DInit.b specification>+setB :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setB self val = liftDOM (void ((js_setB ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"b\"]; })"+        js_getB :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-b DOMMatrix2DInit.b specification>+getB :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getB self = liftDOM (((js_getB ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-b DOMMatrix2DInit.b specification>+getBUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getBUnsafe self = liftDOM ((((js_getB ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-b DOMMatrix2DInit.b specification>+getBUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getBUnchecked self = liftDOM ((pFromJSVal <$> (js_getB ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"c\"] = $2; })"+        js_setC :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-c DOMMatrix2DInit.c specification>+setC :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setC self val = liftDOM (void ((js_setC ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"c\"]; })"+        js_getC :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-c DOMMatrix2DInit.c specification>+getC :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getC self = liftDOM (((js_getC ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-c DOMMatrix2DInit.c specification>+getCUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getCUnsafe self = liftDOM ((((js_getC ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-c DOMMatrix2DInit.c specification>+getCUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getCUnchecked self = liftDOM ((pFromJSVal <$> (js_getC ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"d\"] = $2; })"+        js_setD :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-d DOMMatrix2DInit.d specification>+setD :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setD self val = liftDOM (void ((js_setD ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"d\"]; })"+        js_getD :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-d DOMMatrix2DInit.d specification>+getD :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getD self = liftDOM (((js_getD ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-d DOMMatrix2DInit.d specification>+getDUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getDUnsafe self = liftDOM ((((js_getD ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-d DOMMatrix2DInit.d specification>+getDUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getDUnchecked self = liftDOM ((pFromJSVal <$> (js_getD ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"e\"] = $2; })"+        js_setE :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-e DOMMatrix2DInit.e specification>+setE :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setE self val = liftDOM (void ((js_setE ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"e\"]; })"+        js_getE :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-e DOMMatrix2DInit.e specification>+getE :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getE self = liftDOM (((js_getE ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-e DOMMatrix2DInit.e specification>+getEUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getEUnsafe self = liftDOM ((((js_getE ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-e DOMMatrix2DInit.e specification>+getEUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getEUnchecked self = liftDOM ((pFromJSVal <$> (js_getE ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"f\"] = $2; })"+        js_setF :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-f DOMMatrix2DInit.f specification>+setF :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setF self val = liftDOM (void ((js_setF ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"f\"]; })"+        js_getF :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-f DOMMatrix2DInit.f specification>+getF :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getF self = liftDOM (((js_getF ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-f DOMMatrix2DInit.f specification>+getFUnsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getFUnsafe self = liftDOM ((((js_getF ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-f DOMMatrix2DInit.f specification>+getFUnchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getFUnchecked self = liftDOM ((pFromJSVal <$> (js_getF ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"m11\"] = $2; })"+        js_setM11 :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m11 DOMMatrix2DInit.m11 specification>+setM11 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setM11 self val = liftDOM (void ((js_setM11 ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m11\"]; })"+        js_getM11 :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m11 DOMMatrix2DInit.m11 specification>+getM11 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM11 self = liftDOM (((js_getM11 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m11 DOMMatrix2DInit.m11 specification>+getM11Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getM11Unsafe self = liftDOM ((((js_getM11 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m11 DOMMatrix2DInit.m11 specification>+getM11Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getM11Unchecked self = liftDOM ((pFromJSVal <$> (js_getM11 ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"m12\"] = $2; })"+        js_setM12 :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m12 DOMMatrix2DInit.m12 specification>+setM12 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setM12 self val = liftDOM (void ((js_setM12 ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m12\"]; })"+        js_getM12 :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m12 DOMMatrix2DInit.m12 specification>+getM12 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM12 self = liftDOM (((js_getM12 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m12 DOMMatrix2DInit.m12 specification>+getM12Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getM12Unsafe self = liftDOM ((((js_getM12 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m12 DOMMatrix2DInit.m12 specification>+getM12Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getM12Unchecked self = liftDOM ((pFromJSVal <$> (js_getM12 ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"m21\"] = $2; })"+        js_setM21 :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m21 DOMMatrix2DInit.m21 specification>+setM21 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setM21 self val = liftDOM (void ((js_setM21 ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m21\"]; })"+        js_getM21 :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m21 DOMMatrix2DInit.m21 specification>+getM21 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM21 self = liftDOM (((js_getM21 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m21 DOMMatrix2DInit.m21 specification>+getM21Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getM21Unsafe self = liftDOM ((((js_getM21 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m21 DOMMatrix2DInit.m21 specification>+getM21Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getM21Unchecked self = liftDOM ((pFromJSVal <$> (js_getM21 ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"m22\"] = $2; })"+        js_setM22 :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m22 DOMMatrix2DInit.m22 specification>+setM22 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setM22 self val = liftDOM (void ((js_setM22 ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m22\"]; })"+        js_getM22 :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m22 DOMMatrix2DInit.m22 specification>+getM22 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM22 self = liftDOM (((js_getM22 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m22 DOMMatrix2DInit.m22 specification>+getM22Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getM22Unsafe self = liftDOM ((((js_getM22 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m22 DOMMatrix2DInit.m22 specification>+getM22Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getM22Unchecked self = liftDOM ((pFromJSVal <$> (js_getM22 ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"m41\"] = $2; })"+        js_setM41 :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m41 DOMMatrix2DInit.m41 specification>+setM41 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setM41 self val = liftDOM (void ((js_setM41 ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m41\"]; })"+        js_getM41 :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m41 DOMMatrix2DInit.m41 specification>+getM41 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM41 self = liftDOM (((js_getM41 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m41 DOMMatrix2DInit.m41 specification>+getM41Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getM41Unsafe self = liftDOM ((((js_getM41 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m41 DOMMatrix2DInit.m41 specification>+getM41Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getM41Unchecked self = liftDOM ((pFromJSVal <$> (js_getM41 ((Types.toDOMMatrix2DInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"m42\"] = $2; })"+        js_setM42 :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m42 DOMMatrix2DInit.m42 specification>+setM42 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> Double -> m ()+setM42 self val = liftDOM (void ((js_setM42 ((Types.toDOMMatrix2DInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m42\"]; })"+        js_getM42 :: DOMMatrix2DInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m42 DOMMatrix2DInit.m42 specification>+getM42 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM42 self = liftDOM (((js_getM42 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m42 DOMMatrix2DInit.m42 specification>+getM42Unsafe :: (MonadDOM m, IsDOMMatrix2DInit self, HasCallStack) => self -> m Double+getM42Unsafe self = liftDOM ((((js_getM42 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m42 DOMMatrix2DInit.m42 specification>+getM42Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getM42Unchecked self = liftDOM ((pFromJSVal <$> (js_getM42 ((Types.toDOMMatrix2DInit self)))))
+ src/GHCJS/DOM/JSFFI/Generated/DOMMatrixInit.hs view
@@ -0,0 +1,243 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DOMMatrixInit+       (js_newDOMMatrixInit, js_setM13, js_getM13, js_setM14, js_getM14, js_setM23, js_getM23, js_setM24, js_getM24, js_setM31, js_getM31, js_setM32, js_getM32, js_setM33, js_getM33, js_setM34, js_getM34, js_setM43, js_getM43, js_setM44, js_getM44, js_setIs2D, js_getIs2D, newDOMMatrixInit, setM13, getM13, getM13Unsafe, getM13Unchecked, setM14, getM14, getM14Unsafe, getM14Unchecked, setM23, getM23, getM23Unsafe, getM23Unchecked, setM24, getM24, getM24Unsafe, getM24Unchecked, setM31, getM31, getM31Unsafe, getM31Unchecked, setM32, getM32, getM32Unsafe, getM32Unchecked, setM33, getM33, getM33Unsafe, getM33Unchecked, setM34, getM34, getM34Unsafe, getM34Unchecked, setM43, getM43, getM43Unsafe, getM43Unchecked, setM44, getM44, getM44Unsafe, getM44Unchecked, setIs2D, getIs2D, getIs2DUnsafe, getIs2DUnchecked, DOMMatrixInit(..), gTypeDOMMatrixInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDOMMatrixInit :: IO DOMMatrixInit+-- | <https://drafts.csswg.org/geometry-1/#dictdef-dommatrixinit DOMMatrixInit specification>+newDOMMatrixInit :: (MonadDOM m) => m DOMMatrixInit+newDOMMatrixInit = liftDOM ((js_newDOMMatrixInit))++foreign import javascript safe "(($1, $2) => { $1[\"m13\"] = $2; })"+        js_setM13 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m13 DOMMatrixInit.m13 specification>+setM13 :: (MonadDOM m) => DOMMatrixInit -> Double -> m ()+setM13 self val = liftDOM (void ((js_setM13 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m13\"]; })"+        js_getM13 :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m13 DOMMatrixInit.m13 specification>+getM13 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM13 self = liftDOM (((js_getM13 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m13 DOMMatrixInit.m13 specification>+getM13Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM13Unsafe self = liftDOM ((((js_getM13 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m13 DOMMatrixInit.m13 specification>+getM13Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double+getM13Unchecked self = liftDOM ((pFromJSVal <$> (js_getM13 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"m14\"] = $2; })"+        js_setM14 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m14 DOMMatrixInit.m14 specification>+setM14 :: (MonadDOM m) => DOMMatrixInit -> Double -> m ()+setM14 self val = liftDOM (void ((js_setM14 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m14\"]; })"+        js_getM14 :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m14 DOMMatrixInit.m14 specification>+getM14 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM14 self = liftDOM (((js_getM14 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m14 DOMMatrixInit.m14 specification>+getM14Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM14Unsafe self = liftDOM ((((js_getM14 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m14 DOMMatrixInit.m14 specification>+getM14Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double+getM14Unchecked self = liftDOM ((pFromJSVal <$> (js_getM14 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"m23\"] = $2; })"+        js_setM23 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m23 DOMMatrixInit.m23 specification>+setM23 :: (MonadDOM m) => DOMMatrixInit -> Double -> m ()+setM23 self val = liftDOM (void ((js_setM23 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m23\"]; })"+        js_getM23 :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m23 DOMMatrixInit.m23 specification>+getM23 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM23 self = liftDOM (((js_getM23 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m23 DOMMatrixInit.m23 specification>+getM23Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM23Unsafe self = liftDOM ((((js_getM23 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m23 DOMMatrixInit.m23 specification>+getM23Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double+getM23Unchecked self = liftDOM ((pFromJSVal <$> (js_getM23 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"m24\"] = $2; })"+        js_setM24 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m24 DOMMatrixInit.m24 specification>+setM24 :: (MonadDOM m) => DOMMatrixInit -> Double -> m ()+setM24 self val = liftDOM (void ((js_setM24 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m24\"]; })"+        js_getM24 :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m24 DOMMatrixInit.m24 specification>+getM24 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM24 self = liftDOM (((js_getM24 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m24 DOMMatrixInit.m24 specification>+getM24Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM24Unsafe self = liftDOM ((((js_getM24 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m24 DOMMatrixInit.m24 specification>+getM24Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double+getM24Unchecked self = liftDOM ((pFromJSVal <$> (js_getM24 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"m31\"] = $2; })"+        js_setM31 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m31 DOMMatrixInit.m31 specification>+setM31 :: (MonadDOM m) => DOMMatrixInit -> Double -> m ()+setM31 self val = liftDOM (void ((js_setM31 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m31\"]; })"+        js_getM31 :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m31 DOMMatrixInit.m31 specification>+getM31 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM31 self = liftDOM (((js_getM31 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m31 DOMMatrixInit.m31 specification>+getM31Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM31Unsafe self = liftDOM ((((js_getM31 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m31 DOMMatrixInit.m31 specification>+getM31Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double+getM31Unchecked self = liftDOM ((pFromJSVal <$> (js_getM31 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"m32\"] = $2; })"+        js_setM32 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m32 DOMMatrixInit.m32 specification>+setM32 :: (MonadDOM m) => DOMMatrixInit -> Double -> m ()+setM32 self val = liftDOM (void ((js_setM32 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m32\"]; })"+        js_getM32 :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m32 DOMMatrixInit.m32 specification>+getM32 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM32 self = liftDOM (((js_getM32 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m32 DOMMatrixInit.m32 specification>+getM32Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM32Unsafe self = liftDOM ((((js_getM32 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m32 DOMMatrixInit.m32 specification>+getM32Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double+getM32Unchecked self = liftDOM ((pFromJSVal <$> (js_getM32 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"m33\"] = $2; })"+        js_setM33 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m33 DOMMatrixInit.m33 specification>+setM33 :: (MonadDOM m) => DOMMatrixInit -> Double -> m ()+setM33 self val = liftDOM (void ((js_setM33 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m33\"]; })"+        js_getM33 :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m33 DOMMatrixInit.m33 specification>+getM33 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM33 self = liftDOM (((js_getM33 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m33 DOMMatrixInit.m33 specification>+getM33Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM33Unsafe self = liftDOM ((((js_getM33 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m33 DOMMatrixInit.m33 specification>+getM33Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double+getM33Unchecked self = liftDOM ((pFromJSVal <$> (js_getM33 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"m34\"] = $2; })"+        js_setM34 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m34 DOMMatrixInit.m34 specification>+setM34 :: (MonadDOM m) => DOMMatrixInit -> Double -> m ()+setM34 self val = liftDOM (void ((js_setM34 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m34\"]; })"+        js_getM34 :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m34 DOMMatrixInit.m34 specification>+getM34 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM34 self = liftDOM (((js_getM34 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m34 DOMMatrixInit.m34 specification>+getM34Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM34Unsafe self = liftDOM ((((js_getM34 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m34 DOMMatrixInit.m34 specification>+getM34Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double+getM34Unchecked self = liftDOM ((pFromJSVal <$> (js_getM34 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"m43\"] = $2; })"+        js_setM43 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m43 DOMMatrixInit.m43 specification>+setM43 :: (MonadDOM m) => DOMMatrixInit -> Double -> m ()+setM43 self val = liftDOM (void ((js_setM43 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m43\"]; })"+        js_getM43 :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m43 DOMMatrixInit.m43 specification>+getM43 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM43 self = liftDOM (((js_getM43 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m43 DOMMatrixInit.m43 specification>+getM43Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM43Unsafe self = liftDOM ((((js_getM43 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m43 DOMMatrixInit.m43 specification>+getM43Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double+getM43Unchecked self = liftDOM ((pFromJSVal <$> (js_getM43 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"m44\"] = $2; })"+        js_setM44 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m44 DOMMatrixInit.m44 specification>+setM44 :: (MonadDOM m) => DOMMatrixInit -> Double -> m ()+setM44 self val = liftDOM (void ((js_setM44 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"m44\"]; })"+        js_getM44 :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m44 DOMMatrixInit.m44 specification>+getM44 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM44 self = liftDOM (((js_getM44 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m44 DOMMatrixInit.m44 specification>+getM44Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM44Unsafe self = liftDOM ((((js_getM44 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m44 DOMMatrixInit.m44 specification>+getM44Unchecked :: (MonadDOM m) => DOMMatrixInit -> m Double+getM44Unchecked self = liftDOM ((pFromJSVal <$> (js_getM44 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"is2D\"] = $2; })"+        js_setIs2D :: DOMMatrixInit -> Bool -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-is2d DOMMatrixInit.is2D specification>+setIs2D :: (MonadDOM m) => DOMMatrixInit -> Bool -> m ()+setIs2D self val = liftDOM (void ((js_setIs2D (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"is2D\"]; })"+        js_getIs2D :: DOMMatrixInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-is2d DOMMatrixInit.is2D specification>+getIs2D :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Bool)+getIs2D self = liftDOM (((js_getIs2D (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-is2d DOMMatrixInit.is2D specification>+getIs2DUnsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Bool+getIs2DUnsafe self = liftDOM ((((js_getIs2D (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-is2d DOMMatrixInit.is2D specification>+getIs2DUnchecked :: (MonadDOM m) => DOMMatrixInit -> m Bool+getIs2DUnchecked self = liftDOM ((pFromJSVal <$> (js_getIs2D (self))))
+ src/GHCJS/DOM/JSFFI/Generated/DOMMatrixReadOnly.hs view
@@ -0,0 +1,367 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DOMMatrixReadOnly+       (js_newDOMMatrixReadOnly, js_flipX, js_flipY, js_inverse, js_multiply, js_rotate, js_rotateAxisAngle, js_rotateFromVector, js_scale, js_scale3d, js_scaleNonUniform, js_skewX, js_skewY, js_toFloat32Array, js_toFloat64Array, js_toJSON, js_transformPoint, js_translate, js_fromFloat32Array, js_fromFloat64Array, js_fromMatrix, js_getA, js_getB, js_getC, js_getD, js_getE, js_getF, js_getM11, js_getM12, js_getM13, js_getM14, js_getM21, js_getM22, js_getM23, js_getM24, js_getM31, js_getM32, js_getM33, js_getM34, js_getM41, js_getM42, js_getM43, js_getM44, js_getIs2D, js_getIsIdentity, newDOMMatrixReadOnly, flipX, flipX_, flipY, flipY_, inverse, inverse_, multiply, multiply_, rotate, rotate_, rotateAxisAngle, rotateAxisAngle_, rotateFromVector, rotateFromVector_, scale, scale_, scale3d, scale3d_, scaleNonUniform, scaleNonUniform_, skewX, skewX_, skewY, skewY_, toFloat32Array, toFloat32Array_, toFloat64Array, toFloat64Array_, toJSON, toJSON_, transformPoint, transformPoint_, translate, translate_, fromFloat32Array, fromFloat32Array_, fromFloat64Array, fromFloat64Array_, fromMatrix, fromMatrix_, getA, getB, getC, getD, getE, getF, getM11, getM12, getM13, getM14, getM21, getM22, getM23, getM24, getM31, getM32, getM33, getM34, getM41, getM42, getM43, getM44, getIs2D, getIsIdentity, DOMMatrixReadOnly(..), gTypeDOMMatrixReadOnly, IsDOMMatrixReadOnly, toDOMMatrixReadOnly)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types hiding (toFloat32Array, toFloat64Array)+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"DOMMatrixReadOnly\"]($1); })"+        js_newDOMMatrixReadOnly :: JSVal -> IO DOMMatrixReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/DOMMatrixReadOnly MDN DOMMatrixReadOnly. documentation>+newDOMMatrixReadOnly :: (MonadDOM m, IsStringOrSequenceDouble init) => Maybe init -> m DOMMatrixReadOnly+newDOMMatrixReadOnly init = liftDOM (((P.maybe (P.return jsUndefined) toJSVal init) >>= \a1' -> js_newDOMMatrixReadOnly a1'))++foreign import javascript safe "(($1) => { return $1[\"flipX\"](); })"+        js_flipX :: DOMMatrixReadOnly -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/flipX MDN DOMMatrixReadOnly.flipX documentation>+flipX :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m DOMMatrix+flipX self = liftDOM ((js_flipX ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/flipX MDN DOMMatrixReadOnly.flipX documentation>+flipX_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m ()+flipX_ self = liftDOM (void ((js_flipX ((Types.toDOMMatrixReadOnly self)))))++foreign import javascript safe "(($1) => { return $1[\"flipY\"](); })"+        js_flipY :: DOMMatrixReadOnly -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/flipY MDN DOMMatrixReadOnly.flipY documentation>+flipY :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m DOMMatrix+flipY self = liftDOM ((js_flipY ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/flipY MDN DOMMatrixReadOnly.flipY documentation>+flipY_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m ()+flipY_ self = liftDOM (void ((js_flipY ((Types.toDOMMatrixReadOnly self)))))++foreign import javascript safe "(($1) => { return $1[\"inverse\"](); })"+        js_inverse :: DOMMatrixReadOnly -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/inverse MDN DOMMatrixReadOnly.inverse documentation>+inverse :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m DOMMatrix+inverse self = liftDOM ((js_inverse ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/inverse MDN DOMMatrixReadOnly.inverse documentation>+inverse_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m ()+inverse_ self = liftDOM (void ((js_inverse ((Types.toDOMMatrixReadOnly self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"multiply\"]($2); })"+        js_multiply :: DOMMatrixReadOnly -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/multiply MDN DOMMatrixReadOnly.multiply documentation>+multiply :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe DOMMatrixInit -> m DOMMatrix+multiply self other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_multiply ((Types.toDOMMatrixReadOnly self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/multiply MDN DOMMatrixReadOnly.multiply documentation>+multiply_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe DOMMatrixInit -> m ()+multiply_ self other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_multiply ((Types.toDOMMatrixReadOnly self)) a2')))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"rotate\"]($2, $3, $4); })"+        js_rotate :: DOMMatrixReadOnly -> JSVal -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotate MDN DOMMatrixReadOnly.rotate documentation>+rotate :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix+rotate self rotX rotY rotZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal rotX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal rotY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal rotZ) >>= \a4' -> js_rotate ((Types.toDOMMatrixReadOnly self)) a2' a3' a4'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotate MDN DOMMatrixReadOnly.rotate documentation>+rotate_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+rotate_ self rotX rotY rotZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal rotX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal rotY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal rotZ) >>= \a4' -> js_rotate ((Types.toDOMMatrixReadOnly self)) a2' a3' a4')))++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"rotateAxisAngle\"]($2, $3, $4, $5); })"+        js_rotateAxisAngle :: DOMMatrixReadOnly -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotateAxisAngle MDN DOMMatrixReadOnly.rotateAxisAngle documentation>+rotateAxisAngle :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix+rotateAxisAngle self x y z angle = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal angle) >>= \a5' -> js_rotateAxisAngle ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotateAxisAngle MDN DOMMatrixReadOnly.rotateAxisAngle documentation>+rotateAxisAngle_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+rotateAxisAngle_ self x y z angle = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal angle) >>= \a5' -> js_rotateAxisAngle ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"rotateFromVector\"]($2, $3); })"+        js_rotateFromVector :: DOMMatrixReadOnly -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotateFromVector MDN DOMMatrixReadOnly.rotateFromVector documentation>+rotateFromVector :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> m DOMMatrix+rotateFromVector self x y = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> js_rotateFromVector ((Types.toDOMMatrixReadOnly self)) a2' a3'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotateFromVector MDN DOMMatrixReadOnly.rotateFromVector documentation>+rotateFromVector_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> m ()+rotateFromVector_ self x y = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a3' -> js_rotateFromVector ((Types.toDOMMatrixReadOnly self)) a2' a3')))++foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7) => { return $1[\"scale\"]($2, $3, $4, $5, $6, $7); })"+        js_scale :: DOMMatrixReadOnly -> JSVal -> JSVal -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/scale MDN DOMMatrixReadOnly.scale documentation>+scale :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix+scale self scaleX scaleY scaleZ originX originY originZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal scaleZ) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a5' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a6' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a7' -> js_scale ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5' a6' a7'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/scale MDN DOMMatrixReadOnly.scale documentation>+scale_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+scale_ self scaleX scaleY scaleZ originX originY originZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal scaleZ) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a5' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a6' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a7' -> js_scale ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5' a6' a7')))++foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"scale3d\"]($2, $3, $4, $5); })"+        js_scale3d :: DOMMatrixReadOnly -> JSVal -> JSVal -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/scale3d MDN DOMMatrixReadOnly.scale3d documentation>+scale3d :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix+scale3d self scale originX originY originZ = liftDOM (((P.maybe (P.return jsUndefined) toJSVal scale) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a5' -> js_scale3d ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/scale3d MDN DOMMatrixReadOnly.scale3d documentation>+scale3d_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+scale3d_ self scale originX originY originZ = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal scale) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal originX) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal originY) >>= \a4' -> (P.maybe (P.return jsUndefined) toJSVal originZ) >>= \a5' -> js_scale3d ((Types.toDOMMatrixReadOnly self)) a2' a3' a4' a5')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"scaleNonUniform\"]($2, $3); })"+        js_scaleNonUniform :: DOMMatrixReadOnly -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixreadonly-scalenonuniform DOMMatrixReadOnly.scaleNonUniform specification>+scaleNonUniform :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> m DOMMatrix+scaleNonUniform self scaleX scaleY = liftDOM (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> js_scaleNonUniform ((Types.toDOMMatrixReadOnly self)) a2' a3'))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixreadonly-scalenonuniform DOMMatrixReadOnly.scaleNonUniform specification>+scaleNonUniform_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> m ()+scaleNonUniform_ self scaleX scaleY = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal scaleX) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal scaleY) >>= \a3' -> js_scaleNonUniform ((Types.toDOMMatrixReadOnly self)) a2' a3')))++foreign import javascript safe "(($1, $2) => { return $1[\"skewX\"]($2); })"+        js_skewX :: DOMMatrixReadOnly -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/skewX MDN DOMMatrixReadOnly.skewX documentation>+skewX :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> m DOMMatrix+skewX self sx = liftDOM (((P.maybe (P.return jsUndefined) toJSVal sx) >>= \a2' -> js_skewX ((Types.toDOMMatrixReadOnly self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/skewX MDN DOMMatrixReadOnly.skewX documentation>+skewX_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> m ()+skewX_ self sx = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal sx) >>= \a2' -> js_skewX ((Types.toDOMMatrixReadOnly self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"skewY\"]($2); })"+        js_skewY :: DOMMatrixReadOnly -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/skewY MDN DOMMatrixReadOnly.skewY documentation>+skewY :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> m DOMMatrix+skewY self sy = liftDOM (((P.maybe (P.return jsUndefined) toJSVal sy) >>= \a2' -> js_skewY ((Types.toDOMMatrixReadOnly self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/skewY MDN DOMMatrixReadOnly.skewY documentation>+skewY_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> m ()+skewY_ self sy = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal sy) >>= \a2' -> js_skewY ((Types.toDOMMatrixReadOnly self)) a2')))++foreign import javascript safe "(($1) => { return $1[\"toFloat32Array\"](); })"+        js_toFloat32Array :: DOMMatrixReadOnly -> IO Float32Array+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toFloat32Array MDN DOMMatrixReadOnly.toFloat32Array documentation>+toFloat32Array :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Float32Array+toFloat32Array self = liftDOM ((js_toFloat32Array ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toFloat32Array MDN DOMMatrixReadOnly.toFloat32Array documentation>+toFloat32Array_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m ()+toFloat32Array_ self = liftDOM (void ((js_toFloat32Array ((Types.toDOMMatrixReadOnly self)))))++foreign import javascript safe "(($1) => { return $1[\"toFloat64Array\"](); })"+        js_toFloat64Array :: DOMMatrixReadOnly -> IO Float64Array+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toFloat64Array MDN DOMMatrixReadOnly.toFloat64Array documentation>+toFloat64Array :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Float64Array+toFloat64Array self = liftDOM ((js_toFloat64Array ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toFloat64Array MDN DOMMatrixReadOnly.toFloat64Array documentation>+toFloat64Array_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m ()+toFloat64Array_ self = liftDOM (void ((js_toFloat64Array ((Types.toDOMMatrixReadOnly self)))))++foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })"+        js_toJSON :: DOMMatrixReadOnly -> IO GObject+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toJSON MDN DOMMatrixReadOnly.toJSON documentation>+toJSON :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m GObject+toJSON self = liftDOM ((js_toJSON ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toJSON MDN DOMMatrixReadOnly.toJSON documentation>+toJSON_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m ()+toJSON_ self = liftDOM (void ((js_toJSON ((Types.toDOMMatrixReadOnly self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"transformPoint\"]($2); })"+        js_transformPoint :: DOMMatrixReadOnly -> JSVal -> IO DOMPoint+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/transformPoint MDN DOMMatrixReadOnly.transformPoint documentation>+transformPoint :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe DOMPointInit -> m DOMPoint+transformPoint self point = liftDOM (((P.maybe (P.return jsUndefined) toJSVal point) >>= \a2' -> js_transformPoint ((Types.toDOMMatrixReadOnly self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/transformPoint MDN DOMMatrixReadOnly.transformPoint documentation>+transformPoint_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe DOMPointInit -> m ()+transformPoint_ self point = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal point) >>= \a2' -> js_transformPoint ((Types.toDOMMatrixReadOnly self)) a2')))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"translate\"]($2, $3, $4); })"+        js_translate :: DOMMatrixReadOnly -> JSVal -> JSVal -> JSVal -> IO DOMMatrix+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/translate MDN DOMMatrixReadOnly.translate documentation>+translate :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMMatrix+translate self tx ty tz = liftDOM (((P.maybe (P.return jsUndefined) toJSVal tx) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal ty) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal tz) >>= \a4' -> js_translate ((Types.toDOMMatrixReadOnly self)) a2' a3' a4'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/translate MDN DOMMatrixReadOnly.translate documentation>+translate_ :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> Maybe Double -> Maybe Double -> Maybe Double -> m ()+translate_ self tx ty tz = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal tx) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal ty) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal tz) >>= \a4' -> js_translate ((Types.toDOMMatrixReadOnly self)) a2' a3' a4')))++foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrixReadOnly\"][\"fromFloat32Array\"]($1); })"+        js_fromFloat32Array :: Float32Array -> IO DOMMatrixReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromFloat32Array_static MDN DOMMatrixReadOnly.fromFloat32Array documentation>+fromFloat32Array :: (MonadDOM m, IsFloat32Array array32) => array32 -> m DOMMatrixReadOnly+fromFloat32Array array32 = liftDOM ((js_fromFloat32Array (Types.toFloat32Array array32)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromFloat32Array_static MDN DOMMatrixReadOnly.fromFloat32Array documentation>+fromFloat32Array_ :: (MonadDOM m, IsFloat32Array array32) => array32 -> m ()+fromFloat32Array_ array32 = liftDOM (void ((js_fromFloat32Array (Types.toFloat32Array array32))))++foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrixReadOnly\"][\"fromFloat64Array\"]($1); })"+        js_fromFloat64Array :: Float64Array -> IO DOMMatrixReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromFloat64Array_static MDN DOMMatrixReadOnly.fromFloat64Array documentation>+fromFloat64Array :: (MonadDOM m, IsFloat64Array array64) => array64 -> m DOMMatrixReadOnly+fromFloat64Array array64 = liftDOM ((js_fromFloat64Array (Types.toFloat64Array array64)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromFloat64Array_static MDN DOMMatrixReadOnly.fromFloat64Array documentation>+fromFloat64Array_ :: (MonadDOM m, IsFloat64Array array64) => array64 -> m ()+fromFloat64Array_ array64 = liftDOM (void ((js_fromFloat64Array (Types.toFloat64Array array64))))++foreign import javascript safe "(($1) => { return globalThis[\"DOMMatrixReadOnly\"][\"fromMatrix\"]($1); })"+        js_fromMatrix :: JSVal -> IO DOMMatrixReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromMatrix_static MDN DOMMatrixReadOnly.fromMatrix documentation>+fromMatrix :: (MonadDOM m) => Maybe DOMMatrixInit -> m DOMMatrixReadOnly+fromMatrix other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromMatrix a1'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromMatrix_static MDN DOMMatrixReadOnly.fromMatrix documentation>+fromMatrix_ :: (MonadDOM m) => Maybe DOMMatrixInit -> m ()+fromMatrix_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromMatrix a1')))++foreign import javascript unsafe "(($1) => { return $1[\"a\"]; })"+        js_getA :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.a documentation>+getA :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getA self = liftDOM ((js_getA ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"b\"]; })"+        js_getB :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.b documentation>+getB :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getB self = liftDOM ((js_getB ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"c\"]; })"+        js_getC :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.c documentation>+getC :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getC self = liftDOM ((js_getC ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"d\"]; })"+        js_getD :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.d documentation>+getD :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getD self = liftDOM ((js_getD ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"e\"]; })"+        js_getE :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.e documentation>+getE :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getE self = liftDOM ((js_getE ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"f\"]; })"+        js_getF :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.f documentation>+getF :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getF self = liftDOM ((js_getF ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m11\"]; })"+        js_getM11 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m11 documentation>+getM11 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM11 self = liftDOM ((js_getM11 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m12\"]; })"+        js_getM12 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m12 documentation>+getM12 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM12 self = liftDOM ((js_getM12 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m13\"]; })"+        js_getM13 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m13 documentation>+getM13 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM13 self = liftDOM ((js_getM13 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m14\"]; })"+        js_getM14 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m14 documentation>+getM14 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM14 self = liftDOM ((js_getM14 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m21\"]; })"+        js_getM21 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m21 documentation>+getM21 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM21 self = liftDOM ((js_getM21 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m22\"]; })"+        js_getM22 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m22 documentation>+getM22 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM22 self = liftDOM ((js_getM22 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m23\"]; })"+        js_getM23 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m23 documentation>+getM23 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM23 self = liftDOM ((js_getM23 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m24\"]; })"+        js_getM24 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m24 documentation>+getM24 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM24 self = liftDOM ((js_getM24 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m31\"]; })"+        js_getM31 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m31 documentation>+getM31 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM31 self = liftDOM ((js_getM31 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m32\"]; })"+        js_getM32 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m32 documentation>+getM32 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM32 self = liftDOM ((js_getM32 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m33\"]; })"+        js_getM33 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m33 documentation>+getM33 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM33 self = liftDOM ((js_getM33 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m34\"]; })"+        js_getM34 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m34 documentation>+getM34 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM34 self = liftDOM ((js_getM34 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m41\"]; })"+        js_getM41 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m41 documentation>+getM41 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM41 self = liftDOM ((js_getM41 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m42\"]; })"+        js_getM42 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m42 documentation>+getM42 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM42 self = liftDOM ((js_getM42 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m43\"]; })"+        js_getM43 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m43 documentation>+getM43 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM43 self = liftDOM ((js_getM43 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"m44\"]; })"+        js_getM44 :: DOMMatrixReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m44 documentation>+getM44 :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Double+getM44 self = liftDOM ((js_getM44 ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"is2D\"]; })"+        js_getIs2D :: DOMMatrixReadOnly -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/is2D MDN DOMMatrixReadOnly.is2D documentation>+getIs2D :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Bool+getIs2D self = liftDOM ((js_getIs2D ((Types.toDOMMatrixReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"isIdentity\"]; })"+        js_getIsIdentity :: DOMMatrixReadOnly -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/isIdentity MDN DOMMatrixReadOnly.isIdentity documentation>+getIsIdentity :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Bool+getIsIdentity self = liftDOM ((js_getIsIdentity ((Types.toDOMMatrixReadOnly self))))
− src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs
@@ -1,100 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection-       (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem,-        namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,-        js_getLength, getLength, DOMNamedFlowCollection(..),-        gTypeDOMNamedFlowCollection)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item ::-        DOMNamedFlowCollection -> Word -> IO (Nullable WebKitNamedFlow)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> -item ::-     (MonadIO m) =>-       DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow)-item self index = liftIO (nullableToMaybe <$> (js_item self index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> -item_ :: (MonadIO m) => DOMNamedFlowCollection -> Word -> m ()-item_ self index = liftIO (void (js_item self index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> -itemUnsafe ::-           (MonadIO m, HasCallStack) =>-             DOMNamedFlowCollection -> Word -> m WebKitNamedFlow-itemUnsafe self index-  = liftIO-      ((nullableToMaybe <$> (js_item self index)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> -itemUnchecked ::-              (MonadIO m) => DOMNamedFlowCollection -> Word -> m WebKitNamedFlow-itemUnchecked self index-  = liftIO (fromJust . nullableToMaybe <$> (js_item self index))- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_namedItem ::-        DOMNamedFlowCollection -> JSString -> IO (Nullable WebKitNamedFlow)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> -namedItem ::-          (MonadIO m, ToJSString name) =>-            DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow)-namedItem self name-  = liftIO-      (nullableToMaybe <$> (js_namedItem self (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> -namedItem_ ::-           (MonadIO m, ToJSString name) =>-             DOMNamedFlowCollection -> name -> m ()-namedItem_ self name-  = liftIO (void (js_namedItem self (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> -namedItemUnsafe ::-                (MonadIO m, ToJSString name, HasCallStack) =>-                  DOMNamedFlowCollection -> name -> m WebKitNamedFlow-namedItemUnsafe self name-  = liftIO-      ((nullableToMaybe <$> (js_namedItem self (toJSString name))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> -namedItemUnchecked ::-                   (MonadIO m, ToJSString name) =>-                     DOMNamedFlowCollection -> name -> m WebKitNamedFlow-namedItemUnchecked self name-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_namedItem self (toJSString name)))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::-        DOMNamedFlowCollection -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.length Mozilla WebKitNamedFlowCollection.length documentation> -getLength :: (MonadIO m) => DOMNamedFlowCollection -> m Word-getLength self = liftIO (js_getLength self)
src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs view
@@ -1,57 +1,33 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMParser-       (js_newDOMParser, newDOMParser, js_parseFromString,-        parseFromString, parseFromString_, DOMParser(..), gTypeDOMParser)+       (js_newDOMParser, js_parseFromString, newDOMParser, parseFromString, parseFromString_, DOMParser(..), gTypeDOMParser)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(() => { return new window[\"DOMParser\"](); })"++foreign import javascript safe "(() => { return new globalThis[\"DOMParser\"](); })"         js_newDOMParser :: IO DOMParser+-- | <https://developer.mozilla.org/docs/Web/API/DOMParser/DOMParser MDN DOMParser. documentation>+newDOMParser :: (MonadDOM m) => m DOMParser+newDOMParser = liftDOM ((js_newDOMParser)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser Mozilla DOMParser documentation> -newDOMParser :: (MonadIO m) => m DOMParser-newDOMParser = liftIO (js_newDOMParser)-  foreign import javascript safe "(($1, $2, $3) => { return $1[\"parseFromString\"]($2, $3); })"-        js_parseFromString ::-        DOMParser -> JSString -> JSString -> IO Document---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> -parseFromString ::-                (MonadIO m, ToJSString string, ToJSString contentType) =>-                  DOMParser -> string -> contentType -> m Document-parseFromString self string contentType-  = liftIO-      (js_parseFromString self (toJSString string)-         (toJSString contentType))+        js_parseFromString :: DOMParser -> TrustedHTMLOrString -> JSVal -> IO Document+-- | <https://developer.mozilla.org/docs/Web/API/DOMParser/parseFromString MDN DOMParser.parseFromString documentation>+parseFromString :: (MonadDOM m, IsTrustedHTMLOrString string) => DOMParser -> string -> DOMParserSupportedType -> m Document+parseFromString self string type' = liftDOM (((toJSVal type') >>= \a3' -> js_parseFromString (self) (Types.toTrustedHTMLOrString string) a3')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> -parseFromString_ ::-                 (MonadIO m, ToJSString string, ToJSString contentType) =>-                   DOMParser -> string -> contentType -> m ()-parseFromString_ self string contentType-  = liftIO-      (void-         (js_parseFromString self (toJSString string)-            (toJSString contentType)))+-- | <https://developer.mozilla.org/docs/Web/API/DOMParser/parseFromString MDN DOMParser.parseFromString documentation>+parseFromString_ :: (MonadDOM m, IsTrustedHTMLOrString string) => DOMParser -> string -> DOMParserSupportedType -> m ()+parseFromString_ self string type' = liftDOM (void (((toJSVal type') >>= \a3' -> js_parseFromString (self) (Types.toTrustedHTMLOrString string) a3')))
src/GHCJS/DOM/JSFFI/Generated/DOMPoint.hs view
@@ -1,122 +1,87 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMPoint-       (js_newDOMPoint, newDOMPoint, js_newDOMPoint', newDOMPoint',-        js_fromPoint, fromPoint, fromPoint_, js_setX, setX, js_getX, getX,-        js_setY, setY, js_getY, getY, js_setZ, setZ, js_getZ, getZ,-        js_setW, setW, js_getW, getW, DOMPoint(..), gTypeDOMPoint)+       (js_newDOMPoint, js_newDOMPoint', js_fromPoint, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, js_setW, js_getW, newDOMPoint, newDOMPoint', fromPoint, fromPoint_, setX, getX, setY, getY, setZ, getZ, setW, getW, DOMPoint(..), gTypeDOMPoint)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return new window[\"DOMPoint\"]($1); })"-        js_newDOMPoint :: DOMPointInit -> IO DOMPoint --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint Mozilla DOMPoint documentation> -newDOMPoint :: (MonadIO m) => DOMPointInit -> m DOMPoint-newDOMPoint point = liftIO (js_newDOMPoint point)- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return new window[\"DOMPoint\"]($1, $2,\n$3, $4); })" js_newDOMPoint' ::-        Optional Double ->-          Optional Double ->-            Optional Double -> Optional Double -> IO DOMPoint+foreign import javascript safe "(($1) => { return new globalThis[\"DOMPoint\"]($1); })"+        js_newDOMPoint :: JSVal -> IO DOMPoint+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/DOMPoint MDN DOMPoint. documentation>+newDOMPoint :: (MonadDOM m) => Maybe Double -> m DOMPoint+newDOMPoint x = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> js_newDOMPoint a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint Mozilla DOMPoint documentation> -newDOMPoint' ::-             (MonadIO m) =>-               Maybe Double ->-                 Maybe Double -> Maybe Double -> Maybe Double -> m DOMPoint-newDOMPoint' x y z w-  = liftIO-      (js_newDOMPoint' (maybeToOptional x) (maybeToOptional y)-         (maybeToOptional z)-         (maybeToOptional w))- -foreign import javascript unsafe-        "(($1) => { return window[\"DOMPoint\"][\"fromPoint\"]($1); })" js_fromPoint ::-        Optional DOMPointInit -> IO DOMPoint+foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DOMPoint\"]($1, $2, $3, $4); })"+        js_newDOMPoint' :: JSVal -> JSVal -> JSVal -> JSVal -> IO DOMPoint+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/DOMPoint MDN DOMPoint. documentation>+newDOMPoint' :: (MonadDOM m) => Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMPoint+newDOMPoint' x y z w = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal w) >>= \a4' -> js_newDOMPoint' a1' a2' a3' a4')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.fromPoint Mozilla DOMPoint.fromPoint documentation> -fromPoint :: (MonadIO m) => Maybe DOMPointInit -> m DOMPoint-fromPoint other = liftIO (js_fromPoint (maybeToOptional other))+foreign import javascript safe "(($1) => { return globalThis[\"DOMPoint\"][\"fromPoint\"]($1); })"+        js_fromPoint :: JSVal -> IO DOMPoint+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/fromPoint_static MDN DOMPoint.fromPoint documentation>+fromPoint :: (MonadDOM m) => Maybe DOMPointInit -> m DOMPoint+fromPoint other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.fromPoint Mozilla DOMPoint.fromPoint documentation> -fromPoint_ :: (MonadIO m) => Maybe DOMPointInit -> m ()-fromPoint_ other-  = liftIO (void (js_fromPoint (maybeToOptional other)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"x\"] = $2; })" js_setX ::-        DOMPoint -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/fromPoint_static MDN DOMPoint.fromPoint documentation>+fromPoint_ :: (MonadDOM m) => Maybe DOMPointInit -> m ()+fromPoint_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.x Mozilla DOMPoint.x documentation> -setX :: (MonadIO m) => DOMPoint -> Double -> m ()-setX self val = liftIO (js_setX self val)- -foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" js_getX ::-        DOMPoint -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+        js_setX :: DOMPoint -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/x MDN DOMPoint.x documentation>+setX :: (MonadDOM m) => DOMPoint -> Double -> m ()+setX self val = liftDOM (void ((js_setX (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.x Mozilla DOMPoint.x documentation> -getX :: (MonadIO m) => DOMPoint -> m Double-getX self = liftIO (js_getX self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"y\"] = $2; })" js_setY ::-        DOMPoint -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: DOMPoint -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/x MDN DOMPoint.x documentation>+getX :: (MonadDOM m) => DOMPoint -> m Double+getX self = liftDOM ((js_getX (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.y Mozilla DOMPoint.y documentation> -setY :: (MonadIO m) => DOMPoint -> Double -> m ()-setY self val = liftIO (js_setY self val)- -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY ::-        DOMPoint -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"+        js_setY :: DOMPoint -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/y MDN DOMPoint.y documentation>+setY :: (MonadDOM m) => DOMPoint -> Double -> m ()+setY self val = liftDOM (void ((js_setY (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.y Mozilla DOMPoint.y documentation> -getY :: (MonadIO m) => DOMPoint -> m Double-getY self = liftIO (js_getY self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"z\"] = $2; })" js_setZ ::-        DOMPoint -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: DOMPoint -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/y MDN DOMPoint.y documentation>+getY :: (MonadDOM m) => DOMPoint -> m Double+getY self = liftDOM ((js_getY (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.z Mozilla DOMPoint.z documentation> -setZ :: (MonadIO m) => DOMPoint -> Double -> m ()-setZ self val = liftIO (js_setZ self val)- -foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" js_getZ ::-        DOMPoint -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })"+        js_setZ :: DOMPoint -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/z MDN DOMPoint.z documentation>+setZ :: (MonadDOM m) => DOMPoint -> Double -> m ()+setZ self val = liftDOM (void ((js_setZ (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.z Mozilla DOMPoint.z documentation> -getZ :: (MonadIO m) => DOMPoint -> m Double-getZ self = liftIO (js_getZ self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"w\"] = $2; })" js_setW ::-        DOMPoint -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })"+        js_getZ :: DOMPoint -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/z MDN DOMPoint.z documentation>+getZ :: (MonadDOM m) => DOMPoint -> m Double+getZ self = liftDOM ((js_getZ (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.w Mozilla DOMPoint.w documentation> -setW :: (MonadIO m) => DOMPoint -> Double -> m ()-setW self val = liftIO (js_setW self val)- -foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })" js_getW ::-        DOMPoint -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"w\"] = $2; })"+        js_setW :: DOMPoint -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/w MDN DOMPoint.w documentation>+setW :: (MonadDOM m) => DOMPoint -> Double -> m ()+setW self val = liftDOM (void ((js_setW (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.w Mozilla DOMPoint.w documentation> -getW :: (MonadIO m) => DOMPoint -> m Double-getW self = liftIO (js_getW self)+foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })"+        js_getW :: DOMPoint -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/w MDN DOMPoint.w documentation>+getW :: (MonadDOM m) => DOMPoint -> m Double+getW self = liftDOM ((js_getW (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMPointInit.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DOMPointInit+       (js_newDOMPointInit, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, js_setW, js_getW, newDOMPointInit, setX, getX, getXUnsafe, getXUnchecked, setY, getY, getYUnsafe, getYUnchecked, setZ, getZ, getZUnsafe, getZUnchecked, setW, getW, getWUnsafe, getWUnchecked, DOMPointInit(..), gTypeDOMPointInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDOMPointInit :: IO DOMPointInit+-- | <https://drafts.csswg.org/geometry-1/#dictdef-dompointinit DOMPointInit specification>+newDOMPointInit :: (MonadDOM m) => m DOMPointInit+newDOMPointInit = liftDOM ((js_newDOMPointInit))++foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+        js_setX :: DOMPointInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-x DOMPointInit.x specification>+setX :: (MonadDOM m) => DOMPointInit -> Double -> m ()+setX self val = liftDOM (void ((js_setX (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: DOMPointInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-x DOMPointInit.x specification>+getX :: (MonadDOM m) => DOMPointInit -> m (Maybe Double)+getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-x DOMPointInit.x specification>+getXUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double+getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-x DOMPointInit.x specification>+getXUnchecked :: (MonadDOM m) => DOMPointInit -> m Double+getXUnchecked self = liftDOM ((pFromJSVal <$> (js_getX (self))))++foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"+        js_setY :: DOMPointInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-y DOMPointInit.y specification>+setY :: (MonadDOM m) => DOMPointInit -> Double -> m ()+setY self val = liftDOM (void ((js_setY (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: DOMPointInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-y DOMPointInit.y specification>+getY :: (MonadDOM m) => DOMPointInit -> m (Maybe Double)+getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-y DOMPointInit.y specification>+getYUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double+getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-y DOMPointInit.y specification>+getYUnchecked :: (MonadDOM m) => DOMPointInit -> m Double+getYUnchecked self = liftDOM ((pFromJSVal <$> (js_getY (self))))++foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })"+        js_setZ :: DOMPointInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-z DOMPointInit.z specification>+setZ :: (MonadDOM m) => DOMPointInit -> Double -> m ()+setZ self val = liftDOM (void ((js_setZ (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })"+        js_getZ :: DOMPointInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-z DOMPointInit.z specification>+getZ :: (MonadDOM m) => DOMPointInit -> m (Maybe Double)+getZ self = liftDOM (((js_getZ (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-z DOMPointInit.z specification>+getZUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double+getZUnsafe self = liftDOM ((((js_getZ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-z DOMPointInit.z specification>+getZUnchecked :: (MonadDOM m) => DOMPointInit -> m Double+getZUnchecked self = liftDOM ((pFromJSVal <$> (js_getZ (self))))++foreign import javascript safe "(($1, $2) => { $1[\"w\"] = $2; })"+        js_setW :: DOMPointInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-w DOMPointInit.w specification>+setW :: (MonadDOM m) => DOMPointInit -> Double -> m ()+setW self val = liftDOM (void ((js_setW (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })"+        js_getW :: DOMPointInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-w DOMPointInit.w specification>+getW :: (MonadDOM m) => DOMPointInit -> m (Maybe Double)+getW self = liftDOM (((js_getW (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-w DOMPointInit.w specification>+getWUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double+getWUnsafe self = liftDOM ((((js_getW (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-w DOMPointInit.w specification>+getWUnchecked :: (MonadDOM m) => DOMPointInit -> m Double+getWUnchecked self = liftDOM ((pFromJSVal <$> (js_getW (self))))
src/GHCJS/DOM/JSFFI/Generated/DOMPointReadOnly.hs view
@@ -1,99 +1,83 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMPointReadOnly-       (js_newDOMPointReadOnly, newDOMPointReadOnly,-        js_newDOMPointReadOnly', newDOMPointReadOnly', js_fromPoint,-        fromPoint, fromPoint_, js_getX, getX, js_getY, getY, js_getZ, getZ,-        js_getW, getW, DOMPointReadOnly(..), gTypeDOMPointReadOnly,-        IsDOMPointReadOnly, toDOMPointReadOnly)+       (js_newDOMPointReadOnly, js_newDOMPointReadOnly', js_matrixTransform, js_toJSON, js_fromPoint, js_getX, js_getY, js_getZ, js_getW, newDOMPointReadOnly, newDOMPointReadOnly', matrixTransform, matrixTransform_, toJSON, toJSON_, fromPoint, fromPoint_, getX, getY, getZ, getW, DOMPointReadOnly(..), gTypeDOMPointReadOnly, IsDOMPointReadOnly, toDOMPointReadOnly)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1) => { return new window[\"DOMPointReadOnly\"]($1); })" js_newDOMPointReadOnly ::-        DOMPointInit -> IO DOMPointReadOnly --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly Mozilla DOMPointReadOnly documentation> -newDOMPointReadOnly ::-                    (MonadIO m) => DOMPointInit -> m DOMPointReadOnly-newDOMPointReadOnly point = liftIO (js_newDOMPointReadOnly point)- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return new window[\"DOMPointReadOnly\"]($1,\n$2, $3, $4); })"-        js_newDOMPointReadOnly' ::-        Optional Double ->-          Optional Double ->-            Optional Double -> Optional Double -> IO DOMPointReadOnly+foreign import javascript safe "(($1) => { return new globalThis[\"DOMPointReadOnly\"]($1); })"+        js_newDOMPointReadOnly :: JSVal -> IO DOMPointReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/DOMPointReadOnly MDN DOMPointReadOnly. documentation>+newDOMPointReadOnly :: (MonadDOM m) => Maybe Double -> m DOMPointReadOnly+newDOMPointReadOnly x = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> js_newDOMPointReadOnly a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly Mozilla DOMPointReadOnly documentation> -newDOMPointReadOnly' ::-                     (MonadIO m) =>-                       Maybe Double ->-                         Maybe Double -> Maybe Double -> Maybe Double -> m DOMPointReadOnly-newDOMPointReadOnly' x y z w-  = liftIO-      (js_newDOMPointReadOnly' (maybeToOptional x) (maybeToOptional y)-         (maybeToOptional z)-         (maybeToOptional w))- -foreign import javascript unsafe-        "(($1) => { return window[\"DOMPointReadOnly\"][\"fromPoint\"]($1); })" js_fromPoint ::-        Optional DOMPointInit -> IO DOMPointReadOnly+foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DOMPointReadOnly\"]($1, $2, $3, $4); })"+        js_newDOMPointReadOnly' :: JSVal -> JSVal -> JSVal -> JSVal -> IO DOMPointReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/DOMPointReadOnly MDN DOMPointReadOnly. documentation>+newDOMPointReadOnly' :: (MonadDOM m) => Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMPointReadOnly+newDOMPointReadOnly' x y z w = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal z) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal w) >>= \a4' -> js_newDOMPointReadOnly' a1' a2' a3' a4')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.fromPoint Mozilla DOMPointReadOnly.fromPoint documentation> -fromPoint ::-          (MonadIO m) => Maybe DOMPointInit -> m DOMPointReadOnly-fromPoint other = liftIO (js_fromPoint (maybeToOptional other))+foreign import javascript safe "(($1, $2) => { return $1[\"matrixTransform\"]($2); })"+        js_matrixTransform :: DOMPointReadOnly -> JSVal -> IO DOMPoint+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/matrixTransform MDN DOMPointReadOnly.matrixTransform documentation>+matrixTransform :: (MonadDOM m, IsDOMPointReadOnly self) => self -> Maybe DOMMatrixInit -> m DOMPoint+matrixTransform self matrix = liftDOM (((P.maybe (P.return jsUndefined) toJSVal matrix) >>= \a2' -> js_matrixTransform ((Types.toDOMPointReadOnly self)) a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.fromPoint Mozilla DOMPointReadOnly.fromPoint documentation> -fromPoint_ :: (MonadIO m) => Maybe DOMPointInit -> m ()-fromPoint_ other-  = liftIO (void (js_fromPoint (maybeToOptional other)))- -foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" js_getX ::-        DOMPointReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/matrixTransform MDN DOMPointReadOnly.matrixTransform documentation>+matrixTransform_ :: (MonadDOM m, IsDOMPointReadOnly self) => self -> Maybe DOMMatrixInit -> m ()+matrixTransform_ self matrix = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal matrix) >>= \a2' -> js_matrixTransform ((Types.toDOMPointReadOnly self)) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.x Mozilla DOMPointReadOnly.x documentation> -getX :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double-getX self = liftIO (js_getX (toDOMPointReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY ::-        DOMPointReadOnly -> IO Double+foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })"+        js_toJSON :: DOMPointReadOnly -> IO GObject+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/toJSON MDN DOMPointReadOnly.toJSON documentation>+toJSON :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m GObject+toJSON self = liftDOM ((js_toJSON ((Types.toDOMPointReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.y Mozilla DOMPointReadOnly.y documentation> -getY :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double-getY self = liftIO (js_getY (toDOMPointReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" js_getZ ::-        DOMPointReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/toJSON MDN DOMPointReadOnly.toJSON documentation>+toJSON_ :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m ()+toJSON_ self = liftDOM (void ((js_toJSON ((Types.toDOMPointReadOnly self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.z Mozilla DOMPointReadOnly.z documentation> -getZ :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double-getZ self = liftIO (js_getZ (toDOMPointReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })" js_getW ::-        DOMPointReadOnly -> IO Double+foreign import javascript safe "(($1) => { return globalThis[\"DOMPointReadOnly\"][\"fromPoint\"]($1); })"+        js_fromPoint :: JSVal -> IO DOMPointReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/fromPoint_static MDN DOMPointReadOnly.fromPoint documentation>+fromPoint :: (MonadDOM m) => Maybe DOMPointInit -> m DOMPointReadOnly+fromPoint other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.w Mozilla DOMPointReadOnly.w documentation> -getW :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double-getW self = liftIO (js_getW (toDOMPointReadOnly self))+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/fromPoint_static MDN DOMPointReadOnly.fromPoint documentation>+fromPoint_ :: (MonadDOM m) => Maybe DOMPointInit -> m ()+fromPoint_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1')))++foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: DOMPointReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/x MDN DOMPointReadOnly.x documentation>+getX :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m Double+getX self = liftDOM ((js_getX ((Types.toDOMPointReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: DOMPointReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/y MDN DOMPointReadOnly.y documentation>+getY :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m Double+getY self = liftDOM ((js_getY ((Types.toDOMPointReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })"+        js_getZ :: DOMPointReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/z MDN DOMPointReadOnly.z documentation>+getZ :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m Double+getZ self = liftDOM ((js_getZ ((Types.toDOMPointReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })"+        js_getW :: DOMPointReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/w MDN DOMPointReadOnly.w documentation>+getW :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m Double+getW self = liftDOM ((js_getW ((Types.toDOMPointReadOnly self))))
+ src/GHCJS/DOM/JSFFI/Generated/DOMQuad.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DOMQuad+       (js_newDOMQuad, js_getBounds, js_toJSON, js_fromQuad, js_fromRect, js_getP1, js_getP2, js_getP3, js_getP4, newDOMQuad, getBounds, getBounds_, toJSON, toJSON_, fromQuad, fromQuad_, fromRect, fromRect_, getP1, getP2, getP3, getP4, DOMQuad(..), gTypeDOMQuad)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DOMQuad\"]($1, $2, $3, $4); })"+        js_newDOMQuad :: JSVal -> JSVal -> JSVal -> JSVal -> IO DOMQuad+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/DOMQuad MDN DOMQuad. documentation>+newDOMQuad :: (MonadDOM m) => Maybe DOMPointInit -> Maybe DOMPointInit -> Maybe DOMPointInit -> Maybe DOMPointInit -> m DOMQuad+newDOMQuad p1 p2 p3 p4 = liftDOM (((P.maybe (P.return jsUndefined) toJSVal p1) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal p2) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal p3) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal p4) >>= \a4' -> js_newDOMQuad a1' a2' a3' a4'))++foreign import javascript safe "(($1) => { return $1[\"getBounds\"](); })"+        js_getBounds :: DOMQuad -> IO DOMRect+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/getBounds MDN DOMQuad.getBounds documentation>+getBounds :: (MonadDOM m) => DOMQuad -> m DOMRect+getBounds self = liftDOM ((js_getBounds (self)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/getBounds MDN DOMQuad.getBounds documentation>+getBounds_ :: (MonadDOM m) => DOMQuad -> m ()+getBounds_ self = liftDOM (void ((js_getBounds (self))))++foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })"+        js_toJSON :: DOMQuad -> IO GObject+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/toJSON MDN DOMQuad.toJSON documentation>+toJSON :: (MonadDOM m) => DOMQuad -> m GObject+toJSON self = liftDOM ((js_toJSON (self)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/toJSON MDN DOMQuad.toJSON documentation>+toJSON_ :: (MonadDOM m) => DOMQuad -> m ()+toJSON_ self = liftDOM (void ((js_toJSON (self))))++foreign import javascript safe "(($1) => { return globalThis[\"DOMQuad\"][\"fromQuad\"]($1); })"+        js_fromQuad :: JSVal -> IO DOMQuad+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromQuad_static MDN DOMQuad.fromQuad documentation>+fromQuad :: (MonadDOM m) => Maybe DOMQuadInit -> m DOMQuad+fromQuad other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromQuad a1'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromQuad_static MDN DOMQuad.fromQuad documentation>+fromQuad_ :: (MonadDOM m) => Maybe DOMQuadInit -> m ()+fromQuad_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromQuad a1')))++foreign import javascript safe "(($1) => { return globalThis[\"DOMQuad\"][\"fromRect\"]($1); })"+        js_fromRect :: JSVal -> IO DOMQuad+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromRect_static MDN DOMQuad.fromRect documentation>+fromRect :: (MonadDOM m) => Maybe DOMRectInit -> m DOMQuad+fromRect other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromRect_static MDN DOMQuad.fromRect documentation>+fromRect_ :: (MonadDOM m) => Maybe DOMRectInit -> m ()+fromRect_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1')))++foreign import javascript unsafe "(($1) => { return $1[\"p1\"]; })"+        js_getP1 :: DOMQuad -> IO DOMPoint+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p1 MDN DOMQuad.p1 documentation>+getP1 :: (MonadDOM m) => DOMQuad -> m DOMPoint+getP1 self = liftDOM ((js_getP1 (self)))++foreign import javascript unsafe "(($1) => { return $1[\"p2\"]; })"+        js_getP2 :: DOMQuad -> IO DOMPoint+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p2 MDN DOMQuad.p2 documentation>+getP2 :: (MonadDOM m) => DOMQuad -> m DOMPoint+getP2 self = liftDOM ((js_getP2 (self)))++foreign import javascript unsafe "(($1) => { return $1[\"p3\"]; })"+        js_getP3 :: DOMQuad -> IO DOMPoint+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p3 MDN DOMQuad.p3 documentation>+getP3 :: (MonadDOM m) => DOMQuad -> m DOMPoint+getP3 self = liftDOM ((js_getP3 (self)))++foreign import javascript unsafe "(($1) => { return $1[\"p4\"]; })"+        js_getP4 :: DOMQuad -> IO DOMPoint+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p4 MDN DOMQuad.p4 documentation>+getP4 :: (MonadDOM m) => DOMQuad -> m DOMPoint+getP4 self = liftDOM ((js_getP4 (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMQuadInit.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DOMQuadInit+       (js_newDOMQuadInit, js_setP1, js_getP1, js_setP2, js_getP2, js_setP3, js_getP3, js_setP4, js_getP4, newDOMQuadInit, setP1, getP1, getP1Unsafe, getP1Unchecked, setP2, getP2, getP2Unsafe, getP2Unchecked, setP3, getP3, getP3Unsafe, getP3Unchecked, setP4, getP4, getP4Unsafe, getP4Unchecked, DOMQuadInit(..), gTypeDOMQuadInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDOMQuadInit :: IO DOMQuadInit+-- | <https://drafts.csswg.org/geometry-1/#dictdef-domquadinit DOMQuadInit specification>+newDOMQuadInit :: (MonadDOM m) => m DOMQuadInit+newDOMQuadInit = liftDOM ((js_newDOMQuadInit))++foreign import javascript safe "(($1, $2) => { $1[\"p1\"] = $2; })"+        js_setP1 :: DOMQuadInit -> DOMPointInit -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>+setP1 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()+setP1 self val = liftDOM (void ((js_setP1 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"p1\"]; })"+        js_getP1 :: DOMQuadInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>+getP1 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)+getP1 self = liftDOM (((js_getP1 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>+getP1Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit+getP1Unsafe self = liftDOM ((((js_getP1 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>+getP1Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit+getP1Unchecked self = liftDOM ((pFromJSVal <$> (js_getP1 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"p2\"] = $2; })"+        js_setP2 :: DOMQuadInit -> DOMPointInit -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>+setP2 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()+setP2 self val = liftDOM (void ((js_setP2 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"p2\"]; })"+        js_getP2 :: DOMQuadInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>+getP2 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)+getP2 self = liftDOM (((js_getP2 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>+getP2Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit+getP2Unsafe self = liftDOM ((((js_getP2 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>+getP2Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit+getP2Unchecked self = liftDOM ((pFromJSVal <$> (js_getP2 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"p3\"] = $2; })"+        js_setP3 :: DOMQuadInit -> DOMPointInit -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>+setP3 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()+setP3 self val = liftDOM (void ((js_setP3 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"p3\"]; })"+        js_getP3 :: DOMQuadInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>+getP3 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)+getP3 self = liftDOM (((js_getP3 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>+getP3Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit+getP3Unsafe self = liftDOM ((((js_getP3 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>+getP3Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit+getP3Unchecked self = liftDOM ((pFromJSVal <$> (js_getP3 (self))))++foreign import javascript safe "(($1, $2) => { $1[\"p4\"] = $2; })"+        js_setP4 :: DOMQuadInit -> DOMPointInit -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>+setP4 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()+setP4 self val = liftDOM (void ((js_setP4 (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"p4\"]; })"+        js_getP4 :: DOMQuadInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>+getP4 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)+getP4 self = liftDOM (((js_getP4 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>+getP4Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit+getP4Unsafe self = liftDOM ((((js_getP4 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>+getP4Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit+getP4Unchecked self = liftDOM ((pFromJSVal <$> (js_getP4 (self))))
src/GHCJS/DOM/JSFFI/Generated/DOMRect.hs view
@@ -1,114 +1,81 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMRect-       (js_newDOMRect, newDOMRect, js_fromRect, fromRect, fromRect_,-        js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,-        js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight,-        setHeight, js_getHeight, getHeight, DOMRect(..), gTypeDOMRect)+       (js_newDOMRect, js_fromRect, js_setX, js_getX, js_setY, js_getY, js_setWidth, js_getWidth, js_setHeight, js_getHeight, newDOMRect, fromRect, fromRect_, setX, getX, setY, getY, setWidth, getWidth, setHeight, getHeight, DOMRect(..), gTypeDOMRect)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return new window[\"DOMRect\"]($1, $2,\n$3, $4); })" js_newDOMRect ::-        Optional Double ->-          Optional Double -> Optional Double -> Optional Double -> IO DOMRect --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect Mozilla DOMRect documentation> -newDOMRect ::-           (MonadIO m) =>-             Maybe Double ->-               Maybe Double -> Maybe Double -> Maybe Double -> m DOMRect-newDOMRect x y width height-  = liftIO-      (js_newDOMRect (maybeToOptional x) (maybeToOptional y)-         (maybeToOptional width)-         (maybeToOptional height))- -foreign import javascript unsafe-        "(($1) => { return window[\"DOMRect\"][\"fromRect\"]($1); })" js_fromRect ::-        Optional DOMRectInit -> IO DOMRect+foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DOMRect\"]($1, $2, $3, $4); })"+        js_newDOMRect :: JSVal -> JSVal -> JSVal -> JSVal -> IO DOMRect+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/DOMRect MDN DOMRect. documentation>+newDOMRect :: (MonadDOM m) => Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMRect+newDOMRect x y width height = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal width) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal height) >>= \a4' -> js_newDOMRect a1' a2' a3' a4')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.fromRect Mozilla DOMRect.fromRect documentation> -fromRect :: (MonadIO m) => Maybe DOMRectInit -> m DOMRect-fromRect other = liftIO (js_fromRect (maybeToOptional other))+foreign import javascript safe "(($1) => { return globalThis[\"DOMRect\"][\"fromRect\"]($1); })"+        js_fromRect :: JSVal -> IO DOMRect+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/fromRect_static MDN DOMRect.fromRect documentation>+fromRect :: (MonadDOM m) => Maybe DOMRectInit -> m DOMRect+fromRect other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.fromRect Mozilla DOMRect.fromRect documentation> -fromRect_ :: (MonadIO m) => Maybe DOMRectInit -> m ()-fromRect_ other-  = liftIO (void (js_fromRect (maybeToOptional other)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"x\"] = $2; })" js_setX ::-        DOMRect -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/fromRect_static MDN DOMRect.fromRect documentation>+fromRect_ :: (MonadDOM m) => Maybe DOMRectInit -> m ()+fromRect_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.x Mozilla DOMRect.x documentation> -setX :: (MonadIO m) => DOMRect -> Double -> m ()-setX self val = liftIO (js_setX self val)- -foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" js_getX ::-        DOMRect -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+        js_setX :: DOMRect -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/x MDN DOMRect.x documentation>+setX :: (MonadDOM m) => DOMRect -> Double -> m ()+setX self val = liftDOM (void ((js_setX (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.x Mozilla DOMRect.x documentation> -getX :: (MonadIO m) => DOMRect -> m Double-getX self = liftIO (js_getX self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"y\"] = $2; })" js_setY ::-        DOMRect -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: DOMRect -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/x MDN DOMRect.x documentation>+getX :: (MonadDOM m) => DOMRect -> m Double+getX self = liftDOM ((js_getX (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.y Mozilla DOMRect.y documentation> -setY :: (MonadIO m) => DOMRect -> Double -> m ()-setY self val = liftIO (js_setY self val)- -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY ::-        DOMRect -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"+        js_setY :: DOMRect -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/y MDN DOMRect.y documentation>+setY :: (MonadDOM m) => DOMRect -> Double -> m ()+setY self val = liftDOM (void ((js_setY (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.y Mozilla DOMRect.y documentation> -getY :: (MonadIO m) => DOMRect -> m Double-getY self = liftIO (js_getY self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"width\"] = $2; })" js_setWidth-        :: DOMRect -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: DOMRect -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/y MDN DOMRect.y documentation>+getY :: (MonadDOM m) => DOMRect -> m Double+getY self = liftDOM ((js_getY (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.width Mozilla DOMRect.width documentation> -setWidth :: (MonadIO m) => DOMRect -> Double -> m ()-setWidth self val = liftIO (js_setWidth self val)- -foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })" js_getWidth ::-        DOMRect -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })"+        js_setWidth :: DOMRect -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/width MDN DOMRect.width documentation>+setWidth :: (MonadDOM m) => DOMRect -> Double -> m ()+setWidth self val = liftDOM (void ((js_setWidth (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.width Mozilla DOMRect.width documentation> -getWidth :: (MonadIO m) => DOMRect -> m Double-getWidth self = liftIO (js_getWidth self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"height\"] = $2; })"-        js_setHeight :: DOMRect -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })"+        js_getWidth :: DOMRect -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/width MDN DOMRect.width documentation>+getWidth :: (MonadDOM m) => DOMRect -> m Double+getWidth self = liftDOM ((js_getWidth (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.height Mozilla DOMRect.height documentation> -setHeight :: (MonadIO m) => DOMRect -> Double -> m ()-setHeight self val = liftIO (js_setHeight self val)- -foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })" js_getHeight ::-        DOMRect -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })"+        js_setHeight :: DOMRect -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/height MDN DOMRect.height documentation>+setHeight :: (MonadDOM m) => DOMRect -> Double -> m ()+setHeight self val = liftDOM (void ((js_setHeight (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.height Mozilla DOMRect.height documentation> -getHeight :: (MonadIO m) => DOMRect -> m Double-getHeight self = liftIO (js_getHeight self)+foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })"+        js_getHeight :: DOMRect -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/height MDN DOMRect.height documentation>+getHeight :: (MonadDOM m) => DOMRect -> m Double+getHeight self = liftDOM ((js_getHeight (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DOMRectInit.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DOMRectInit+       (js_newDOMRectInit, js_setX, js_getX, js_setY, js_getY, js_setWidth, js_getWidth, js_setHeight, js_getHeight, newDOMRectInit, setX, getX, getXUnsafe, getXUnchecked, setY, getY, getYUnsafe, getYUnchecked, setWidth, getWidth, getWidthUnsafe, getWidthUnchecked, setHeight, getHeight, getHeightUnsafe, getHeightUnchecked, DOMRectInit(..), gTypeDOMRectInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDOMRectInit :: IO DOMRectInit+-- | <https://drafts.csswg.org/geometry-1/#dictdef-domrectinit DOMRectInit specification>+newDOMRectInit :: (MonadDOM m) => m DOMRectInit+newDOMRectInit = liftDOM ((js_newDOMRectInit))++foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+        js_setX :: DOMRectInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-x DOMRectInit.x specification>+setX :: (MonadDOM m) => DOMRectInit -> Double -> m ()+setX self val = liftDOM (void ((js_setX (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: DOMRectInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-x DOMRectInit.x specification>+getX :: (MonadDOM m) => DOMRectInit -> m (Maybe Double)+getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-x DOMRectInit.x specification>+getXUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double+getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-x DOMRectInit.x specification>+getXUnchecked :: (MonadDOM m) => DOMRectInit -> m Double+getXUnchecked self = liftDOM ((pFromJSVal <$> (js_getX (self))))++foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"+        js_setY :: DOMRectInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-y DOMRectInit.y specification>+setY :: (MonadDOM m) => DOMRectInit -> Double -> m ()+setY self val = liftDOM (void ((js_setY (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: DOMRectInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-y DOMRectInit.y specification>+getY :: (MonadDOM m) => DOMRectInit -> m (Maybe Double)+getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-y DOMRectInit.y specification>+getYUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double+getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-y DOMRectInit.y specification>+getYUnchecked :: (MonadDOM m) => DOMRectInit -> m Double+getYUnchecked self = liftDOM ((pFromJSVal <$> (js_getY (self))))++foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })"+        js_setWidth :: DOMRectInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-width DOMRectInit.width specification>+setWidth :: (MonadDOM m) => DOMRectInit -> Double -> m ()+setWidth self val = liftDOM (void ((js_setWidth (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })"+        js_getWidth :: DOMRectInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-width DOMRectInit.width specification>+getWidth :: (MonadDOM m) => DOMRectInit -> m (Maybe Double)+getWidth self = liftDOM (((js_getWidth (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-width DOMRectInit.width specification>+getWidthUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double+getWidthUnsafe self = liftDOM ((((js_getWidth (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-width DOMRectInit.width specification>+getWidthUnchecked :: (MonadDOM m) => DOMRectInit -> m Double+getWidthUnchecked self = liftDOM ((pFromJSVal <$> (js_getWidth (self))))++foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })"+        js_setHeight :: DOMRectInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-height DOMRectInit.height specification>+setHeight :: (MonadDOM m) => DOMRectInit -> Double -> m ()+setHeight self val = liftDOM (void ((js_setHeight (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })"+        js_getHeight :: DOMRectInit -> IO JSVal+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-height DOMRectInit.height specification>+getHeight :: (MonadDOM m) => DOMRectInit -> m (Maybe Double)+getHeight self = liftDOM (((js_getHeight (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-height DOMRectInit.height specification>+getHeightUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double+getHeightUnsafe self = liftDOM ((((js_getHeight (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-height DOMRectInit.height specification>+getHeightUnchecked :: (MonadDOM m) => DOMRectInit -> m Double+getHeightUnchecked self = liftDOM ((pFromJSVal <$> (js_getHeight (self))))
+ src/GHCJS/DOM/JSFFI/Generated/DOMRectList.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DOMRectList+       (js_item, js_getLength, item, item_, itemUnsafe, itemUnchecked, getLength, DOMRectList(..), gTypeDOMRectList)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })"+        js_item :: DOMRectList -> Word -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectList/item MDN DOMRectList.item documentation>+item :: (MonadDOM m) => DOMRectList -> Word -> m (Maybe DOMRect)+item self index = liftDOM (((js_item (self) (index)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DOMRectList/item MDN DOMRectList.item documentation>+item_ :: (MonadDOM m) => DOMRectList -> Word -> m ()+item_ self index = liftDOM (void ((js_item (self) (index))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMRectList/item MDN DOMRectList.item documentation>+itemUnsafe :: (MonadDOM m, HasCallStack) => DOMRectList -> Word -> m DOMRect+itemUnsafe self index = liftDOM ((((js_item (self) (index)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DOMRectList/item MDN DOMRectList.item documentation>+itemUnchecked :: (MonadDOM m) => DOMRectList -> Word -> m DOMRect+itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index))))++foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: DOMRectList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectList/length MDN DOMRectList.length documentation>+getLength :: (MonadDOM m) => DOMRectList -> m Word+getLength self = liftDOM ((js_getLength (self)))
src/GHCJS/DOM/JSFFI/Generated/DOMRectReadOnly.hs view
@@ -1,119 +1,91 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from geometry-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMRectReadOnly-       (js_newDOMRectReadOnly, newDOMRectReadOnly, js_fromRect, fromRect,-        fromRect_, js_getX, getX, js_getY, getY, js_getWidth, getWidth,-        js_getHeight, getHeight, js_getTop, getTop, js_getRight, getRight,-        js_getBottom, getBottom, js_getLeft, getLeft, DOMRectReadOnly(..),-        gTypeDOMRectReadOnly, IsDOMRectReadOnly, toDOMRectReadOnly)+       (js_newDOMRectReadOnly, js_toJSON, js_fromRect, js_getX, js_getY, js_getWidth, js_getHeight, js_getTop, js_getRight, js_getBottom, js_getLeft, newDOMRectReadOnly, toJSON, toJSON_, fromRect, fromRect_, getX, getY, getWidth, getHeight, getTop, getRight, getBottom, getLeft, DOMRectReadOnly(..), gTypeDOMRectReadOnly, IsDOMRectReadOnly, toDOMRectReadOnly)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return new window[\"DOMRectReadOnly\"]($1,\n$2, $3, $4); })"-        js_newDOMRectReadOnly ::-        Optional Double ->-          Optional Double ->-            Optional Double -> Optional Double -> IO DOMRectReadOnly --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly Mozilla DOMRectReadOnly documentation> -newDOMRectReadOnly ::-                   (MonadIO m) =>-                     Maybe Double ->-                       Maybe Double -> Maybe Double -> Maybe Double -> m DOMRectReadOnly-newDOMRectReadOnly x y width height-  = liftIO-      (js_newDOMRectReadOnly (maybeToOptional x) (maybeToOptional y)-         (maybeToOptional width)-         (maybeToOptional height))- -foreign import javascript unsafe-        "(($1) => { return window[\"DOMRectReadOnly\"][\"fromRect\"]($1); })" js_fromRect ::-        Optional DOMRectInit -> IO DOMRectReadOnly+foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DOMRectReadOnly\"]($1, $2, $3, $4); })"+        js_newDOMRectReadOnly :: JSVal -> JSVal -> JSVal -> JSVal -> IO DOMRectReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/DOMRectReadOnly MDN DOMRectReadOnly. documentation>+newDOMRectReadOnly :: (MonadDOM m) => Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m DOMRectReadOnly+newDOMRectReadOnly x y width height = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal y) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal width) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal height) >>= \a4' -> js_newDOMRectReadOnly a1' a2' a3' a4')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.fromRect Mozilla DOMRectReadOnly.fromRect documentation> -fromRect :: (MonadIO m) => Maybe DOMRectInit -> m DOMRectReadOnly-fromRect other = liftIO (js_fromRect (maybeToOptional other))+foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })"+        js_toJSON :: DOMRectReadOnly -> IO GObject+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/toJSON MDN DOMRectReadOnly.toJSON documentation>+toJSON :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m GObject+toJSON self = liftDOM ((js_toJSON ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.fromRect Mozilla DOMRectReadOnly.fromRect documentation> -fromRect_ :: (MonadIO m) => Maybe DOMRectInit -> m ()-fromRect_ other-  = liftIO (void (js_fromRect (maybeToOptional other)))- -foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" js_getX ::-        DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/toJSON MDN DOMRectReadOnly.toJSON documentation>+toJSON_ :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m ()+toJSON_ self = liftDOM (void ((js_toJSON ((Types.toDOMRectReadOnly self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.x Mozilla DOMRectReadOnly.x documentation> -getX :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getX self = liftIO (js_getX (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY ::-        DOMRectReadOnly -> IO Double+foreign import javascript safe "(($1) => { return globalThis[\"DOMRectReadOnly\"][\"fromRect\"]($1); })"+        js_fromRect :: JSVal -> IO DOMRectReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/fromRect_static MDN DOMRectReadOnly.fromRect documentation>+fromRect :: (MonadDOM m) => Maybe DOMRectInit -> m DOMRectReadOnly+fromRect other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.y Mozilla DOMRectReadOnly.y documentation> -getY :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getY self = liftIO (js_getY (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })" js_getWidth ::-        DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/fromRect_static MDN DOMRectReadOnly.fromRect documentation>+fromRect_ :: (MonadDOM m) => Maybe DOMRectInit -> m ()+fromRect_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.width Mozilla DOMRectReadOnly.width documentation> -getWidth :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getWidth self = liftIO (js_getWidth (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })" js_getHeight ::-        DOMRectReadOnly -> IO Double+foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/x MDN DOMRectReadOnly.x documentation>+getX :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getX self = liftDOM ((js_getX ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.height Mozilla DOMRectReadOnly.height documentation> -getHeight ::-          (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getHeight self = liftIO (js_getHeight (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"top\"]; })" js_getTop ::-        DOMRectReadOnly -> IO Double+foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/y MDN DOMRectReadOnly.y documentation>+getY :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getY self = liftDOM ((js_getY ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.top Mozilla DOMRectReadOnly.top documentation> -getTop :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getTop self = liftIO (js_getTop (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"right\"]; })" js_getRight ::-        DOMRectReadOnly -> IO Double+foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })"+        js_getWidth :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/width MDN DOMRectReadOnly.width documentation>+getWidth :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getWidth self = liftDOM ((js_getWidth ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.right Mozilla DOMRectReadOnly.right documentation> -getRight :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getRight self = liftIO (js_getRight (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"bottom\"]; })" js_getBottom ::-        DOMRectReadOnly -> IO Double+foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })"+        js_getHeight :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/height MDN DOMRectReadOnly.height documentation>+getHeight :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getHeight self = liftDOM ((js_getHeight ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.bottom Mozilla DOMRectReadOnly.bottom documentation> -getBottom ::-          (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getBottom self = liftIO (js_getBottom (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"left\"]; })" js_getLeft ::-        DOMRectReadOnly -> IO Double+foreign import javascript unsafe "(($1) => { return $1[\"top\"]; })"+        js_getTop :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/top MDN DOMRectReadOnly.top documentation>+getTop :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getTop self = liftDOM ((js_getTop ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.left Mozilla DOMRectReadOnly.left documentation> -getLeft :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getLeft self = liftIO (js_getLeft (toDOMRectReadOnly self))+foreign import javascript unsafe "(($1) => { return $1[\"right\"]; })"+        js_getRight :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/right MDN DOMRectReadOnly.right documentation>+getRight :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getRight self = liftDOM ((js_getRight ((Types.toDOMRectReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"bottom\"]; })"+        js_getBottom :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/bottom MDN DOMRectReadOnly.bottom documentation>+getBottom :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getBottom self = liftDOM ((js_getBottom ((Types.toDOMRectReadOnly self))))++foreign import javascript unsafe "(($1) => { return $1[\"left\"]; })"+        js_getLeft :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/left MDN DOMRectReadOnly.left documentation>+getLeft :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getLeft self = liftDOM ((js_getLeft ((Types.toDOMRectReadOnly self))))
src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs view
@@ -1,80 +1,51 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMStringList-       (js_item, item, item_, itemUnsafe, itemUnchecked, js_contains,-        contains, contains_, js_getLength, getLength, DOMStringList(..),-        gTypeDOMStringList)+       (js_contains, js_item, js_getLength, contains, contains_, item, item_, itemUnsafe, itemUnchecked, getLength, DOMStringList(..), gTypeDOMStringList)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item ::-        DOMStringList -> Word -> IO (Nullable JSString) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> -item ::-     (MonadIO m, FromJSString result) =>-       DOMStringList -> Word -> m (Maybe result)-item self index-  = liftIO (fromMaybeJSString <$> (js_item self index))+foreign import javascript safe "(($1, $2) => { return $1[\"contains\"]($2); })"+        js_contains :: DOMStringList -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/contains MDN DOMStringList.contains documentation>+contains :: (MonadDOM m, ToJSString string) => DOMStringList -> string -> m Bool+contains self string = liftDOM ((js_contains (self) (toJSString string))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> -item_ :: (MonadIO m) => DOMStringList -> Word -> m ()-item_ self index = liftIO (void (js_item self index))+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/contains MDN DOMStringList.contains documentation>+contains_ :: (MonadDOM m, ToJSString string) => DOMStringList -> string -> m ()+contains_ self string = liftDOM (void ((js_contains (self) (toJSString string)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> -itemUnsafe ::-           (MonadIO m, HasCallStack, FromJSString result) =>-             DOMStringList -> Word -> m result-itemUnsafe self index-  = liftIO-      ((fromMaybeJSString <$> (js_item self index)) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })"+        js_item :: DOMStringList -> Word -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/item MDN DOMStringList.item documentation>+item :: (MonadDOM m, FromJSString result) => DOMStringList -> Word -> m (Maybe result)+item self index = liftDOM (((fromMaybeJSString . Nullable) <$> (js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> -itemUnchecked ::-              (MonadIO m, FromJSString result) =>-                DOMStringList -> Word -> m result-itemUnchecked self index-  = liftIO (fromJust . fromMaybeJSString <$> (js_item self index))- -foreign import javascript unsafe "(($1, $2) => { return ($1[\"contains\"]($2) ? 1 : 0); })"-        js_contains :: DOMStringList -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/item MDN DOMStringList.item documentation>+item_ :: (MonadDOM m) => DOMStringList -> Word -> m ()+item_ self index = liftDOM (void ((js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.contains Mozilla DOMStringList.contains documentation> -contains ::-         (MonadIO m, ToJSString string) => DOMStringList -> string -> m Bool-contains self string-  = liftIO (js_contains self (toJSString string))+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/item MDN DOMStringList.item documentation>+itemUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => DOMStringList -> Word -> m result+itemUnsafe self index = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_item (self) (index))) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.contains Mozilla DOMStringList.contains documentation> -contains_ ::-          (MonadIO m, ToJSString string) => DOMStringList -> string -> m ()-contains_ self string-  = liftIO (void (js_contains self (toJSString string)))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::-        DOMStringList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/item MDN DOMStringList.item documentation>+itemUnchecked :: (MonadDOM m, FromJSString result) => DOMStringList -> Word -> m result+itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.length Mozilla DOMStringList.length documentation> -getLength :: (MonadIO m) => DOMStringList -> m Word-getLength self = liftIO (js_getLength self)+foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: DOMStringList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/length MDN DOMStringList.length documentation>+getLength :: (MonadDOM m) => DOMStringList -> m Word+getLength self = liftDOM ((js_getLength (self)))
src/GHCJS/DOM/JSFFI/Generated/DOMStringMap.hs view
@@ -1,40 +1,18 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMStringMap-       (js_get, get, get_, DOMStringMap(..), gTypeDOMStringMap) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+       (DOMStringMap(..), gTypeDOMStringMap)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_get ::-        DOMStringMap -> JSString -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringMap.get Mozilla DOMStringMap.get documentation> -get ::-    (MonadIO m, ToJSString name, FromJSString result) =>-      DOMStringMap -> name -> m result-get self name-  = liftIO (fromJSString <$> (js_get self (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringMap.get Mozilla DOMStringMap.get documentation> -get_ ::-     (MonadIO m, ToJSString name) => DOMStringMap -> name -> m ()-get_ self name = liftIO (void (js_get self (toJSString name)))
src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs view
@@ -1,156 +1,105 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DOMTokenList-       (js_item, item, item_, itemUnsafe, itemUnchecked, js_contains,-        contains, contains_, js_add, add, js_remove, remove, js_toggle,-        toggle, toggle_, js_replace, replace, js_supports, supports,-        supports_, js_getLength, getLength, js_setValue, setValue,-        js_getValue, getValue, DOMTokenList(..), gTypeDOMTokenList)+       (js_add, js_contains, js_item, js_remove, js_replace, js_supports, js_toggle, js_getLength, js_setValue, js_getValue, add, contains, contains_, item, item_, itemUnsafe, itemUnchecked, remove, replace, replace_, supports, supports_, toggle, toggle_, getLength, setValue, getValue, DOMTokenList(..), gTypeDOMTokenList)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item ::-        DOMTokenList -> Word -> IO (Nullable JSString) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> -item ::-     (MonadIO m, FromJSString result) =>-       DOMTokenList -> Word -> m (Maybe result)-item self index-  = liftIO (fromMaybeJSString <$> (js_item self index))+foreign import javascript safe "(($1, $2) => { return $1[\"add\"](...$2); })"+        js_add :: DOMTokenList -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/add MDN DOMTokenList.add documentation>+add :: (MonadDOM m, ToJSString tokens) => DOMTokenList -> [tokens] -> m ()+add self tokens = liftDOM (void (((toJSVal tokens) >>= \a2' -> js_add (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> -item_ :: (MonadIO m) => DOMTokenList -> Word -> m ()-item_ self index = liftIO (void (js_item self index))+foreign import javascript safe "(($1, $2) => { return $1[\"contains\"]($2); })"+        js_contains :: DOMTokenList -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/contains MDN DOMTokenList.contains documentation>+contains :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m Bool+contains self token = liftDOM ((js_contains (self) (toJSString token))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> -itemUnsafe ::-           (MonadIO m, HasCallStack, FromJSString result) =>-             DOMTokenList -> Word -> m result-itemUnsafe self index-  = liftIO-      ((fromMaybeJSString <$> (js_item self index)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/contains MDN DOMTokenList.contains documentation>+contains_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m ()+contains_ self token = liftDOM (void ((js_contains (self) (toJSString token)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> -itemUnchecked ::-              (MonadIO m, FromJSString result) =>-                DOMTokenList -> Word -> m result-itemUnchecked self index-  = liftIO (fromJust . fromMaybeJSString <$> (js_item self index))- -foreign import javascript unsafe "(($1, $2) => { return ($1[\"contains\"]($2) ? 1 : 0); })"-        js_contains :: DOMTokenList -> JSString -> IO Bool+foreign import javascript safe "(($1, $2) => { return $1[\"item\"]($2); })"+        js_item :: DOMTokenList -> Word -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>+item :: (MonadDOM m, FromJSString result) => DOMTokenList -> Word -> m (Maybe result)+item self index = liftDOM (((fromMaybeJSString . Nullable) <$> (js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.contains Mozilla DOMTokenList.contains documentation> -contains ::-         (MonadIO m, ToJSString token) => DOMTokenList -> token -> m Bool-contains self token = liftIO (js_contains self (toJSString token))+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>+item_ :: (MonadDOM m) => DOMTokenList -> Word -> m ()+item_ self index = liftDOM (void ((js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.contains Mozilla DOMTokenList.contains documentation> -contains_ ::-          (MonadIO m, ToJSString token) => DOMTokenList -> token -> m ()-contains_ self token-  = liftIO (void (js_contains self (toJSString token)))- -foreign import javascript safe "(($1, $2) => { return $1[\"add\"]($2); })" js_add ::-        DOMTokenList -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>+itemUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => DOMTokenList -> Word -> m result+itemUnsafe self index = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_item (self) (index))) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.add Mozilla DOMTokenList.add documentation> -add ::-    (MonadIO m, ToJSString tokens) => DOMTokenList -> [tokens] -> m ()-add self tokens-  = liftIO (toJSVal tokens >>= \ tokens' -> js_add self tokens')- -foreign import javascript safe "(($1, $2) => { return $1[\"remove\"]($2); })" js_remove ::-        DOMTokenList -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>+itemUnchecked :: (MonadDOM m, FromJSString result) => DOMTokenList -> Word -> m result+itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.remove Mozilla DOMTokenList.remove documentation> -remove ::-       (MonadIO m, ToJSString tokens) => DOMTokenList -> [tokens] -> m ()-remove self tokens-  = liftIO (toJSVal tokens >>= \ tokens' -> js_remove self tokens')- -foreign import javascript safe "(($1, $2, $3) => { return ($1[\"toggle\"]($2, $3) ? 1 : 0); })"-        js_toggle :: DOMTokenList -> JSString -> Bool -> IO Bool+foreign import javascript safe "(($1, $2) => { return $1[\"remove\"](...$2); })"+        js_remove :: DOMTokenList -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/remove MDN DOMTokenList.remove documentation>+remove :: (MonadDOM m, ToJSString tokens) => DOMTokenList -> [tokens] -> m ()+remove self tokens = liftDOM (void (((toJSVal tokens) >>= \a2' -> js_remove (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toggle Mozilla DOMTokenList.toggle documentation> -toggle ::-       (MonadIO m, ToJSString token) =>-         DOMTokenList -> token -> Bool -> m Bool-toggle self token force-  = liftIO (js_toggle self (toJSString token) force)+foreign import javascript safe "(($1, $2, $3) => { return $1[\"replace\"]($2, $3); })"+        js_replace :: DOMTokenList -> JSString -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/replace MDN DOMTokenList.replace documentation>+replace :: (MonadDOM m, ToJSString token, ToJSString newToken) => DOMTokenList -> token -> newToken -> m Bool+replace self token newToken = liftDOM ((js_replace (self) (toJSString token) (toJSString newToken))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toggle Mozilla DOMTokenList.toggle documentation> -toggle_ ::-        (MonadIO m, ToJSString token) =>-          DOMTokenList -> token -> Bool -> m ()-toggle_ self token force-  = liftIO (void (js_toggle self (toJSString token) force))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"replace\"]($2, $3); })" js_replace-        :: DOMTokenList -> JSString -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/replace MDN DOMTokenList.replace documentation>+replace_ :: (MonadDOM m, ToJSString token, ToJSString newToken) => DOMTokenList -> token -> newToken -> m ()+replace_ self token newToken = liftDOM (void ((js_replace (self) (toJSString token) (toJSString newToken)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.replace Mozilla DOMTokenList.replace documentation> -replace ::-        (MonadIO m, ToJSString token, ToJSString newToken) =>-          DOMTokenList -> token -> newToken -> m ()-replace self token newToken-  = liftIO (js_replace self (toJSString token) (toJSString newToken))- -foreign import javascript safe "(($1, $2) => { return ($1[\"supports\"]($2) ? 1 : 0); })"+foreign import javascript safe "(($1, $2) => { return $1[\"supports\"]($2); })"         js_supports :: DOMTokenList -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/supports MDN DOMTokenList.supports documentation>+supports :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m Bool+supports self token = liftDOM ((js_supports (self) (toJSString token))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.supports Mozilla DOMTokenList.supports documentation> -supports ::-         (MonadIO m, ToJSString token) => DOMTokenList -> token -> m Bool-supports self token = liftIO (js_supports self (toJSString token))+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/supports MDN DOMTokenList.supports documentation>+supports_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m ()+supports_ self token = liftDOM (void ((js_supports (self) (toJSString token)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.supports Mozilla DOMTokenList.supports documentation> -supports_ ::-          (MonadIO m, ToJSString token) => DOMTokenList -> token -> m ()-supports_ self token-  = liftIO (void (js_supports self (toJSString token)))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::-        DOMTokenList -> IO Word+foreign import javascript safe "(($1, $2, $3) => { return $1[\"toggle\"]($2, $3); })"+        js_toggle :: DOMTokenList -> JSString -> JSVal -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/toggle MDN DOMTokenList.toggle documentation>+toggle :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> Maybe Bool -> m Bool+toggle self token force = liftDOM (((P.maybe (P.return jsUndefined) toJSVal force) >>= \a3' -> js_toggle (self) (toJSString token) a3')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.length Mozilla DOMTokenList.length documentation> -getLength :: (MonadIO m) => DOMTokenList -> m Word-getLength self = liftIO (js_getLength self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"value\"] = $2; })" js_setValue-        :: DOMTokenList -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/toggle MDN DOMTokenList.toggle documentation>+toggle_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> Maybe Bool -> m ()+toggle_ self token force = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal force) >>= \a3' -> js_toggle (self) (toJSString token) a3'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.value Mozilla DOMTokenList.value documentation> -setValue ::-         (MonadIO m, ToJSString val) => DOMTokenList -> val -> m ()-setValue self val = liftIO (js_setValue self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue ::-        DOMTokenList -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: DOMTokenList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/length MDN DOMTokenList.length documentation>+getLength :: (MonadDOM m) => DOMTokenList -> m Word+getLength self = liftDOM ((js_getLength (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.value Mozilla DOMTokenList.value documentation> -getValue ::-         (MonadIO m, FromJSString result) => DOMTokenList -> m result-getValue self = liftIO (fromJSString <$> (js_getValue self))+foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })"+        js_setValue :: DOMTokenList -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/value MDN DOMTokenList.value documentation>+setValue :: (MonadDOM m, ToJSString val) => DOMTokenList -> val -> m ()+setValue self val = liftDOM (void ((js_setValue (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: DOMTokenList -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/value MDN DOMTokenList.value documentation>+getValue :: (MonadDOM m, FromJSString result) => DOMTokenList -> m result+getValue self = liftDOM ((fromJSString <$> (js_getValue (self))))
src/GHCJS/DOM/JSFFI/Generated/DataCue.hs view
@@ -1,90 +1,47 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from datacue (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DataCue-       (js_newDataCue, newDataCue, js_newDataCue', newDataCue',-        js_setData, setData, js_getData, getData, js_setValue, setValue,-        js_getValue, getValue, js_getType, getType, DataCue(..),-        gTypeDataCue)+       (js_newDataCue, js_newDataCue', js_setValue, js_getValue, js_getType, newDataCue, newDataCue', setValue, getValue, getType, DataCue(..), gTypeDataCue)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2, $3) => { return new window[\"WebKitDataCue\"]($1,\n$2, $3); })" js_newDataCue ::-        Double -> Double -> ArrayBuffer -> IO DataCue --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> -newDataCue ::-           (MonadIO m, IsArrayBuffer data') =>-             Double -> Double -> data' -> m DataCue-newDataCue startTime endTime data'-  = liftIO (js_newDataCue startTime endTime (toArrayBuffer data'))- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return new window[\"WebKitDataCue\"]($1,\n$2, $3, $4); })" js_newDataCue' ::-        Double -> Double -> JSVal -> Optional JSString -> IO DataCue---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> -newDataCue' ::-            (MonadIO m, ToJSVal value, ToJSString type') =>-              Double -> Double -> value -> Maybe type' -> m DataCue-newDataCue' startTime endTime value type'-  = liftIO-      (toJSVal value >>=-         \ value' -> js_newDataCue' startTime endTime value'-         (toOptionalJSString type'))- -foreign import javascript unsafe "(($1, $2) => { $1[\"data\"] = $2; })" js_setData ::-        DataCue -> ArrayBuffer -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> -setData :: (MonadIO m, IsArrayBuffer val) => DataCue -> val -> m ()-setData self val = liftIO (js_setData self (toArrayBuffer val))- -foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })" js_getData ::-        DataCue -> IO ArrayBuffer+foreign import javascript safe "(($1, $2, $3) => { return new globalThis[\"DataCue\"]($1, $2, $3); })"+        js_newDataCue :: Double -> Double -> JSVal -> IO DataCue+-- | <https://developer.mozilla.org/docs/Web/API/DataCue/DataCue MDN DataCue. documentation>+newDataCue :: (MonadDOM m) => Double -> Double -> JSVal -> m DataCue+newDataCue startTime endTime value = liftDOM ((js_newDataCue (startTime) (endTime) (value))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> -getData :: (MonadIO m) => DataCue -> m ArrayBuffer-getData self = liftIO (js_getData self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"value\"] = $2; })" js_setValue-        :: DataCue -> JSVal -> IO ()+foreign import javascript safe "(($1, $2, $3, $4) => { return new globalThis[\"DataCue\"]($1, $2, $3, $4); })"+        js_newDataCue' :: Double -> Double -> JSVal -> (Optional JSString) -> IO DataCue+-- | <https://developer.mozilla.org/docs/Web/API/DataCue/DataCue MDN DataCue. documentation>+newDataCue' :: (MonadDOM m, ToJSString type') => Double -> Double -> JSVal -> Maybe type' -> m DataCue+newDataCue' startTime endTime value type' = liftDOM ((js_newDataCue' (startTime) (endTime) (value) (toOptionalJSString type'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> -setValue :: (MonadIO m, ToJSVal val) => DataCue -> val -> m ()-setValue self val-  = liftIO (toJSVal val >>= \ val' -> js_setValue self val')- -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue ::-        DataCue -> IO JSVal+foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })"+        js_setValue :: DataCue -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataCue/value MDN DataCue.value documentation>+setValue :: (MonadDOM m) => DataCue -> JSVal -> m ()+setValue self val = liftDOM (void ((js_setValue (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> -getValue :: (MonadIO m) => DataCue -> m JSVal-getValue self = liftIO (js_getValue self)- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::-        DataCue -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+        js_getValue :: DataCue -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DataCue/value MDN DataCue.value documentation>+getValue :: (MonadDOM m) => DataCue -> m JSVal+getValue self = liftDOM ((js_getValue (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.type Mozilla WebKitDataCue.type documentation> -getType :: (MonadIO m, FromJSString result) => DataCue -> m result-getType self = liftIO (fromJSString <$> (js_getType self))+foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: DataCue -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DataCue/type MDN DataCue.type documentation>+getType :: (MonadDOM m, FromJSString result) => DataCue -> m result+getType self = liftDOM ((fromJSString <$> (js_getType (self))))
src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs view
@@ -1,137 +1,93 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DataTransfer-       (js_setDragImage, setDragImage, js_getData, getData, getData_,-        js_setData, setData, js_clearData, clearData, js_setDropEffect,-        setDropEffect, js_getDropEffect, getDropEffect,-        js_setEffectAllowed, setEffectAllowed, js_getEffectAllowed,-        getEffectAllowed, js_getItems, getItems, js_getTypes, getTypes,-        js_getFiles, getFiles, DataTransfer(..), gTypeDataTransfer)+       (js_newDataTransfer, js_clearData, js_getData, js_setData, js_setDragImage, js_setDropEffect, js_getDropEffect, js_setEffectAllowed, js_getEffectAllowed, js_getItems, js_getTypes, js_getFiles, newDataTransfer, clearData, getData, getData_, setData, setDragImage, setDropEffect, getDropEffect, setEffectAllowed, getEffectAllowed, getItems, getTypes, getFiles, DataTransfer(..), gTypeDataTransfer)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"setDragImage\"]($2, $3, $4); })"-        js_setDragImage ::-        DataTransfer -> Optional Element -> Int -> Int -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setDragImage Mozilla DataTransfer.setDragImage documentation> -setDragImage ::-             (MonadIO m, IsElement image) =>-               DataTransfer -> Maybe image -> Int -> Int -> m ()-setDragImage self image x y-  = liftIO-      (js_setDragImage self (maybeToOptional (fmap toElement image)) x y)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getData\"]($2); })" js_getData-        :: DataTransfer -> JSString -> IO JSString+foreign import javascript safe "(() => { return new globalThis[\"DataTransfer\"](); })"+        js_newDataTransfer :: IO DataTransfer+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/DataTransfer MDN DataTransfer. documentation>+newDataTransfer :: (MonadDOM m) => m DataTransfer+newDataTransfer = liftDOM ((js_newDataTransfer)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.getData Mozilla DataTransfer.getData documentation> -getData ::-        (MonadIO m, ToJSString format, FromJSString result) =>-          DataTransfer -> format -> m result-getData self format-  = liftIO (fromJSString <$> (js_getData self (toJSString format)))+foreign import javascript safe "(($1, $2) => { return $1[\"clearData\"]($2); })"+        js_clearData :: DataTransfer -> (Optional JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/clearData MDN DataTransfer.clearData documentation>+clearData :: (MonadDOM m, ToJSString format) => DataTransfer -> Maybe format -> m ()+clearData self format = liftDOM (void ((js_clearData (self) (toOptionalJSString format)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.getData Mozilla DataTransfer.getData documentation> -getData_ ::-         (MonadIO m, ToJSString format) => DataTransfer -> format -> m ()-getData_ self format-  = liftIO (void (js_getData self (toJSString format)))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setData\"]($2, $3); })"+foreign import javascript safe "(($1, $2) => { return $1[\"getData\"]($2); })"+        js_getData :: DataTransfer -> JSString -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/getData MDN DataTransfer.getData documentation>+getData :: (MonadDOM m, ToJSString format, FromJSString result) => DataTransfer -> format -> m result+getData self format = liftDOM ((fromJSString <$> (js_getData (self) (toJSString format))))++-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/getData MDN DataTransfer.getData documentation>+getData_ :: (MonadDOM m, ToJSString format) => DataTransfer -> format -> m ()+getData_ self format = liftDOM (void ((js_getData (self) (toJSString format))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"setData\"]($2, $3); })"         js_setData :: DataTransfer -> JSString -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/setData MDN DataTransfer.setData documentation>+setData :: (MonadDOM m, ToJSString format, ToJSString data') => DataTransfer -> format -> data' -> m ()+setData self format data' = liftDOM (void ((js_setData (self) (toJSString format) (toJSString data')))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setData Mozilla DataTransfer.setData documentation> -setData ::-        (MonadIO m, ToJSString format, ToJSString data') =>-          DataTransfer -> format -> data' -> m ()-setData self format data'-  = liftIO (js_setData self (toJSString format) (toJSString data'))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"clearData\"]($2); })"-        js_clearData :: DataTransfer -> Optional JSString -> IO ()+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setDragImage\"]($2, $3, $4); })"+        js_setDragImage :: DataTransfer -> Element -> Int -> Int -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/setDragImage MDN DataTransfer.setDragImage documentation>+setDragImage :: (MonadDOM m, IsElement image) => DataTransfer -> image -> Int -> Int -> m ()+setDragImage self image x y = liftDOM (void ((js_setDragImage (self) (Types.toElement image) (x) (y)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.clearData Mozilla DataTransfer.clearData documentation> -clearData ::-          (MonadIO m, ToJSString format) =>-            DataTransfer -> Maybe format -> m ()-clearData self format-  = liftIO (js_clearData self (toOptionalJSString format))- -foreign import javascript unsafe "(($1, $2) => { $1[\"dropEffect\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"dropEffect\"] = $2; })"         js_setDropEffect :: DataTransfer -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/dropEffect MDN DataTransfer.dropEffect documentation>+setDropEffect :: (MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()+setDropEffect self val = liftDOM (void ((js_setDropEffect (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation> -setDropEffect ::-              (MonadIO m, ToJSString val) => DataTransfer -> val -> m ()-setDropEffect self val-  = liftIO (js_setDropEffect self (toJSString val))-  foreign import javascript unsafe "(($1) => { return $1[\"dropEffect\"]; })"         js_getDropEffect :: DataTransfer -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/dropEffect MDN DataTransfer.dropEffect documentation>+getDropEffect :: (MonadDOM m, FromJSString result) => DataTransfer -> m result+getDropEffect self = liftDOM ((fromJSString <$> (js_getDropEffect (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation> -getDropEffect ::-              (MonadIO m, FromJSString result) => DataTransfer -> m result-getDropEffect self-  = liftIO (fromJSString <$> (js_getDropEffect self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"effectAllowed\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"effectAllowed\"] = $2; })"         js_setEffectAllowed :: DataTransfer -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/effectAllowed MDN DataTransfer.effectAllowed documentation>+setEffectAllowed :: (MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()+setEffectAllowed self val = liftDOM (void ((js_setEffectAllowed (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> -setEffectAllowed ::-                 (MonadIO m, ToJSString val) => DataTransfer -> val -> m ()-setEffectAllowed self val-  = liftIO (js_setEffectAllowed self (toJSString val))-  foreign import javascript unsafe "(($1) => { return $1[\"effectAllowed\"]; })"         js_getEffectAllowed :: DataTransfer -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> -getEffectAllowed ::-                 (MonadIO m, FromJSString result) => DataTransfer -> m result-getEffectAllowed self-  = liftIO (fromJSString <$> (js_getEffectAllowed self))- -foreign import javascript unsafe "(($1) => { return $1[\"items\"]; })" js_getItems ::-        DataTransfer -> IO DataTransferItemList+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/effectAllowed MDN DataTransfer.effectAllowed documentation>+getEffectAllowed :: (MonadDOM m, FromJSString result) => DataTransfer -> m result+getEffectAllowed self = liftDOM ((fromJSString <$> (js_getEffectAllowed (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation> -getItems :: (MonadIO m) => DataTransfer -> m DataTransferItemList-getItems self = liftIO (js_getItems self)- -foreign import javascript unsafe "(($1) => { return $1[\"types\"]; })" js_getTypes ::-        DataTransfer -> IO JSVal+foreign import javascript unsafe "(($1) => { return $1[\"items\"]; })"+        js_getItems :: DataTransfer -> IO DataTransferItemList+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/items MDN DataTransfer.items documentation>+getItems :: (MonadDOM m) => DataTransfer -> m DataTransferItemList+getItems self = liftDOM ((js_getItems (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation> -getTypes ::-         (MonadIO m, FromJSString result) => DataTransfer -> m [result]-getTypes self = liftIO ((js_getTypes self) >>= fromJSValUnchecked)- -foreign import javascript unsafe "(($1) => { return $1[\"files\"]; })" js_getFiles ::-        DataTransfer -> IO FileList+foreign import javascript unsafe "(($1) => { return $1[\"types\"]; })"+        js_getTypes :: DataTransfer -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/types MDN DataTransfer.types documentation>+getTypes :: (MonadDOM m, FromJSString result) => DataTransfer -> m [result]+getTypes self = liftDOM (((js_getTypes (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation> -getFiles :: (MonadIO m) => DataTransfer -> m FileList-getFiles self = liftIO (js_getFiles self)+foreign import javascript unsafe "(($1) => { return $1[\"files\"]; })"+        js_getFiles :: DataTransfer -> IO FileList+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/files MDN DataTransfer.files documentation>+getFiles :: (MonadDOM m) => DataTransfer -> m FileList+getFiles self = liftDOM ((js_getFiles (self)))
src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs view
@@ -1,79 +1,71 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DataTransferItem-       (js_getAsString, getAsString, js_getAsFile, getAsFile, getAsFile_,-        getAsFileUnsafe, getAsFileUnchecked, js_getKind, getKind,-        js_getType, getType, DataTransferItem(..), gTypeDataTransferItem)+       (js_getAsFile, js_getAsString, js_webkitGetAsEntry, js_getKind, js_getType, getAsFile, getAsFile_, getAsFileUnsafe, getAsFileUnchecked, getAsString, webkitGetAsEntry, webkitGetAsEntry_, webkitGetAsEntryUnsafe, webkitGetAsEntryUnchecked, getKind, getType, DataTransferItem(..), gTypeDataTransferItem)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getAsString\"]($2); })"-        js_getAsString ::-        DataTransferItem -> Optional (StringCallback callback) -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsString Mozilla DataTransferItem.getAsString documentation> -getAsString ::-            (MonadIO m, ToJSString callback) =>-              DataTransferItem -> Maybe (StringCallback callback) -> m ()-getAsString self callback-  = liftIO (js_getAsString self (maybeToOptional callback))- -foreign import javascript unsafe "(($1) => { return $1[\"getAsFile\"](); })" js_getAsFile-        :: DataTransferItem -> IO (Nullable Blob)+foreign import javascript safe "(($1) => { return $1[\"getAsFile\"](); })"+        js_getAsFile :: DataTransferItem -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/getAsFile MDN DataTransferItem.getAsFile documentation>+getAsFile :: (MonadDOM m) => DataTransferItem -> m (Maybe File)+getAsFile self = liftDOM (((js_getAsFile (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> -getAsFile :: (MonadIO m) => DataTransferItem -> m (Maybe Blob)-getAsFile self = liftIO (nullableToMaybe <$> (js_getAsFile self))+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/getAsFile MDN DataTransferItem.getAsFile documentation>+getAsFile_ :: (MonadDOM m) => DataTransferItem -> m ()+getAsFile_ self = liftDOM (void ((js_getAsFile (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> -getAsFile_ :: (MonadIO m) => DataTransferItem -> m ()-getAsFile_ self = liftIO (void (js_getAsFile self))+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/getAsFile MDN DataTransferItem.getAsFile documentation>+getAsFileUnsafe :: (MonadDOM m, HasCallStack) => DataTransferItem -> m File+getAsFileUnsafe self = liftDOM ((((js_getAsFile (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> -getAsFileUnsafe ::-                (MonadIO m, HasCallStack) => DataTransferItem -> m Blob-getAsFileUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAsFile self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/getAsFile MDN DataTransferItem.getAsFile documentation>+getAsFileUnchecked :: (MonadDOM m) => DataTransferItem -> m File+getAsFileUnchecked self = liftDOM ((pFromJSVal <$> (js_getAsFile (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> -getAsFileUnchecked :: (MonadIO m) => DataTransferItem -> m Blob-getAsFileUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAsFile self))- -foreign import javascript unsafe "(($1) => { return $1[\"kind\"]; })" js_getKind ::-        DataTransferItem -> IO JSString+foreign import javascript safe "(($1, $2) => { return $1[\"getAsString\"]($2); })"+        js_getAsString :: DataTransferItem -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/getAsString MDN DataTransferItem.getAsString documentation>+getAsString :: (MonadDOM m) => DataTransferItem -> Maybe FunctionStringCallback -> m ()+getAsString self callback' = liftDOM (void (((toJSVal callback') >>= \a2' -> js_getAsString (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.kind Mozilla DataTransferItem.kind documentation> -getKind ::-        (MonadIO m, FromJSString result) => DataTransferItem -> m result-getKind self = liftIO (fromJSString <$> (js_getKind self))- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::-        DataTransferItem -> IO JSString+foreign import javascript safe "(($1) => { return $1[\"webkitGetAsEntry\"](); })"+        js_webkitGetAsEntry :: DataTransferItem -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/webkitGetAsEntry MDN DataTransferItem.webkitGetAsEntry documentation>+webkitGetAsEntry :: (MonadDOM m) => DataTransferItem -> m (Maybe FileSystemEntry)+webkitGetAsEntry self = liftDOM (((js_webkitGetAsEntry (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.type Mozilla DataTransferItem.type documentation> -getType ::-        (MonadIO m, FromJSString result) => DataTransferItem -> m result-getType self = liftIO (fromJSString <$> (js_getType self))+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/webkitGetAsEntry MDN DataTransferItem.webkitGetAsEntry documentation>+webkitGetAsEntry_ :: (MonadDOM m) => DataTransferItem -> m ()+webkitGetAsEntry_ self = liftDOM (void ((js_webkitGetAsEntry (self))))++-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/webkitGetAsEntry MDN DataTransferItem.webkitGetAsEntry documentation>+webkitGetAsEntryUnsafe :: (MonadDOM m, HasCallStack) => DataTransferItem -> m FileSystemEntry+webkitGetAsEntryUnsafe self = liftDOM ((((js_webkitGetAsEntry (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/webkitGetAsEntry MDN DataTransferItem.webkitGetAsEntry documentation>+webkitGetAsEntryUnchecked :: (MonadDOM m) => DataTransferItem -> m FileSystemEntry+webkitGetAsEntryUnchecked self = liftDOM ((pFromJSVal <$> (js_webkitGetAsEntry (self))))++foreign import javascript unsafe "(($1) => { return $1[\"kind\"]; })"+        js_getKind :: DataTransferItem -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/kind MDN DataTransferItem.kind documentation>+getKind :: (MonadDOM m, FromJSString result) => DataTransferItem -> m result+getKind self = liftDOM ((fromJSString <$> (js_getKind (self))))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: DataTransferItem -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/type MDN DataTransferItem.type documentation>+getType :: (MonadDOM m, FromJSString result) => DataTransferItem -> m result+getType self = liftDOM ((fromJSString <$> (js_getType (self))))
src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs view
@@ -1,74 +1,71 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DataTransferItemList-       (js_item, item, item_, js_clear, clear, js_addFile, addFile,-        js_add, add, js_getLength, getLength, DataTransferItemList(..),-        gTypeDataTransferItemList)+       (js_add, js_addFile, js_clear, js_remove, js_getLength, add, add_, addUnsafe, addUnchecked, addFile, addFile_, addFileUnsafe, addFileUnchecked, clear, remove, getLength, DataTransferItemList(..), gTypeDataTransferItemList)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[$2]; })" js_item ::-        DataTransferItemList -> Word -> IO DataTransferItem --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> -item ::-     (MonadIO m) => DataTransferItemList -> Word -> m DataTransferItem-item self index = liftIO (js_item self index)+foreign import javascript safe "(($1, $2, $3) => { return $1[\"add\"]($2, $3); })"+        js_add :: DataTransferItemList -> JSString -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+add :: (MonadDOM m, ToJSString data', ToJSString type') => DataTransferItemList -> data' -> type' -> m (Maybe DataTransferItem)+add self data' type' = liftDOM (((js_add (self) (toJSString data') (toJSString type')) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> -item_ :: (MonadIO m) => DataTransferItemList -> Word -> m ()-item_ self index = liftIO (void (js_item self index))- -foreign import javascript unsafe "(($1) => { return $1[\"clear\"](); })" js_clear ::-        DataTransferItemList -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+add_ :: (MonadDOM m, ToJSString data', ToJSString type') => DataTransferItemList -> data' -> type' -> m ()+add_ self data' type' = liftDOM (void ((js_add (self) (toJSString data') (toJSString type')))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.clear Mozilla DataTransferItemList.clear documentation> -clear :: (MonadIO m) => DataTransferItemList -> m ()-clear self = liftIO (js_clear self)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"add\"]($2); })" js_addFile ::-        DataTransferItemList -> Optional File -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+addUnsafe :: (MonadDOM m, ToJSString data', ToJSString type', HasCallStack) => DataTransferItemList -> data' -> type' -> m DataTransferItem+addUnsafe self data' type' = liftDOM ((((js_add (self) (toJSString data') (toJSString type')) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation> -addFile ::-        (MonadIO m) => DataTransferItemList -> Maybe File -> m ()-addFile self file = liftIO (js_addFile self (maybeToOptional file))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"add\"]($2, $3); })" js_add ::-        DataTransferItemList ->-          Optional JSString -> Optional JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+addUnchecked :: (MonadDOM m, ToJSString data', ToJSString type') => DataTransferItemList -> data' -> type' -> m DataTransferItem+addUnchecked self data' type' = liftDOM ((pFromJSVal <$> (js_add (self) (toJSString data') (toJSString type')))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation> -add ::-    (MonadIO m, ToJSString data', ToJSString type') =>-      DataTransferItemList -> Maybe data' -> Maybe type' -> m ()-add self data' type'-  = liftIO-      (js_add self (toOptionalJSString data') (toOptionalJSString type'))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::-        DataTransferItemList -> IO Int+foreign import javascript safe "(($1, $2) => { return $1[\"add\"]($2); })"+        js_addFile :: DataTransferItemList -> File -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+addFile :: (MonadDOM m) => DataTransferItemList -> File -> m (Maybe DataTransferItem)+addFile self data' = liftDOM (((js_addFile (self) (data')) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.length Mozilla DataTransferItemList.length documentation> -getLength :: (MonadIO m) => DataTransferItemList -> m Int-getLength self = liftIO (js_getLength self)+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+addFile_ :: (MonadDOM m) => DataTransferItemList -> File -> m ()+addFile_ self data' = liftDOM (void ((js_addFile (self) (data'))))++-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+addFileUnsafe :: (MonadDOM m, HasCallStack) => DataTransferItemList -> File -> m DataTransferItem+addFileUnsafe self data' = liftDOM ((((js_addFile (self) (data')) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+addFileUnchecked :: (MonadDOM m) => DataTransferItemList -> File -> m DataTransferItem+addFileUnchecked self data' = liftDOM ((pFromJSVal <$> (js_addFile (self) (data'))))++foreign import javascript safe "(($1) => { return $1[\"clear\"](); })"+        js_clear :: DataTransferItemList -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/clear MDN DataTransferItemList.clear documentation>+clear :: (MonadDOM m) => DataTransferItemList -> m ()+clear self = liftDOM (void ((js_clear (self))))++foreign import javascript safe "(($1, $2) => { return $1[\"remove\"]($2); })"+        js_remove :: DataTransferItemList -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/remove MDN DataTransferItemList.remove documentation>+remove :: (MonadDOM m) => DataTransferItemList -> Word -> m ()+remove self index = liftDOM (void ((js_remove (self) (index))))++foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+        js_getLength :: DataTransferItemList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/length MDN DataTransferItemList.length documentation>+getLength :: (MonadDOM m) => DataTransferItemList -> m Word+getLength self = liftDOM ((js_getLength (self)))
− src/GHCJS/DOM/JSFFI/Generated/Database.hs
@@ -1,98 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.Database-       (js_changeVersion, changeVersion, js_transaction, transaction,-        js_readTransaction, readTransaction, js_getVersion, getVersion,-        Database(..), gTypeDatabase)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6) => { return $1[\"changeVersion\"]($2, $3, $4,\n$5, $6); })" js_changeVersion ::-        Database ->-          JSString ->-            JSString ->-              Optional SQLTransactionCallback ->-                Optional SQLTransactionErrorCallback ->-                  Optional VoidCallback -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation> -changeVersion ::-              (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>-                Database ->-                  oldVersion ->-                    newVersion ->-                      Maybe SQLTransactionCallback ->-                        Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()-changeVersion self oldVersion newVersion callback errorCallback-  successCallback-  = liftIO-      (js_changeVersion self (toJSString oldVersion)-         (toJSString newVersion)-         (maybeToOptional callback)-         (maybeToOptional errorCallback)-         (maybeToOptional successCallback))- -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"transaction\"]($2, $3, $4); })"-        js_transaction ::-        Database ->-          SQLTransactionCallback ->-            Optional SQLTransactionErrorCallback ->-              Optional VoidCallback -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation> -transaction ::-            (MonadIO m) =>-              Database ->-                SQLTransactionCallback ->-                  Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()-transaction self callback errorCallback successCallback-  = liftIO-      (js_transaction self callback (maybeToOptional errorCallback)-         (maybeToOptional successCallback))- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return $1[\"readTransaction\"]($2, $3,\n$4); })" js_readTransaction ::-        Database ->-          SQLTransactionCallback ->-            Optional SQLTransactionErrorCallback ->-              Optional VoidCallback -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation> -readTransaction ::-                (MonadIO m) =>-                  Database ->-                    SQLTransactionCallback ->-                      Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()-readTransaction self callback errorCallback successCallback-  = liftIO-      (js_readTransaction self callback (maybeToOptional errorCallback)-         (maybeToOptional successCallback))- -foreign import javascript unsafe "(($1) => { return $1[\"version\"]; })" js_getVersion ::-        Database -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.version Mozilla Database.version documentation> -getVersion ::-           (MonadIO m, FromJSString result) => Database -> m result-getVersion self = liftIO (fromJSString <$> (js_getVersion self))
− src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.DatabaseCallback-       (newDatabaseCallback, newDatabaseCallbackSync,-        newDatabaseCallbackAsync, DatabaseCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> -newDatabaseCallback ::-                    (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback-newDatabaseCallback callback-  = liftIO-      (DatabaseCallback <$>-         syncCallback1 ThrowWouldBlock-           (\ database ->-              fromJSValUnchecked database >>= \ database' -> callback database'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> -newDatabaseCallbackSync ::-                        (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback-newDatabaseCallbackSync callback-  = liftIO-      (DatabaseCallback <$>-         syncCallback1 ContinueAsync-           (\ database ->-              fromJSValUnchecked database >>= \ database' -> callback database'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> -newDatabaseCallbackAsync ::-                         (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback-newDatabaseCallbackAsync callback-  = liftIO-      (DatabaseCallback <$>-         asyncCallback1-           (\ database ->-              fromJSValUnchecked database >>= \ database' -> callback database'))
+ src/GHCJS/DOM/JSFFI/Generated/DecodeErrorCallback.hs view
@@ -0,0 +1,29 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DecodeErrorCallback+       (newDecodeErrorCallback, newDecodeErrorCallbackSync, newDecodeErrorCallbackAsync, DecodeErrorCallback)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newDecodeErrorCallback :: (MonadDOM m) => (DOMException -> IO ()) -> m DecodeErrorCallback+newDecodeErrorCallback callback = liftDOM ((DecodeErrorCallback . coerce) <$> syncCallback1 ContinueAsync (\ error -> do+          error' <- fromJSValUnchecked error+          callback error'))++newDecodeErrorCallbackSync :: (MonadDOM m) => (DOMException -> IO ()) -> m DecodeErrorCallback+newDecodeErrorCallbackSync callback = liftDOM ((DecodeErrorCallback . coerce) <$> syncCallback1 ThrowWouldBlock (\ error -> do+          error' <- fromJSValUnchecked error+          callback error'))++newDecodeErrorCallbackAsync :: (MonadDOM m) => (DOMException -> IO ()) -> m DecodeErrorCallback+newDecodeErrorCallbackAsync callback = liftDOM ((DecodeErrorCallback . coerce) <$> asyncCallback1 (\ error -> do+          error' <- fromJSValUnchecked error+          callback error'))
+ src/GHCJS/DOM/JSFFI/Generated/DecodeSuccessCallback.hs view
@@ -0,0 +1,29 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DecodeSuccessCallback+       (newDecodeSuccessCallback, newDecodeSuccessCallbackSync, newDecodeSuccessCallbackAsync, DecodeSuccessCallback)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newDecodeSuccessCallback :: (MonadDOM m) => (AudioBuffer -> IO ()) -> m DecodeSuccessCallback+newDecodeSuccessCallback callback = liftDOM ((DecodeSuccessCallback . coerce) <$> syncCallback1 ContinueAsync (\ decodedData -> do+          decodedData' <- fromJSValUnchecked decodedData+          callback decodedData'))++newDecodeSuccessCallbackSync :: (MonadDOM m) => (AudioBuffer -> IO ()) -> m DecodeSuccessCallback+newDecodeSuccessCallbackSync callback = liftDOM ((DecodeSuccessCallback . coerce) <$> syncCallback1 ThrowWouldBlock (\ decodedData -> do+          decodedData' <- fromJSValUnchecked decodedData+          callback decodedData'))++newDecodeSuccessCallbackAsync :: (MonadDOM m) => (AudioBuffer -> IO ()) -> m DecodeSuccessCallback+newDecodeSuccessCallbackAsync callback = liftDOM ((DecodeSuccessCallback . coerce) <$> asyncCallback1 (\ decodedData -> do+          decodedData' <- fromJSValUnchecked decodedData+          callback decodedData'))
+ src/GHCJS/DOM/JSFFI/Generated/DecompressionStream.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from compression (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DecompressionStream+       (js_newDecompressionStream, newDecompressionStream, DecompressionStream(..), gTypeDecompressionStream)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"DecompressionStream\"]($1); })"+        js_newDecompressionStream :: JSVal -> IO DecompressionStream+-- | <https://developer.mozilla.org/docs/Web/API/DecompressionStream/DecompressionStream MDN DecompressionStream. documentation>+newDecompressionStream :: (MonadDOM m) => CompressionFormat -> m DecompressionStream+newDecompressionStream format = liftDOM (((toJSVal format) >>= \a1' -> js_newDecompressionStream a1'))
src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs view
@@ -1,46 +1,45 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope-       (js_postMessage, postMessage, message,-        DedicatedWorkerGlobalScope(..), gTypeDedicatedWorkerGlobalScope)+       (js_close, js_postMessage, js_postMessageOptions, js_getName, close, postMessage, postMessageOptions, getName, rtctransform, DedicatedWorkerGlobalScope(..), gTypeDedicatedWorkerGlobalScope)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- ++foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+        js_close :: DedicatedWorkerGlobalScope -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/close MDN DedicatedWorkerGlobalScope.close documentation>+close :: (MonadDOM m) => DedicatedWorkerGlobalScope -> m ()+close self = liftDOM (void ((js_close (self))))+ foreign import javascript safe "(($1, $2, $3) => { return $1[\"postMessage\"]($2, $3); })"-        js_postMessage ::-        DedicatedWorkerGlobalScope -> JSVal -> JSVal -> IO ()+        js_postMessage :: DedicatedWorkerGlobalScope -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/postMessage MDN DedicatedWorkerGlobalScope.postMessage documentation>+postMessage :: (MonadDOM m) => DedicatedWorkerGlobalScope -> JSVal -> [GObject] -> m ()+postMessage self message transfer = liftDOM (void (((toJSVal transfer) >>= \a3' -> js_postMessage (self) (message) a3'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.postMessage Mozilla DedicatedWorkerGlobalScope.postMessage documentation> -postMessage ::-            (MonadIO m, ToJSVal message, IsGObject transfer) =>-              DedicatedWorkerGlobalScope -> message -> [transfer] -> m ()-postMessage self message transfer-  = liftIO-      (toJSVal transfer >>=-         \ transfer' ->-           toJSVal message >>= \ message' -> js_postMessage self message'-             transfer')+foreign import javascript safe "(($1, $2, $3) => { return $1[\"postMessage\"]($2, $3); })"+        js_postMessageOptions :: DedicatedWorkerGlobalScope -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/postMessage MDN DedicatedWorkerGlobalScope.postMessage documentation>+postMessageOptions :: (MonadDOM m, IsStructuredSerializeOptions options) => DedicatedWorkerGlobalScope -> JSVal -> Maybe options -> m ()+postMessageOptions self message options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_postMessageOptions (self) (message) a3'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.onmessage Mozilla DedicatedWorkerGlobalScope.onmessage documentation> -message :: EventName DedicatedWorkerGlobalScope MessageEvent-message = unsafeEventNameAsync (toJSString "message")+foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: DedicatedWorkerGlobalScope -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/name MDN DedicatedWorkerGlobalScope.name documentation>+getName :: (MonadDOM m, FromJSString result) => DedicatedWorkerGlobalScope -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++-- | <https://w3c.github.io/webrtc-encoded-transform/#dom-dedicatedworkerglobalscope-onrtctransform rtctransform event>+rtctransform :: EventName DedicatedWorkerGlobalScope RTCTransformEvent+rtctransform = unsafeEventName (toJSString "rtctransform")
src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs view
@@ -1,33 +1,29 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DelayNode-       (js_getDelayTime, getDelayTime, DelayNode(..), gTypeDelayNode)+       (js_newDelayNode, js_getDelayTime, newDelayNode, getDelayTime, DelayNode(..), gTypeDelayNode)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- ++foreign import javascript safe "(($1, $2) => { return new globalThis[\"DelayNode\"]($1, $2); })"+        js_newDelayNode :: BaseAudioContext -> JSVal -> IO DelayNode+-- | <https://developer.mozilla.org/docs/Web/API/DelayNode/DelayNode MDN DelayNode. documentation>+newDelayNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe DelayOptions -> m DelayNode+newDelayNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newDelayNode (Types.toBaseAudioContext context) a2'))+ foreign import javascript unsafe "(($1) => { return $1[\"delayTime\"]; })"         js_getDelayTime :: DelayNode -> IO AudioParam---- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation> -getDelayTime :: (MonadIO m) => DelayNode -> m AudioParam-getDelayTime self = liftIO (js_getDelayTime self)+-- | <https://developer.mozilla.org/docs/Web/API/DelayNode/delayTime MDN DelayNode.delayTime documentation>+getDelayTime :: (MonadDOM m) => DelayNode -> m AudioParam+getDelayTime self = liftDOM ((js_getDelayTime (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DelayOptions.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DelayOptions+       (js_newDelayOptions, js_setMaxDelayTime, js_getMaxDelayTime, js_setDelayTime, js_getDelayTime, newDelayOptions, setMaxDelayTime, getMaxDelayTime, getMaxDelayTimeUnsafe, getMaxDelayTimeUnchecked, setDelayTime, getDelayTime, getDelayTimeUnsafe, getDelayTimeUnchecked, DelayOptions(..), gTypeDelayOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDelayOptions :: IO DelayOptions+-- | <https://webaudio.github.io/web-audio-api/#DelayOptions DelayOptions specification>+newDelayOptions :: (MonadDOM m) => m DelayOptions+newDelayOptions = liftDOM ((js_newDelayOptions))++foreign import javascript safe "(($1, $2) => { $1[\"maxDelayTime\"] = $2; })"+        js_setMaxDelayTime :: DelayOptions -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-maxdelaytime DelayOptions.maxDelayTime specification>+setMaxDelayTime :: (MonadDOM m) => DelayOptions -> Double -> m ()+setMaxDelayTime self val = liftDOM (void ((js_setMaxDelayTime (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"maxDelayTime\"]; })"+        js_getMaxDelayTime :: DelayOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-maxdelaytime DelayOptions.maxDelayTime specification>+getMaxDelayTime :: (MonadDOM m) => DelayOptions -> m (Maybe Double)+getMaxDelayTime self = liftDOM (((js_getMaxDelayTime (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-maxdelaytime DelayOptions.maxDelayTime specification>+getMaxDelayTimeUnsafe :: (MonadDOM m, HasCallStack) => DelayOptions -> m Double+getMaxDelayTimeUnsafe self = liftDOM ((((js_getMaxDelayTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-maxdelaytime DelayOptions.maxDelayTime specification>+getMaxDelayTimeUnchecked :: (MonadDOM m) => DelayOptions -> m Double+getMaxDelayTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getMaxDelayTime (self))))++foreign import javascript safe "(($1, $2) => { $1[\"delayTime\"] = $2; })"+        js_setDelayTime :: DelayOptions -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-delaytime DelayOptions.delayTime specification>+setDelayTime :: (MonadDOM m) => DelayOptions -> Double -> m ()+setDelayTime self val = liftDOM (void ((js_setDelayTime (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"delayTime\"]; })"+        js_getDelayTime :: DelayOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-delaytime DelayOptions.delayTime specification>+getDelayTime :: (MonadDOM m) => DelayOptions -> m (Maybe Double)+getDelayTime self = liftDOM (((js_getDelayTime (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-delaytime DelayOptions.delayTime specification>+getDelayTimeUnsafe :: (MonadDOM m, HasCallStack) => DelayOptions -> m Double+getDelayTimeUnsafe self = liftDOM ((((js_getDelayTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-delaytime DelayOptions.delayTime specification>+getDelayTimeUnchecked :: (MonadDOM m) => DelayOptions -> m Double+getDelayTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getDelayTime (self))))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceChangeEvent.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DeviceChangeEvent+       (DeviceChangeEvent(..), gTypeDeviceChangeEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs view
@@ -1,164 +1,71 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from orientation-event (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent-       (js_initDeviceMotionEvent, initDeviceMotionEvent,-        js_getAcceleration, getAcceleration, getAccelerationUnsafe,-        getAccelerationUnchecked, js_getAccelerationIncludingGravity,-        getAccelerationIncludingGravity,-        getAccelerationIncludingGravityUnsafe,-        getAccelerationIncludingGravityUnchecked, js_getRotationRate,-        getRotationRate, getRotationRateUnsafe, getRotationRateUnchecked,-        js_getInterval, getInterval, getIntervalUnsafe,-        getIntervalUnchecked, DeviceMotionEvent(..),-        gTypeDeviceMotionEvent)+       (js_newDeviceMotionEvent, js_getAcceleration, js_getAccelerationIncludingGravity, js_getRotationRate, js_getInterval, newDeviceMotionEvent, getAcceleration, getAccelerationUnsafe, getAccelerationUnchecked, getAccelerationIncludingGravity, getAccelerationIncludingGravityUnsafe, getAccelerationIncludingGravityUnchecked, getRotationRate, getRotationRateUnsafe, getRotationRateUnchecked, getInterval, DeviceMotionEvent(..), gTypeDeviceMotionEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"initDeviceMotionEvent\"]($2,\n$3, $4, $5, $6, $7, $8); })"-        js_initDeviceMotionEvent ::-        DeviceMotionEvent ->-          Optional JSString ->-            Bool ->-              Bool ->-                Optional Acceleration ->-                  Optional Acceleration ->-                    Optional RotationRate -> Optional Double -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.initDeviceMotionEvent Mozilla DeviceMotionEvent.initDeviceMotionEvent documentation> -initDeviceMotionEvent ::-                      (MonadIO m, ToJSString type') =>-                        DeviceMotionEvent ->-                          Maybe type' ->-                            Bool ->-                              Bool ->-                                Maybe Acceleration ->-                                  Maybe Acceleration -> Maybe RotationRate -> Maybe Double -> m ()-initDeviceMotionEvent self type' bubbles cancelable acceleration-  accelerationIncludingGravity rotationRate interval-  = liftIO-      (js_initDeviceMotionEvent self (toOptionalJSString type') bubbles-         cancelable-         (maybeToOptional acceleration)-         (maybeToOptional accelerationIncludingGravity)-         (maybeToOptional rotationRate)-         (maybeToOptional interval))- +foreign import javascript safe "(($1, $2) => { return new globalThis[\"DeviceMotionEvent\"]($1, $2); })"+        js_newDeviceMotionEvent :: JSString -> JSVal -> IO DeviceMotionEvent+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/DeviceMotionEvent MDN DeviceMotionEvent. documentation>+newDeviceMotionEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe DeviceMotionEventInit -> m DeviceMotionEvent+newDeviceMotionEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newDeviceMotionEvent (toJSString type') a2'))+ foreign import javascript unsafe "(($1) => { return $1[\"acceleration\"]; })"-        js_getAcceleration ::-        DeviceMotionEvent -> IO (Nullable Acceleration)+        js_getAcceleration :: DeviceMotionEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/acceleration MDN DeviceMotionEvent.acceleration documentation>+getAcceleration :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe DeviceMotionEventAcceleration)+getAcceleration self = liftDOM (((js_getAcceleration (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> -getAcceleration ::-                (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration)-getAcceleration self-  = liftIO (nullableToMaybe <$> (js_getAcceleration self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/acceleration MDN DeviceMotionEvent.acceleration documentation>+getAccelerationUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEvent -> m DeviceMotionEventAcceleration+getAccelerationUnsafe self = liftDOM ((((js_getAcceleration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> -getAccelerationUnsafe ::-                      (MonadIO m, HasCallStack) => DeviceMotionEvent -> m Acceleration-getAccelerationUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAcceleration self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/acceleration MDN DeviceMotionEvent.acceleration documentation>+getAccelerationUnchecked :: (MonadDOM m) => DeviceMotionEvent -> m DeviceMotionEventAcceleration+getAccelerationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAcceleration (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> -getAccelerationUnchecked ::-                         (MonadIO m) => DeviceMotionEvent -> m Acceleration-getAccelerationUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAcceleration self))- -foreign import javascript unsafe-        "(($1) => { return $1[\"accelerationIncludingGravity\"]; })"-        js_getAccelerationIncludingGravity ::-        DeviceMotionEvent -> IO (Nullable Acceleration)+foreign import javascript unsafe "(($1) => { return $1[\"accelerationIncludingGravity\"]; })"+        js_getAccelerationIncludingGravity :: DeviceMotionEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/accelerationIncludingGravity MDN DeviceMotionEvent.accelerationIncludingGravity documentation>+getAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe DeviceMotionEventAcceleration)+getAccelerationIncludingGravity self = liftDOM (((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> -getAccelerationIncludingGravity ::-                                (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration)-getAccelerationIncludingGravity self-  = liftIO-      (nullableToMaybe <$> (js_getAccelerationIncludingGravity self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/accelerationIncludingGravity MDN DeviceMotionEvent.accelerationIncludingGravity documentation>+getAccelerationIncludingGravityUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEvent -> m DeviceMotionEventAcceleration+getAccelerationIncludingGravityUnsafe self = liftDOM ((((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> -getAccelerationIncludingGravityUnsafe ::-                                      (MonadIO m, HasCallStack) =>-                                        DeviceMotionEvent -> m Acceleration-getAccelerationIncludingGravityUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAccelerationIncludingGravity self))-         >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/accelerationIncludingGravity MDN DeviceMotionEvent.accelerationIncludingGravity documentation>+getAccelerationIncludingGravityUnchecked :: (MonadDOM m) => DeviceMotionEvent -> m DeviceMotionEventAcceleration+getAccelerationIncludingGravityUnchecked self = liftDOM ((pFromJSVal <$> (js_getAccelerationIncludingGravity (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> -getAccelerationIncludingGravityUnchecked ::-                                         (MonadIO m) => DeviceMotionEvent -> m Acceleration-getAccelerationIncludingGravityUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getAccelerationIncludingGravity self))-  foreign import javascript unsafe "(($1) => { return $1[\"rotationRate\"]; })"-        js_getRotationRate ::-        DeviceMotionEvent -> IO (Nullable RotationRate)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> -getRotationRate ::-                (MonadIO m) => DeviceMotionEvent -> m (Maybe RotationRate)-getRotationRate self-  = liftIO (nullableToMaybe <$> (js_getRotationRate self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> -getRotationRateUnsafe ::-                      (MonadIO m, HasCallStack) => DeviceMotionEvent -> m RotationRate-getRotationRateUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRotationRate self)) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> -getRotationRateUnchecked ::-                         (MonadIO m) => DeviceMotionEvent -> m RotationRate-getRotationRateUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getRotationRate self))- -foreign import javascript unsafe "(($1) => { return $1[\"interval\"]; })" js_getInterval-        :: DeviceMotionEvent -> IO (Nullable Double)+        js_getRotationRate :: DeviceMotionEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/rotationRate MDN DeviceMotionEvent.rotationRate documentation>+getRotationRate :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe DeviceMotionEventRotationRate)+getRotationRate self = liftDOM (((js_getRotationRate (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> -getInterval :: (MonadIO m) => DeviceMotionEvent -> m (Maybe Double)-getInterval self-  = liftIO (nullableToMaybe <$> (js_getInterval self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/rotationRate MDN DeviceMotionEvent.rotationRate documentation>+getRotationRateUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEvent -> m DeviceMotionEventRotationRate+getRotationRateUnsafe self = liftDOM ((((js_getRotationRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> -getIntervalUnsafe ::-                  (MonadIO m, HasCallStack) => DeviceMotionEvent -> m Double-getIntervalUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getInterval self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/rotationRate MDN DeviceMotionEvent.rotationRate documentation>+getRotationRateUnchecked :: (MonadDOM m) => DeviceMotionEvent -> m DeviceMotionEventRotationRate+getRotationRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getRotationRate (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> -getIntervalUnchecked ::-                     (MonadIO m) => DeviceMotionEvent -> m Double-getIntervalUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getInterval self))+foreign import javascript unsafe "(($1) => { return $1[\"interval\"]; })"+        js_getInterval :: DeviceMotionEvent -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/interval MDN DeviceMotionEvent.interval documentation>+getInterval :: (MonadDOM m) => DeviceMotionEvent -> m Double+getInterval self = liftDOM ((js_getInterval (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventAcceleration.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from orientation-event (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAcceleration+       (js_getX, js_getY, js_getZ, getX, getXUnsafe, getXUnchecked, getY, getYUnsafe, getYUnchecked, getZ, getZUnsafe, getZUnchecked, DeviceMotionEventAcceleration(..), gTypeDeviceMotionEventAcceleration)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: DeviceMotionEventAcceleration -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/x MDN DeviceMotionEventAcceleration.x documentation>+getX :: (MonadDOM m) => DeviceMotionEventAcceleration -> m (Maybe Double)+getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/x MDN DeviceMotionEventAcceleration.x documentation>+getXUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAcceleration -> m Double+getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/x MDN DeviceMotionEventAcceleration.x documentation>+getXUnchecked :: (MonadDOM m) => DeviceMotionEventAcceleration -> m Double+getXUnchecked self = liftDOM ((pFromJSVal <$> (js_getX (self))))++foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: DeviceMotionEventAcceleration -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/y MDN DeviceMotionEventAcceleration.y documentation>+getY :: (MonadDOM m) => DeviceMotionEventAcceleration -> m (Maybe Double)+getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/y MDN DeviceMotionEventAcceleration.y documentation>+getYUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAcceleration -> m Double+getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/y MDN DeviceMotionEventAcceleration.y documentation>+getYUnchecked :: (MonadDOM m) => DeviceMotionEventAcceleration -> m Double+getYUnchecked self = liftDOM ((pFromJSVal <$> (js_getY (self))))++foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })"+        js_getZ :: DeviceMotionEventAcceleration -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/z MDN DeviceMotionEventAcceleration.z documentation>+getZ :: (MonadDOM m) => DeviceMotionEventAcceleration -> m (Maybe Double)+getZ self = liftDOM (((js_getZ (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/z MDN DeviceMotionEventAcceleration.z documentation>+getZUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAcceleration -> m Double+getZUnsafe self = liftDOM ((((js_getZ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/z MDN DeviceMotionEventAcceleration.z documentation>+getZUnchecked :: (MonadDOM m) => DeviceMotionEventAcceleration -> m Double+getZUnchecked self = liftDOM ((pFromJSVal <$> (js_getZ (self))))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventAccelerationInit.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from orientation-event (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventAccelerationInit+       (js_newDeviceMotionEventAccelerationInit, js_setX, js_getX, js_setY, js_getY, js_setZ, js_getZ, newDeviceMotionEventAccelerationInit, setX, getX, getXUnsafe, getXUnchecked, setY, getY, getYUnsafe, getYUnchecked, setZ, getZ, getZUnsafe, getZUnchecked, DeviceMotionEventAccelerationInit(..), gTypeDeviceMotionEventAccelerationInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDeviceMotionEventAccelerationInit :: IO DeviceMotionEventAccelerationInit+-- | <https://w3c.github.io/deviceorientation/#dictdef-devicemotioneventaccelerationinit DeviceMotionEventAccelerationInit specification>+newDeviceMotionEventAccelerationInit :: (MonadDOM m) => m DeviceMotionEventAccelerationInit+newDeviceMotionEventAccelerationInit = liftDOM ((js_newDeviceMotionEventAccelerationInit))++foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+        js_setX :: DeviceMotionEventAccelerationInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-x DeviceMotionEventAccelerationInit.x specification>+setX :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> Maybe Double -> m ()+setX self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setX (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+        js_getX :: DeviceMotionEventAccelerationInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-x DeviceMotionEventAccelerationInit.x specification>+getX :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m (Maybe Double)+getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-x DeviceMotionEventAccelerationInit.x specification>+getXUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAccelerationInit -> m Double+getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-x DeviceMotionEventAccelerationInit.x specification>+getXUnchecked :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m Double+getXUnchecked self = liftDOM ((pFromJSVal <$> (js_getX (self))))++foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"+        js_setY :: DeviceMotionEventAccelerationInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-y DeviceMotionEventAccelerationInit.y specification>+setY :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> Maybe Double -> m ()+setY self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setY (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+        js_getY :: DeviceMotionEventAccelerationInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-y DeviceMotionEventAccelerationInit.y specification>+getY :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m (Maybe Double)+getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-y DeviceMotionEventAccelerationInit.y specification>+getYUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAccelerationInit -> m Double+getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-y DeviceMotionEventAccelerationInit.y specification>+getYUnchecked :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m Double+getYUnchecked self = liftDOM ((pFromJSVal <$> (js_getY (self))))++foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })"+        js_setZ :: DeviceMotionEventAccelerationInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-z DeviceMotionEventAccelerationInit.z specification>+setZ :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> Maybe Double -> m ()+setZ self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setZ (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })"+        js_getZ :: DeviceMotionEventAccelerationInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-z DeviceMotionEventAccelerationInit.z specification>+getZ :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m (Maybe Double)+getZ self = liftDOM (((js_getZ (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-z DeviceMotionEventAccelerationInit.z specification>+getZUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAccelerationInit -> m Double+getZUnsafe self = liftDOM ((((js_getZ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-z DeviceMotionEventAccelerationInit.z specification>+getZUnchecked :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m Double+getZUnchecked self = liftDOM ((pFromJSVal <$> (js_getZ (self))))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventInit.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from orientation-event (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventInit+       (js_newDeviceMotionEventInit, js_setAcceleration, js_getAcceleration, js_setAccelerationIncludingGravity, js_getAccelerationIncludingGravity, js_setRotationRate, js_getRotationRate, js_setInterval, js_getInterval, newDeviceMotionEventInit, setAcceleration, getAcceleration, getAccelerationUnsafe, getAccelerationUnchecked, setAccelerationIncludingGravity, getAccelerationIncludingGravity, getAccelerationIncludingGravityUnsafe, getAccelerationIncludingGravityUnchecked, setRotationRate, getRotationRate, getRotationRateUnsafe, getRotationRateUnchecked, setInterval, getInterval, getIntervalUnsafe, getIntervalUnchecked, DeviceMotionEventInit(..), gTypeDeviceMotionEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDeviceMotionEventInit :: IO DeviceMotionEventInit+-- | <https://w3c.github.io/deviceorientation/#dictdef-devicemotioneventinit DeviceMotionEventInit specification>+newDeviceMotionEventInit :: (MonadDOM m) => m DeviceMotionEventInit+newDeviceMotionEventInit = liftDOM ((js_newDeviceMotionEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"acceleration\"] = $2; })"+        js_setAcceleration :: DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>+setAcceleration :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> m ()+setAcceleration self val = liftDOM (void ((js_setAcceleration (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"acceleration\"]; })"+        js_getAcceleration :: DeviceMotionEventInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>+getAcceleration :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventAccelerationInit)+getAcceleration self = liftDOM (((js_getAcceleration (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>+getAccelerationUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit+getAccelerationUnsafe self = liftDOM ((((js_getAcceleration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>+getAccelerationUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit+getAccelerationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAcceleration (self))))++foreign import javascript safe "(($1, $2) => { $1[\"accelerationIncludingGravity\"] = $2; })"+        js_setAccelerationIncludingGravity :: DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>+setAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> m ()+setAccelerationIncludingGravity self val = liftDOM (void ((js_setAccelerationIncludingGravity (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"accelerationIncludingGravity\"]; })"+        js_getAccelerationIncludingGravity :: DeviceMotionEventInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>+getAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventAccelerationInit)+getAccelerationIncludingGravity self = liftDOM (((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>+getAccelerationIncludingGravityUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit+getAccelerationIncludingGravityUnsafe self = liftDOM ((((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>+getAccelerationIncludingGravityUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit+getAccelerationIncludingGravityUnchecked self = liftDOM ((pFromJSVal <$> (js_getAccelerationIncludingGravity (self))))++foreign import javascript safe "(($1, $2) => { $1[\"rotationRate\"] = $2; })"+        js_setRotationRate :: DeviceMotionEventInit -> DeviceMotionEventRotationRateInit -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>+setRotationRate :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventRotationRateInit -> m ()+setRotationRate self val = liftDOM (void ((js_setRotationRate (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"rotationRate\"]; })"+        js_getRotationRate :: DeviceMotionEventInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>+getRotationRate :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventRotationRateInit)+getRotationRate self = liftDOM (((js_getRotationRate (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>+getRotationRateUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventRotationRateInit+getRotationRateUnsafe self = liftDOM ((((js_getRotationRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>+getRotationRateUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m DeviceMotionEventRotationRateInit+getRotationRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getRotationRate (self))))++foreign import javascript safe "(($1, $2) => { $1[\"interval\"] = $2; })"+        js_setInterval :: DeviceMotionEventInit -> Double -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>+setInterval :: (MonadDOM m) => DeviceMotionEventInit -> Double -> m ()+setInterval self val = liftDOM (void ((js_setInterval (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"interval\"]; })"+        js_getInterval :: DeviceMotionEventInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>+getInterval :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe Double)+getInterval self = liftDOM (((js_getInterval (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>+getIntervalUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m Double+getIntervalUnsafe self = liftDOM ((((js_getInterval (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>+getIntervalUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m Double+getIntervalUnchecked self = liftDOM ((pFromJSVal <$> (js_getInterval (self))))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventRotationRate.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from orientation-event (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRate+       (js_getAlpha, js_getBeta, js_getGamma, getAlpha, getAlphaUnsafe, getAlphaUnchecked, getBeta, getBetaUnsafe, getBetaUnchecked, getGamma, getGammaUnsafe, getGammaUnchecked, DeviceMotionEventRotationRate(..), gTypeDeviceMotionEventRotationRate)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })"+        js_getAlpha :: DeviceMotionEventRotationRate -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/alpha MDN DeviceMotionEventRotationRate.alpha documentation>+getAlpha :: (MonadDOM m) => DeviceMotionEventRotationRate -> m (Maybe Double)+getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/alpha MDN DeviceMotionEventRotationRate.alpha documentation>+getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRate -> m Double+getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/alpha MDN DeviceMotionEventRotationRate.alpha documentation>+getAlphaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRate -> m Double+getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self))))++foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })"+        js_getBeta :: DeviceMotionEventRotationRate -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/beta MDN DeviceMotionEventRotationRate.beta documentation>+getBeta :: (MonadDOM m) => DeviceMotionEventRotationRate -> m (Maybe Double)+getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/beta MDN DeviceMotionEventRotationRate.beta documentation>+getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRate -> m Double+getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/beta MDN DeviceMotionEventRotationRate.beta documentation>+getBetaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRate -> m Double+getBetaUnchecked self = liftDOM ((pFromJSVal <$> (js_getBeta (self))))++foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })"+        js_getGamma :: DeviceMotionEventRotationRate -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/gamma MDN DeviceMotionEventRotationRate.gamma documentation>+getGamma :: (MonadDOM m) => DeviceMotionEventRotationRate -> m (Maybe Double)+getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/gamma MDN DeviceMotionEventRotationRate.gamma documentation>+getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRate -> m Double+getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/gamma MDN DeviceMotionEventRotationRate.gamma documentation>+getGammaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRate -> m Double+getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self))))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventRotationRateInit.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from orientation-event (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventRotationRateInit+       (js_newDeviceMotionEventRotationRateInit, js_setAlpha, js_getAlpha, js_setBeta, js_getBeta, js_setGamma, js_getGamma, newDeviceMotionEventRotationRateInit, setAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, setBeta, getBeta, getBetaUnsafe, getBetaUnchecked, setGamma, getGamma, getGammaUnsafe, getGammaUnchecked, DeviceMotionEventRotationRateInit(..), gTypeDeviceMotionEventRotationRateInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDeviceMotionEventRotationRateInit :: IO DeviceMotionEventRotationRateInit+-- | <https://w3c.github.io/deviceorientation/#dictdef-devicemotioneventrotationrateinit DeviceMotionEventRotationRateInit specification>+newDeviceMotionEventRotationRateInit :: (MonadDOM m) => m DeviceMotionEventRotationRateInit+newDeviceMotionEventRotationRateInit = liftDOM ((js_newDeviceMotionEventRotationRateInit))++foreign import javascript safe "(($1, $2) => { $1[\"alpha\"] = $2; })"+        js_setAlpha :: DeviceMotionEventRotationRateInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>+setAlpha :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> Maybe Double -> m ()+setAlpha self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAlpha (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })"+        js_getAlpha :: DeviceMotionEventRotationRateInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>+getAlpha :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double)+getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>+getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double+getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>+getAlphaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m Double+getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self))))++foreign import javascript safe "(($1, $2) => { $1[\"beta\"] = $2; })"+        js_setBeta :: DeviceMotionEventRotationRateInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>+setBeta :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> Maybe Double -> m ()+setBeta self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBeta (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })"+        js_getBeta :: DeviceMotionEventRotationRateInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>+getBeta :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double)+getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>+getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double+getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>+getBetaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m Double+getBetaUnchecked self = liftDOM ((pFromJSVal <$> (js_getBeta (self))))++foreign import javascript safe "(($1, $2) => { $1[\"gamma\"] = $2; })"+        js_setGamma :: DeviceMotionEventRotationRateInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>+setGamma :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> Maybe Double -> m ()+setGamma self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setGamma (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })"+        js_getGamma :: DeviceMotionEventRotationRateInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>+getGamma :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double)+getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>+getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double+getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>+getGammaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m Double+getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self))))
src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs view
@@ -1,150 +1,71 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from orientation-event (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent-       (js_initDeviceOrientationEvent, initDeviceOrientationEvent,-        js_getAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked,-        js_getBeta, getBeta, getBetaUnsafe, getBetaUnchecked, js_getGamma,-        getGamma, getGammaUnsafe, getGammaUnchecked, js_getAbsolute,-        getAbsolute, getAbsoluteUnsafe, getAbsoluteUnchecked,-        DeviceOrientationEvent(..), gTypeDeviceOrientationEvent)+       (js_newDeviceOrientationEvent, js_getAlpha, js_getBeta, js_getGamma, js_getAbsolute, newDeviceOrientationEvent, getAlpha, getAlphaUnsafe, getAlphaUnchecked, getBeta, getBetaUnsafe, getBetaUnchecked, getGamma, getGammaUnsafe, getGammaUnchecked, getAbsolute, DeviceOrientationEvent(..), gTypeDeviceOrientationEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7, $8) => { return $1[\"initDeviceOrientationEvent\"]($2,\n$3, $4, $5, $6, $7, $8); })"-        js_initDeviceOrientationEvent ::-        DeviceOrientationEvent ->-          Optional JSString ->-            Bool ->-              Bool ->-                Optional Double ->-                  Optional Double -> Optional Double -> Optional Bool -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.initDeviceOrientationEvent Mozilla DeviceOrientationEvent.initDeviceOrientationEvent documentation> -initDeviceOrientationEvent ::-                           (MonadIO m, ToJSString type') =>-                             DeviceOrientationEvent ->-                               Maybe type' ->-                                 Bool ->-                                   Bool ->-                                     Maybe Double ->-                                       Maybe Double -> Maybe Double -> Maybe Bool -> m ()-initDeviceOrientationEvent self type' bubbles cancelable alpha beta-  gamma absolute-  = liftIO-      (js_initDeviceOrientationEvent self (toOptionalJSString type')-         bubbles-         cancelable-         (maybeToOptional alpha)-         (maybeToOptional beta)-         (maybeToOptional gamma)-         (maybeToOptional absolute))- -foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })" js_getAlpha ::-        DeviceOrientationEvent -> IO (Nullable Double)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> -getAlpha ::-         (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double)-getAlpha self = liftIO (nullableToMaybe <$> (js_getAlpha self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> -getAlphaUnsafe ::-               (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double-getAlphaUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAlpha self)) >>=-         maybe (Prelude.error "Nothing to return") return)+foreign import javascript safe "(($1, $2) => { return new globalThis[\"DeviceOrientationEvent\"]($1, $2); })"+        js_newDeviceOrientationEvent :: JSString -> JSVal -> IO DeviceOrientationEvent+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/DeviceOrientationEvent MDN DeviceOrientationEvent. documentation>+newDeviceOrientationEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe DeviceOrientationEventInit -> m DeviceOrientationEvent+newDeviceOrientationEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newDeviceOrientationEvent (toJSString type') a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> -getAlphaUnchecked ::-                  (MonadIO m) => DeviceOrientationEvent -> m Double-getAlphaUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAlpha self))- -foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })" js_getBeta ::-        DeviceOrientationEvent -> IO (Nullable Double)+foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })"+        js_getAlpha :: DeviceOrientationEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/alpha MDN DeviceOrientationEvent.alpha documentation>+getAlpha :: (MonadDOM m) => DeviceOrientationEvent -> m (Maybe Double)+getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> -getBeta ::-        (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double)-getBeta self = liftIO (nullableToMaybe <$> (js_getBeta self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/alpha MDN DeviceOrientationEvent.alpha documentation>+getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEvent -> m Double+getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> -getBetaUnsafe ::-              (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double-getBetaUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBeta self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/alpha MDN DeviceOrientationEvent.alpha documentation>+getAlphaUnchecked :: (MonadDOM m) => DeviceOrientationEvent -> m Double+getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> -getBetaUnchecked ::-                 (MonadIO m) => DeviceOrientationEvent -> m Double-getBetaUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getBeta self))- -foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })" js_getGamma ::-        DeviceOrientationEvent -> IO (Nullable Double)+foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })"+        js_getBeta :: DeviceOrientationEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/beta MDN DeviceOrientationEvent.beta documentation>+getBeta :: (MonadDOM m) => DeviceOrientationEvent -> m (Maybe Double)+getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> -getGamma ::-         (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double)-getGamma self = liftIO (nullableToMaybe <$> (js_getGamma self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/beta MDN DeviceOrientationEvent.beta documentation>+getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEvent -> m Double+getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> -getGammaUnsafe ::-               (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double-getGammaUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getGamma self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/beta MDN DeviceOrientationEvent.beta documentation>+getBetaUnchecked :: (MonadDOM m) => DeviceOrientationEvent -> m Double+getBetaUnchecked self = liftDOM ((pFromJSVal <$> (js_getBeta (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> -getGammaUnchecked ::-                  (MonadIO m) => DeviceOrientationEvent -> m Double-getGammaUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getGamma self))- -foreign import javascript unsafe "(($1) => { return $1[\"absolute\"]; })" js_getAbsolute-        :: DeviceOrientationEvent -> IO (Nullable Bool)+foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })"+        js_getGamma :: DeviceOrientationEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/gamma MDN DeviceOrientationEvent.gamma documentation>+getGamma :: (MonadDOM m) => DeviceOrientationEvent -> m (Maybe Double)+getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> -getAbsolute ::-            (MonadIO m) => DeviceOrientationEvent -> m (Maybe Bool)-getAbsolute self-  = liftIO (nullableToMaybe <$> (js_getAbsolute self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/gamma MDN DeviceOrientationEvent.gamma documentation>+getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEvent -> m Double+getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> -getAbsoluteUnsafe ::-                  (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Bool-getAbsoluteUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getAbsolute self)) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/gamma MDN DeviceOrientationEvent.gamma documentation>+getGammaUnchecked :: (MonadDOM m) => DeviceOrientationEvent -> m Double+getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> -getAbsoluteUnchecked ::-                     (MonadIO m) => DeviceOrientationEvent -> m Bool-getAbsoluteUnchecked self-  = liftIO (fromJust . nullableToMaybe <$> (js_getAbsolute self))+foreign import javascript unsafe "(($1) => { return $1[\"absolute\"]; })"+        js_getAbsolute :: DeviceOrientationEvent -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/absolute MDN DeviceOrientationEvent.absolute documentation>+getAbsolute :: (MonadDOM m) => DeviceOrientationEvent -> m Bool+getAbsolute self = liftDOM ((js_getAbsolute (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEventInit.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from orientation-event (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DeviceOrientationEventInit+       (js_newDeviceOrientationEventInit, js_setAlpha, js_getAlpha, js_setBeta, js_getBeta, js_setGamma, js_getGamma, js_setAbsolute, js_getAbsolute, newDeviceOrientationEventInit, setAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, setBeta, getBeta, getBetaUnsafe, getBetaUnchecked, setGamma, getGamma, getGammaUnsafe, getGammaUnchecked, setAbsolute, getAbsolute, getAbsoluteUnsafe, getAbsoluteUnchecked, DeviceOrientationEventInit(..), gTypeDeviceOrientationEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDeviceOrientationEventInit :: IO DeviceOrientationEventInit+-- | <https://w3c.github.io/deviceorientation/#dictdef-deviceorientationeventinit DeviceOrientationEventInit specification>+newDeviceOrientationEventInit :: (MonadDOM m) => m DeviceOrientationEventInit+newDeviceOrientationEventInit = liftDOM ((js_newDeviceOrientationEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"alpha\"] = $2; })"+        js_setAlpha :: DeviceOrientationEventInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>+setAlpha :: (MonadDOM m) => DeviceOrientationEventInit -> Maybe Double -> m ()+setAlpha self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAlpha (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })"+        js_getAlpha :: DeviceOrientationEventInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>+getAlpha :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double)+getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>+getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Double+getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>+getAlphaUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Double+getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self))))++foreign import javascript safe "(($1, $2) => { $1[\"beta\"] = $2; })"+        js_setBeta :: DeviceOrientationEventInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>+setBeta :: (MonadDOM m) => DeviceOrientationEventInit -> Maybe Double -> m ()+setBeta self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBeta (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })"+        js_getBeta :: DeviceOrientationEventInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>+getBeta :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double)+getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>+getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Double+getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>+getBetaUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Double+getBetaUnchecked self = liftDOM ((pFromJSVal <$> (js_getBeta (self))))++foreign import javascript safe "(($1, $2) => { $1[\"gamma\"] = $2; })"+        js_setGamma :: DeviceOrientationEventInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>+setGamma :: (MonadDOM m) => DeviceOrientationEventInit -> Maybe Double -> m ()+setGamma self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setGamma (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })"+        js_getGamma :: DeviceOrientationEventInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>+getGamma :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double)+getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>+getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Double+getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>+getGammaUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Double+getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self))))++foreign import javascript safe "(($1, $2) => { $1[\"absolute\"] = $2; })"+        js_setAbsolute :: DeviceOrientationEventInit -> Bool -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>+setAbsolute :: (MonadDOM m) => DeviceOrientationEventInit -> Bool -> m ()+setAbsolute self val = liftDOM (void ((js_setAbsolute (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"absolute\"]; })"+        js_getAbsolute :: DeviceOrientationEventInit -> IO JSVal+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>+getAbsolute :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Bool)+getAbsolute self = liftDOM (((js_getAbsolute (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>+getAbsoluteUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Bool+getAbsoluteUnsafe self = liftDOM ((((js_getAbsolute (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>+getAbsoluteUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Bool+getAbsoluteUnchecked self = liftDOM ((pFromJSVal <$> (js_getAbsolute (self))))
− src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs
@@ -1,64 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent-       (js_newDeviceProximityEvent, newDeviceProximityEvent, js_getValue,-        getValue, js_getMin, getMin, js_getMax, getMax,-        DeviceProximityEvent(..), gTypeDeviceProximityEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"DeviceProximityEvent\"]($1,\n$2); })"-        js_newDeviceProximityEvent ::-        JSString ->-          Optional DeviceProximityEventInit -> IO DeviceProximityEvent---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent Mozilla DeviceProximityEvent documentation> -newDeviceProximityEvent ::-                        (MonadIO m, ToJSString type') =>-                          type' -> Maybe DeviceProximityEventInit -> m DeviceProximityEvent-newDeviceProximityEvent type' eventInitDict-  = liftIO-      (js_newDeviceProximityEvent (toJSString type')-         (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue ::-        DeviceProximityEvent -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.value Mozilla DeviceProximityEvent.value documentation> -getValue :: (MonadIO m) => DeviceProximityEvent -> m Double-getValue self = liftIO (js_getValue self)- -foreign import javascript unsafe "(($1) => { return $1[\"min\"]; })" js_getMin ::-        DeviceProximityEvent -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.min Mozilla DeviceProximityEvent.min documentation> -getMin :: (MonadIO m) => DeviceProximityEvent -> m Double-getMin self = liftIO (js_getMin self)- -foreign import javascript unsafe "(($1) => { return $1[\"max\"]; })" js_getMax ::-        DeviceProximityEvent -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.max Mozilla DeviceProximityEvent.max documentation> -getMax :: (MonadIO m) => DeviceProximityEvent -> m Double-getMax self = liftIO (js_getMax self)
+ src/GHCJS/DOM/JSFFI/Generated/DigitalCredential.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from digital-credentials (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DigitalCredential+       (js_toJSON, js_userAgentAllowsProtocol, js_getProtocol, js_getData, toJSON, toJSON_, userAgentAllowsProtocol, userAgentAllowsProtocol_, getProtocol, getData, DigitalCredential(..), gTypeDigitalCredential)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })"+        js_toJSON :: DigitalCredential -> IO GObject+toJSON :: (MonadDOM m) => DigitalCredential -> m GObject+toJSON self = liftDOM ((js_toJSON (self)))++toJSON_ :: (MonadDOM m) => DigitalCredential -> m ()+toJSON_ self = liftDOM (void ((js_toJSON (self))))++foreign import javascript safe "(($1) => { return globalThis[\"DigitalCredential\"][\"userAgentAllowsProtocol\"]($1); })"+        js_userAgentAllowsProtocol :: JSString -> IO Bool+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredential-useragentallowsprotocol DigitalCredential.userAgentAllowsProtocol specification>+userAgentAllowsProtocol :: (MonadDOM m, ToJSString protocol) => protocol -> m Bool+userAgentAllowsProtocol protocol = liftDOM ((js_userAgentAllowsProtocol (toJSString protocol)))++-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredential-useragentallowsprotocol DigitalCredential.userAgentAllowsProtocol specification>+userAgentAllowsProtocol_ :: (MonadDOM m, ToJSString protocol) => protocol -> m ()+userAgentAllowsProtocol_ protocol = liftDOM (void ((js_userAgentAllowsProtocol (toJSString protocol))))++foreign import javascript unsafe "(($1) => { return $1[\"protocol\"]; })"+        js_getProtocol :: DigitalCredential -> IO DigitalCredentialProtocol+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredential-protocol DigitalCredential.protocol specification>+getProtocol :: (MonadDOM m) => DigitalCredential -> m DigitalCredentialProtocol+getProtocol self = liftDOM ((js_getProtocol (self)))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: DigitalCredential -> IO GObject+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredential-data DigitalCredential.data specification>+getData :: (MonadDOM m) => DigitalCredential -> m GObject+getData self = liftDOM ((js_getData (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialCreateRequest.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from digital-credentials (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreateRequest+       (js_newDigitalCredentialCreateRequest, js_setProtocol, js_getProtocol, js_setData, js_getData, newDigitalCredentialCreateRequest, setProtocol, getProtocol, setData, getData, DigitalCredentialCreateRequest(..), gTypeDigitalCredentialCreateRequest)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return ({\"protocol\": $1, \"data\": $2}); })"+        js_newDigitalCredentialCreateRequest :: JSString -> GObject -> IO DigitalCredentialCreateRequest+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreaterequest DigitalCredentialCreateRequest specification>+newDigitalCredentialCreateRequest :: (MonadDOM m, ToJSString protocol) => protocol -> GObject -> m DigitalCredentialCreateRequest+newDigitalCredentialCreateRequest protocol data' = liftDOM ((js_newDigitalCredentialCreateRequest (toJSString protocol) (data')))++foreign import javascript safe "(($1, $2) => { $1[\"protocol\"] = $2; })"+        js_setProtocol :: DigitalCredentialCreateRequest -> JSString -> IO ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreaterequest-protocol DigitalCredentialCreateRequest.protocol specification>+setProtocol :: (MonadDOM m, ToJSString val) => DigitalCredentialCreateRequest -> val -> m ()+setProtocol self val = liftDOM (void ((js_setProtocol (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"protocol\"]; })"+        js_getProtocol :: DigitalCredentialCreateRequest -> IO JSString+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreaterequest-protocol DigitalCredentialCreateRequest.protocol specification>+getProtocol :: (MonadDOM m, FromJSString result) => DigitalCredentialCreateRequest -> m result+getProtocol self = liftDOM ((fromJSString <$> (js_getProtocol (self))))++foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+        js_setData :: DigitalCredentialCreateRequest -> GObject -> IO ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreaterequest-data DigitalCredentialCreateRequest.data specification>+setData :: (MonadDOM m) => DigitalCredentialCreateRequest -> GObject -> m ()+setData self val = liftDOM (void ((js_setData (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: DigitalCredentialCreateRequest -> IO GObject+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreaterequest-data DigitalCredentialCreateRequest.data specification>+getData :: (MonadDOM m) => DigitalCredentialCreateRequest -> m GObject+getData self = liftDOM ((js_getData (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialCreationOptions.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from digital-credentials (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DigitalCredentialCreationOptions+       (js_newDigitalCredentialCreationOptions, js_setRequests, js_getRequests, newDigitalCredentialCreationOptions, setRequests, getRequests, DigitalCredentialCreationOptions(..), gTypeDigitalCredentialCreationOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"requests\": $1}); })"+        js_newDigitalCredentialCreationOptions :: JSVal -> IO DigitalCredentialCreationOptions+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreationoptions DigitalCredentialCreationOptions specification>+newDigitalCredentialCreationOptions :: (MonadDOM m) => [DigitalCredentialCreateRequest] -> m DigitalCredentialCreationOptions+newDigitalCredentialCreationOptions requests = liftDOM (((toJSVal requests) >>= \a1' -> js_newDigitalCredentialCreationOptions a1'))++foreign import javascript safe "(($1, $2) => { $1[\"requests\"] = $2; })"+        js_setRequests :: DigitalCredentialCreationOptions -> JSVal -> IO ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreationoptions-requests DigitalCredentialCreationOptions.requests specification>+setRequests :: (MonadDOM m) => DigitalCredentialCreationOptions -> [DigitalCredentialCreateRequest] -> m ()+setRequests self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setRequests (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"requests\"]; })"+        js_getRequests :: DigitalCredentialCreationOptions -> IO JSVal+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreationoptions-requests DigitalCredentialCreationOptions.requests specification>+getRequests :: (MonadDOM m) => DigitalCredentialCreationOptions -> m [DigitalCredentialCreateRequest]+getRequests self = liftDOM (((js_getRequests (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialGetRequest.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from digital-credentials (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DigitalCredentialGetRequest+       (js_newDigitalCredentialGetRequest, js_setProtocol, js_getProtocol, js_setData, js_getData, newDigitalCredentialGetRequest, setProtocol, getProtocol, setData, getData, DigitalCredentialGetRequest(..), gTypeDigitalCredentialGetRequest)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return ({\"protocol\": $1, \"data\": $2}); })"+        js_newDigitalCredentialGetRequest :: JSString -> GObject -> IO DigitalCredentialGetRequest+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialgetrequest DigitalCredentialGetRequest specification>+newDigitalCredentialGetRequest :: (MonadDOM m, ToJSString protocol) => protocol -> GObject -> m DigitalCredentialGetRequest+newDigitalCredentialGetRequest protocol data' = liftDOM ((js_newDigitalCredentialGetRequest (toJSString protocol) (data')))++foreign import javascript safe "(($1, $2) => { $1[\"protocol\"] = $2; })"+        js_setProtocol :: DigitalCredentialGetRequest -> JSString -> IO ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialgetrequest-protocol DigitalCredentialGetRequest.protocol specification>+setProtocol :: (MonadDOM m, ToJSString val) => DigitalCredentialGetRequest -> val -> m ()+setProtocol self val = liftDOM (void ((js_setProtocol (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"protocol\"]; })"+        js_getProtocol :: DigitalCredentialGetRequest -> IO JSString+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialgetrequest-protocol DigitalCredentialGetRequest.protocol specification>+getProtocol :: (MonadDOM m, FromJSString result) => DigitalCredentialGetRequest -> m result+getProtocol self = liftDOM ((fromJSString <$> (js_getProtocol (self))))++foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+        js_setData :: DigitalCredentialGetRequest -> GObject -> IO ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialgetrequest-data DigitalCredentialGetRequest.data specification>+setData :: (MonadDOM m) => DigitalCredentialGetRequest -> GObject -> m ()+setData self val = liftDOM (void ((js_setData (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: DigitalCredentialGetRequest -> IO GObject+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialgetrequest-data DigitalCredentialGetRequest.data specification>+getData :: (MonadDOM m) => DigitalCredentialGetRequest -> m GObject+getData self = liftDOM ((js_getData (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialRequestOptions.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from digital-credentials (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DigitalCredentialRequestOptions+       (js_newDigitalCredentialRequestOptions, js_setRequests, js_getRequests, newDigitalCredentialRequestOptions, setRequests, getRequests, DigitalCredentialRequestOptions(..), gTypeDigitalCredentialRequestOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"requests\": $1}); })"+        js_newDigitalCredentialRequestOptions :: JSVal -> IO DigitalCredentialRequestOptions+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialrequestoptions DigitalCredentialRequestOptions specification>+newDigitalCredentialRequestOptions :: (MonadDOM m) => [DigitalCredentialGetRequest] -> m DigitalCredentialRequestOptions+newDigitalCredentialRequestOptions requests = liftDOM (((toJSVal requests) >>= \a1' -> js_newDigitalCredentialRequestOptions a1'))++foreign import javascript safe "(($1, $2) => { $1[\"requests\"] = $2; })"+        js_setRequests :: DigitalCredentialRequestOptions -> JSVal -> IO ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialrequestoptions-requests DigitalCredentialRequestOptions.requests specification>+setRequests :: (MonadDOM m) => DigitalCredentialRequestOptions -> [DigitalCredentialGetRequest] -> m ()+setRequests self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setRequests (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"requests\"]; })"+        js_getRequests :: DigitalCredentialRequestOptions -> IO JSVal+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialrequestoptions-requests DigitalCredentialRequestOptions.requests specification>+getRequests :: (MonadDOM m) => DigitalCredentialRequestOptions -> m [DigitalCredentialGetRequest]+getRequests self = liftDOM (((js_getRequests (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/DisplayMediaStreamOptions.hs view
@@ -0,0 +1,203 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from screen-capture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DisplayMediaStreamOptions+       (js_newDisplayMediaStreamOptions, js_setVideo, js_getVideo, js_setAudio, js_getAudio, js_setController, js_getController, js_setSelfBrowserSurface, js_getSelfBrowserSurface, js_setSystemAudio, js_getSystemAudio, js_setWindowAudio, js_getWindowAudio, js_setSurfaceSwitching, js_getSurfaceSwitching, js_setMonitorTypeSurfaces, js_getMonitorTypeSurfaces, js_setAudioSelection, js_getAudioSelection, newDisplayMediaStreamOptions, setVideo, getVideo, getVideoUnsafe, getVideoUnchecked, setAudio, getAudio, getAudioUnsafe, getAudioUnchecked, setController, getController, getControllerUnsafe, getControllerUnchecked, setSelfBrowserSurface, getSelfBrowserSurface, getSelfBrowserSurfaceUnsafe, getSelfBrowserSurfaceUnchecked, setSystemAudio, getSystemAudio, getSystemAudioUnsafe, getSystemAudioUnchecked, setWindowAudio, getWindowAudio, getWindowAudioUnsafe, getWindowAudioUnchecked, setSurfaceSwitching, getSurfaceSwitching, getSurfaceSwitchingUnsafe, getSurfaceSwitchingUnchecked, setMonitorTypeSurfaces, getMonitorTypeSurfaces, getMonitorTypeSurfacesUnsafe, getMonitorTypeSurfacesUnchecked, setAudioSelection, getAudioSelection, getAudioSelectionUnsafe, getAudioSelectionUnchecked, DisplayMediaStreamOptions(..), gTypeDisplayMediaStreamOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDisplayMediaStreamOptions :: IO DisplayMediaStreamOptions+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions DisplayMediaStreamOptions specification>+newDisplayMediaStreamOptions :: (MonadDOM m) => m DisplayMediaStreamOptions+newDisplayMediaStreamOptions = liftDOM ((js_newDisplayMediaStreamOptions))++foreign import javascript safe "(($1, $2) => { $1[\"video\"] = $2; })"+        js_setVideo :: DisplayMediaStreamOptions -> BoolOrMediaTrackConstraints -> IO ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-video DisplayMediaStreamOptions.video specification>+setVideo :: (MonadDOM m, IsBoolOrMediaTrackConstraints val) => DisplayMediaStreamOptions -> val -> m ()+setVideo self val = liftDOM (void ((js_setVideo (self) (Types.toBoolOrMediaTrackConstraints val))))++foreign import javascript unsafe "(($1) => { return $1[\"video\"]; })"+        js_getVideo :: DisplayMediaStreamOptions -> IO JSVal+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-video DisplayMediaStreamOptions.video specification>+getVideo :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe BoolOrMediaTrackConstraints)+getVideo self = liftDOM (((js_getVideo (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-video DisplayMediaStreamOptions.video specification>+getVideoUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m BoolOrMediaTrackConstraints+getVideoUnsafe self = liftDOM ((((js_getVideo (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-video DisplayMediaStreamOptions.video specification>+getVideoUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m BoolOrMediaTrackConstraints+getVideoUnchecked self = liftDOM ((pFromJSVal <$> (js_getVideo (self))))++foreign import javascript safe "(($1, $2) => { $1[\"audio\"] = $2; })"+        js_setAudio :: DisplayMediaStreamOptions -> BoolOrMediaTrackConstraints -> IO ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audio DisplayMediaStreamOptions.audio specification>+setAudio :: (MonadDOM m, IsBoolOrMediaTrackConstraints val) => DisplayMediaStreamOptions -> val -> m ()+setAudio self val = liftDOM (void ((js_setAudio (self) (Types.toBoolOrMediaTrackConstraints val))))++foreign import javascript unsafe "(($1) => { return $1[\"audio\"]; })"+        js_getAudio :: DisplayMediaStreamOptions -> IO JSVal+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audio DisplayMediaStreamOptions.audio specification>+getAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe BoolOrMediaTrackConstraints)+getAudio self = liftDOM (((js_getAudio (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audio DisplayMediaStreamOptions.audio specification>+getAudioUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m BoolOrMediaTrackConstraints+getAudioUnsafe self = liftDOM ((((js_getAudio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audio DisplayMediaStreamOptions.audio specification>+getAudioUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m BoolOrMediaTrackConstraints+getAudioUnchecked self = liftDOM ((pFromJSVal <$> (js_getAudio (self))))++foreign import javascript safe "(($1, $2) => { $1[\"controller\"] = $2; })"+        js_setController :: DisplayMediaStreamOptions -> CaptureController -> IO ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-controller DisplayMediaStreamOptions.controller specification>+setController :: (MonadDOM m) => DisplayMediaStreamOptions -> CaptureController -> m ()+setController self val = liftDOM (void ((js_setController (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"controller\"]; })"+        js_getController :: DisplayMediaStreamOptions -> IO JSVal+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-controller DisplayMediaStreamOptions.controller specification>+getController :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe CaptureController)+getController self = liftDOM (((js_getController (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-controller DisplayMediaStreamOptions.controller specification>+getControllerUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m CaptureController+getControllerUnsafe self = liftDOM ((((js_getController (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-controller DisplayMediaStreamOptions.controller specification>+getControllerUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m CaptureController+getControllerUnchecked self = liftDOM ((pFromJSVal <$> (js_getController (self))))++foreign import javascript safe "(($1, $2) => { $1[\"selfBrowserSurface\"] = $2; })"+        js_setSelfBrowserSurface :: DisplayMediaStreamOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-selfbrowsersurface DisplayMediaStreamOptions.selfBrowserSurface specification>+setSelfBrowserSurface :: (MonadDOM m) => DisplayMediaStreamOptions -> SelfCapturePreferenceEnum -> m ()+setSelfBrowserSurface self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSelfBrowserSurface (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"selfBrowserSurface\"]; })"+        js_getSelfBrowserSurface :: DisplayMediaStreamOptions -> IO JSVal+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-selfbrowsersurface DisplayMediaStreamOptions.selfBrowserSurface specification>+getSelfBrowserSurface :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe SelfCapturePreferenceEnum)+getSelfBrowserSurface self = liftDOM (((js_getSelfBrowserSurface (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-selfbrowsersurface DisplayMediaStreamOptions.selfBrowserSurface specification>+getSelfBrowserSurfaceUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m SelfCapturePreferenceEnum+getSelfBrowserSurfaceUnsafe self = liftDOM ((((js_getSelfBrowserSurface (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-selfbrowsersurface DisplayMediaStreamOptions.selfBrowserSurface specification>+getSelfBrowserSurfaceUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m SelfCapturePreferenceEnum+getSelfBrowserSurfaceUnchecked self = liftDOM ((pFromJSVal <$> (js_getSelfBrowserSurface (self))))++foreign import javascript safe "(($1, $2) => { $1[\"systemAudio\"] = $2; })"+        js_setSystemAudio :: DisplayMediaStreamOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-systemaudio DisplayMediaStreamOptions.systemAudio specification>+setSystemAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> SystemAudioPreferenceEnum -> m ()+setSystemAudio self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSystemAudio (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"systemAudio\"]; })"+        js_getSystemAudio :: DisplayMediaStreamOptions -> IO JSVal+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-systemaudio DisplayMediaStreamOptions.systemAudio specification>+getSystemAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe SystemAudioPreferenceEnum)+getSystemAudio self = liftDOM (((js_getSystemAudio (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-systemaudio DisplayMediaStreamOptions.systemAudio specification>+getSystemAudioUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m SystemAudioPreferenceEnum+getSystemAudioUnsafe self = liftDOM ((((js_getSystemAudio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-systemaudio DisplayMediaStreamOptions.systemAudio specification>+getSystemAudioUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m SystemAudioPreferenceEnum+getSystemAudioUnchecked self = liftDOM ((pFromJSVal <$> (js_getSystemAudio (self))))++foreign import javascript safe "(($1, $2) => { $1[\"windowAudio\"] = $2; })"+        js_setWindowAudio :: DisplayMediaStreamOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-windowaudio DisplayMediaStreamOptions.windowAudio specification>+setWindowAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> WindowAudioPreferenceEnum -> m ()+setWindowAudio self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setWindowAudio (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"windowAudio\"]; })"+        js_getWindowAudio :: DisplayMediaStreamOptions -> IO JSVal+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-windowaudio DisplayMediaStreamOptions.windowAudio specification>+getWindowAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe WindowAudioPreferenceEnum)+getWindowAudio self = liftDOM (((js_getWindowAudio (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-windowaudio DisplayMediaStreamOptions.windowAudio specification>+getWindowAudioUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m WindowAudioPreferenceEnum+getWindowAudioUnsafe self = liftDOM ((((js_getWindowAudio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-windowaudio DisplayMediaStreamOptions.windowAudio specification>+getWindowAudioUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m WindowAudioPreferenceEnum+getWindowAudioUnchecked self = liftDOM ((pFromJSVal <$> (js_getWindowAudio (self))))++foreign import javascript safe "(($1, $2) => { $1[\"surfaceSwitching\"] = $2; })"+        js_setSurfaceSwitching :: DisplayMediaStreamOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-surfaceswitching DisplayMediaStreamOptions.surfaceSwitching specification>+setSurfaceSwitching :: (MonadDOM m) => DisplayMediaStreamOptions -> SurfaceSwitchingPreferenceEnum -> m ()+setSurfaceSwitching self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSurfaceSwitching (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"surfaceSwitching\"]; })"+        js_getSurfaceSwitching :: DisplayMediaStreamOptions -> IO JSVal+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-surfaceswitching DisplayMediaStreamOptions.surfaceSwitching specification>+getSurfaceSwitching :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe SurfaceSwitchingPreferenceEnum)+getSurfaceSwitching self = liftDOM (((js_getSurfaceSwitching (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-surfaceswitching DisplayMediaStreamOptions.surfaceSwitching specification>+getSurfaceSwitchingUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m SurfaceSwitchingPreferenceEnum+getSurfaceSwitchingUnsafe self = liftDOM ((((js_getSurfaceSwitching (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-surfaceswitching DisplayMediaStreamOptions.surfaceSwitching specification>+getSurfaceSwitchingUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m SurfaceSwitchingPreferenceEnum+getSurfaceSwitchingUnchecked self = liftDOM ((pFromJSVal <$> (js_getSurfaceSwitching (self))))++foreign import javascript safe "(($1, $2) => { $1[\"monitorTypeSurfaces\"] = $2; })"+        js_setMonitorTypeSurfaces :: DisplayMediaStreamOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-monitortypesurfaces DisplayMediaStreamOptions.monitorTypeSurfaces specification>+setMonitorTypeSurfaces :: (MonadDOM m) => DisplayMediaStreamOptions -> MonitorTypeSurfacesEnum -> m ()+setMonitorTypeSurfaces self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setMonitorTypeSurfaces (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"monitorTypeSurfaces\"]; })"+        js_getMonitorTypeSurfaces :: DisplayMediaStreamOptions -> IO JSVal+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-monitortypesurfaces DisplayMediaStreamOptions.monitorTypeSurfaces specification>+getMonitorTypeSurfaces :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe MonitorTypeSurfacesEnum)+getMonitorTypeSurfaces self = liftDOM (((js_getMonitorTypeSurfaces (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-monitortypesurfaces DisplayMediaStreamOptions.monitorTypeSurfaces specification>+getMonitorTypeSurfacesUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m MonitorTypeSurfacesEnum+getMonitorTypeSurfacesUnsafe self = liftDOM ((((js_getMonitorTypeSurfaces (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-monitortypesurfaces DisplayMediaStreamOptions.monitorTypeSurfaces specification>+getMonitorTypeSurfacesUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m MonitorTypeSurfacesEnum+getMonitorTypeSurfacesUnchecked self = liftDOM ((pFromJSVal <$> (js_getMonitorTypeSurfaces (self))))++foreign import javascript safe "(($1, $2) => { $1[\"audioSelection\"] = $2; })"+        js_setAudioSelection :: DisplayMediaStreamOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audioselection DisplayMediaStreamOptions.audioSelection specification>+setAudioSelection :: (MonadDOM m) => DisplayMediaStreamOptions -> AudioSelectionPreferenceEnum -> m ()+setAudioSelection self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAudioSelection (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"audioSelection\"]; })"+        js_getAudioSelection :: DisplayMediaStreamOptions -> IO JSVal+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audioselection DisplayMediaStreamOptions.audioSelection specification>+getAudioSelection :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe AudioSelectionPreferenceEnum)+getAudioSelection self = liftDOM (((js_getAudioSelection (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audioselection DisplayMediaStreamOptions.audioSelection specification>+getAudioSelectionUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m AudioSelectionPreferenceEnum+getAudioSelectionUnsafe self = liftDOM ((((js_getAudioSelection (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audioselection DisplayMediaStreamOptions.audioSelection specification>+getAudioSelectionUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m AudioSelectionPreferenceEnum+getAudioSelectionUnchecked self = liftDOM ((pFromJSVal <$> (js_getAudioSelection (self))))
src/GHCJS/DOM/JSFFI/Generated/Document.hs view
@@ -1,1850 +1,954 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.Document-       (js_getAnimations, getAnimations, getAnimations_, js_newDocument,-        newDocument, js_getElementsByTagName, getElementsByTagName,-        getElementsByTagName_, js_getElementsByTagNameNS,-        getElementsByTagNameNS, getElementsByTagNameNS_,-        js_getElementsByClassName, getElementsByClassName,-        getElementsByClassName_, js_createElement, createElement,-        createElement_, js_createElementNS, createElementNS,-        createElementNS_, js_createDocumentFragment,-        createDocumentFragment, createDocumentFragment_, js_createTextNode,-        createTextNode, createTextNode_, js_createCDATASection,-        createCDATASection, createCDATASection_, js_createComment,-        createComment, createComment_, js_createProcessingInstruction,-        createProcessingInstruction, createProcessingInstruction_,-        js_importNode, importNode, importNode_, js_adoptNode, adoptNode,-        adoptNode_, js_createAttribute, createAttribute, createAttribute_,-        js_createAttributeNS, createAttributeNS, createAttributeNS_,-        js_createEvent, createEvent, createEvent_, js_createRange,-        createRange, createRange_, js_createNodeIterator,-        createNodeIterator, createNodeIterator_, js_createTreeWalker,-        createTreeWalker, createTreeWalker_, js_getElementsByName,-        getElementsByName, getElementsByName_, js_hasFocus, hasFocus,-        hasFocus_, js_execCommand, execCommand, execCommand_,-        js_queryCommandEnabled, queryCommandEnabled, queryCommandEnabled_,-        js_queryCommandIndeterm, queryCommandIndeterm,-        queryCommandIndeterm_, js_queryCommandState, queryCommandState,-        queryCommandState_, js_queryCommandSupported,-        queryCommandSupported, queryCommandSupported_,-        js_queryCommandValue, queryCommandValue, queryCommandValue_,-        js_getSelection, getSelection, getSelection_, getSelectionUnsafe,-        getSelectionUnchecked, js_createExpression, createExpression,-        createExpression_, js_createNSResolver, createNSResolver,-        createNSResolver_, js_evaluate, evaluate, evaluate_,-        js_webkitExitFullscreen, webkitExitFullscreen,-        js_webkitCancelFullScreen, webkitCancelFullScreen,-        js_exitPointerLock, exitPointerLock, js_getOverrideStyle,-        getOverrideStyle, getOverrideStyle_, js_caretRangeFromPoint,-        caretRangeFromPoint, caretRangeFromPoint_, js_getCSSCanvasContext,-        getCSSCanvasContext, getCSSCanvasContext_, js_webkitGetNamedFlows,-        webkitGetNamedFlows, webkitGetNamedFlows_, js_createTouch,-        createTouch, createTouch_, js_createTouchList, createTouchList,-        createTouchList_, js_getTimeline, getTimeline,-        js_getImplementation, getImplementation, js_getURL, getURL,-        js_getDocumentURI, getDocumentURI, js_getOrigin, getOrigin,-        js_getCompatMode, getCompatMode, js_getCharacterSet,-        getCharacterSet, js_getCharset, getCharset, js_getInputEncoding,-        getInputEncoding, js_getContentType, getContentType, js_getDoctype,-        getDoctype, getDoctypeUnsafe, getDoctypeUnchecked,-        js_getDocumentElement, getDocumentElement,-        getDocumentElementUnsafe, getDocumentElementUnchecked,-        js_getLocation, getLocation, getLocationUnsafe,-        getLocationUnchecked, js_setDomain, setDomain, js_getDomain,-        getDomain, js_getReferrer, getReferrer, js_setCookie, setCookie,-        js_getCookie, getCookie, js_getLastModified, getLastModified,-        js_getReadyState, getReadyState, js_setTitle, setTitle,-        js_getTitle, getTitle, js_setDir, setDir, js_getDir, getDir,-        js_setBody, setBody, js_getBody, getBody, getBodyUnsafe,-        getBodyUnchecked, js_getHead, getHead, getHeadUnsafe,-        getHeadUnchecked, js_getImages, getImages, js_getEmbeds, getEmbeds,-        js_getPlugins, getPlugins, js_getLinks, getLinks, js_getForms,-        getForms, js_getScripts, getScripts, js_getCurrentScript,-        getCurrentScript, getCurrentScriptUnsafe,-        getCurrentScriptUnchecked, js_getDefaultView, getDefaultView,-        getDefaultViewUnsafe, getDefaultViewUnchecked, js_setDesignMode,-        setDesignMode, js_getDesignMode, getDesignMode, readyStateChange,-        js_getStyleSheets, getStyleSheets, js_getScrollingElement,-        getScrollingElement, getScrollingElementUnsafe,-        getScrollingElementUnchecked, js_getWebkitFullscreenEnabled,-        getWebkitFullscreenEnabled, js_getWebkitFullscreenElement,-        getWebkitFullscreenElement, getWebkitFullscreenElementUnsafe,-        getWebkitFullscreenElementUnchecked, js_getWebkitIsFullScreen,-        getWebkitIsFullScreen, js_getWebkitFullScreenKeyboardInputAllowed,-        getWebkitFullScreenKeyboardInputAllowed,-        js_getWebkitCurrentFullScreenElement,-        getWebkitCurrentFullScreenElement, webKitFullscreenChange,-        webKitFullscreenError, pointerlockchange, pointerlockerror,-        js_getFonts, getFonts, js_getHidden, getHidden,-        js_getVisibilityState, getVisibilityState, visibilitychange,-        js_getApplets, getApplets, js_getAnchors, getAnchors,-        js_getPreferredStylesheetSet, getPreferredStylesheetSet,-        getPreferredStylesheetSetUnsafe,-        getPreferredStylesheetSetUnchecked, js_setSelectedStylesheetSet,-        setSelectedStylesheetSet, js_getSelectedStylesheetSet,-        getSelectedStylesheetSet, getSelectedStylesheetSetUnsafe,-        getSelectedStylesheetSetUnchecked, js_getXmlEncoding,-        getXmlEncoding, getXmlEncodingUnsafe, getXmlEncodingUnchecked,-        js_setXmlVersion, setXmlVersion, js_getXmlVersion, getXmlVersion,-        getXmlVersionUnsafe, getXmlVersionUnchecked, js_setXmlStandalone,-        setXmlStandalone, js_getXmlStandalone, getXmlStandalone,-        selectStart, selectionchange, js_getRootElement, getRootElement,-        getRootElementUnsafe, getRootElementUnchecked, Document(..),-        gTypeDocument, IsDocument, toDocument)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"getAnimations\"](); })"-        js_getAnimations :: Document -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getAnimations Mozilla Document.getAnimations documentation> -getAnimations ::-              (MonadIO m, IsDocument self) => self -> m [Animation]-getAnimations self-  = liftIO-      ((js_getAnimations (toDocument self)) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getAnimations Mozilla Document.getAnimations documentation> -getAnimations_ :: (MonadIO m, IsDocument self) => self -> m ()-getAnimations_ self-  = liftIO (void (js_getAnimations (toDocument self)))- -foreign import javascript unsafe "(() => { return new window[\"Document\"](); })"-        js_newDocument :: IO Document---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation> -newDocument :: (MonadIO m) => m Document-newDocument = liftIO (js_newDocument)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getElementsByTagName\"]($2); })"-        js_getElementsByTagName ::-        Document -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> -getElementsByTagName ::-                     (MonadIO m, IsDocument self, ToJSString qualifiedName) =>-                       self -> qualifiedName -> m HTMLCollection-getElementsByTagName self qualifiedName-  = liftIO-      (js_getElementsByTagName (toDocument self)-         (toJSString qualifiedName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> -getElementsByTagName_ ::-                      (MonadIO m, IsDocument self, ToJSString qualifiedName) =>-                        self -> qualifiedName -> m ()-getElementsByTagName_ self qualifiedName-  = liftIO-      (void-         (js_getElementsByTagName (toDocument self)-            (toJSString qualifiedName)))- -foreign import javascript unsafe-        "(($1, $2, $3) => { return $1[\"getElementsByTagNameNS\"]($2,\n$3); })" js_getElementsByTagNameNS-        :: Document -> Optional JSString -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> -getElementsByTagNameNS ::-                       (MonadIO m, IsDocument self, ToJSString namespaceURI,-                        ToJSString localName) =>-                         self -> Maybe namespaceURI -> localName -> m HTMLCollection-getElementsByTagNameNS self namespaceURI localName-  = liftIO-      (js_getElementsByTagNameNS (toDocument self)-         (toOptionalJSString namespaceURI)-         (toJSString localName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> -getElementsByTagNameNS_ ::-                        (MonadIO m, IsDocument self, ToJSString namespaceURI,-                         ToJSString localName) =>-                          self -> Maybe namespaceURI -> localName -> m ()-getElementsByTagNameNS_ self namespaceURI localName-  = liftIO-      (void-         (js_getElementsByTagNameNS (toDocument self)-            (toOptionalJSString namespaceURI)-            (toJSString localName)))- -foreign import javascript unsafe-        "(($1, $2) => { return $1[\"getElementsByClassName\"]($2); })" js_getElementsByClassName ::-        Document -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> -getElementsByClassName ::-                       (MonadIO m, IsDocument self, ToJSString classNames) =>-                         self -> classNames -> m HTMLCollection-getElementsByClassName self classNames-  = liftIO-      (js_getElementsByClassName (toDocument self)-         (toJSString classNames))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> -getElementsByClassName_ ::-                        (MonadIO m, IsDocument self, ToJSString classNames) =>-                          self -> classNames -> m ()-getElementsByClassName_ self classNames-  = liftIO-      (void-         (js_getElementsByClassName (toDocument self)-            (toJSString classNames)))- -foreign import javascript safe "(($1, $2) => { return $1[\"createElement\"]($2); })"-        js_createElement :: Document -> JSString -> IO Element---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> -createElement ::-              (MonadIO m, IsDocument self, ToJSString localName) =>-                self -> localName -> m Element-createElement self localName-  = liftIO-      (js_createElement (toDocument self) (toJSString localName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> -createElement_ ::-               (MonadIO m, IsDocument self, ToJSString localName) =>-                 self -> localName -> m ()-createElement_ self localName-  = liftIO-      (void (js_createElement (toDocument self) (toJSString localName)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createElementNS\"]($2, $3); })"-        js_createElementNS ::-        Document -> Optional JSString -> JSString -> IO Element---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> -createElementNS ::-                (MonadIO m, IsDocument self, ToJSString namespaceURI,-                 ToJSString qualifiedName) =>-                  self -> Maybe namespaceURI -> qualifiedName -> m Element-createElementNS self namespaceURI qualifiedName-  = liftIO-      (js_createElementNS (toDocument self)-         (toOptionalJSString namespaceURI)-         (toJSString qualifiedName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> -createElementNS_ ::-                 (MonadIO m, IsDocument self, ToJSString namespaceURI,-                  ToJSString qualifiedName) =>-                   self -> Maybe namespaceURI -> qualifiedName -> m ()-createElementNS_ self namespaceURI qualifiedName-  = liftIO-      (void-         (js_createElementNS (toDocument self)-            (toOptionalJSString namespaceURI)-            (toJSString qualifiedName)))- -foreign import javascript unsafe "(($1) => { return $1[\"createDocumentFragment\"](); })"-        js_createDocumentFragment :: Document -> IO DocumentFragment---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> -createDocumentFragment ::-                       (MonadIO m, IsDocument self) => self -> m DocumentFragment-createDocumentFragment self-  = liftIO (js_createDocumentFragment (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> -createDocumentFragment_ ::-                        (MonadIO m, IsDocument self) => self -> m ()-createDocumentFragment_ self-  = liftIO (void (js_createDocumentFragment (toDocument self)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"createTextNode\"]($2); })"-        js_createTextNode :: Document -> JSString -> IO Text---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> -createTextNode ::-               (MonadIO m, IsDocument self, ToJSString data') =>-                 self -> data' -> m Text-createTextNode self data'-  = liftIO (js_createTextNode (toDocument self) (toJSString data'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> -createTextNode_ ::-                (MonadIO m, IsDocument self, ToJSString data') =>-                  self -> data' -> m ()-createTextNode_ self data'-  = liftIO-      (void (js_createTextNode (toDocument self) (toJSString data')))- -foreign import javascript safe "(($1, $2) => { return $1[\"createCDATASection\"]($2); })"-        js_createCDATASection :: Document -> JSString -> IO CDATASection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> -createCDATASection ::-                   (MonadIO m, IsDocument self, ToJSString data') =>-                     self -> data' -> m CDATASection-createCDATASection self data'-  = liftIO-      (js_createCDATASection (toDocument self) (toJSString data'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> -createCDATASection_ ::-                    (MonadIO m, IsDocument self, ToJSString data') =>-                      self -> data' -> m ()-createCDATASection_ self data'-  = liftIO-      (void (js_createCDATASection (toDocument self) (toJSString data')))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"createComment\"]($2); })"-        js_createComment :: Document -> JSString -> IO Comment---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> -createComment ::-              (MonadIO m, IsDocument self, ToJSString data') =>-                self -> data' -> m Comment-createComment self data'-  = liftIO (js_createComment (toDocument self) (toJSString data'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> -createComment_ ::-               (MonadIO m, IsDocument self, ToJSString data') =>-                 self -> data' -> m ()-createComment_ self data'-  = liftIO-      (void (js_createComment (toDocument self) (toJSString data')))- -foreign import javascript safe-        "(($1, $2, $3) => { return $1[\"createProcessingInstruction\"]($2,\n$3); })"-        js_createProcessingInstruction ::-        Document -> JSString -> JSString -> IO ProcessingInstruction---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> -createProcessingInstruction ::-                            (MonadIO m, IsDocument self, ToJSString target,-                             ToJSString data') =>-                              self -> target -> data' -> m ProcessingInstruction-createProcessingInstruction self target data'-  = liftIO-      (js_createProcessingInstruction (toDocument self)-         (toJSString target)-         (toJSString data'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> -createProcessingInstruction_ ::-                             (MonadIO m, IsDocument self, ToJSString target,-                              ToJSString data') =>-                               self -> target -> data' -> m ()-createProcessingInstruction_ self target data'-  = liftIO-      (void-         (js_createProcessingInstruction (toDocument self)-            (toJSString target)-            (toJSString data')))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"importNode\"]($2, $3); })"-        js_importNode :: Document -> Node -> Bool -> IO Node---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> -importNode ::-           (MonadIO m, IsDocument self, IsNode node) =>-             self -> node -> Bool -> m Node-importNode self node deep-  = liftIO (js_importNode (toDocument self) (toNode node) deep)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> -importNode_ ::-            (MonadIO m, IsDocument self, IsNode node) =>-              self -> node -> Bool -> m ()-importNode_ self node deep-  = liftIO-      (void (js_importNode (toDocument self) (toNode node) deep))- -foreign import javascript safe "(($1, $2) => { return $1[\"adoptNode\"]($2); })" js_adoptNode-        :: Document -> Node -> IO Node---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> -adoptNode ::-          (MonadIO m, IsDocument self, IsNode node) => self -> node -> m Node-adoptNode self node-  = liftIO (js_adoptNode (toDocument self) (toNode node))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> -adoptNode_ ::-           (MonadIO m, IsDocument self, IsNode node) => self -> node -> m ()-adoptNode_ self node-  = liftIO (void (js_adoptNode (toDocument self) (toNode node)))- -foreign import javascript safe "(($1, $2) => { return $1[\"createAttribute\"]($2); })"-        js_createAttribute :: Document -> JSString -> IO Attr---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> -createAttribute ::-                (MonadIO m, IsDocument self, ToJSString localName) =>-                  self -> localName -> m Attr-createAttribute self localName-  = liftIO-      (js_createAttribute (toDocument self) (toJSString localName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> -createAttribute_ ::-                 (MonadIO m, IsDocument self, ToJSString localName) =>-                   self -> localName -> m ()-createAttribute_ self localName-  = liftIO-      (void-         (js_createAttribute (toDocument self) (toJSString localName)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createAttributeNS\"]($2, $3); })"-        js_createAttributeNS ::-        Document -> Optional JSString -> JSString -> IO Attr---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> -createAttributeNS ::-                  (MonadIO m, IsDocument self, ToJSString namespaceURI,-                   ToJSString qualifiedName) =>-                    self -> Maybe namespaceURI -> qualifiedName -> m Attr-createAttributeNS self namespaceURI qualifiedName-  = liftIO-      (js_createAttributeNS (toDocument self)-         (toOptionalJSString namespaceURI)-         (toJSString qualifiedName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> -createAttributeNS_ ::-                   (MonadIO m, IsDocument self, ToJSString namespaceURI,-                    ToJSString qualifiedName) =>-                     self -> Maybe namespaceURI -> qualifiedName -> m ()-createAttributeNS_ self namespaceURI qualifiedName-  = liftIO-      (void-         (js_createAttributeNS (toDocument self)-            (toOptionalJSString namespaceURI)-            (toJSString qualifiedName)))- -foreign import javascript safe "(($1, $2) => { return $1[\"createEvent\"]($2); })"-        js_createEvent :: Document -> JSString -> IO Event---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> -createEvent ::-            (MonadIO m, IsDocument self, ToJSString type') =>-              self -> type' -> m Event-createEvent self type'-  = liftIO (js_createEvent (toDocument self) (toJSString type'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> -createEvent_ ::-             (MonadIO m, IsDocument self, ToJSString type') =>-               self -> type' -> m ()-createEvent_ self type'-  = liftIO-      (void (js_createEvent (toDocument self) (toJSString type')))- -foreign import javascript unsafe "(($1) => { return $1[\"createRange\"](); })"-        js_createRange :: Document -> IO Range---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> -createRange :: (MonadIO m, IsDocument self) => self -> m Range-createRange self = liftIO (js_createRange (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> -createRange_ :: (MonadIO m, IsDocument self) => self -> m ()-createRange_ self-  = liftIO (void (js_createRange (toDocument self)))- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return $1[\"createNodeIterator\"]($2, $3,\n$4); })" js_createNodeIterator ::-        Document ->-          Node -> Optional Word -> Optional NodeFilter -> IO NodeIterator---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> -createNodeIterator ::-                   (MonadIO m, IsDocument self, IsNode root) =>-                     self -> root -> Maybe Word -> Maybe NodeFilter -> m NodeIterator-createNodeIterator self root whatToShow filter-  = liftIO-      (js_createNodeIterator (toDocument self) (toNode root)-         (maybeToOptional whatToShow)-         (maybeToOptional filter))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> -createNodeIterator_ ::-                    (MonadIO m, IsDocument self, IsNode root) =>-                      self -> root -> Maybe Word -> Maybe NodeFilter -> m ()-createNodeIterator_ self root whatToShow filter-  = liftIO-      (void-         (js_createNodeIterator (toDocument self) (toNode root)-            (maybeToOptional whatToShow)-            (maybeToOptional filter)))- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return $1[\"createTreeWalker\"]($2, $3,\n$4); })" js_createTreeWalker ::-        Document ->-          Node -> Optional Word -> Optional NodeFilter -> IO TreeWalker---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> -createTreeWalker ::-                 (MonadIO m, IsDocument self, IsNode root) =>-                   self -> root -> Maybe Word -> Maybe NodeFilter -> m TreeWalker-createTreeWalker self root whatToShow filter-  = liftIO-      (js_createTreeWalker (toDocument self) (toNode root)-         (maybeToOptional whatToShow)-         (maybeToOptional filter))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> -createTreeWalker_ ::-                  (MonadIO m, IsDocument self, IsNode root) =>-                    self -> root -> Maybe Word -> Maybe NodeFilter -> m ()-createTreeWalker_ self root whatToShow filter-  = liftIO-      (void-         (js_createTreeWalker (toDocument self) (toNode root)-            (maybeToOptional whatToShow)-            (maybeToOptional filter)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getElementsByName\"]($2); })"-        js_getElementsByName :: Document -> JSString -> IO NodeList---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> -getElementsByName ::-                  (MonadIO m, IsDocument self, ToJSString elementName) =>-                    self -> elementName -> m NodeList-getElementsByName self elementName-  = liftIO-      (js_getElementsByName (toDocument self) (toJSString elementName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> -getElementsByName_ ::-                   (MonadIO m, IsDocument self, ToJSString elementName) =>-                     self -> elementName -> m ()-getElementsByName_ self elementName-  = liftIO-      (void-         (js_getElementsByName (toDocument self) (toJSString elementName)))- -foreign import javascript unsafe "(($1) => { return ($1[\"hasFocus\"]() ? 1 : 0); })"-        js_hasFocus :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> -hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool-hasFocus self = liftIO (js_hasFocus (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> -hasFocus_ :: (MonadIO m, IsDocument self) => self -> m ()-hasFocus_ self = liftIO (void (js_hasFocus (toDocument self)))- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return ($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0); })" js_execCommand ::-        Document -> JSString -> Bool -> Optional JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> -execCommand ::-            (MonadIO m, IsDocument self, ToJSString commandId,-             ToJSString value) =>-              self -> commandId -> Bool -> Maybe value -> m Bool-execCommand self commandId showUI value-  = liftIO-      (js_execCommand (toDocument self) (toJSString commandId) showUI-         (toOptionalJSString value))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> -execCommand_ ::-             (MonadIO m, IsDocument self, ToJSString commandId,-              ToJSString value) =>-               self -> commandId -> Bool -> Maybe value -> m ()-execCommand_ self commandId showUI value-  = liftIO-      (void-         (js_execCommand (toDocument self) (toJSString commandId) showUI-            (toOptionalJSString value)))- -foreign import javascript unsafe-        "(($1, $2) => { return ($1[\"queryCommandEnabled\"]($2) ? 1 : 0); })" js_queryCommandEnabled-        :: Document -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> -queryCommandEnabled ::-                    (MonadIO m, IsDocument self, ToJSString commandId) =>-                      self -> commandId -> m Bool-queryCommandEnabled self commandId-  = liftIO-      (js_queryCommandEnabled (toDocument self) (toJSString commandId))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> -queryCommandEnabled_ ::-                     (MonadIO m, IsDocument self, ToJSString commandId) =>-                       self -> commandId -> m ()-queryCommandEnabled_ self commandId-  = liftIO-      (void-         (js_queryCommandEnabled (toDocument self) (toJSString commandId)))- -foreign import javascript unsafe-        "(($1, $2) => { return ($1[\"queryCommandIndeterm\"]($2) ? 1 : 0); })"-        js_queryCommandIndeterm :: Document -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> -queryCommandIndeterm ::-                     (MonadIO m, IsDocument self, ToJSString commandId) =>-                       self -> commandId -> m Bool-queryCommandIndeterm self commandId-  = liftIO-      (js_queryCommandIndeterm (toDocument self) (toJSString commandId))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> -queryCommandIndeterm_ ::-                      (MonadIO m, IsDocument self, ToJSString commandId) =>-                        self -> commandId -> m ()-queryCommandIndeterm_ self commandId-  = liftIO-      (void-         (js_queryCommandIndeterm (toDocument self) (toJSString commandId)))- -foreign import javascript unsafe-        "(($1, $2) => { return ($1[\"queryCommandState\"]($2) ? 1 : 0); })" js_queryCommandState ::-        Document -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> -queryCommandState ::-                  (MonadIO m, IsDocument self, ToJSString commandId) =>-                    self -> commandId -> m Bool-queryCommandState self commandId-  = liftIO-      (js_queryCommandState (toDocument self) (toJSString commandId))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> -queryCommandState_ ::-                   (MonadIO m, IsDocument self, ToJSString commandId) =>-                     self -> commandId -> m ()-queryCommandState_ self commandId-  = liftIO-      (void-         (js_queryCommandState (toDocument self) (toJSString commandId)))- -foreign import javascript unsafe-        "(($1, $2) => { return ($1[\"queryCommandSupported\"]($2) ? 1 : 0); })"-        js_queryCommandSupported :: Document -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> -queryCommandSupported ::-                      (MonadIO m, IsDocument self, ToJSString commandId) =>-                        self -> commandId -> m Bool-queryCommandSupported self commandId-  = liftIO-      (js_queryCommandSupported (toDocument self) (toJSString commandId))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> -queryCommandSupported_ ::-                       (MonadIO m, IsDocument self, ToJSString commandId) =>-                         self -> commandId -> m ()-queryCommandSupported_ self commandId-  = liftIO-      (void-         (js_queryCommandSupported (toDocument self)-            (toJSString commandId)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"queryCommandValue\"]($2); })"-        js_queryCommandValue :: Document -> JSString -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> -queryCommandValue ::-                  (MonadIO m, IsDocument self, ToJSString commandId,-                   FromJSString result) =>-                    self -> commandId -> m result-queryCommandValue self commandId-  = liftIO-      (fromJSString <$>-         (js_queryCommandValue (toDocument self) (toJSString commandId)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> -queryCommandValue_ ::-                   (MonadIO m, IsDocument self, ToJSString commandId) =>-                     self -> commandId -> m ()-queryCommandValue_ self commandId-  = liftIO-      (void-         (js_queryCommandValue (toDocument self) (toJSString commandId)))- -foreign import javascript unsafe "(($1) => { return $1[\"getSelection\"](); })"-        js_getSelection :: Document -> IO (Nullable Selection)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelection ::-             (MonadIO m, IsDocument self) => self -> m (Maybe Selection)-getSelection self-  = liftIO (nullableToMaybe <$> (js_getSelection (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelection_ :: (MonadIO m, IsDocument self) => self -> m ()-getSelection_ self-  = liftIO (void (js_getSelection (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelectionUnsafe ::-                   (MonadIO m, IsDocument self, HasCallStack) => self -> m Selection-getSelectionUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getSelection (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelectionUnchecked ::-                      (MonadIO m, IsDocument self) => self -> m Selection-getSelectionUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getSelection (toDocument self)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createExpression\"]($2, $3); })"-        js_createExpression ::-        Document ->-          Optional JSString -> Optional XPathNSResolver -> IO XPathExpression---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> -createExpression ::-                 (MonadIO m, IsDocument self, ToJSString expression) =>-                   self ->-                     Maybe expression -> Maybe XPathNSResolver -> m XPathExpression-createExpression self expression resolver-  = liftIO-      (js_createExpression (toDocument self)-         (toOptionalJSString expression)-         (maybeToOptional resolver))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> -createExpression_ ::-                  (MonadIO m, IsDocument self, ToJSString expression) =>-                    self -> Maybe expression -> Maybe XPathNSResolver -> m ()-createExpression_ self expression resolver-  = liftIO-      (void-         (js_createExpression (toDocument self)-            (toOptionalJSString expression)-            (maybeToOptional resolver)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"createNSResolver\"]($2); })"-        js_createNSResolver ::-        Document -> Optional Node -> IO XPathNSResolver---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> -createNSResolver ::-                 (MonadIO m, IsDocument self, IsNode nodeResolver) =>-                   self -> Maybe nodeResolver -> m XPathNSResolver-createNSResolver self nodeResolver-  = liftIO-      (js_createNSResolver (toDocument self)-         (maybeToOptional (fmap toNode nodeResolver)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> -createNSResolver_ ::-                  (MonadIO m, IsDocument self, IsNode nodeResolver) =>-                    self -> Maybe nodeResolver -> m ()-createNSResolver_ self nodeResolver-  = liftIO-      (void-         (js_createNSResolver (toDocument self)-            (maybeToOptional (fmap toNode nodeResolver))))- -foreign import javascript safe-        "(($1, $2, $3, $4, $5, $6) => { return $1[\"evaluate\"]($2, $3, $4, $5,\n$6); })" js_evaluate ::-        Document ->-          Optional JSString ->-            Optional Node ->-              Optional XPathNSResolver ->-                Optional Word -> Optional XPathResult -> IO XPathResult---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> -evaluate ::-         (MonadIO 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-  = liftIO-      (js_evaluate (toDocument self) (toOptionalJSString expression)-         (maybeToOptional (fmap toNode contextNode))-         (maybeToOptional resolver)-         (maybeToOptional type')-         (maybeToOptional inResult))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> -evaluate_ ::-          (MonadIO 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-  = liftIO-      (void-         (js_evaluate (toDocument self) (toOptionalJSString expression)-            (maybeToOptional (fmap toNode contextNode))-            (maybeToOptional resolver)-            (maybeToOptional type')-            (maybeToOptional inResult)))- -foreign import javascript unsafe "(($1) => { return $1[\"webkitExitFullscreen\"](); })"-        js_webkitExitFullscreen :: Document -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitExitFullscreen Mozilla Document.webkitExitFullscreen documentation> -webkitExitFullscreen ::-                     (MonadIO m, IsDocument self) => self -> m ()-webkitExitFullscreen self-  = liftIO (js_webkitExitFullscreen (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"webkitCancelFullScreen\"](); })"-        js_webkitCancelFullScreen :: Document -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCancelFullScreen Mozilla Document.webkitCancelFullScreen documentation> -webkitCancelFullScreen ::-                       (MonadIO m, IsDocument self) => self -> m ()-webkitCancelFullScreen self-  = liftIO (js_webkitCancelFullScreen (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"exitPointerLock\"](); })"-        js_exitPointerLock :: Document -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.exitPointerLock Mozilla Document.exitPointerLock documentation> -exitPointerLock :: (MonadIO m, IsDocument self) => self -> m ()-exitPointerLock self-  = liftIO (js_exitPointerLock (toDocument self))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"getOverrideStyle\"]($2, $3); })"-        js_getOverrideStyle ::-        Document ->-          Optional Element -> Optional JSString -> IO CSSStyleDeclaration---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> -getOverrideStyle ::-                 (MonadIO m, IsDocument self, IsElement element,-                  ToJSString pseudoElement) =>-                   self ->-                     Maybe element -> Maybe pseudoElement -> m CSSStyleDeclaration-getOverrideStyle self element pseudoElement-  = liftIO-      (js_getOverrideStyle (toDocument self)-         (maybeToOptional (fmap toElement element))-         (toOptionalJSString pseudoElement))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> -getOverrideStyle_ ::-                  (MonadIO m, IsDocument self, IsElement element,-                   ToJSString pseudoElement) =>-                    self -> Maybe element -> Maybe pseudoElement -> m ()-getOverrideStyle_ self element pseudoElement-  = liftIO-      (void-         (js_getOverrideStyle (toDocument self)-            (maybeToOptional (fmap toElement element))-            (toOptionalJSString pseudoElement)))- -foreign import javascript unsafe-        "(($1, $2, $3) => { return $1[\"caretRangeFromPoint\"]($2,\n$3); })" js_caretRangeFromPoint ::-        Document -> Optional Int -> Optional Int -> IO Range---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> -caretRangeFromPoint ::-                    (MonadIO m, IsDocument self) =>-                      self -> Maybe Int -> Maybe Int -> m Range-caretRangeFromPoint self x y-  = liftIO-      (js_caretRangeFromPoint (toDocument self) (maybeToOptional x)-         (maybeToOptional y))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> -caretRangeFromPoint_ ::-                     (MonadIO m, IsDocument self) =>-                       self -> Maybe Int -> Maybe Int -> m ()-caretRangeFromPoint_ self x y-  = liftIO-      (void-         (js_caretRangeFromPoint (toDocument self) (maybeToOptional x)-            (maybeToOptional y)))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5) => { return $1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5); })"-        js_getCSSCanvasContext ::-        Document ->-          JSString -> JSString -> Int -> Int -> IO RenderingContext---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> -getCSSCanvasContext ::-                    (MonadIO m, IsDocument self, ToJSString contextId,-                     ToJSString name) =>-                      self -> contextId -> name -> Int -> Int -> m RenderingContext-getCSSCanvasContext self contextId name width height-  = liftIO-      (js_getCSSCanvasContext (toDocument self) (toJSString contextId)-         (toJSString name)-         width-         height)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> -getCSSCanvasContext_ ::-                     (MonadIO m, IsDocument self, ToJSString contextId,-                      ToJSString name) =>-                       self -> contextId -> name -> Int -> Int -> m ()-getCSSCanvasContext_ self contextId name width height-  = liftIO-      (void-         (js_getCSSCanvasContext (toDocument self) (toJSString contextId)-            (toJSString name)-            width-            height))- -foreign import javascript unsafe "(($1) => { return $1[\"webkitGetNamedFlows\"](); })"-        js_webkitGetNamedFlows :: Document -> IO DOMNamedFlowCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> -webkitGetNamedFlows ::-                    (MonadIO m, IsDocument self) => self -> m DOMNamedFlowCollection-webkitGetNamedFlows self-  = liftIO (js_webkitGetNamedFlows (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> -webkitGetNamedFlows_ ::-                     (MonadIO m, IsDocument self) => self -> m ()-webkitGetNamedFlows_ self-  = liftIO (void (js_webkitGetNamedFlows (toDocument self)))- -foreign import javascript unsafe-        "(($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12) => { return $1[\"createTouch\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12); })"-        js_createTouch ::-        Document ->-          Optional Window ->-            Optional EventTarget ->-              Optional Int ->-                Optional Int ->-                  Optional Int ->-                    Optional Int ->-                      Optional Int ->-                        Optional Int ->-                          Optional Int -> Optional Float -> Optional Float -> IO Touch---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> -createTouch ::-            (MonadIO 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-  = liftIO-      (js_createTouch (toDocument self) (maybeToOptional window)-         (maybeToOptional (fmap toEventTarget target))-         (maybeToOptional identifier)-         (maybeToOptional pageX)-         (maybeToOptional pageY)-         (maybeToOptional screenX)-         (maybeToOptional screenY)-         (maybeToOptional webkitRadiusX)-         (maybeToOptional webkitRadiusY)-         (maybeToOptional webkitRotationAngle)-         (maybeToOptional webkitForce))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> -createTouch_ ::-             (MonadIO 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-  = liftIO-      (void-         (js_createTouch (toDocument self) (maybeToOptional window)-            (maybeToOptional (fmap toEventTarget target))-            (maybeToOptional identifier)-            (maybeToOptional pageX)-            (maybeToOptional pageY)-            (maybeToOptional screenX)-            (maybeToOptional screenY)-            (maybeToOptional webkitRadiusX)-            (maybeToOptional webkitRadiusY)-            (maybeToOptional webkitRotationAngle)-            (maybeToOptional webkitForce)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"createTouchList\"]($2); })"-        js_createTouchList :: Document -> JSVal -> IO TouchList---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> -createTouchList ::-                (MonadIO m, IsDocument self) => self -> [Touch] -> m TouchList-createTouchList self touches-  = liftIO-      (toJSVal touches >>=-         \ touches' -> js_createTouchList (toDocument self) touches')---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> -createTouchList_ ::-                 (MonadIO m, IsDocument self) => self -> [Touch] -> m ()-createTouchList_ self touches-  = liftIO-      (void-         (toJSVal touches >>=-            \ touches' -> js_createTouchList (toDocument self) touches'))- -foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })" js_getTimeline-        :: Document -> IO DocumentTimeline---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.timeline Mozilla Document.timeline documentation> -getTimeline ::-            (MonadIO m, IsDocument self) => self -> m DocumentTimeline-getTimeline self = liftIO (js_getTimeline (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"implementation\"]; })"-        js_getImplementation :: Document -> IO DOMImplementation---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> -getImplementation ::-                  (MonadIO m, IsDocument self) => self -> m DOMImplementation-getImplementation self-  = liftIO (js_getImplementation (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"URL\"]; })" js_getURL ::-        Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.URL Mozilla Document.URL documentation> -getURL ::-       (MonadIO m, IsDocument self, FromJSString result) =>-         self -> m result-getURL self-  = liftIO (fromJSString <$> (js_getURL (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"documentURI\"]; })"-        js_getDocumentURI :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> -getDocumentURI ::-               (MonadIO m, IsDocument self, FromJSString result) =>-                 self -> m result-getDocumentURI self-  = liftIO (fromJSString <$> (js_getDocumentURI (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"origin\"]; })" js_getOrigin ::-        Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.origin Mozilla Document.origin documentation> -getOrigin ::-          (MonadIO m, IsDocument self, FromJSString result) =>-            self -> m result-getOrigin self-  = liftIO (fromJSString <$> (js_getOrigin (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"compatMode\"]; })"-        js_getCompatMode :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.compatMode Mozilla Document.compatMode documentation> -getCompatMode ::-              (MonadIO m, IsDocument self, FromJSString result) =>-                self -> m result-getCompatMode self-  = liftIO (fromJSString <$> (js_getCompatMode (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"characterSet\"]; })"-        js_getCharacterSet :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> -getCharacterSet ::-                (MonadIO m, IsDocument self, FromJSString result) =>-                  self -> m result-getCharacterSet self-  = liftIO (fromJSString <$> (js_getCharacterSet (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"charset\"]; })" js_getCharset ::-        Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> -getCharset ::-           (MonadIO m, IsDocument self, FromJSString result) =>-             self -> m result-getCharset self-  = liftIO (fromJSString <$> (js_getCharset (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"inputEncoding\"]; })"-        js_getInputEncoding :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> -getInputEncoding ::-                 (MonadIO m, IsDocument self, FromJSString result) =>-                   self -> m result-getInputEncoding self-  = liftIO (fromJSString <$> (js_getInputEncoding (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"contentType\"]; })"-        js_getContentType :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.contentType Mozilla Document.contentType documentation> -getContentType ::-               (MonadIO m, IsDocument self, FromJSString result) =>-                 self -> m result-getContentType self-  = liftIO (fromJSString <$> (js_getContentType (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"doctype\"]; })" js_getDoctype ::-        Document -> IO (Nullable DocumentType)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> -getDoctype ::-           (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType)-getDoctype self-  = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> -getDoctypeUnsafe ::-                 (MonadIO m, IsDocument self, HasCallStack) =>-                   self -> m DocumentType-getDoctypeUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDoctype (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> -getDoctypeUnchecked ::-                    (MonadIO m, IsDocument self) => self -> m DocumentType-getDoctypeUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getDoctype (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"documentElement\"]; })"-        js_getDocumentElement :: Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> -getDocumentElement ::-                   (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getDocumentElement self-  = liftIO-      (nullableToMaybe <$> (js_getDocumentElement (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> -getDocumentElementUnsafe ::-                         (MonadIO m, IsDocument self, HasCallStack) => self -> m Element-getDocumentElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDocumentElement (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> -getDocumentElementUnchecked ::-                            (MonadIO m, IsDocument self) => self -> m Element-getDocumentElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getDocumentElement (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"location\"]; })" js_getLocation-        :: Document -> IO (Nullable Location)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -getLocation ::-            (MonadIO m, IsDocument self) => self -> m (Maybe Location)-getLocation self-  = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -getLocationUnsafe ::-                  (MonadIO m, IsDocument self, HasCallStack) => self -> m Location-getLocationUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getLocation (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -getLocationUnchecked ::-                     (MonadIO m, IsDocument self) => self -> m Location-getLocationUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getLocation (toDocument self)))- -foreign import javascript safe "(($1, $2) => { $1[\"domain\"] = $2; })" js_setDomain-        :: Document -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> -setDomain ::-          (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()-setDomain self val-  = liftIO (js_setDomain (toDocument self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"domain\"]; })" js_getDomain ::-        Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> -getDomain ::-          (MonadIO m, IsDocument self, FromJSString result) =>-            self -> m result-getDomain self-  = liftIO (fromJSString <$> (js_getDomain (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"referrer\"]; })" js_getReferrer-        :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.referrer Mozilla Document.referrer documentation> -getReferrer ::-            (MonadIO m, IsDocument self, FromJSString result) =>-              self -> m result-getReferrer self-  = liftIO (fromJSString <$> (js_getReferrer (toDocument self)))- -foreign import javascript safe "(($1, $2) => { $1[\"cookie\"] = $2; })" js_setCookie-        :: Document -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> -setCookie ::-          (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()-setCookie self val-  = liftIO (js_setCookie (toDocument self) (toJSString val))- -foreign import javascript safe "(($1) => { return $1[\"cookie\"]; })" js_getCookie ::-        Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> -getCookie ::-          (MonadIO m, IsDocument self, FromJSString result) =>-            self -> m result-getCookie self-  = liftIO (fromJSString <$> (js_getCookie (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"lastModified\"]; })"-        js_getLastModified :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.lastModified Mozilla Document.lastModified documentation> -getLastModified ::-                (MonadIO m, IsDocument self, FromJSString result) =>-                  self -> m result-getLastModified self-  = liftIO (fromJSString <$> (js_getLastModified (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"readyState\"]; })"-        js_getReadyState :: Document -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> -getReadyState ::-              (MonadIO m, IsDocument self) => self -> m DocumentReadyState-getReadyState self-  = liftIO-      ((js_getReadyState (toDocument self)) >>= fromJSValUnchecked)- -foreign import javascript unsafe "(($1, $2) => { $1[\"title\"] = $2; })" js_setTitle-        :: Document -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> -setTitle ::-         (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()-setTitle self val-  = liftIO (js_setTitle (toDocument self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"title\"]; })" js_getTitle ::-        Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> -getTitle ::-         (MonadIO m, IsDocument self, FromJSString result) =>-           self -> m result-getTitle self-  = liftIO (fromJSString <$> (js_getTitle (toDocument self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"dir\"] = $2; })" js_setDir ::-        Document -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.dir Mozilla Document.dir documentation> -setDir ::-       (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()-setDir self val-  = liftIO (js_setDir (toDocument self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"dir\"]; })" js_getDir ::-        Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.dir Mozilla Document.dir documentation> -getDir ::-       (MonadIO m, IsDocument self, FromJSString result) =>-         self -> m result-getDir self-  = liftIO (fromJSString <$> (js_getDir (toDocument self)))- -foreign import javascript safe "(($1, $2) => { $1[\"body\"] = $2; })" js_setBody ::-        Document -> Optional HTMLElement -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -setBody ::-        (MonadIO m, IsDocument self, IsHTMLElement val) =>-          self -> Maybe val -> m ()-setBody self val-  = liftIO-      (js_setBody (toDocument self)-         (maybeToOptional (fmap toHTMLElement val)))- -foreign import javascript unsafe "(($1) => { return $1[\"body\"]; })" js_getBody ::-        Document -> IO (Nullable HTMLElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -getBody ::-        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement)-getBody self-  = liftIO (nullableToMaybe <$> (js_getBody (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -getBodyUnsafe ::-              (MonadIO m, IsDocument self, HasCallStack) => self -> m HTMLElement-getBodyUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getBody (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -getBodyUnchecked ::-                 (MonadIO m, IsDocument self) => self -> m HTMLElement-getBodyUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getBody (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"head\"]; })" js_getHead ::-        Document -> IO (Nullable HTMLHeadElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHead ::-        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement)-getHead self-  = liftIO (nullableToMaybe <$> (js_getHead (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHeadUnsafe ::-              (MonadIO m, IsDocument self, HasCallStack) =>-                self -> m HTMLHeadElement-getHeadUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getHead (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHeadUnchecked ::-                 (MonadIO m, IsDocument self) => self -> m HTMLHeadElement-getHeadUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getHead (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"images\"]; })" js_getImages ::-        Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> -getImages ::-          (MonadIO m, IsDocument self) => self -> m HTMLCollection-getImages self = liftIO (js_getImages (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"embeds\"]; })" js_getEmbeds ::-        Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.embeds Mozilla Document.embeds documentation> -getEmbeds ::-          (MonadIO m, IsDocument self) => self -> m HTMLCollection-getEmbeds self = liftIO (js_getEmbeds (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"plugins\"]; })" js_getPlugins ::-        Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.plugins Mozilla Document.plugins documentation> -getPlugins ::-           (MonadIO m, IsDocument self) => self -> m HTMLCollection-getPlugins self = liftIO (js_getPlugins (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"links\"]; })" js_getLinks ::-        Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> -getLinks ::-         (MonadIO m, IsDocument self) => self -> m HTMLCollection-getLinks self = liftIO (js_getLinks (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"forms\"]; })" js_getForms ::-        Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> -getForms ::-         (MonadIO m, IsDocument self) => self -> m HTMLCollection-getForms self = liftIO (js_getForms (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"scripts\"]; })" js_getScripts ::-        Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scripts Mozilla Document.scripts documentation> -getScripts ::-           (MonadIO m, IsDocument self) => self -> m HTMLCollection-getScripts self = liftIO (js_getScripts (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"currentScript\"]; })"-        js_getCurrentScript :: Document -> IO (Nullable HTMLScriptElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> -getCurrentScript ::-                 (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement)-getCurrentScript self-  = liftIO-      (nullableToMaybe <$> (js_getCurrentScript (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> -getCurrentScriptUnsafe ::-                       (MonadIO m, IsDocument self, HasCallStack) =>-                         self -> m HTMLScriptElement-getCurrentScriptUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCurrentScript (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> -getCurrentScriptUnchecked ::-                          (MonadIO m, IsDocument self) => self -> m HTMLScriptElement-getCurrentScriptUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getCurrentScript (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"defaultView\"]; })"-        js_getDefaultView :: Document -> IO (Nullable Window)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> -getDefaultView ::-               (MonadIO m, IsDocument self) => self -> m (Maybe Window)-getDefaultView self-  = liftIO-      (nullableToMaybe <$> (js_getDefaultView (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> -getDefaultViewUnsafe ::-                     (MonadIO m, IsDocument self, HasCallStack) => self -> m Window-getDefaultViewUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getDefaultView (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> -getDefaultViewUnchecked ::-                        (MonadIO m, IsDocument self) => self -> m Window-getDefaultViewUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getDefaultView (toDocument self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"designMode\"] = $2; })"-        js_setDesignMode :: Document -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.designMode Mozilla Document.designMode documentation> -setDesignMode ::-              (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()-setDesignMode self val-  = liftIO (js_setDesignMode (toDocument self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"designMode\"]; })"-        js_getDesignMode :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.designMode Mozilla Document.designMode documentation> -getDesignMode ::-              (MonadIO m, IsDocument self, FromJSString result) =>-                self -> m result-getDesignMode self-  = liftIO (fromJSString <$> (js_getDesignMode (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onreadystatechange Mozilla Document.onreadystatechange documentation> -readyStateChange ::-                 (IsDocument self, IsEventTarget self) => EventName self Event-readyStateChange-  = unsafeEventNameAsync (toJSString "readystatechange")- -foreign import javascript unsafe "(($1) => { return $1[\"styleSheets\"]; })"-        js_getStyleSheets :: Document -> IO StyleSheetList---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> -getStyleSheets ::-               (MonadIO m, IsDocument self) => self -> m StyleSheetList-getStyleSheets self = liftIO (js_getStyleSheets (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"scrollingElement\"]; })"-        js_getScrollingElement :: Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scrollingElement Mozilla Document.scrollingElement documentation> -getScrollingElement ::-                    (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getScrollingElement self-  = liftIO-      (nullableToMaybe <$> (js_getScrollingElement (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scrollingElement Mozilla Document.scrollingElement documentation> -getScrollingElementUnsafe ::-                          (MonadIO m, IsDocument self, HasCallStack) => self -> m Element-getScrollingElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getScrollingElement (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scrollingElement Mozilla Document.scrollingElement documentation> -getScrollingElementUnchecked ::-                             (MonadIO m, IsDocument self) => self -> m Element-getScrollingElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getScrollingElement (toDocument self)))- -foreign import javascript unsafe-        "(($1) => { return ($1[\"webkitFullscreenEnabled\"] ? 1 : 0); })"-        js_getWebkitFullscreenEnabled :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenEnabled Mozilla Document.webkitFullscreenEnabled documentation> -getWebkitFullscreenEnabled ::-                           (MonadIO m, IsDocument self) => self -> m Bool-getWebkitFullscreenEnabled self-  = liftIO (js_getWebkitFullscreenEnabled (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"webkitFullscreenElement\"]; })"-        js_getWebkitFullscreenElement :: Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> -getWebkitFullscreenElement ::-                           (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getWebkitFullscreenElement self-  = liftIO-      (nullableToMaybe <$>-         (js_getWebkitFullscreenElement (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> -getWebkitFullscreenElementUnsafe ::-                                 (MonadIO m, IsDocument self, HasCallStack) => self -> m Element-getWebkitFullscreenElementUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getWebkitFullscreenElement (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> -getWebkitFullscreenElementUnchecked ::-                                    (MonadIO m, IsDocument self) => self -> m Element-getWebkitFullscreenElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getWebkitFullscreenElement (toDocument self)))- -foreign import javascript unsafe-        "(($1) => { return ($1[\"webkitIsFullScreen\"] ? 1 : 0); })" js_getWebkitIsFullScreen ::-        Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitIsFullScreen Mozilla Document.webkitIsFullScreen documentation> -getWebkitIsFullScreen ::-                      (MonadIO m, IsDocument self) => self -> m Bool-getWebkitIsFullScreen self-  = liftIO (js_getWebkitIsFullScreen (toDocument self))- -foreign import javascript unsafe-        "(($1) => { return ($1[\"webkitFullScreenKeyboardInputAllowed\"] ? 1 : 0); })"-        js_getWebkitFullScreenKeyboardInputAllowed :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullScreenKeyboardInputAllowed Mozilla Document.webkitFullScreenKeyboardInputAllowed documentation> -getWebkitFullScreenKeyboardInputAllowed ::-                                        (MonadIO m, IsDocument self) => self -> m Bool-getWebkitFullScreenKeyboardInputAllowed self-  = liftIO-      (js_getWebkitFullScreenKeyboardInputAllowed (toDocument self))- -foreign import javascript unsafe-        "(($1) => { return $1[\"webkitCurrentFullScreenElement\"]; })"-        js_getWebkitCurrentFullScreenElement :: Document -> IO Element---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> -getWebkitCurrentFullScreenElement ::-                                  (MonadIO m, IsDocument self) => self -> m Element-getWebkitCurrentFullScreenElement self-  = liftIO (js_getWebkitCurrentFullScreenElement (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitfullscreenchange Mozilla Document.onwebkitfullscreenchange documentation> -webKitFullscreenChange ::-                       (IsDocument self, IsEventTarget self) => EventName self Event-webKitFullscreenChange-  = unsafeEventName (toJSString "webkitfullscreenchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitfullscreenerror Mozilla Document.onwebkitfullscreenerror documentation> -webKitFullscreenError ::-                      (IsDocument self, IsEventTarget self) => EventName self Event-webKitFullscreenError-  = unsafeEventName (toJSString "webkitfullscreenerror")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpointerlockchange Mozilla Document.onpointerlockchange documentation> -pointerlockchange ::-                  (IsDocument self, IsEventTarget self) => EventName self Event-pointerlockchange-  = unsafeEventName (toJSString "pointerlockchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpointerlockerror Mozilla Document.onpointerlockerror documentation> -pointerlockerror ::-                 (IsDocument self, IsEventTarget self) => EventName self Event-pointerlockerror = unsafeEventName (toJSString "pointerlockerror")- -foreign import javascript unsafe "(($1) => { return $1[\"fonts\"]; })" js_getFonts ::-        Document -> IO FontFaceSet---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> -getFonts :: (MonadIO m, IsDocument self) => self -> m FontFaceSet-getFonts self = liftIO (js_getFonts (toDocument self))- -foreign import javascript unsafe "(($1) => { return ($1[\"hidden\"] ? 1 : 0); })"-        js_getHidden :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hidden Mozilla Document.hidden documentation> -getHidden :: (MonadIO m, IsDocument self) => self -> m Bool-getHidden self = liftIO (js_getHidden (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"visibilityState\"]; })"-        js_getVisibilityState :: Document -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.visibilityState Mozilla Document.visibilityState documentation> -getVisibilityState ::-                   (MonadIO m, IsDocument self) => self -> m VisibilityState-getVisibilityState self-  = liftIO-      ((js_getVisibilityState (toDocument self)) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onvisibilitychange Mozilla Document.onvisibilitychange documentation> -visibilitychange ::-                 (IsDocument self, IsEventTarget self) => EventName self Event-visibilitychange = unsafeEventName (toJSString "visibilitychange")- -foreign import javascript unsafe "(($1) => { return $1[\"applets\"]; })" js_getApplets ::-        Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> -getApplets ::-           (MonadIO m, IsDocument self) => self -> m HTMLCollection-getApplets self = liftIO (js_getApplets (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"anchors\"]; })" js_getAnchors ::-        Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> -getAnchors ::-           (MonadIO m, IsDocument self) => self -> m HTMLCollection-getAnchors self = liftIO (js_getAnchors (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"preferredStylesheetSet\"]; })"-        js_getPreferredStylesheetSet :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> -getPreferredStylesheetSet ::-                          (MonadIO m, IsDocument self, FromJSString result) =>-                            self -> m (Maybe result)-getPreferredStylesheetSet self-  = liftIO-      (fromMaybeJSString <$>-         (js_getPreferredStylesheetSet (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> -getPreferredStylesheetSetUnsafe ::-                                (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                                  self -> m result-getPreferredStylesheetSetUnsafe self-  = liftIO-      ((fromMaybeJSString <$>-          (js_getPreferredStylesheetSet (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> -getPreferredStylesheetSetUnchecked ::-                                   (MonadIO m, IsDocument self, FromJSString result) =>-                                     self -> m result-getPreferredStylesheetSetUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getPreferredStylesheetSet (toDocument self)))- -foreign import javascript unsafe-        "(($1, $2) => { $1[\"selectedStylesheetSet\"] = $2; })" js_setSelectedStylesheetSet-        :: Document -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -setSelectedStylesheetSet ::-                         (MonadIO m, IsDocument self, ToJSString val) =>-                           self -> Maybe val -> m ()-setSelectedStylesheetSet self val-  = liftIO-      (js_setSelectedStylesheetSet (toDocument self)-         (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"selectedStylesheetSet\"]; })"-        js_getSelectedStylesheetSet :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -getSelectedStylesheetSet ::-                         (MonadIO m, IsDocument self, FromJSString result) =>-                           self -> m (Maybe result)-getSelectedStylesheetSet self-  = liftIO-      (fromMaybeJSString <$>-         (js_getSelectedStylesheetSet (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -getSelectedStylesheetSetUnsafe ::-                               (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                                 self -> m result-getSelectedStylesheetSetUnsafe self-  = liftIO-      ((fromMaybeJSString <$>-          (js_getSelectedStylesheetSet (toDocument self)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -getSelectedStylesheetSetUnchecked ::-                                  (MonadIO m, IsDocument self, FromJSString result) =>-                                    self -> m result-getSelectedStylesheetSetUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getSelectedStylesheetSet (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"xmlEncoding\"]; })"-        js_getXmlEncoding :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> -getXmlEncoding ::-               (MonadIO m, IsDocument self, FromJSString result) =>-                 self -> m (Maybe result)-getXmlEncoding self-  = liftIO-      (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> -getXmlEncodingUnsafe ::-                     (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                       self -> m result-getXmlEncodingUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getXmlEncoding (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> -getXmlEncodingUnchecked ::-                        (MonadIO m, IsDocument self, FromJSString result) =>-                          self -> m result-getXmlEncodingUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getXmlEncoding (toDocument self)))- -foreign import javascript safe "(($1, $2) => { $1[\"xmlVersion\"] = $2; })"-        js_setXmlVersion :: Document -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -setXmlVersion ::-              (MonadIO m, IsDocument self, ToJSString val) =>-                self -> Maybe val -> m ()-setXmlVersion self val-  = liftIO-      (js_setXmlVersion (toDocument self) (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"xmlVersion\"]; })"-        js_getXmlVersion :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -getXmlVersion ::-              (MonadIO m, IsDocument self, FromJSString result) =>-                self -> m (Maybe result)-getXmlVersion self-  = liftIO-      (fromMaybeJSString <$> (js_getXmlVersion (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -getXmlVersionUnsafe ::-                    (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>-                      self -> m result-getXmlVersionUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getXmlVersion (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -getXmlVersionUnchecked ::-                       (MonadIO m, IsDocument self, FromJSString result) =>-                         self -> m result-getXmlVersionUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getXmlVersion (toDocument self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"xmlStandalone\"] = $2; })"-        js_setXmlStandalone :: Document -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> -setXmlStandalone ::-                 (MonadIO m, IsDocument self) => self -> Bool -> m ()-setXmlStandalone self val-  = liftIO (js_setXmlStandalone (toDocument self) val)- -foreign import javascript unsafe "(($1) => { return ($1[\"xmlStandalone\"] ? 1 : 0); })"-        js_getXmlStandalone :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> -getXmlStandalone :: (MonadIO m, IsDocument self) => self -> m Bool-getXmlStandalone self-  = liftIO (js_getXmlStandalone (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselectstart Mozilla Document.onselectstart documentation> -selectStart ::-            (IsDocument self, IsEventTarget self) => EventName self Event-selectStart = unsafeEventName (toJSString "selectstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselectionchange Mozilla Document.onselectionchange documentation> -selectionchange ::-                (IsDocument self, IsEventTarget self) =>-                  EventName self onselectionchange-selectionchange = unsafeEventName (toJSString "selectionchange")- -foreign import javascript unsafe "(($1) => { return $1[\"rootElement\"]; })"-        js_getRootElement :: Document -> IO (Nullable SVGSVGElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.rootElement Mozilla Document.rootElement documentation> -getRootElement ::-               (MonadIO m, IsDocument self) => self -> m (Maybe SVGSVGElement)-getRootElement self-  = liftIO-      (nullableToMaybe <$> (js_getRootElement (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.rootElement Mozilla Document.rootElement documentation> -getRootElementUnsafe ::-                     (MonadIO m, IsDocument self, HasCallStack) =>-                       self -> m SVGSVGElement-getRootElementUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getRootElement (toDocument self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.rootElement Mozilla Document.rootElement documentation> -getRootElementUnchecked ::-                        (MonadIO m, IsDocument self) => self -> m SVGSVGElement-getRootElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getRootElement (toDocument self)))+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.Document+       (js_newDocument, js_adoptNode, js_captureEvents, js_caretPositionFromPoint, js_clear, js_close, js_createAttribute, js_createAttributeNS, js_createCDATASection, js_createComment, js_createDocumentFragment, js_createElement, js_createElement', js_createElementNS, js_createElementNS', js_createEvent, js_createNodeIterator, js_createProcessingInstruction, js_createRange, js_createTextNode, js_createTreeWalker, js_elementFromPoint, js_elementsFromPoint, js_execCommand, js_exitFullscreen, js_exitPictureInPicture, js_exitPointerLock, js_getElementsByClassName, js_getElementsByName, js_getElementsByTagName, js_getElementsByTagNameNS, js_getSelection, js_hasFocus, js_hasStorageAccess, js_importNode, js_open, js_openUrlNameFeatures, js_queryCommandEnabled, js_queryCommandIndeterm, js_queryCommandState, js_queryCommandSupported, js_queryCommandValue, js_releaseEvents, js_requestStorageAccess, js_startViewTransition, js_write, js_writeln, js_parseHTML, js_parseHTMLUnsafe, js_getImplementation, js_getURL, js_getDocumentURI, js_getCompatMode, js_getCharacterSet, js_getCharset, js_getInputEncoding, js_getContentType, js_getDoctype, js_getDocumentElement, js_getRootElement, js_getActiveViewTransition, js_getScrollingElement, js_getFullscreenEnabled, js_getFullscreen, js_getLocation, js_setDomain, js_getDomain, js_getReferrer, js_setCookie, js_getCookie, js_getLastModified, js_getReadyState, js_setTitle, js_getTitle, js_setDir, js_getDir, js_setBody, js_getBody, js_getHead, js_getImages, js_getEmbeds, js_getPlugins, js_getLinks, js_getForms, js_getScripts, js_getCurrentScript, js_getDefaultView, js_setDesignMode, js_getDesignMode, js_getHidden, js_getVisibilityState, js_setFgColor, js_getFgColor, js_setLinkColor, js_getLinkColor, js_setVlinkColor, js_getVlinkColor, js_setAlinkColor, js_getAlinkColor, js_setBgColor, js_getBgColor, js_getAnchors, js_getApplets, js_getAll, js_getPictureInPictureEnabled, js_getFragmentDirective, js_getTimeline, newDocument, adoptNode, adoptNode_, captureEvents, caretPositionFromPoint, caretPositionFromPoint_, caretPositionFromPointUnsafe, caretPositionFromPointUnchecked, clear, close, createAttribute, createAttribute_, createAttributeNS, createAttributeNS_, createCDATASection, createCDATASection_, createComment, createComment_, createDocumentFragment, createDocumentFragment_, createElement, createElement_, createElement', createElement'_, createElementNS, createElementNS_, createElementNS', createElementNS'_, createEvent, createEvent_, createNodeIterator, createNodeIterator_, createProcessingInstruction, createProcessingInstruction_, createRange, createRange_, createTextNode, createTextNode_, createTreeWalker, createTreeWalker_, elementFromPoint, elementFromPoint_, elementFromPointUnsafe, elementFromPointUnchecked, elementsFromPoint, elementsFromPoint_, execCommand, execCommand_, exitFullscreen, exitPictureInPicture, exitPointerLock, getElementsByClassName, getElementsByClassName_, getElementsByName, getElementsByName_, getElementsByTagName, getElementsByTagName_, getElementsByTagNameNS, getElementsByTagNameNS_, getSelection, getSelection_, getSelectionUnsafe, getSelectionUnchecked, hasFocus, hasFocus_, hasStorageAccess, hasStorageAccess_, importNode, importNode_, open, open_, openUrlNameFeatures, openUrlNameFeatures_, openUrlNameFeaturesUnsafe, openUrlNameFeaturesUnchecked, queryCommandEnabled, queryCommandEnabled_, queryCommandIndeterm, queryCommandIndeterm_, queryCommandState, queryCommandState_, queryCommandSupported, queryCommandSupported_, queryCommandValue, queryCommandValue_, releaseEvents, requestStorageAccess, startViewTransition, startViewTransition_, write, writeln, parseHTML, parseHTML_, parseHTMLUnsafe, parseHTMLUnsafe_, getImplementation, getURL, getDocumentURI, getCompatMode, getCharacterSet, getCharset, getInputEncoding, getContentType, getDoctype, getDoctypeUnsafe, getDoctypeUnchecked, getDocumentElement, getDocumentElementUnsafe, getDocumentElementUnchecked, getRootElement, getRootElementUnsafe, getRootElementUnchecked, getActiveViewTransition, getActiveViewTransitionUnsafe, getActiveViewTransitionUnchecked, getScrollingElement, getScrollingElementUnsafe, getScrollingElementUnchecked, getFullscreenEnabled, getFullscreen, 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, getHidden, getVisibilityState, setFgColor, getFgColor, setLinkColor, getLinkColor, setVlinkColor, getVlinkColor, setAlinkColor, getAlinkColor, setBgColor, getBgColor, getAnchors, getApplets, getAll, getPictureInPictureEnabled, getFragmentDirective, getTimeline, fullscreenchange, fullscreenerror, readyStateChange, visibilitychange, pointerlockchange, pointerlockerror, autofill, domContentLoaded, unload, Document(..), gTypeDocument, IsDocument, toDocument)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return new globalThis[\"Document\"](); })"+        js_newDocument :: IO Document+-- | <https://developer.mozilla.org/docs/Web/API/Document/Document MDN Document. documentation>+newDocument :: (MonadDOM m) => m Document+newDocument = liftDOM ((js_newDocument))++foreign import javascript safe "(($1, $2) => { return $1[\"adoptNode\"]($2); })"+        js_adoptNode :: Document -> Node -> IO Node+-- | <https://developer.mozilla.org/docs/Web/API/Document/adoptNode MDN Document.adoptNode documentation>+adoptNode :: (MonadDOM m, IsDocument self, IsNode node) => self -> node -> m Node+adoptNode self node = liftDOM ((js_adoptNode ((Types.toDocument self)) (Types.toNode node)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/adoptNode MDN Document.adoptNode documentation>+adoptNode_ :: (MonadDOM m, IsDocument self, IsNode node) => self -> node -> m ()+adoptNode_ self node = liftDOM (void ((js_adoptNode ((Types.toDocument self)) (Types.toNode node))))++foreign import javascript safe "(($1) => { return $1[\"captureEvents\"](); })"+        js_captureEvents :: Document -> IO ()+-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-document-captureevents Document.captureEvents specification>+captureEvents :: (MonadDOM m, IsDocument self) => self -> m ()+captureEvents self = liftDOM (void ((js_captureEvents ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"caretPositionFromPoint\"]($2, $3, $4); })"+        js_caretPositionFromPoint :: Document -> Double -> Double -> JSVal -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/caretPositionFromPoint MDN Document.caretPositionFromPoint documentation>+caretPositionFromPoint :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> Maybe CaretPositionFromPointOptions -> m (Maybe CaretPosition)+caretPositionFromPoint self x y options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_caretPositionFromPoint ((Types.toDocument self)) (x) (y) a4') >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/caretPositionFromPoint MDN Document.caretPositionFromPoint documentation>+caretPositionFromPoint_ :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> Maybe CaretPositionFromPointOptions -> m ()+caretPositionFromPoint_ self x y options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_caretPositionFromPoint ((Types.toDocument self)) (x) (y) a4')))++-- | <https://developer.mozilla.org/docs/Web/API/Document/caretPositionFromPoint MDN Document.caretPositionFromPoint documentation>+caretPositionFromPointUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> Double -> Double -> Maybe CaretPositionFromPointOptions -> m CaretPosition+caretPositionFromPointUnsafe self x y options = liftDOM (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_caretPositionFromPoint ((Types.toDocument self)) (x) (y) a4') >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/caretPositionFromPoint MDN Document.caretPositionFromPoint documentation>+caretPositionFromPointUnchecked :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> Maybe CaretPositionFromPointOptions -> m CaretPosition+caretPositionFromPointUnchecked self x y options = liftDOM ((pFromJSVal <$> ((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_caretPositionFromPoint ((Types.toDocument self)) (x) (y) a4')))++foreign import javascript safe "(($1) => { return $1[\"clear\"](); })"+        js_clear :: Document -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/clear MDN Document.clear documentation>+clear :: (MonadDOM m, IsDocument self) => self -> m ()+clear self = liftDOM (void ((js_clear ((Types.toDocument self)))))++foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+        js_close :: Document -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/close MDN Document.close documentation>+close :: (MonadDOM m, IsDocument self) => self -> m ()+close self = liftDOM (void ((js_close ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"createAttribute\"]($2); })"+        js_createAttribute :: Document -> JSString -> IO Attr+-- | <https://developer.mozilla.org/docs/Web/API/Document/createAttribute MDN Document.createAttribute documentation>+createAttribute :: (MonadDOM m, IsDocument self, ToJSString localName) => self -> localName -> m Attr+createAttribute self localName = liftDOM ((js_createAttribute ((Types.toDocument self)) (toJSString localName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createAttribute MDN Document.createAttribute documentation>+createAttribute_ :: (MonadDOM m, IsDocument self, ToJSString localName) => self -> localName -> m ()+createAttribute_ self localName = liftDOM (void ((js_createAttribute ((Types.toDocument self)) (toJSString localName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"createAttributeNS\"]($2, $3); })"+        js_createAttributeNS :: Document -> (Nullable JSString) -> JSString -> IO Attr+-- | <https://developer.mozilla.org/docs/Web/API/Document/createAttributeNS MDN Document.createAttributeNS documentation>+createAttributeNS :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName) => self -> Maybe namespace -> qualifiedName -> m Attr+createAttributeNS self namespace qualifiedName = liftDOM ((js_createAttributeNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createAttributeNS MDN Document.createAttributeNS documentation>+createAttributeNS_ :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName) => self -> Maybe namespace -> qualifiedName -> m ()+createAttributeNS_ self namespace qualifiedName = liftDOM (void ((js_createAttributeNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2) => { return $1[\"createCDATASection\"]($2); })"+        js_createCDATASection :: Document -> JSString -> IO CDATASection+-- | <https://developer.mozilla.org/docs/Web/API/Document/createCDATASection MDN Document.createCDATASection documentation>+createCDATASection :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m CDATASection+createCDATASection self data' = liftDOM ((js_createCDATASection ((Types.toDocument self)) (toJSString data')))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createCDATASection MDN Document.createCDATASection documentation>+createCDATASection_ :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m ()+createCDATASection_ self data' = liftDOM (void ((js_createCDATASection ((Types.toDocument self)) (toJSString data'))))++foreign import javascript safe "(($1, $2) => { return $1[\"createComment\"]($2); })"+        js_createComment :: Document -> JSString -> IO Comment+-- | <https://developer.mozilla.org/docs/Web/API/Document/createComment MDN Document.createComment documentation>+createComment :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m Comment+createComment self data' = liftDOM ((js_createComment ((Types.toDocument self)) (toJSString data')))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createComment MDN Document.createComment documentation>+createComment_ :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m ()+createComment_ self data' = liftDOM (void ((js_createComment ((Types.toDocument self)) (toJSString data'))))++foreign import javascript safe "(($1) => { return $1[\"createDocumentFragment\"](); })"+        js_createDocumentFragment :: Document -> IO DocumentFragment+-- | <https://developer.mozilla.org/docs/Web/API/Document/createDocumentFragment MDN Document.createDocumentFragment documentation>+createDocumentFragment :: (MonadDOM m, IsDocument self) => self -> m DocumentFragment+createDocumentFragment self = liftDOM ((js_createDocumentFragment ((Types.toDocument self))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createDocumentFragment MDN Document.createDocumentFragment documentation>+createDocumentFragment_ :: (MonadDOM m, IsDocument self) => self -> m ()+createDocumentFragment_ self = liftDOM (void ((js_createDocumentFragment ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"createElement\"]($2); })"+        js_createElement :: Document -> JSString -> IO Element+-- | <https://developer.mozilla.org/docs/Web/API/Document/createElement MDN Document.createElement documentation>+createElement :: (MonadDOM m, IsDocument self, ToJSString localName) => self -> localName -> m Element+createElement self localName = liftDOM ((js_createElement ((Types.toDocument self)) (toJSString localName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createElement MDN Document.createElement documentation>+createElement_ :: (MonadDOM m, IsDocument self, ToJSString localName) => self -> localName -> m ()+createElement_ self localName = liftDOM (void ((js_createElement ((Types.toDocument self)) (toJSString localName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"createElement\"]($2, $3); })"+        js_createElement' :: Document -> JSString -> JSVal -> IO Element+-- | <https://developer.mozilla.org/docs/Web/API/Document/createElement MDN Document.createElement documentation>+createElement' :: (MonadDOM m, IsDocument self, ToJSString localName, IsStringOrElementCreationOptions options) => self -> localName -> Maybe options -> m Element+createElement' self localName options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_createElement' ((Types.toDocument self)) (toJSString localName) a3'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createElement MDN Document.createElement documentation>+createElement'_ :: (MonadDOM m, IsDocument self, ToJSString localName, IsStringOrElementCreationOptions options) => self -> localName -> Maybe options -> m ()+createElement'_ self localName options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_createElement' ((Types.toDocument self)) (toJSString localName) a3')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"createElementNS\"]($2, $3); })"+        js_createElementNS :: Document -> (Nullable JSString) -> JSString -> IO Element+-- | <https://developer.mozilla.org/docs/Web/API/Document/createElementNS MDN Document.createElementNS documentation>+createElementNS :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName) => self -> Maybe namespace -> qualifiedName -> m Element+createElementNS self namespace qualifiedName = liftDOM ((js_createElementNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createElementNS MDN Document.createElementNS documentation>+createElementNS_ :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName) => self -> Maybe namespace -> qualifiedName -> m ()+createElementNS_ self namespace qualifiedName = liftDOM (void ((js_createElementNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createElementNS\"]($2, $3, $4); })"+        js_createElementNS' :: Document -> (Nullable JSString) -> JSString -> JSVal -> IO Element+-- | <https://developer.mozilla.org/docs/Web/API/Document/createElementNS MDN Document.createElementNS documentation>+createElementNS' :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName, IsStringOrElementCreationOptions options) => self -> Maybe namespace -> qualifiedName -> Maybe options -> m Element+createElementNS' self namespace qualifiedName options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_createElementNS' ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName) a4'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createElementNS MDN Document.createElementNS documentation>+createElementNS'_ :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString qualifiedName, IsStringOrElementCreationOptions options) => self -> Maybe namespace -> qualifiedName -> Maybe options -> m ()+createElementNS'_ self namespace qualifiedName options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_createElementNS' ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString qualifiedName) a4')))++foreign import javascript safe "(($1, $2) => { return $1[\"createEvent\"]($2); })"+        js_createEvent :: Document -> JSString -> IO Event+-- | <https://developer.mozilla.org/docs/Web/API/Document/createEvent MDN Document.createEvent documentation>+createEvent :: (MonadDOM m, IsDocument self, ToJSString interface) => self -> interface -> m Event+createEvent self interface = liftDOM ((js_createEvent ((Types.toDocument self)) (toJSString interface)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createEvent MDN Document.createEvent documentation>+createEvent_ :: (MonadDOM m, IsDocument self, ToJSString interface) => self -> interface -> m ()+createEvent_ self interface = liftDOM (void ((js_createEvent ((Types.toDocument self)) (toJSString interface))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createNodeIterator\"]($2, $3, $4); })"+        js_createNodeIterator :: Document -> Node -> JSVal -> JSVal -> IO NodeIterator+-- | <https://developer.mozilla.org/docs/Web/API/Document/createNodeIterator MDN Document.createNodeIterator documentation>+createNodeIterator :: (MonadDOM m, IsDocument self, IsNode root) => self -> root -> Maybe Word -> Maybe NodeFilter -> m NodeIterator+createNodeIterator self root whatToShow filter = liftDOM (((P.maybe (P.return jsUndefined) toJSVal whatToShow) >>= \a3' -> (toJSVal filter) >>= \a4' -> js_createNodeIterator ((Types.toDocument self)) (Types.toNode root) a3' a4'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createNodeIterator MDN Document.createNodeIterator documentation>+createNodeIterator_ :: (MonadDOM m, IsDocument self, IsNode root) => self -> root -> Maybe Word -> Maybe NodeFilter -> m ()+createNodeIterator_ self root whatToShow filter = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal whatToShow) >>= \a3' -> (toJSVal filter) >>= \a4' -> js_createNodeIterator ((Types.toDocument self)) (Types.toNode root) a3' a4')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"createProcessingInstruction\"]($2, $3); })"+        js_createProcessingInstruction :: Document -> JSString -> JSString -> IO ProcessingInstruction+-- | <https://developer.mozilla.org/docs/Web/API/Document/createProcessingInstruction MDN Document.createProcessingInstruction documentation>+createProcessingInstruction :: (MonadDOM m, IsDocument self, ToJSString target, ToJSString data') => self -> target -> data' -> m ProcessingInstruction+createProcessingInstruction self target data' = liftDOM ((js_createProcessingInstruction ((Types.toDocument self)) (toJSString target) (toJSString data')))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createProcessingInstruction MDN Document.createProcessingInstruction documentation>+createProcessingInstruction_ :: (MonadDOM m, IsDocument self, ToJSString target, ToJSString data') => self -> target -> data' -> m ()+createProcessingInstruction_ self target data' = liftDOM (void ((js_createProcessingInstruction ((Types.toDocument self)) (toJSString target) (toJSString data'))))++foreign import javascript safe "(($1) => { return $1[\"createRange\"](); })"+        js_createRange :: Document -> IO Range+-- | <https://developer.mozilla.org/docs/Web/API/Document/createRange MDN Document.createRange documentation>+createRange :: (MonadDOM m, IsDocument self) => self -> m Range+createRange self = liftDOM ((js_createRange ((Types.toDocument self))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createRange MDN Document.createRange documentation>+createRange_ :: (MonadDOM m, IsDocument self) => self -> m ()+createRange_ self = liftDOM (void ((js_createRange ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"createTextNode\"]($2); })"+        js_createTextNode :: Document -> JSString -> IO Text+-- | <https://developer.mozilla.org/docs/Web/API/Document/createTextNode MDN Document.createTextNode documentation>+createTextNode :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m Text+createTextNode self data' = liftDOM ((js_createTextNode ((Types.toDocument self)) (toJSString data')))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createTextNode MDN Document.createTextNode documentation>+createTextNode_ :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m ()+createTextNode_ self data' = liftDOM (void ((js_createTextNode ((Types.toDocument self)) (toJSString data'))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createTreeWalker\"]($2, $3, $4); })"+        js_createTreeWalker :: Document -> Node -> JSVal -> JSVal -> IO TreeWalker+-- | <https://developer.mozilla.org/docs/Web/API/Document/createTreeWalker MDN Document.createTreeWalker documentation>+createTreeWalker :: (MonadDOM m, IsDocument self, IsNode root) => self -> root -> Maybe Word -> Maybe NodeFilter -> m TreeWalker+createTreeWalker self root whatToShow filter = liftDOM (((P.maybe (P.return jsUndefined) toJSVal whatToShow) >>= \a3' -> (toJSVal filter) >>= \a4' -> js_createTreeWalker ((Types.toDocument self)) (Types.toNode root) a3' a4'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createTreeWalker MDN Document.createTreeWalker documentation>+createTreeWalker_ :: (MonadDOM m, IsDocument self, IsNode root) => self -> root -> Maybe Word -> Maybe NodeFilter -> m ()+createTreeWalker_ self root whatToShow filter = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal whatToShow) >>= \a3' -> (toJSVal filter) >>= \a4' -> js_createTreeWalker ((Types.toDocument self)) (Types.toNode root) a3' a4')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"elementFromPoint\"]($2, $3); })"+        js_elementFromPoint :: Document -> Double -> Double -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/elementFromPoint MDN Document.elementFromPoint documentation>+elementFromPoint :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m (Maybe Element)+elementFromPoint self x y = liftDOM (((js_elementFromPoint ((Types.toDocument self)) (x) (y)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/elementFromPoint MDN Document.elementFromPoint documentation>+elementFromPoint_ :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m ()+elementFromPoint_ self x y = liftDOM (void ((js_elementFromPoint ((Types.toDocument self)) (x) (y))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/elementFromPoint MDN Document.elementFromPoint documentation>+elementFromPointUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> Double -> Double -> m Element+elementFromPointUnsafe self x y = liftDOM ((((js_elementFromPoint ((Types.toDocument self)) (x) (y)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/elementFromPoint MDN Document.elementFromPoint documentation>+elementFromPointUnchecked :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m Element+elementFromPointUnchecked self x y = liftDOM ((pFromJSVal <$> (js_elementFromPoint ((Types.toDocument self)) (x) (y))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"elementsFromPoint\"]($2, $3); })"+        js_elementsFromPoint :: Document -> Double -> Double -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/elementsFromPoint MDN Document.elementsFromPoint documentation>+elementsFromPoint :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m [Element]+elementsFromPoint self x y = liftDOM (((js_elementsFromPoint ((Types.toDocument self)) (x) (y)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/elementsFromPoint MDN Document.elementsFromPoint documentation>+elementsFromPoint_ :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m ()+elementsFromPoint_ self x y = liftDOM (void ((js_elementsFromPoint ((Types.toDocument self)) (x) (y))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"execCommand\"]($2, $3, $4); })"+        js_execCommand :: Document -> JSString -> JSVal -> (Optional JSString) -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Document/execCommand MDN Document.execCommand documentation>+execCommand :: (MonadDOM m, IsDocument self, ToJSString commandId, ToJSString value) => self -> commandId -> Maybe Bool -> Maybe value -> m Bool+execCommand self commandId showUI value = liftDOM (((P.maybe (P.return jsUndefined) toJSVal showUI) >>= \a3' -> js_execCommand ((Types.toDocument self)) (toJSString commandId) a3' (toOptionalJSString value)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/execCommand MDN Document.execCommand documentation>+execCommand_ :: (MonadDOM m, IsDocument self, ToJSString commandId, ToJSString value) => self -> commandId -> Maybe Bool -> Maybe value -> m ()+execCommand_ self commandId showUI value = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal showUI) >>= \a3' -> js_execCommand ((Types.toDocument self)) (toJSString commandId) a3' (toOptionalJSString value))))++foreign import javascript interruptible "(($1, $c) => { return $1[\"exitFullscreen\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_exitFullscreen :: Document -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Document/exitFullscreen MDN Document.exitFullscreen documentation>+exitFullscreen :: (MonadDOM m, IsDocument self) => self -> m ()+exitFullscreen self = liftDOM (void (((js_exitFullscreen ((Types.toDocument self))) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $c) => { return $1[\"exitPictureInPicture\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_exitPictureInPicture :: Document -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Document/exitPictureInPicture MDN Document.exitPictureInPicture documentation>+exitPictureInPicture :: (MonadDOM m, IsDocument self) => self -> m ()+exitPictureInPicture self = liftDOM (void (((js_exitPictureInPicture ((Types.toDocument self))) >>= checkPromiseResult)))++foreign import javascript safe "(($1) => { return $1[\"exitPointerLock\"](); })"+        js_exitPointerLock :: Document -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/exitPointerLock MDN Document.exitPointerLock documentation>+exitPointerLock :: (MonadDOM m, IsDocument self) => self -> m ()+exitPointerLock self = liftDOM (void ((js_exitPointerLock ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"getElementsByClassName\"]($2); })"+        js_getElementsByClassName :: Document -> JSString -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByClassName MDN Document.getElementsByClassName documentation>+getElementsByClassName :: (MonadDOM m, IsDocument self, ToJSString classNames) => self -> classNames -> m HTMLCollection+getElementsByClassName self classNames = liftDOM ((js_getElementsByClassName ((Types.toDocument self)) (toJSString classNames)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByClassName MDN Document.getElementsByClassName documentation>+getElementsByClassName_ :: (MonadDOM m, IsDocument self, ToJSString classNames) => self -> classNames -> m ()+getElementsByClassName_ self classNames = liftDOM (void ((js_getElementsByClassName ((Types.toDocument self)) (toJSString classNames))))++foreign import javascript safe "(($1, $2) => { return $1[\"getElementsByName\"]($2); })"+        js_getElementsByName :: Document -> JSString -> IO NodeList+-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByName MDN Document.getElementsByName documentation>+getElementsByName :: (MonadDOM m, IsDocument self, ToJSString elementName) => self -> elementName -> m NodeList+getElementsByName self elementName = liftDOM ((js_getElementsByName ((Types.toDocument self)) (toJSString elementName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByName MDN Document.getElementsByName documentation>+getElementsByName_ :: (MonadDOM m, IsDocument self, ToJSString elementName) => self -> elementName -> m ()+getElementsByName_ self elementName = liftDOM (void ((js_getElementsByName ((Types.toDocument self)) (toJSString elementName))))++foreign import javascript safe "(($1, $2) => { return $1[\"getElementsByTagName\"]($2); })"+        js_getElementsByTagName :: Document -> JSString -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByTagName MDN Document.getElementsByTagName documentation>+getElementsByTagName :: (MonadDOM m, IsDocument self, ToJSString qualifiedName) => self -> qualifiedName -> m HTMLCollection+getElementsByTagName self qualifiedName = liftDOM ((js_getElementsByTagName ((Types.toDocument self)) (toJSString qualifiedName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByTagName MDN Document.getElementsByTagName documentation>+getElementsByTagName_ :: (MonadDOM m, IsDocument self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+getElementsByTagName_ self qualifiedName = liftDOM (void ((js_getElementsByTagName ((Types.toDocument self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"getElementsByTagNameNS\"]($2, $3); })"+        js_getElementsByTagNameNS :: Document -> (Nullable JSString) -> JSString -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByTagNameNS MDN Document.getElementsByTagNameNS documentation>+getElementsByTagNameNS :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m HTMLCollection+getElementsByTagNameNS self namespace localName = liftDOM ((js_getElementsByTagNameNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString localName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByTagNameNS MDN Document.getElementsByTagNameNS documentation>+getElementsByTagNameNS_ :: (MonadDOM m, IsDocument self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+getElementsByTagNameNS_ self namespace localName = liftDOM (void ((js_getElementsByTagNameNS ((Types.toDocument self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1) => { return $1[\"getSelection\"](); })"+        js_getSelection :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/getSelection MDN Document.getSelection documentation>+getSelection :: (MonadDOM m, IsDocument self) => self -> m (Maybe Selection)+getSelection self = liftDOM (((js_getSelection ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getSelection MDN Document.getSelection documentation>+getSelection_ :: (MonadDOM m, IsDocument self) => self -> m ()+getSelection_ self = liftDOM (void ((js_getSelection ((Types.toDocument self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getSelection MDN Document.getSelection documentation>+getSelectionUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m Selection+getSelectionUnsafe self = liftDOM ((((js_getSelection ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getSelection MDN Document.getSelection documentation>+getSelectionUnchecked :: (MonadDOM m, IsDocument self) => self -> m Selection+getSelectionUnchecked self = liftDOM ((pFromJSVal <$> (js_getSelection ((Types.toDocument self)))))++foreign import javascript safe "(($1) => { return $1[\"hasFocus\"](); })"+        js_hasFocus :: Document -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Document/hasFocus MDN Document.hasFocus documentation>+hasFocus :: (MonadDOM m, IsDocument self) => self -> m Bool+hasFocus self = liftDOM ((js_hasFocus ((Types.toDocument self))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/hasFocus MDN Document.hasFocus documentation>+hasFocus_ :: (MonadDOM m, IsDocument self) => self -> m ()+hasFocus_ self = liftDOM (void ((js_hasFocus ((Types.toDocument self)))))++foreign import javascript interruptible "(($1, $c) => { return $1[\"hasStorageAccess\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_hasStorageAccess :: Document -> IO (JSVal, Bool)+-- | <https://developer.mozilla.org/docs/Web/API/Document/hasStorageAccess MDN Document.hasStorageAccess documentation>+hasStorageAccess :: (MonadDOM m, IsDocument self) => self -> m Bool+hasStorageAccess self = liftDOM (((js_hasStorageAccess ((Types.toDocument self))) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Document/hasStorageAccess MDN Document.hasStorageAccess documentation>+hasStorageAccess_ :: (MonadDOM m, IsDocument self) => self -> m ()+hasStorageAccess_ self = liftDOM (void (((js_hasStorageAccess ((Types.toDocument self))) >>= checkPromiseResult)))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"importNode\"]($2, $3); })"+        js_importNode :: Document -> Node -> JSVal -> IO Node+-- | <https://developer.mozilla.org/docs/Web/API/Document/importNode MDN Document.importNode documentation>+importNode :: (MonadDOM m, IsDocument self, IsNode node, IsBoolOrImportNodeOptions options) => self -> node -> Maybe options -> m Node+importNode self node options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_importNode ((Types.toDocument self)) (Types.toNode node) a3'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/importNode MDN Document.importNode documentation>+importNode_ :: (MonadDOM m, IsDocument self, IsNode node, IsBoolOrImportNodeOptions options) => self -> node -> Maybe options -> m ()+importNode_ self node options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_importNode ((Types.toDocument self)) (Types.toNode node) a3')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"open\"]($2, $3); })"+        js_open :: Document -> (Optional JSString) -> (Optional JSString) -> IO Document+-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+open :: (MonadDOM m, IsDocument self, ToJSString unused1, ToJSString unused2) => self -> Maybe unused1 -> Maybe unused2 -> m Document+open self unused1 unused2 = liftDOM ((js_open ((Types.toDocument self)) (toOptionalJSString unused1) (toOptionalJSString unused2)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+open_ :: (MonadDOM m, IsDocument self, ToJSString unused1, ToJSString unused2) => self -> Maybe unused1 -> Maybe unused2 -> m ()+open_ self unused1 unused2 = liftDOM (void ((js_open ((Types.toDocument self)) (toOptionalJSString unused1) (toOptionalJSString unused2))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"open\"]($2, $3, $4); })"+        js_openUrlNameFeatures :: Document -> JSString -> JSString -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+openUrlNameFeatures :: (MonadDOM m, IsDocument self, ToJSString url, ToJSString name, ToJSString features) => self -> url -> name -> features -> m (Maybe Window)+openUrlNameFeatures self url name features = liftDOM (((js_openUrlNameFeatures ((Types.toDocument self)) (toJSString url) (toJSString name) (toJSString features)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+openUrlNameFeatures_ :: (MonadDOM m, IsDocument self, ToJSString url, ToJSString name, ToJSString features) => self -> url -> name -> features -> m ()+openUrlNameFeatures_ self url name features = liftDOM (void ((js_openUrlNameFeatures ((Types.toDocument self)) (toJSString url) (toJSString name) (toJSString features))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+openUrlNameFeaturesUnsafe :: (MonadDOM m, IsDocument self, ToJSString url, ToJSString name, ToJSString features, HasCallStack) => self -> url -> name -> features -> m Window+openUrlNameFeaturesUnsafe self url name features = liftDOM ((((js_openUrlNameFeatures ((Types.toDocument self)) (toJSString url) (toJSString name) (toJSString features)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+openUrlNameFeaturesUnchecked :: (MonadDOM m, IsDocument self, ToJSString url, ToJSString name, ToJSString features) => self -> url -> name -> features -> m Window+openUrlNameFeaturesUnchecked self url name features = liftDOM ((pFromJSVal <$> (js_openUrlNameFeatures ((Types.toDocument self)) (toJSString url) (toJSString name) (toJSString features))))++foreign import javascript safe "(($1, $2) => { return $1[\"queryCommandEnabled\"]($2); })"+        js_queryCommandEnabled :: Document -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandEnabled MDN Document.queryCommandEnabled documentation>+queryCommandEnabled :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool+queryCommandEnabled self commandId = liftDOM ((js_queryCommandEnabled ((Types.toDocument self)) (toJSString commandId)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandEnabled MDN Document.queryCommandEnabled documentation>+queryCommandEnabled_ :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m ()+queryCommandEnabled_ self commandId = liftDOM (void ((js_queryCommandEnabled ((Types.toDocument self)) (toJSString commandId))))++foreign import javascript safe "(($1, $2) => { return $1[\"queryCommandIndeterm\"]($2); })"+        js_queryCommandIndeterm :: Document -> JSString -> IO Bool+queryCommandIndeterm :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool+queryCommandIndeterm self commandId = liftDOM ((js_queryCommandIndeterm ((Types.toDocument self)) (toJSString commandId)))++queryCommandIndeterm_ :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m ()+queryCommandIndeterm_ self commandId = liftDOM (void ((js_queryCommandIndeterm ((Types.toDocument self)) (toJSString commandId))))++foreign import javascript safe "(($1, $2) => { return $1[\"queryCommandState\"]($2); })"+        js_queryCommandState :: Document -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandState MDN Document.queryCommandState documentation>+queryCommandState :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool+queryCommandState self commandId = liftDOM ((js_queryCommandState ((Types.toDocument self)) (toJSString commandId)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandState MDN Document.queryCommandState documentation>+queryCommandState_ :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m ()+queryCommandState_ self commandId = liftDOM (void ((js_queryCommandState ((Types.toDocument self)) (toJSString commandId))))++foreign import javascript safe "(($1, $2) => { return $1[\"queryCommandSupported\"]($2); })"+        js_queryCommandSupported :: Document -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandSupported MDN Document.queryCommandSupported documentation>+queryCommandSupported :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool+queryCommandSupported self commandId = liftDOM ((js_queryCommandSupported ((Types.toDocument self)) (toJSString commandId)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandSupported MDN Document.queryCommandSupported documentation>+queryCommandSupported_ :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m ()+queryCommandSupported_ self commandId = liftDOM (void ((js_queryCommandSupported ((Types.toDocument self)) (toJSString commandId))))++foreign import javascript safe "(($1, $2) => { return $1[\"queryCommandValue\"]($2); })"+        js_queryCommandValue :: Document -> JSString -> IO JSString+queryCommandValue :: (MonadDOM m, IsDocument self, ToJSString commandId, FromJSString result) => self -> commandId -> m result+queryCommandValue self commandId = liftDOM ((fromJSString <$> (js_queryCommandValue ((Types.toDocument self)) (toJSString commandId))))++queryCommandValue_ :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m ()+queryCommandValue_ self commandId = liftDOM (void ((js_queryCommandValue ((Types.toDocument self)) (toJSString commandId))))++foreign import javascript safe "(($1) => { return $1[\"releaseEvents\"](); })"+        js_releaseEvents :: Document -> IO ()+-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-document-releaseevents Document.releaseEvents specification>+releaseEvents :: (MonadDOM m, IsDocument self) => self -> m ()+releaseEvents self = liftDOM (void ((js_releaseEvents ((Types.toDocument self)))))++foreign import javascript interruptible "(($1, $c) => { return $1[\"requestStorageAccess\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_requestStorageAccess :: Document -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Document/requestStorageAccess MDN Document.requestStorageAccess documentation>+requestStorageAccess :: (MonadDOM m, IsDocument self) => self -> m ()+requestStorageAccess self = liftDOM (void (((js_requestStorageAccess ((Types.toDocument self))) >>= checkPromiseResult)))++foreign import javascript safe "(($1, $2) => { return $1[\"startViewTransition\"]($2); })"+        js_startViewTransition :: Document -> JSVal -> IO ViewTransition+-- | <https://developer.mozilla.org/docs/Web/API/Document/startViewTransition MDN Document.startViewTransition documentation>+startViewTransition :: (MonadDOM m, IsDocument self, IsViewTransitionUpdateCallbackOrStartViewTransitionOptions callbackOptions) => self -> Maybe callbackOptions -> m ViewTransition+startViewTransition self callbackOptions = liftDOM (((P.maybe (P.return jsUndefined) toJSVal callbackOptions) >>= \a2' -> js_startViewTransition ((Types.toDocument self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/startViewTransition MDN Document.startViewTransition documentation>+startViewTransition_ :: (MonadDOM m, IsDocument self, IsViewTransitionUpdateCallbackOrStartViewTransitionOptions callbackOptions) => self -> Maybe callbackOptions -> m ()+startViewTransition_ self callbackOptions = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal callbackOptions) >>= \a2' -> js_startViewTransition ((Types.toDocument self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"write\"](...$2); })"+        js_write :: Document -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/write MDN Document.write documentation>+write :: (MonadDOM m, IsDocument self, IsTrustedHTMLOrString text) => self -> [text] -> m ()+write self text = liftDOM (void (((toJSVal text) >>= \a2' -> js_write ((Types.toDocument self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"writeln\"](...$2); })"+        js_writeln :: Document -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/writeln MDN Document.writeln documentation>+writeln :: (MonadDOM m, IsDocument self, IsTrustedHTMLOrString text) => self -> [text] -> m ()+writeln self text = liftDOM (void (((toJSVal text) >>= \a2' -> js_writeln ((Types.toDocument self)) a2')))++foreign import javascript safe "(($1, $2) => { return globalThis[\"Document\"][\"parseHTML\"]($1, $2); })"+        js_parseHTML :: JSString -> JSVal -> IO Document+-- | <https://developer.mozilla.org/docs/Web/API/Document/parseHTML_static MDN Document.parseHTML documentation>+parseHTML :: (MonadDOM m, ToJSString html) => html -> Maybe SetHTMLOptions -> m Document+parseHTML html options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_parseHTML (toJSString html) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/parseHTML_static MDN Document.parseHTML documentation>+parseHTML_ :: (MonadDOM m, ToJSString html) => html -> Maybe SetHTMLOptions -> m ()+parseHTML_ html options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_parseHTML (toJSString html) a2')))++foreign import javascript safe "(($1, $2) => { return globalThis[\"Document\"][\"parseHTMLUnsafe\"]($1, $2); })"+        js_parseHTMLUnsafe :: TrustedHTMLOrString -> JSVal -> IO Document+-- | <https://developer.mozilla.org/docs/Web/API/Document/parseHTMLUnsafe_static MDN Document.parseHTMLUnsafe documentation>+parseHTMLUnsafe :: (MonadDOM m, IsTrustedHTMLOrString html, IsParseHTMLUnsafeOptionsOrTrustedHTMLParserOptions options) => html -> Maybe options -> m Document+parseHTMLUnsafe html options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_parseHTMLUnsafe (Types.toTrustedHTMLOrString html) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/parseHTMLUnsafe_static MDN Document.parseHTMLUnsafe documentation>+parseHTMLUnsafe_ :: (MonadDOM m, IsTrustedHTMLOrString html, IsParseHTMLUnsafeOptionsOrTrustedHTMLParserOptions options) => html -> Maybe options -> m ()+parseHTMLUnsafe_ html options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_parseHTMLUnsafe (Types.toTrustedHTMLOrString html) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"implementation\"]; })"+        js_getImplementation :: Document -> IO DOMImplementation+-- | <https://developer.mozilla.org/docs/Web/API/Document/implementation MDN Document.implementation documentation>+getImplementation :: (MonadDOM m, IsDocument self) => self -> m DOMImplementation+getImplementation self = liftDOM ((js_getImplementation ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"URL\"]; })"+        js_getURL :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/URL MDN Document.URL documentation>+getURL :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getURL self = liftDOM ((fromJSString <$> (js_getURL ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"documentURI\"]; })"+        js_getDocumentURI :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/documentURI MDN Document.documentURI documentation>+getDocumentURI :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getDocumentURI self = liftDOM ((fromJSString <$> (js_getDocumentURI ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"compatMode\"]; })"+        js_getCompatMode :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/compatMode MDN Document.compatMode documentation>+getCompatMode :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getCompatMode self = liftDOM ((fromJSString <$> (js_getCompatMode ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"characterSet\"]; })"+        js_getCharacterSet :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/characterSet MDN Document.characterSet documentation>+getCharacterSet :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getCharacterSet self = liftDOM ((fromJSString <$> (js_getCharacterSet ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"charset\"]; })"+        js_getCharset :: Document -> IO JSString+-- | <https://dom.spec.whatwg.org/#dom-document-charset Document.charset specification>+getCharset :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getCharset self = liftDOM ((fromJSString <$> (js_getCharset ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"inputEncoding\"]; })"+        js_getInputEncoding :: Document -> IO JSString+-- | <https://dom.spec.whatwg.org/#dom-document-inputencoding Document.inputEncoding specification>+getInputEncoding :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getInputEncoding self = liftDOM ((fromJSString <$> (js_getInputEncoding ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"contentType\"]; })"+        js_getContentType :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/contentType MDN Document.contentType documentation>+getContentType :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getContentType self = liftDOM ((fromJSString <$> (js_getContentType ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"doctype\"]; })"+        js_getDoctype :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/doctype MDN Document.doctype documentation>+getDoctype :: (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentType)+getDoctype self = liftDOM (((js_getDoctype ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/doctype MDN Document.doctype documentation>+getDoctypeUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m DocumentType+getDoctypeUnsafe self = liftDOM ((((js_getDoctype ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/doctype MDN Document.doctype documentation>+getDoctypeUnchecked :: (MonadDOM m, IsDocument self) => self -> m DocumentType+getDoctypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getDoctype ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"documentElement\"]; })"+        js_getDocumentElement :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/documentElement MDN Document.documentElement documentation>+getDocumentElement :: (MonadDOM m, IsDocument self) => self -> m (Maybe Element)+getDocumentElement self = liftDOM (((js_getDocumentElement ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/documentElement MDN Document.documentElement documentation>+getDocumentElementUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m Element+getDocumentElementUnsafe self = liftDOM ((((js_getDocumentElement ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/documentElement MDN Document.documentElement documentation>+getDocumentElementUnchecked :: (MonadDOM m, IsDocument self) => self -> m Element+getDocumentElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getDocumentElement ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"rootElement\"]; })"+        js_getRootElement :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/rootElement MDN Document.rootElement documentation>+getRootElement :: (MonadDOM m, IsDocument self) => self -> m (Maybe SVGSVGElement)+getRootElement self = liftDOM (((js_getRootElement ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/rootElement MDN Document.rootElement documentation>+getRootElementUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m SVGSVGElement+getRootElementUnsafe self = liftDOM ((((js_getRootElement ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/rootElement MDN Document.rootElement documentation>+getRootElementUnchecked :: (MonadDOM m, IsDocument self) => self -> m SVGSVGElement+getRootElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getRootElement ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"activeViewTransition\"]; })"+        js_getActiveViewTransition :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/activeViewTransition MDN Document.activeViewTransition documentation>+getActiveViewTransition :: (MonadDOM m, IsDocument self) => self -> m (Maybe ViewTransition)+getActiveViewTransition self = liftDOM (((js_getActiveViewTransition ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/activeViewTransition MDN Document.activeViewTransition documentation>+getActiveViewTransitionUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m ViewTransition+getActiveViewTransitionUnsafe self = liftDOM ((((js_getActiveViewTransition ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/activeViewTransition MDN Document.activeViewTransition documentation>+getActiveViewTransitionUnchecked :: (MonadDOM m, IsDocument self) => self -> m ViewTransition+getActiveViewTransitionUnchecked self = liftDOM ((pFromJSVal <$> (js_getActiveViewTransition ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"scrollingElement\"]; })"+        js_getScrollingElement :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/scrollingElement MDN Document.scrollingElement documentation>+getScrollingElement :: (MonadDOM m, IsDocument self) => self -> m (Maybe Element)+getScrollingElement self = liftDOM (((js_getScrollingElement ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/scrollingElement MDN Document.scrollingElement documentation>+getScrollingElementUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m Element+getScrollingElementUnsafe self = liftDOM ((((js_getScrollingElement ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/scrollingElement MDN Document.scrollingElement documentation>+getScrollingElementUnchecked :: (MonadDOM m, IsDocument self) => self -> m Element+getScrollingElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getScrollingElement ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"fullscreenEnabled\"]; })"+        js_getFullscreenEnabled :: Document -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Document/fullscreenEnabled MDN Document.fullscreenEnabled documentation>+getFullscreenEnabled :: (MonadDOM m, IsDocument self) => self -> m Bool+getFullscreenEnabled self = liftDOM ((js_getFullscreenEnabled ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"fullscreen\"]; })"+        js_getFullscreen :: Document -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Document/fullscreen MDN Document.fullscreen documentation>+getFullscreen :: (MonadDOM m, IsDocument self) => self -> m Bool+getFullscreen self = liftDOM ((js_getFullscreen ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"location\"]; })"+        js_getLocation :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/location MDN Document.location documentation>+getLocation :: (MonadDOM m, IsDocument self) => self -> m (Maybe Location)+getLocation self = liftDOM (((js_getLocation ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/location MDN Document.location documentation>+getLocationUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m Location+getLocationUnsafe self = liftDOM ((((js_getLocation ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/location MDN Document.location documentation>+getLocationUnchecked :: (MonadDOM m, IsDocument self) => self -> m Location+getLocationUnchecked self = liftDOM ((pFromJSVal <$> (js_getLocation ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"domain\"] = $2; })"+        js_setDomain :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/domain MDN Document.domain documentation>+setDomain :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setDomain self val = liftDOM (void ((js_setDomain ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"domain\"]; })"+        js_getDomain :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/domain MDN Document.domain documentation>+getDomain :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getDomain self = liftDOM ((fromJSString <$> (js_getDomain ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"referrer\"]; })"+        js_getReferrer :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/referrer MDN Document.referrer documentation>+getReferrer :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getReferrer self = liftDOM ((fromJSString <$> (js_getReferrer ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"cookie\"] = $2; })"+        js_setCookie :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/cookie MDN Document.cookie documentation>+setCookie :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setCookie self val = liftDOM (void ((js_setCookie ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"cookie\"]; })"+        js_getCookie :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/cookie MDN Document.cookie documentation>+getCookie :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getCookie self = liftDOM ((fromJSString <$> (js_getCookie ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"lastModified\"]; })"+        js_getLastModified :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/lastModified MDN Document.lastModified documentation>+getLastModified :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getLastModified self = liftDOM ((fromJSString <$> (js_getLastModified ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"readyState\"]; })"+        js_getReadyState :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/readyState MDN Document.readyState documentation>+getReadyState :: (MonadDOM m, IsDocument self) => self -> m DocumentReadyState+getReadyState self = liftDOM (((js_getReadyState ((Types.toDocument self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"title\"] = $2; })"+        js_setTitle :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/title MDN Document.title documentation>+setTitle :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setTitle self val = liftDOM (void ((js_setTitle ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"title\"]; })"+        js_getTitle :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/title MDN Document.title documentation>+getTitle :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getTitle self = liftDOM ((fromJSString <$> (js_getTitle ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"dir\"] = $2; })"+        js_setDir :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/dir MDN Document.dir documentation>+setDir :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setDir self val = liftDOM (void ((js_setDir ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"dir\"]; })"+        js_getDir :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/dir MDN Document.dir documentation>+getDir :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getDir self = liftDOM ((fromJSString <$> (js_getDir ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"body\"] = $2; })"+        js_setBody :: Document -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/body MDN Document.body documentation>+setBody :: (MonadDOM m, IsDocument self, IsHTMLElement val) => self -> Maybe val -> m ()+setBody self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBody ((Types.toDocument self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"body\"]; })"+        js_getBody :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/body MDN Document.body documentation>+getBody :: (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLElement)+getBody self = liftDOM (((js_getBody ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/body MDN Document.body documentation>+getBodyUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m HTMLElement+getBodyUnsafe self = liftDOM ((((js_getBody ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/body MDN Document.body documentation>+getBodyUnchecked :: (MonadDOM m, IsDocument self) => self -> m HTMLElement+getBodyUnchecked self = liftDOM ((pFromJSVal <$> (js_getBody ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"head\"]; })"+        js_getHead :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/head MDN Document.head documentation>+getHead :: (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLHeadElement)+getHead self = liftDOM (((js_getHead ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/head MDN Document.head documentation>+getHeadUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m HTMLHeadElement+getHeadUnsafe self = liftDOM ((((js_getHead ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/head MDN Document.head documentation>+getHeadUnchecked :: (MonadDOM m, IsDocument self) => self -> m HTMLHeadElement+getHeadUnchecked self = liftDOM ((pFromJSVal <$> (js_getHead ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"images\"]; })"+        js_getImages :: Document -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/images MDN Document.images documentation>+getImages :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection+getImages self = liftDOM ((js_getImages ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"embeds\"]; })"+        js_getEmbeds :: Document -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/embeds MDN Document.embeds documentation>+getEmbeds :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection+getEmbeds self = liftDOM ((js_getEmbeds ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"plugins\"]; })"+        js_getPlugins :: Document -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/plugins MDN Document.plugins documentation>+getPlugins :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection+getPlugins self = liftDOM ((js_getPlugins ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"links\"]; })"+        js_getLinks :: Document -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/links MDN Document.links documentation>+getLinks :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection+getLinks self = liftDOM ((js_getLinks ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"forms\"]; })"+        js_getForms :: Document -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/forms MDN Document.forms documentation>+getForms :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection+getForms self = liftDOM ((js_getForms ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"scripts\"]; })"+        js_getScripts :: Document -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/scripts MDN Document.scripts documentation>+getScripts :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection+getScripts self = liftDOM ((js_getScripts ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"currentScript\"]; })"+        js_getCurrentScript :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/currentScript MDN Document.currentScript documentation>+getCurrentScript :: (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLOrSVGScriptElement)+getCurrentScript self = liftDOM (((js_getCurrentScript ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/currentScript MDN Document.currentScript documentation>+getCurrentScriptUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m HTMLOrSVGScriptElement+getCurrentScriptUnsafe self = liftDOM ((((js_getCurrentScript ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/currentScript MDN Document.currentScript documentation>+getCurrentScriptUnchecked :: (MonadDOM m, IsDocument self) => self -> m HTMLOrSVGScriptElement+getCurrentScriptUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentScript ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"defaultView\"]; })"+        js_getDefaultView :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/defaultView MDN Document.defaultView documentation>+getDefaultView :: (MonadDOM m, IsDocument self) => self -> m (Maybe Window)+getDefaultView self = liftDOM (((js_getDefaultView ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/defaultView MDN Document.defaultView documentation>+getDefaultViewUnsafe :: (MonadDOM m, IsDocument self, HasCallStack) => self -> m Window+getDefaultViewUnsafe self = liftDOM ((((js_getDefaultView ((Types.toDocument self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/defaultView MDN Document.defaultView documentation>+getDefaultViewUnchecked :: (MonadDOM m, IsDocument self) => self -> m Window+getDefaultViewUnchecked self = liftDOM ((pFromJSVal <$> (js_getDefaultView ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"designMode\"] = $2; })"+        js_setDesignMode :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/designMode MDN Document.designMode documentation>+setDesignMode :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setDesignMode self val = liftDOM (void ((js_setDesignMode ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"designMode\"]; })"+        js_getDesignMode :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/designMode MDN Document.designMode documentation>+getDesignMode :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getDesignMode self = liftDOM ((fromJSString <$> (js_getDesignMode ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"hidden\"]; })"+        js_getHidden :: Document -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Document/hidden MDN Document.hidden documentation>+getHidden :: (MonadDOM m, IsDocument self) => self -> m Bool+getHidden self = liftDOM ((js_getHidden ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"visibilityState\"]; })"+        js_getVisibilityState :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/visibilityState MDN Document.visibilityState documentation>+getVisibilityState :: (MonadDOM m, IsDocument self) => self -> m DocumentVisibilityState+getVisibilityState self = liftDOM (((js_getVisibilityState ((Types.toDocument self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"fgColor\"] = $2; })"+        js_setFgColor :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/fgColor MDN Document.fgColor documentation>+setFgColor :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setFgColor self val = liftDOM (void ((js_setFgColor ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fgColor\"]; })"+        js_getFgColor :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/fgColor MDN Document.fgColor documentation>+getFgColor :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getFgColor self = liftDOM ((fromJSString <$> (js_getFgColor ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"linkColor\"] = $2; })"+        js_setLinkColor :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/linkColor MDN Document.linkColor documentation>+setLinkColor :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setLinkColor self val = liftDOM (void ((js_setLinkColor ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"linkColor\"]; })"+        js_getLinkColor :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/linkColor MDN Document.linkColor documentation>+getLinkColor :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getLinkColor self = liftDOM ((fromJSString <$> (js_getLinkColor ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"vlinkColor\"] = $2; })"+        js_setVlinkColor :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/vlinkColor MDN Document.vlinkColor documentation>+setVlinkColor :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setVlinkColor self val = liftDOM (void ((js_setVlinkColor ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"vlinkColor\"]; })"+        js_getVlinkColor :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/vlinkColor MDN Document.vlinkColor documentation>+getVlinkColor :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getVlinkColor self = liftDOM ((fromJSString <$> (js_getVlinkColor ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"alinkColor\"] = $2; })"+        js_setAlinkColor :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/alinkColor MDN Document.alinkColor documentation>+setAlinkColor :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setAlinkColor self val = liftDOM (void ((js_setAlinkColor ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"alinkColor\"]; })"+        js_getAlinkColor :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/alinkColor MDN Document.alinkColor documentation>+getAlinkColor :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getAlinkColor self = liftDOM ((fromJSString <$> (js_getAlinkColor ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"bgColor\"] = $2; })"+        js_setBgColor :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/bgColor MDN Document.bgColor documentation>+setBgColor :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setBgColor self val = liftDOM (void ((js_setBgColor ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"bgColor\"]; })"+        js_getBgColor :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/bgColor MDN Document.bgColor documentation>+getBgColor :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getBgColor self = liftDOM ((fromJSString <$> (js_getBgColor ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"anchors\"]; })"+        js_getAnchors :: Document -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/anchors MDN Document.anchors documentation>+getAnchors :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection+getAnchors self = liftDOM ((js_getAnchors ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"applets\"]; })"+        js_getApplets :: Document -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/applets MDN Document.applets documentation>+getApplets :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection+getApplets self = liftDOM ((js_getApplets ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"all\"]; })"+        js_getAll :: Document -> IO HTMLAllCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/all MDN Document.all documentation>+getAll :: (MonadDOM m, IsDocument self) => self -> m HTMLAllCollection+getAll self = liftDOM ((js_getAll ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"pictureInPictureEnabled\"]; })"+        js_getPictureInPictureEnabled :: Document -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Document/pictureInPictureEnabled MDN Document.pictureInPictureEnabled documentation>+getPictureInPictureEnabled :: (MonadDOM m, IsDocument self) => self -> m Bool+getPictureInPictureEnabled self = liftDOM ((js_getPictureInPictureEnabled ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"fragmentDirective\"]; })"+        js_getFragmentDirective :: Document -> IO FragmentDirective+-- | <https://developer.mozilla.org/docs/Web/API/Document/fragmentDirective MDN Document.fragmentDirective documentation>+getFragmentDirective :: (MonadDOM m, IsDocument self) => self -> m FragmentDirective+getFragmentDirective self = liftDOM ((js_getFragmentDirective ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })"+        js_getTimeline :: Document -> IO DocumentTimeline+-- | <https://developer.mozilla.org/docs/Web/API/Document/timeline MDN Document.timeline documentation>+getTimeline :: (MonadDOM m, IsDocument self) => self -> m DocumentTimeline+getTimeline self = liftDOM ((js_getTimeline ((Types.toDocument self))))++-- | <https://fullscreen.spec.whatwg.org/#handler-document-onfullscreenchange fullscreenchange event>+fullscreenchange :: (IsDocument self, IsEventTarget self) => EventName self Event+fullscreenchange = unsafeEventName (toJSString "fullscreenchange")++-- | <https://fullscreen.spec.whatwg.org/#handler-document-onfullscreenerror fullscreenerror event>+fullscreenerror :: (IsDocument self, IsEventTarget self) => EventName self Event+fullscreenerror = unsafeEventName (toJSString "fullscreenerror")++-- | <https://html.spec.whatwg.org/multipage/webappapis.html#handler-onreadystatechange readystatechange event>+readyStateChange :: (IsDocument self, IsEventTarget self) => EventName self Event+readyStateChange = unsafeEventNameAsync (toJSString "readystatechange")++-- | <https://html.spec.whatwg.org/multipage/webappapis.html#handler-onvisibilitychange visibilitychange event>+visibilitychange :: (IsDocument self, IsEventTarget self) => EventName self Event+visibilitychange = unsafeEventName (toJSString "visibilitychange")++-- | <https://w3c.github.io/pointerlock/#dom-document-onpointerlockchange pointerlockchange event>+pointerlockchange :: (IsDocument self, IsEventTarget self) => EventName self Event+pointerlockchange = unsafeEventName (toJSString "pointerlockchange")++-- | <https://w3c.github.io/pointerlock/#dom-document-onpointerlockerror pointerlockerror event>+pointerlockerror :: (IsDocument self, IsEventTarget self) => EventName self Event+pointerlockerror = unsafeEventName (toJSString "pointerlockerror")++autofill :: (IsDocument self, IsEventTarget self) => EventName self AutofillEvent+autofill = unsafeEventName (toJSString "autofill")++-- | <https://html.spec.whatwg.org/multipage/indices.html#event-domcontentloaded DOMContentLoaded event>+domContentLoaded :: (IsDocument self, IsEventTarget self) => EventName self Event+domContentLoaded = unsafeEventName (toJSString "DOMContentLoaded")++-- | <https://html.spec.whatwg.org/multipage/indices.html#event-unload unload event>+unload :: (IsDocument self, IsEventTarget self) => EventName self Event+unload = unsafeEventName (toJSString "unload")
− src/GHCJS/DOM/JSFFI/Generated/DocumentAndElementEventHandlers.hs
@@ -1,72 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.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, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.oncopy Mozilla DocumentAndElementEventHandlers.oncopy documentation> -copy ::-     (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>-       EventName self ClipboardEvent-copy = unsafeEventName (toJSString "copy")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.oncut Mozilla DocumentAndElementEventHandlers.oncut documentation> -cut ::-    (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>-      EventName self ClipboardEvent-cut = unsafeEventName (toJSString "cut")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.onpaste Mozilla DocumentAndElementEventHandlers.onpaste documentation> -paste ::-      (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>-        EventName self ClipboardEvent-paste = unsafeEventName (toJSString "paste")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.onbeforecopy Mozilla DocumentAndElementEventHandlers.onbeforecopy documentation> -beforeCopy ::-           (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>-             EventName self ClipboardEvent-beforeCopy = unsafeEventName (toJSString "beforecopy")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.onbeforecut Mozilla DocumentAndElementEventHandlers.onbeforecut documentation> -beforeCut ::-          (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>-            EventName self ClipboardEvent-beforeCut = unsafeEventName (toJSString "beforecut")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.onbeforeinput Mozilla DocumentAndElementEventHandlers.onbeforeinput documentation> -beforeinput ::-            (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>-              EventName self onbeforeinput-beforeinput = unsafeEventName (toJSString "beforeinput")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.onbeforepaste Mozilla DocumentAndElementEventHandlers.onbeforepaste documentation> -beforePaste ::-            (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>-              EventName self ClipboardEvent-beforePaste = unsafeEventName (toJSString "beforepaste")
src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs view
@@ -1,35 +1,23 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DocumentFragment-       (js_newDocumentFragment, newDocumentFragment, DocumentFragment(..),-        gTypeDocumentFragment, IsDocumentFragment, toDocumentFragment)+       (js_newDocumentFragment, newDocumentFragment, DocumentFragment(..), gTypeDocumentFragment, IsDocumentFragment, toDocumentFragment)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(() => { return new window[\"DocumentFragment\"](); })" js_newDocumentFragment ::-        IO DocumentFragment --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment Mozilla DocumentFragment documentation> -newDocumentFragment :: (MonadIO m) => m DocumentFragment-newDocumentFragment = liftIO (js_newDocumentFragment)+foreign import javascript safe "(() => { return new globalThis[\"DocumentFragment\"](); })"+        js_newDocumentFragment :: IO DocumentFragment+-- | <https://developer.mozilla.org/docs/Web/API/DocumentFragment/DocumentFragment MDN DocumentFragment. documentation>+newDocumentFragment :: (MonadDOM m) => m DocumentFragment+newDocumentFragment = liftDOM ((js_newDocumentFragment))
src/GHCJS/DOM/JSFFI/Generated/DocumentOrShadowRoot.hs view
@@ -1,135 +1,115 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DocumentOrShadowRoot-       (js_elementFromPoint, elementFromPoint, elementFromPoint_,-        elementFromPointUnsafe, elementFromPointUnchecked,-        js_getActiveElement, getActiveElement, getActiveElementUnsafe,-        getActiveElementUnchecked, js_getPointerLockElement,-        getPointerLockElement, getPointerLockElementUnsafe,-        getPointerLockElementUnchecked, DocumentOrShadowRoot(..),-        gTypeDocumentOrShadowRoot, IsDocumentOrShadowRoot,-        toDocumentOrShadowRoot)+       (js_getAnimations, js_getCustomElementRegistry, js_getStyleSheets, js_setAdoptedStyleSheets, js_getAdoptedStyleSheets, js_getFullscreenElement, js_getActiveElement, js_getPictureInPictureElement, js_getPointerLockElement, getAnimations, getAnimations_, getCustomElementRegistry, getCustomElementRegistryUnsafe, getCustomElementRegistryUnchecked, getStyleSheets, setAdoptedStyleSheets, getAdoptedStyleSheets, getFullscreenElement, getFullscreenElementUnsafe, getFullscreenElementUnchecked, getActiveElement, getActiveElementUnsafe, getActiveElementUnchecked, getPictureInPictureElement, getPictureInPictureElementUnsafe, getPictureInPictureElementUnchecked, getPointerLockElement, getPointerLockElementUnsafe, getPointerLockElementUnchecked, DocumentOrShadowRoot(..), gTypeDocumentOrShadowRoot, IsDocumentOrShadowRoot, toDocumentOrShadowRoot)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"elementFromPoint\"]($2, $3); })"-        js_elementFromPoint ::-        DocumentOrShadowRoot -> Double -> Double -> IO (Nullable Element) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> -elementFromPoint ::-                 (MonadIO m, IsDocumentOrShadowRoot self) =>-                   self -> Double -> Double -> m (Maybe Element)-elementFromPoint self x y-  = liftIO-      (nullableToMaybe <$>-         (js_elementFromPoint (toDocumentOrShadowRoot self) x y))+foreign import javascript safe "(($1) => { return $1[\"getAnimations\"](); })"+        js_getAnimations :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/getAnimations MDN DocumentOrShadowRoot.getAnimations documentation>+getAnimations :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m [Animation]+getAnimations self = liftDOM (((js_getAnimations ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> -elementFromPoint_ ::-                  (MonadIO m, IsDocumentOrShadowRoot self) =>-                    self -> Double -> Double -> m ()-elementFromPoint_ self x y-  = liftIO-      (void (js_elementFromPoint (toDocumentOrShadowRoot self) x y))+-- | <https://developer.mozilla.org/docs/Web/API/Document/getAnimations MDN DocumentOrShadowRoot.getAnimations documentation>+getAnimations_ :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m ()+getAnimations_ self = liftDOM (void ((js_getAnimations ((Types.toDocumentOrShadowRoot self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> -elementFromPointUnsafe ::-                       (MonadIO m, IsDocumentOrShadowRoot self, HasCallStack) =>-                         self -> Double -> Double -> m Element-elementFromPointUnsafe self x y-  = liftIO-      ((nullableToMaybe <$>-          (js_elementFromPoint (toDocumentOrShadowRoot self) x y))-         >>= maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "(($1) => { return $1[\"customElementRegistry\"]; })"+        js_getCustomElementRegistry :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/customElementRegistry MDN DocumentOrShadowRoot.customElementRegistry documentation>+getCustomElementRegistry :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m (Maybe CustomElementRegistry)+getCustomElementRegistry self = liftDOM (((js_getCustomElementRegistry ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> -elementFromPointUnchecked ::-                          (MonadIO m, IsDocumentOrShadowRoot self) =>-                            self -> Double -> Double -> m Element-elementFromPointUnchecked self x y-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_elementFromPoint (toDocumentOrShadowRoot self) x y))- +-- | <https://developer.mozilla.org/docs/Web/API/Document/customElementRegistry MDN DocumentOrShadowRoot.customElementRegistry documentation>+getCustomElementRegistryUnsafe :: (MonadDOM m, IsDocumentOrShadowRoot self, HasCallStack) => self -> m CustomElementRegistry+getCustomElementRegistryUnsafe self = liftDOM ((((js_getCustomElementRegistry ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/customElementRegistry MDN DocumentOrShadowRoot.customElementRegistry documentation>+getCustomElementRegistryUnchecked :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m CustomElementRegistry+getCustomElementRegistryUnchecked self = liftDOM ((pFromJSVal <$> (js_getCustomElementRegistry ((Types.toDocumentOrShadowRoot self)))))++foreign import javascript unsafe "(($1) => { return $1[\"styleSheets\"]; })"+        js_getStyleSheets :: DocumentOrShadowRoot -> IO StyleSheetList+-- | <https://developer.mozilla.org/docs/Web/API/Document/styleSheets MDN DocumentOrShadowRoot.styleSheets documentation>+getStyleSheets :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m StyleSheetList+getStyleSheets self = liftDOM ((js_getStyleSheets ((Types.toDocumentOrShadowRoot self))))++foreign import javascript safe "(($1, $2) => { $1[\"adoptedStyleSheets\"] = $2; })"+        js_setAdoptedStyleSheets :: DocumentOrShadowRoot -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/adoptedStyleSheets MDN DocumentOrShadowRoot.adoptedStyleSheets documentation>+setAdoptedStyleSheets :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> [CSSStyleSheet] -> m ()+setAdoptedStyleSheets self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAdoptedStyleSheets ((Types.toDocumentOrShadowRoot self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"adoptedStyleSheets\"]; })"+        js_getAdoptedStyleSheets :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/adoptedStyleSheets MDN DocumentOrShadowRoot.adoptedStyleSheets documentation>+getAdoptedStyleSheets :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m [CSSStyleSheet]+getAdoptedStyleSheets self = liftDOM (((js_getAdoptedStyleSheets ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"fullscreenElement\"]; })"+        js_getFullscreenElement :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/fullscreenElement MDN DocumentOrShadowRoot.fullscreenElement documentation>+getFullscreenElement :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m (Maybe Element)+getFullscreenElement self = liftDOM (((js_getFullscreenElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/fullscreenElement MDN DocumentOrShadowRoot.fullscreenElement documentation>+getFullscreenElementUnsafe :: (MonadDOM m, IsDocumentOrShadowRoot self, HasCallStack) => self -> m Element+getFullscreenElementUnsafe self = liftDOM ((((js_getFullscreenElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/fullscreenElement MDN DocumentOrShadowRoot.fullscreenElement documentation>+getFullscreenElementUnchecked :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m Element+getFullscreenElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getFullscreenElement ((Types.toDocumentOrShadowRoot self)))))+ foreign import javascript unsafe "(($1) => { return $1[\"activeElement\"]; })"-        js_getActiveElement ::-        DocumentOrShadowRoot -> IO (Nullable Element)+        js_getActiveElement :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/activeElement MDN DocumentOrShadowRoot.activeElement documentation>+getActiveElement :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m (Maybe Element)+getActiveElement self = liftDOM (((js_getActiveElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.activeElement Mozilla DocumentOrShadowRoot.activeElement documentation> -getActiveElement ::-                 (MonadIO m, IsDocumentOrShadowRoot self) =>-                   self -> m (Maybe Element)-getActiveElement self-  = liftIO-      (nullableToMaybe <$>-         (js_getActiveElement (toDocumentOrShadowRoot self)))+-- | <https://developer.mozilla.org/docs/Web/API/Document/activeElement MDN DocumentOrShadowRoot.activeElement documentation>+getActiveElementUnsafe :: (MonadDOM m, IsDocumentOrShadowRoot self, HasCallStack) => self -> m Element+getActiveElementUnsafe self = liftDOM ((((js_getActiveElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.activeElement Mozilla DocumentOrShadowRoot.activeElement documentation> -getActiveElementUnsafe ::-                       (MonadIO m, IsDocumentOrShadowRoot self, HasCallStack) =>-                         self -> m Element-getActiveElementUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getActiveElement (toDocumentOrShadowRoot self)))-         >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Document/activeElement MDN DocumentOrShadowRoot.activeElement documentation>+getActiveElementUnchecked :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m Element+getActiveElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getActiveElement ((Types.toDocumentOrShadowRoot self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.activeElement Mozilla DocumentOrShadowRoot.activeElement documentation> -getActiveElementUnchecked ::-                          (MonadIO m, IsDocumentOrShadowRoot self) => self -> m Element-getActiveElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getActiveElement (toDocumentOrShadowRoot self)))- -foreign import javascript unsafe "(($1) => { return $1[\"pointerLockElement\"]; })"-        js_getPointerLockElement ::-        DocumentOrShadowRoot -> IO (Nullable Element)+foreign import javascript unsafe "(($1) => { return $1[\"pictureInPictureElement\"]; })"+        js_getPictureInPictureElement :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/pictureInPictureElement MDN DocumentOrShadowRoot.pictureInPictureElement documentation>+getPictureInPictureElement :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m (Maybe Element)+getPictureInPictureElement self = liftDOM (((js_getPictureInPictureElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.pointerLockElement Mozilla DocumentOrShadowRoot.pointerLockElement documentation> -getPointerLockElement ::-                      (MonadIO m, IsDocumentOrShadowRoot self) =>-                        self -> m (Maybe Element)-getPointerLockElement self-  = liftIO-      (nullableToMaybe <$>-         (js_getPointerLockElement (toDocumentOrShadowRoot self)))+-- | <https://developer.mozilla.org/docs/Web/API/Document/pictureInPictureElement MDN DocumentOrShadowRoot.pictureInPictureElement documentation>+getPictureInPictureElementUnsafe :: (MonadDOM m, IsDocumentOrShadowRoot self, HasCallStack) => self -> m Element+getPictureInPictureElementUnsafe self = liftDOM ((((js_getPictureInPictureElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.pointerLockElement Mozilla DocumentOrShadowRoot.pointerLockElement documentation> -getPointerLockElementUnsafe ::-                            (MonadIO m, IsDocumentOrShadowRoot self, HasCallStack) =>-                              self -> m Element-getPointerLockElementUnsafe self-  = liftIO-      ((nullableToMaybe <$>-          (js_getPointerLockElement (toDocumentOrShadowRoot self)))-         >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Document/pictureInPictureElement MDN DocumentOrShadowRoot.pictureInPictureElement documentation>+getPictureInPictureElementUnchecked :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m Element+getPictureInPictureElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getPictureInPictureElement ((Types.toDocumentOrShadowRoot self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.pointerLockElement Mozilla DocumentOrShadowRoot.pointerLockElement documentation> -getPointerLockElementUnchecked ::-                               (MonadIO m, IsDocumentOrShadowRoot self) => self -> m Element-getPointerLockElementUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getPointerLockElement (toDocumentOrShadowRoot self)))+foreign import javascript unsafe "(($1) => { return $1[\"pointerLockElement\"]; })"+        js_getPointerLockElement :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/pointerLockElement MDN DocumentOrShadowRoot.pointerLockElement documentation>+getPointerLockElement :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m (Maybe Element)+getPointerLockElement self = liftDOM (((js_getPointerLockElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/pointerLockElement MDN DocumentOrShadowRoot.pointerLockElement documentation>+getPointerLockElementUnsafe :: (MonadDOM m, IsDocumentOrShadowRoot self, HasCallStack) => self -> m Element+getPointerLockElementUnsafe self = liftDOM ((((js_getPointerLockElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/pointerLockElement MDN DocumentOrShadowRoot.pointerLockElement documentation>+getPointerLockElementUnchecked :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m Element+getPointerLockElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getPointerLockElement ((Types.toDocumentOrShadowRoot self)))))
+ src/GHCJS/DOM/JSFFI/Generated/DocumentPictureInPicture.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from document-picture-in-picture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DocumentPictureInPicture+       (js_requestWindow, js_getWindow, requestWindow, requestWindow_, getWindow, enter, DocumentPictureInPicture(..), gTypeDocumentPictureInPicture)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"requestWindow\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_requestWindow :: DocumentPictureInPicture -> JSVal -> IO (JSVal, Window)+-- | <https://developer.mozilla.org/docs/Web/API/DocumentPictureInPicture/requestWindow MDN DocumentPictureInPicture.requestWindow documentation>+requestWindow :: (MonadDOM m) => DocumentPictureInPicture -> Maybe DocumentPictureInPictureOptions -> m Window+requestWindow self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_requestWindow (self) a2') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/DocumentPictureInPicture/requestWindow MDN DocumentPictureInPicture.requestWindow documentation>+requestWindow_ :: (MonadDOM m) => DocumentPictureInPicture -> Maybe DocumentPictureInPictureOptions -> m ()+requestWindow_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_requestWindow (self) a2') >>= checkPromiseResult)))++foreign import javascript unsafe "(($1) => { return $1[\"window\"]; })"+        js_getWindow :: DocumentPictureInPicture -> IO Window+-- | <https://developer.mozilla.org/docs/Web/API/DocumentPictureInPicture/window MDN DocumentPictureInPicture.window documentation>+getWindow :: (MonadDOM m) => DocumentPictureInPicture -> m Window+getWindow self = liftDOM ((js_getWindow (self)))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpicture-onenter enter event>+enter :: EventName DocumentPictureInPicture DocumentPictureInPictureEvent+enter = unsafeEventName (toJSString "enter")
+ src/GHCJS/DOM/JSFFI/Generated/DocumentPictureInPictureEvent.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from document-picture-in-picture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEvent+       (js_newDocumentPictureInPictureEvent, js_getWindow, newDocumentPictureInPictureEvent, getWindow, DocumentPictureInPictureEvent(..), gTypeDocumentPictureInPictureEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"DocumentPictureInPictureEvent\"]($1, $2); })"+        js_newDocumentPictureInPictureEvent :: JSString -> DocumentPictureInPictureEventInit -> IO DocumentPictureInPictureEvent+-- | <https://developer.mozilla.org/docs/Web/API/DocumentPictureInPictureEvent/DocumentPictureInPictureEvent MDN DocumentPictureInPictureEvent. documentation>+newDocumentPictureInPictureEvent :: (MonadDOM m, ToJSString type') => type' -> DocumentPictureInPictureEventInit -> m DocumentPictureInPictureEvent+newDocumentPictureInPictureEvent type' eventInitDict = liftDOM ((js_newDocumentPictureInPictureEvent (toJSString type') (eventInitDict)))++foreign import javascript unsafe "(($1) => { return $1[\"window\"]; })"+        js_getWindow :: DocumentPictureInPictureEvent -> IO Window+-- | <https://developer.mozilla.org/docs/Web/API/DocumentPictureInPictureEvent/window MDN DocumentPictureInPictureEvent.window documentation>+getWindow :: (MonadDOM m) => DocumentPictureInPictureEvent -> m Window+getWindow self = liftDOM ((js_getWindow (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DocumentPictureInPictureEventInit.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from document-picture-in-picture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEventInit+       (js_newDocumentPictureInPictureEventInit, js_setWindow, js_getWindow, newDocumentPictureInPictureEventInit, setWindow, getWindow, DocumentPictureInPictureEventInit(..), gTypeDocumentPictureInPictureEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return ({\"window\": $1}); })"+        js_newDocumentPictureInPictureEventInit :: Window -> IO DocumentPictureInPictureEventInit+-- | <https://wicg.github.io/document-picture-in-picture/#dictdef-documentpictureinpictureeventinit DocumentPictureInPictureEventInit specification>+newDocumentPictureInPictureEventInit :: (MonadDOM m) => Window -> m DocumentPictureInPictureEventInit+newDocumentPictureInPictureEventInit window = liftDOM ((js_newDocumentPictureInPictureEventInit (window)))++foreign import javascript safe "(($1, $2) => { $1[\"window\"] = $2; })"+        js_setWindow :: DocumentPictureInPictureEventInit -> Window -> IO ()+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureeventinit-window DocumentPictureInPictureEventInit.window specification>+setWindow :: (MonadDOM m) => DocumentPictureInPictureEventInit -> Window -> m ()+setWindow self val = liftDOM (void ((js_setWindow (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"window\"]; })"+        js_getWindow :: DocumentPictureInPictureEventInit -> IO Window+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureeventinit-window DocumentPictureInPictureEventInit.window specification>+getWindow :: (MonadDOM m) => DocumentPictureInPictureEventInit -> m Window+getWindow self = liftDOM ((js_getWindow (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DocumentPictureInPictureOptions.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from document-picture-in-picture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureOptions+       (js_newDocumentPictureInPictureOptions, js_setWidth, js_getWidth, js_setHeight, js_getHeight, js_setDisallowReturnToOpener, js_getDisallowReturnToOpener, js_setPreferInitialWindowPlacement, js_getPreferInitialWindowPlacement, newDocumentPictureInPictureOptions, setWidth, getWidth, getWidthUnsafe, getWidthUnchecked, setHeight, getHeight, getHeightUnsafe, getHeightUnchecked, setDisallowReturnToOpener, getDisallowReturnToOpener, getDisallowReturnToOpenerUnsafe, getDisallowReturnToOpenerUnchecked, setPreferInitialWindowPlacement, getPreferInitialWindowPlacement, getPreferInitialWindowPlacementUnsafe, getPreferInitialWindowPlacementUnchecked, DocumentPictureInPictureOptions(..), gTypeDocumentPictureInPictureOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDocumentPictureInPictureOptions :: IO DocumentPictureInPictureOptions+-- | <https://wicg.github.io/document-picture-in-picture/#dictdef-documentpictureinpictureoptions DocumentPictureInPictureOptions specification>+newDocumentPictureInPictureOptions :: (MonadDOM m) => m DocumentPictureInPictureOptions+newDocumentPictureInPictureOptions = liftDOM ((js_newDocumentPictureInPictureOptions))++foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })"+        js_setWidth :: DocumentPictureInPictureOptions -> JSVal -> IO ()+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-width DocumentPictureInPictureOptions.width specification>+setWidth :: (MonadDOM m) => DocumentPictureInPictureOptions -> Word53 -> m ()+setWidth self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setWidth (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })"+        js_getWidth :: DocumentPictureInPictureOptions -> IO JSVal+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-width DocumentPictureInPictureOptions.width specification>+getWidth :: (MonadDOM m) => DocumentPictureInPictureOptions -> m (Maybe Word53)+getWidth self = liftDOM (((js_getWidth (self)) >>= fromJSValUnchecked))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-width DocumentPictureInPictureOptions.width specification>+getWidthUnsafe :: (MonadDOM m, HasCallStack) => DocumentPictureInPictureOptions -> m Word53+getWidthUnsafe self = liftDOM ((((js_getWidth (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-width DocumentPictureInPictureOptions.width specification>+getWidthUnchecked :: (MonadDOM m) => DocumentPictureInPictureOptions -> m Word53+getWidthUnchecked self = liftDOM ((pFromJSVal <$> (js_getWidth (self))))++foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })"+        js_setHeight :: DocumentPictureInPictureOptions -> JSVal -> IO ()+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-height DocumentPictureInPictureOptions.height specification>+setHeight :: (MonadDOM m) => DocumentPictureInPictureOptions -> Word53 -> m ()+setHeight self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setHeight (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })"+        js_getHeight :: DocumentPictureInPictureOptions -> IO JSVal+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-height DocumentPictureInPictureOptions.height specification>+getHeight :: (MonadDOM m) => DocumentPictureInPictureOptions -> m (Maybe Word53)+getHeight self = liftDOM (((js_getHeight (self)) >>= fromJSValUnchecked))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-height DocumentPictureInPictureOptions.height specification>+getHeightUnsafe :: (MonadDOM m, HasCallStack) => DocumentPictureInPictureOptions -> m Word53+getHeightUnsafe self = liftDOM ((((js_getHeight (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-height DocumentPictureInPictureOptions.height specification>+getHeightUnchecked :: (MonadDOM m) => DocumentPictureInPictureOptions -> m Word53+getHeightUnchecked self = liftDOM ((pFromJSVal <$> (js_getHeight (self))))++foreign import javascript safe "(($1, $2) => { $1[\"disallowReturnToOpener\"] = $2; })"+        js_setDisallowReturnToOpener :: DocumentPictureInPictureOptions -> Bool -> IO ()+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-disallowreturntoopener DocumentPictureInPictureOptions.disallowReturnToOpener specification>+setDisallowReturnToOpener :: (MonadDOM m) => DocumentPictureInPictureOptions -> Bool -> m ()+setDisallowReturnToOpener self val = liftDOM (void ((js_setDisallowReturnToOpener (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"disallowReturnToOpener\"]; })"+        js_getDisallowReturnToOpener :: DocumentPictureInPictureOptions -> IO JSVal+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-disallowreturntoopener DocumentPictureInPictureOptions.disallowReturnToOpener specification>+getDisallowReturnToOpener :: (MonadDOM m) => DocumentPictureInPictureOptions -> m (Maybe Bool)+getDisallowReturnToOpener self = liftDOM (((js_getDisallowReturnToOpener (self)) >>= fromJSValUnchecked))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-disallowreturntoopener DocumentPictureInPictureOptions.disallowReturnToOpener specification>+getDisallowReturnToOpenerUnsafe :: (MonadDOM m, HasCallStack) => DocumentPictureInPictureOptions -> m Bool+getDisallowReturnToOpenerUnsafe self = liftDOM ((((js_getDisallowReturnToOpener (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-disallowreturntoopener DocumentPictureInPictureOptions.disallowReturnToOpener specification>+getDisallowReturnToOpenerUnchecked :: (MonadDOM m) => DocumentPictureInPictureOptions -> m Bool+getDisallowReturnToOpenerUnchecked self = liftDOM ((pFromJSVal <$> (js_getDisallowReturnToOpener (self))))++foreign import javascript safe "(($1, $2) => { $1[\"preferInitialWindowPlacement\"] = $2; })"+        js_setPreferInitialWindowPlacement :: DocumentPictureInPictureOptions -> Bool -> IO ()+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-preferinitialwindowplacement DocumentPictureInPictureOptions.preferInitialWindowPlacement specification>+setPreferInitialWindowPlacement :: (MonadDOM m) => DocumentPictureInPictureOptions -> Bool -> m ()+setPreferInitialWindowPlacement self val = liftDOM (void ((js_setPreferInitialWindowPlacement (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"preferInitialWindowPlacement\"]; })"+        js_getPreferInitialWindowPlacement :: DocumentPictureInPictureOptions -> IO JSVal+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-preferinitialwindowplacement DocumentPictureInPictureOptions.preferInitialWindowPlacement specification>+getPreferInitialWindowPlacement :: (MonadDOM m) => DocumentPictureInPictureOptions -> m (Maybe Bool)+getPreferInitialWindowPlacement self = liftDOM (((js_getPreferInitialWindowPlacement (self)) >>= fromJSValUnchecked))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-preferinitialwindowplacement DocumentPictureInPictureOptions.preferInitialWindowPlacement specification>+getPreferInitialWindowPlacementUnsafe :: (MonadDOM m, HasCallStack) => DocumentPictureInPictureOptions -> m Bool+getPreferInitialWindowPlacementUnsafe self = liftDOM ((((js_getPreferInitialWindowPlacement (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-preferinitialwindowplacement DocumentPictureInPictureOptions.preferInitialWindowPlacement specification>+getPreferInitialWindowPlacementUnchecked :: (MonadDOM m) => DocumentPictureInPictureOptions -> m Bool+getPreferInitialWindowPlacementUnchecked self = liftDOM ((pFromJSVal <$> (js_getPreferInitialWindowPlacement (self))))
src/GHCJS/DOM/JSFFI/Generated/DocumentTimeline.hs view
@@ -1,36 +1,23 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from web-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DocumentTimeline-       (js_newDocumentTimeline, newDocumentTimeline, DocumentTimeline(..),-        gTypeDocumentTimeline)+       (js_newDocumentTimeline, newDocumentTimeline, DocumentTimeline(..), gTypeDocumentTimeline)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1) => { return new window[\"DocumentTimeline\"]($1); })" js_newDocumentTimeline ::-        Double -> IO DocumentTimeline --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentTimeline Mozilla DocumentTimeline documentation> -newDocumentTimeline :: (MonadIO m) => Double -> m DocumentTimeline-newDocumentTimeline originTime-  = liftIO (js_newDocumentTimeline originTime)+foreign import javascript safe "(($1) => { return new globalThis[\"DocumentTimeline\"]($1); })"+        js_newDocumentTimeline :: JSVal -> IO DocumentTimeline+-- | <https://developer.mozilla.org/docs/Web/API/DocumentTimeline/DocumentTimeline MDN DocumentTimeline. documentation>+newDocumentTimeline :: (MonadDOM m) => Maybe DocumentTimelineOptions -> m DocumentTimeline+newDocumentTimeline options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a1' -> js_newDocumentTimeline a1'))
+ src/GHCJS/DOM/JSFFI/Generated/DocumentTimelineOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from web-animations-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DocumentTimelineOptions+       (js_newDocumentTimelineOptions, js_setOriginTime, js_getOriginTime, newDocumentTimelineOptions, setOriginTime, getOriginTime, getOriginTimeUnsafe, getOriginTimeUnchecked, DocumentTimelineOptions(..), gTypeDocumentTimelineOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDocumentTimelineOptions :: IO DocumentTimelineOptions+-- | <https://drafts.csswg.org/web-animations-1/#dictdef-documenttimelineoptions DocumentTimelineOptions specification>+newDocumentTimelineOptions :: (MonadDOM m) => m DocumentTimelineOptions+newDocumentTimelineOptions = liftDOM ((js_newDocumentTimelineOptions))++foreign import javascript safe "(($1, $2) => { $1[\"originTime\"] = $2; })"+        js_setOriginTime :: DocumentTimelineOptions -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-documenttimelineoptions-origintime DocumentTimelineOptions.originTime specification>+setOriginTime :: (MonadDOM m) => DocumentTimelineOptions -> Double -> m ()+setOriginTime self val = liftDOM (void ((js_setOriginTime (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"originTime\"]; })"+        js_getOriginTime :: DocumentTimelineOptions -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-documenttimelineoptions-origintime DocumentTimelineOptions.originTime specification>+getOriginTime :: (MonadDOM m) => DocumentTimelineOptions -> m (Maybe Double)+getOriginTime self = liftDOM (((js_getOriginTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-documenttimelineoptions-origintime DocumentTimelineOptions.originTime specification>+getOriginTimeUnsafe :: (MonadDOM m, HasCallStack) => DocumentTimelineOptions -> m Double+getOriginTimeUnsafe self = liftDOM ((((js_getOriginTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-documenttimelineoptions-origintime DocumentTimelineOptions.originTime specification>+getOriginTimeUnchecked :: (MonadDOM m) => DocumentTimelineOptions -> m Double+getOriginTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getOriginTime (self))))
src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs view
@@ -1,51 +1,35 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DocumentType-       (js_getName, getName, js_getPublicId, getPublicId, js_getSystemId,-        getSystemId, DocumentType(..), gTypeDocumentType)+       (js_getName, js_getPublicId, js_getSystemId, getName, getPublicId, getSystemId, DocumentType(..), gTypeDocumentType)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName ::-        DocumentType -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.name Mozilla DocumentType.name documentation> -getName ::-        (MonadIO m, FromJSString result) => DocumentType -> m result-getName self = liftIO (fromJSString <$> (js_getName self))- -foreign import javascript unsafe "(($1) => { return $1[\"publicId\"]; })" js_getPublicId-        :: DocumentType -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+        js_getName :: DocumentType -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DocumentType/name MDN DocumentType.name documentation>+getName :: (MonadDOM m, FromJSString result) => DocumentType -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation> -getPublicId ::-            (MonadIO m, FromJSString result) => DocumentType -> m result-getPublicId self = liftIO (fromJSString <$> (js_getPublicId self))- -foreign import javascript unsafe "(($1) => { return $1[\"systemId\"]; })" js_getSystemId-        :: DocumentType -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"publicId\"]; })"+        js_getPublicId :: DocumentType -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DocumentType/publicId MDN DocumentType.publicId documentation>+getPublicId :: (MonadDOM m, FromJSString result) => DocumentType -> m result+getPublicId self = liftDOM ((fromJSString <$> (js_getPublicId (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation> -getSystemId ::-            (MonadIO m, FromJSString result) => DocumentType -> m result-getSystemId self = liftIO (fromJSString <$> (js_getSystemId self))+foreign import javascript unsafe "(($1) => { return $1[\"systemId\"]; })"+        js_getSystemId :: DocumentType -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DocumentType/systemId MDN DocumentType.systemId documentation>+getSystemId :: (MonadDOM m, FromJSString result) => DocumentType -> m result+getSystemId self = liftDOM ((fromJSString <$> (js_getSystemId (self))))
+ src/GHCJS/DOM/JSFFI/Generated/DoubleRange.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from mediacapture-streams (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DoubleRange+       (js_newDoubleRange, js_setMax, js_getMax, js_setMin, js_getMin, newDoubleRange, setMax, getMax, getMaxUnsafe, getMaxUnchecked, setMin, getMin, getMinUnsafe, getMinUnchecked, DoubleRange(..), gTypeDoubleRange, IsDoubleRange, toDoubleRange)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDoubleRange :: IO DoubleRange+-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange DoubleRange specification>+newDoubleRange :: (MonadDOM m) => m DoubleRange+newDoubleRange = liftDOM ((js_newDoubleRange))++foreign import javascript safe "(($1, $2) => { $1[\"max\"] = $2; })"+        js_setMax :: DoubleRange -> Double -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-max DoubleRange.max specification>+setMax :: (MonadDOM m, IsDoubleRange self) => self -> Double -> m ()+setMax self val = liftDOM (void ((js_setMax ((Types.toDoubleRange self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"max\"]; })"+        js_getMax :: DoubleRange -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-max DoubleRange.max specification>+getMax :: (MonadDOM m, IsDoubleRange self) => self -> m (Maybe Double)+getMax self = liftDOM (((js_getMax ((Types.toDoubleRange self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-max DoubleRange.max specification>+getMaxUnsafe :: (MonadDOM m, IsDoubleRange self, HasCallStack) => self -> m Double+getMaxUnsafe self = liftDOM ((((js_getMax ((Types.toDoubleRange self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-max DoubleRange.max specification>+getMaxUnchecked :: (MonadDOM m, IsDoubleRange self) => self -> m Double+getMaxUnchecked self = liftDOM ((pFromJSVal <$> (js_getMax ((Types.toDoubleRange self)))))++foreign import javascript safe "(($1, $2) => { $1[\"min\"] = $2; })"+        js_setMin :: DoubleRange -> Double -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-min DoubleRange.min specification>+setMin :: (MonadDOM m, IsDoubleRange self) => self -> Double -> m ()+setMin self val = liftDOM (void ((js_setMin ((Types.toDoubleRange self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"min\"]; })"+        js_getMin :: DoubleRange -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-min DoubleRange.min specification>+getMin :: (MonadDOM m, IsDoubleRange self) => self -> m (Maybe Double)+getMin self = liftDOM (((js_getMin ((Types.toDoubleRange self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-min DoubleRange.min specification>+getMinUnsafe :: (MonadDOM m, IsDoubleRange self, HasCallStack) => self -> m Double+getMinUnsafe self = liftDOM ((((js_getMin ((Types.toDoubleRange self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-min DoubleRange.min specification>+getMinUnchecked :: (MonadDOM m, IsDoubleRange self) => self -> m Double+getMinUnchecked self = liftDOM ((pFromJSVal <$> (js_getMin ((Types.toDoubleRange self)))))
+ src/GHCJS/DOM/JSFFI/Generated/DragEvent.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DragEvent+       (js_newDragEvent, js_getDataTransfer, newDragEvent, getDataTransfer, getDataTransferUnsafe, getDataTransferUnchecked, DragEvent(..), gTypeDragEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"DragEvent\"]($1, $2); })"+        js_newDragEvent :: JSString -> JSVal -> IO DragEvent+-- | <https://developer.mozilla.org/docs/Web/API/DragEvent/DragEvent MDN DragEvent. documentation>+newDragEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe DragEventInit -> m DragEvent+newDragEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newDragEvent (toJSString type') a2'))++foreign import javascript unsafe "(($1) => { return $1[\"dataTransfer\"]; })"+        js_getDataTransfer :: DragEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DragEvent/dataTransfer MDN DragEvent.dataTransfer documentation>+getDataTransfer :: (MonadDOM m) => DragEvent -> m (Maybe DataTransfer)+getDataTransfer self = liftDOM (((js_getDataTransfer (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DragEvent/dataTransfer MDN DragEvent.dataTransfer documentation>+getDataTransferUnsafe :: (MonadDOM m, HasCallStack) => DragEvent -> m DataTransfer+getDataTransferUnsafe self = liftDOM ((((js_getDataTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DragEvent/dataTransfer MDN DragEvent.dataTransfer documentation>+getDataTransferUnchecked :: (MonadDOM m) => DragEvent -> m DataTransfer+getDataTransferUnchecked self = liftDOM ((pFromJSVal <$> (js_getDataTransfer (self))))
+ src/GHCJS/DOM/JSFFI/Generated/DragEventInit.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DragEventInit+       (js_newDragEventInit, js_setDataTransfer, js_getDataTransfer, newDragEventInit, setDataTransfer, getDataTransfer, getDataTransferUnsafe, getDataTransferUnchecked, DragEventInit(..), gTypeDragEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDragEventInit :: IO DragEventInit+-- | <https://html.spec.whatwg.org/multipage/dnd.html#drageventinit DragEventInit specification>+newDragEventInit :: (MonadDOM m) => m DragEventInit+newDragEventInit = liftDOM ((js_newDragEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"dataTransfer\"] = $2; })"+        js_setDataTransfer :: DragEventInit -> JSVal -> IO ()+setDataTransfer :: (MonadDOM m) => DragEventInit -> Maybe DataTransfer -> m ()+setDataTransfer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDataTransfer (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"dataTransfer\"]; })"+        js_getDataTransfer :: DragEventInit -> IO JSVal+getDataTransfer :: (MonadDOM m) => DragEventInit -> m (Maybe DataTransfer)+getDataTransfer self = liftDOM (((js_getDataTransfer (self)) >>= fromJSValUnchecked))++getDataTransferUnsafe :: (MonadDOM m, HasCallStack) => DragEventInit -> m DataTransfer+getDataTransferUnsafe self = liftDOM ((((js_getDataTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++getDataTransferUnchecked :: (MonadDOM m) => DragEventInit -> m DataTransfer+getDataTransferUnchecked self = liftDOM ((pFromJSVal <$> (js_getDataTransfer (self))))
src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs view
@@ -1,73 +1,59 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode-       (js_getThreshold, getThreshold, js_getKnee, getKnee, js_getRatio,-        getRatio, js_getReduction, getReduction, js_getAttack, getAttack,-        js_getRelease, getRelease, DynamicsCompressorNode(..),-        gTypeDynamicsCompressorNode)+       (js_newDynamicsCompressorNode, js_getThreshold, js_getKnee, js_getRatio, js_getReduction, js_getAttack, js_getRelease, newDynamicsCompressorNode, getThreshold, getKnee, getRatio, getReduction, getAttack, getRelease, DynamicsCompressorNode(..), gTypeDynamicsCompressorNode)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- ++foreign import javascript safe "(($1, $2) => { return new globalThis[\"DynamicsCompressorNode\"]($1, $2); })"+        js_newDynamicsCompressorNode :: BaseAudioContext -> JSVal -> IO DynamicsCompressorNode+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/DynamicsCompressorNode MDN DynamicsCompressorNode. documentation>+newDynamicsCompressorNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe DynamicsCompressorOptions -> m DynamicsCompressorNode+newDynamicsCompressorNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newDynamicsCompressorNode (Types.toBaseAudioContext context) a2'))+ foreign import javascript unsafe "(($1) => { return $1[\"threshold\"]; })"         js_getThreshold :: DynamicsCompressorNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/threshold MDN DynamicsCompressorNode.threshold documentation>+getThreshold :: (MonadDOM m) => DynamicsCompressorNode -> m AudioParam+getThreshold self = liftDOM ((js_getThreshold (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation> -getThreshold ::-             (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getThreshold self = liftIO (js_getThreshold self)- -foreign import javascript unsafe "(($1) => { return $1[\"knee\"]; })" js_getKnee ::-        DynamicsCompressorNode -> IO AudioParam+foreign import javascript unsafe "(($1) => { return $1[\"knee\"]; })"+        js_getKnee :: DynamicsCompressorNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/knee MDN DynamicsCompressorNode.knee documentation>+getKnee :: (MonadDOM m) => DynamicsCompressorNode -> m AudioParam+getKnee self = liftDOM ((js_getKnee (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation> -getKnee :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getKnee self = liftIO (js_getKnee self)- -foreign import javascript unsafe "(($1) => { return $1[\"ratio\"]; })" js_getRatio ::-        DynamicsCompressorNode -> IO AudioParam+foreign import javascript unsafe "(($1) => { return $1[\"ratio\"]; })"+        js_getRatio :: DynamicsCompressorNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/ratio MDN DynamicsCompressorNode.ratio documentation>+getRatio :: (MonadDOM m) => DynamicsCompressorNode -> m AudioParam+getRatio self = liftDOM ((js_getRatio (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation> -getRatio :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getRatio self = liftIO (js_getRatio self)-  foreign import javascript unsafe "(($1) => { return $1[\"reduction\"]; })"-        js_getReduction :: DynamicsCompressorNode -> IO AudioParam---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation> -getReduction ::-             (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getReduction self = liftIO (js_getReduction self)- -foreign import javascript unsafe "(($1) => { return $1[\"attack\"]; })" js_getAttack ::-        DynamicsCompressorNode -> IO AudioParam+        js_getReduction :: DynamicsCompressorNode -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/reduction MDN DynamicsCompressorNode.reduction documentation>+getReduction :: (MonadDOM m) => DynamicsCompressorNode -> m Float+getReduction self = liftDOM ((js_getReduction (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation> -getAttack :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getAttack self = liftIO (js_getAttack self)- -foreign import javascript unsafe "(($1) => { return $1[\"release\"]; })" js_getRelease ::-        DynamicsCompressorNode -> IO AudioParam+foreign import javascript unsafe "(($1) => { return $1[\"attack\"]; })"+        js_getAttack :: DynamicsCompressorNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/attack MDN DynamicsCompressorNode.attack documentation>+getAttack :: (MonadDOM m) => DynamicsCompressorNode -> m AudioParam+getAttack self = liftDOM ((js_getAttack (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation> -getRelease :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getRelease self = liftIO (js_getRelease self)+foreign import javascript unsafe "(($1) => { return $1[\"release\"]; })"+        js_getRelease :: DynamicsCompressorNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/release MDN DynamicsCompressorNode.release documentation>+getRelease :: (MonadDOM m) => DynamicsCompressorNode -> m AudioParam+getRelease self = liftDOM ((js_getRelease (self)))
+ src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorOptions.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DynamicsCompressorOptions+       (js_newDynamicsCompressorOptions, js_setAttack, js_getAttack, js_setKnee, js_getKnee, js_setRatio, js_getRatio, js_setRelease, js_getRelease, js_setThreshold, js_getThreshold, newDynamicsCompressorOptions, setAttack, getAttack, getAttackUnsafe, getAttackUnchecked, setKnee, getKnee, getKneeUnsafe, getKneeUnchecked, setRatio, getRatio, getRatioUnsafe, getRatioUnchecked, setRelease, getRelease, getReleaseUnsafe, getReleaseUnchecked, setThreshold, getThreshold, getThresholdUnsafe, getThresholdUnchecked, DynamicsCompressorOptions(..), gTypeDynamicsCompressorOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newDynamicsCompressorOptions :: IO DynamicsCompressorOptions+-- | <https://webaudio.github.io/web-audio-api/#DynamicsCompressorOptions DynamicsCompressorOptions specification>+newDynamicsCompressorOptions :: (MonadDOM m) => m DynamicsCompressorOptions+newDynamicsCompressorOptions = liftDOM ((js_newDynamicsCompressorOptions))++foreign import javascript safe "(($1, $2) => { $1[\"attack\"] = $2; })"+        js_setAttack :: DynamicsCompressorOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-attack DynamicsCompressorOptions.attack specification>+setAttack :: (MonadDOM m) => DynamicsCompressorOptions -> Float -> m ()+setAttack self val = liftDOM (void ((js_setAttack (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"attack\"]; })"+        js_getAttack :: DynamicsCompressorOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-attack DynamicsCompressorOptions.attack specification>+getAttack :: (MonadDOM m) => DynamicsCompressorOptions -> m (Maybe Float)+getAttack self = liftDOM (((js_getAttack (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-attack DynamicsCompressorOptions.attack specification>+getAttackUnsafe :: (MonadDOM m, HasCallStack) => DynamicsCompressorOptions -> m Float+getAttackUnsafe self = liftDOM ((((js_getAttack (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-attack DynamicsCompressorOptions.attack specification>+getAttackUnchecked :: (MonadDOM m) => DynamicsCompressorOptions -> m Float+getAttackUnchecked self = liftDOM ((pFromJSVal <$> (js_getAttack (self))))++foreign import javascript safe "(($1, $2) => { $1[\"knee\"] = $2; })"+        js_setKnee :: DynamicsCompressorOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-knee DynamicsCompressorOptions.knee specification>+setKnee :: (MonadDOM m) => DynamicsCompressorOptions -> Float -> m ()+setKnee self val = liftDOM (void ((js_setKnee (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"knee\"]; })"+        js_getKnee :: DynamicsCompressorOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-knee DynamicsCompressorOptions.knee specification>+getKnee :: (MonadDOM m) => DynamicsCompressorOptions -> m (Maybe Float)+getKnee self = liftDOM (((js_getKnee (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-knee DynamicsCompressorOptions.knee specification>+getKneeUnsafe :: (MonadDOM m, HasCallStack) => DynamicsCompressorOptions -> m Float+getKneeUnsafe self = liftDOM ((((js_getKnee (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-knee DynamicsCompressorOptions.knee specification>+getKneeUnchecked :: (MonadDOM m) => DynamicsCompressorOptions -> m Float+getKneeUnchecked self = liftDOM ((pFromJSVal <$> (js_getKnee (self))))++foreign import javascript safe "(($1, $2) => { $1[\"ratio\"] = $2; })"+        js_setRatio :: DynamicsCompressorOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-ratio DynamicsCompressorOptions.ratio specification>+setRatio :: (MonadDOM m) => DynamicsCompressorOptions -> Float -> m ()+setRatio self val = liftDOM (void ((js_setRatio (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"ratio\"]; })"+        js_getRatio :: DynamicsCompressorOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-ratio DynamicsCompressorOptions.ratio specification>+getRatio :: (MonadDOM m) => DynamicsCompressorOptions -> m (Maybe Float)+getRatio self = liftDOM (((js_getRatio (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-ratio DynamicsCompressorOptions.ratio specification>+getRatioUnsafe :: (MonadDOM m, HasCallStack) => DynamicsCompressorOptions -> m Float+getRatioUnsafe self = liftDOM ((((js_getRatio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-ratio DynamicsCompressorOptions.ratio specification>+getRatioUnchecked :: (MonadDOM m) => DynamicsCompressorOptions -> m Float+getRatioUnchecked self = liftDOM ((pFromJSVal <$> (js_getRatio (self))))++foreign import javascript safe "(($1, $2) => { $1[\"release\"] = $2; })"+        js_setRelease :: DynamicsCompressorOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-release DynamicsCompressorOptions.release specification>+setRelease :: (MonadDOM m) => DynamicsCompressorOptions -> Float -> m ()+setRelease self val = liftDOM (void ((js_setRelease (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"release\"]; })"+        js_getRelease :: DynamicsCompressorOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-release DynamicsCompressorOptions.release specification>+getRelease :: (MonadDOM m) => DynamicsCompressorOptions -> m (Maybe Float)+getRelease self = liftDOM (((js_getRelease (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-release DynamicsCompressorOptions.release specification>+getReleaseUnsafe :: (MonadDOM m, HasCallStack) => DynamicsCompressorOptions -> m Float+getReleaseUnsafe self = liftDOM ((((js_getRelease (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-release DynamicsCompressorOptions.release specification>+getReleaseUnchecked :: (MonadDOM m) => DynamicsCompressorOptions -> m Float+getReleaseUnchecked self = liftDOM ((pFromJSVal <$> (js_getRelease (self))))++foreign import javascript safe "(($1, $2) => { $1[\"threshold\"] = $2; })"+        js_setThreshold :: DynamicsCompressorOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-threshold DynamicsCompressorOptions.threshold specification>+setThreshold :: (MonadDOM m) => DynamicsCompressorOptions -> Float -> m ()+setThreshold self val = liftDOM (void ((js_setThreshold (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"threshold\"]; })"+        js_getThreshold :: DynamicsCompressorOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-threshold DynamicsCompressorOptions.threshold specification>+getThreshold :: (MonadDOM m) => DynamicsCompressorOptions -> m (Maybe Float)+getThreshold self = liftDOM (((js_getThreshold (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-threshold DynamicsCompressorOptions.threshold specification>+getThresholdUnsafe :: (MonadDOM m, HasCallStack) => DynamicsCompressorOptions -> m Float+getThresholdUnsafe self = liftDOM ((((js_getThreshold (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-threshold DynamicsCompressorOptions.threshold specification>+getThresholdUnchecked :: (MonadDOM m) => DynamicsCompressorOptions -> m Float+getThresholdUnchecked self = liftDOM ((pFromJSVal <$> (js_getThreshold (self))))
− src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax-       (pattern MIN_EXT, pattern MAX_EXT, EXTBlendMinMax(..),-        gTypeEXTBlendMinMax)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums-pattern MIN_EXT = 32775-pattern MAX_EXT = 32776
− src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs
@@ -1,30 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic-       (pattern TEXTURE_MAX_ANISOTROPY_EXT,-        pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT,-        EXTTextureFilterAnisotropic(..), gTypeEXTTextureFilterAnisotropic)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums-pattern TEXTURE_MAX_ANISOTROPY_EXT = 34046-pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT = 34047
+ src/GHCJS/DOM/JSFFI/Generated/EXT_blend_minmax.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_blend_minmax (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_blend_minmax+       (pattern MIN_EXT, pattern MAX_EXT, EXT_blend_minmax(..), gTypeEXT_blend_minmax)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++pattern MIN_EXT = 0x8007++pattern MAX_EXT = 0x8008
+ src/GHCJS/DOM/JSFFI/Generated/EXT_clip_control.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_clip_control (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_clip_control+       (js_clipControlEXT, clipControlEXT, pattern LOWER_LEFT_EXT, pattern UPPER_LEFT_EXT, pattern NEGATIVE_ONE_TO_ONE_EXT, pattern ZERO_TO_ONE_EXT, pattern CLIP_ORIGIN_EXT, pattern CLIP_DEPTH_MODE_EXT, EXT_clip_control(..), gTypeEXT_clip_control)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return $1[\"clipControlEXT\"]($2, $3); })"+        js_clipControlEXT :: EXT_clip_control -> Word -> Word -> IO ()+clipControlEXT :: (MonadDOM m) => EXT_clip_control -> Word -> Word -> m ()+clipControlEXT self origin depth = liftDOM (void ((js_clipControlEXT (self) (origin) (depth))))++pattern LOWER_LEFT_EXT = 0x8CA1++pattern UPPER_LEFT_EXT = 0x8CA2++pattern NEGATIVE_ONE_TO_ONE_EXT = 0x935E++pattern ZERO_TO_ONE_EXT = 0x935F++pattern CLIP_ORIGIN_EXT = 0x935C++pattern CLIP_DEPTH_MODE_EXT = 0x935D
+ src/GHCJS/DOM/JSFFI/Generated/EXT_color_buffer_float.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_color_buffer_float (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_float+       (EXT_color_buffer_float(..), gTypeEXT_color_buffer_float)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
+ src/GHCJS/DOM/JSFFI/Generated/EXT_color_buffer_half_float.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_color_buffer_half_float (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_half_float+       (pattern RGBA16F_EXT, pattern RGB16F_EXT, pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE_EXT, pattern UNSIGNED_NORMALIZED_EXT, EXT_color_buffer_half_float(..), gTypeEXT_color_buffer_half_float)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++pattern RGBA16F_EXT = 0x881A++pattern RGB16F_EXT = 0x881B++pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE_EXT = 0x8211++pattern UNSIGNED_NORMALIZED_EXT = 0x8C17
+ src/GHCJS/DOM/JSFFI/Generated/EXT_float_blend.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_float_blend (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_float_blend+       (EXT_float_blend(..), gTypeEXT_float_blend)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
+ src/GHCJS/DOM/JSFFI/Generated/EXT_frag_depth.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_frag_depth (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_frag_depth+       (EXT_frag_depth(..), gTypeEXT_frag_depth)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
+ src/GHCJS/DOM/JSFFI/Generated/EXT_polygon_offset_clamp.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_polygon_offset_clamp (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_polygon_offset_clamp+       (js_polygonOffsetClampEXT, polygonOffsetClampEXT, pattern POLYGON_OFFSET_CLAMP_EXT, EXT_polygon_offset_clamp(..), gTypeEXT_polygon_offset_clamp)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"polygonOffsetClampEXT\"]($2, $3, $4); })"+        js_polygonOffsetClampEXT :: EXT_polygon_offset_clamp -> Float -> Float -> Float -> IO ()+polygonOffsetClampEXT :: (MonadDOM m) => EXT_polygon_offset_clamp -> Float -> Float -> Float -> m ()+polygonOffsetClampEXT self factor units clamp = liftDOM (void ((js_polygonOffsetClampEXT (self) (factor) (units) (clamp))))++pattern POLYGON_OFFSET_CLAMP_EXT = 0x8E1B
+ src/GHCJS/DOM/JSFFI/Generated/EXT_sRGB.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_sRGB (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_sRGB+       (pattern SRGB_EXT, pattern SRGB_ALPHA_EXT, pattern SRGB8_ALPHA8_EXT, pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT, EXT_sRGB(..), gTypeEXT_sRGB)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++pattern SRGB_EXT = 0x8C40++pattern SRGB_ALPHA_EXT = 0x8C42++pattern SRGB8_ALPHA8_EXT = 0x8C43++pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT = 0x8210
+ src/GHCJS/DOM/JSFFI/Generated/EXT_shader_texture_lod.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_shader_texture_lod (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_shader_texture_lod+       (EXT_shader_texture_lod(..), gTypeEXT_shader_texture_lod)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
+ src/GHCJS/DOM/JSFFI/Generated/EXT_texture_compression_bptc.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_texture_compression_bptc (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_bptc+       (pattern COMPRESSED_RGBA_BPTC_UNORM_EXT, pattern COMPRESSED_SRGB_ALPHA_BPTC_UNORM_EXT, pattern COMPRESSED_RGB_BPTC_SIGNED_FLOAT_EXT, pattern COMPRESSED_RGB_BPTC_UNSIGNED_FLOAT_EXT, EXT_texture_compression_bptc(..), gTypeEXT_texture_compression_bptc)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++pattern COMPRESSED_RGBA_BPTC_UNORM_EXT = 0x8E8C++pattern COMPRESSED_SRGB_ALPHA_BPTC_UNORM_EXT = 0x8E8D++pattern COMPRESSED_RGB_BPTC_SIGNED_FLOAT_EXT = 0x8E8E++pattern COMPRESSED_RGB_BPTC_UNSIGNED_FLOAT_EXT = 0x8E8F
+ src/GHCJS/DOM/JSFFI/Generated/EXT_texture_compression_rgtc.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_texture_compression_rgtc (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_rgtc+       (pattern COMPRESSED_RED_RGTC1_EXT, pattern COMPRESSED_SIGNED_RED_RGTC1_EXT, pattern COMPRESSED_RED_GREEN_RGTC2_EXT, pattern COMPRESSED_SIGNED_RED_GREEN_RGTC2_EXT, EXT_texture_compression_rgtc(..), gTypeEXT_texture_compression_rgtc)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++pattern COMPRESSED_RED_RGTC1_EXT = 0x8DBB++pattern COMPRESSED_SIGNED_RED_RGTC1_EXT = 0x8DBC++pattern COMPRESSED_RED_GREEN_RGTC2_EXT = 0x8DBD++pattern COMPRESSED_SIGNED_RED_GREEN_RGTC2_EXT = 0x8DBE
+ src/GHCJS/DOM/JSFFI/Generated/EXT_texture_filter_anisotropic.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_texture_filter_anisotropic (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_texture_filter_anisotropic+       (pattern TEXTURE_MAX_ANISOTROPY_EXT, pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT, EXT_texture_filter_anisotropic(..), gTypeEXT_texture_filter_anisotropic)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++pattern TEXTURE_MAX_ANISOTROPY_EXT = 0x84FE++pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT = 0x84FF
+ src/GHCJS/DOM/JSFFI/Generated/EXT_texture_mirror_clamp_to_edge.hs view
@@ -0,0 +1,19 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_texture_mirror_clamp_to_edge (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_texture_mirror_clamp_to_edge+       (pattern MIRROR_CLAMP_TO_EDGE_EXT, EXT_texture_mirror_clamp_to_edge(..), gTypeEXT_texture_mirror_clamp_to_edge)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++pattern MIRROR_CLAMP_TO_EDGE_EXT = 0x8743
+ src/GHCJS/DOM/JSFFI/Generated/EXT_texture_norm16.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_texture_norm16 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_texture_norm16+       (pattern R16_EXT, pattern RG16_EXT, pattern RGB16_EXT, pattern RGBA16_EXT, pattern R16_SNORM_EXT, pattern RG16_SNORM_EXT, pattern RGB16_SNORM_EXT, pattern RGBA16_SNORM_EXT, EXT_texture_norm16(..), gTypeEXT_texture_norm16)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++pattern R16_EXT = 0x822A++pattern RG16_EXT = 0x822C++pattern RGB16_EXT = 0x8054++pattern RGBA16_EXT = 0x805B++pattern R16_SNORM_EXT = 0x8F98++pattern RG16_SNORM_EXT = 0x8F99++pattern RGB16_SNORM_EXT = 0x8F9A++pattern RGBA16_SNORM_EXT = 0x8F9B
− src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs
@@ -1,33 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.EXTsRGB-       (pattern SRGB_EXT, pattern SRGB_ALPHA_EXT,-        pattern SRGB8_ALPHA8_EXT,-        pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT, EXTsRGB(..),-        gTypeEXTsRGB)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums-pattern SRGB_EXT = 35904-pattern SRGB_ALPHA_EXT = 35906-pattern SRGB8_ALPHA8_EXT = 35907-pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT = 33296
+ src/GHCJS/DOM/JSFFI/Generated/EffectTiming.hs view
@@ -0,0 +1,203 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from web-animations-1 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EffectTiming+       (js_newEffectTiming, js_setFill, js_getFill, js_setIterationStart, js_getIterationStart, js_setIterations, js_getIterations, js_setDirection, js_getDirection, js_setEasing, js_getEasing, js_setDelay, js_getDelay, js_setEndDelay, js_getEndDelay, js_setPlaybackRate, js_getPlaybackRate, js_setDuration, js_getDuration, newEffectTiming, setFill, getFill, getFillUnsafe, getFillUnchecked, setIterationStart, getIterationStart, getIterationStartUnsafe, getIterationStartUnchecked, setIterations, getIterations, getIterationsUnsafe, getIterationsUnchecked, setDirection, getDirection, getDirectionUnsafe, getDirectionUnchecked, setEasing, getEasing, getEasingUnsafe, getEasingUnchecked, setDelay, getDelay, getDelayUnsafe, getDelayUnchecked, setEndDelay, getEndDelay, getEndDelayUnsafe, getEndDelayUnchecked, setPlaybackRate, getPlaybackRate, getPlaybackRateUnsafe, getPlaybackRateUnchecked, setDuration, getDuration, getDurationUnsafe, getDurationUnchecked, EffectTiming(..), gTypeEffectTiming, IsEffectTiming, toEffectTiming)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newEffectTiming :: IO EffectTiming+-- | <https://drafts.csswg.org/web-animations-1/#dictdef-effecttiming EffectTiming specification>+newEffectTiming :: (MonadDOM m) => m EffectTiming+newEffectTiming = liftDOM ((js_newEffectTiming))++foreign import javascript safe "(($1, $2) => { $1[\"fill\"] = $2; })"+        js_setFill :: EffectTiming -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-fill EffectTiming.fill specification>+setFill :: (MonadDOM m, IsEffectTiming self) => self -> FillMode -> m ()+setFill self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFill ((Types.toEffectTiming self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"fill\"]; })"+        js_getFill :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-fill EffectTiming.fill specification>+getFill :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe FillMode)+getFill self = liftDOM (((js_getFill ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-fill EffectTiming.fill specification>+getFillUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m FillMode+getFillUnsafe self = liftDOM ((((js_getFill ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-fill EffectTiming.fill specification>+getFillUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m FillMode+getFillUnchecked self = liftDOM ((pFromJSVal <$> (js_getFill ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"iterationStart\"] = $2; })"+        js_setIterationStart :: EffectTiming -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterationstart EffectTiming.iterationStart specification>+setIterationStart :: (MonadDOM m, IsEffectTiming self) => self -> Double -> m ()+setIterationStart self val = liftDOM (void ((js_setIterationStart ((Types.toEffectTiming self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"iterationStart\"]; })"+        js_getIterationStart :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterationstart EffectTiming.iterationStart specification>+getIterationStart :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe Double)+getIterationStart self = liftDOM (((js_getIterationStart ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterationstart EffectTiming.iterationStart specification>+getIterationStartUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m Double+getIterationStartUnsafe self = liftDOM ((((js_getIterationStart ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterationstart EffectTiming.iterationStart specification>+getIterationStartUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m Double+getIterationStartUnchecked self = liftDOM ((pFromJSVal <$> (js_getIterationStart ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"iterations\"] = $2; })"+        js_setIterations :: EffectTiming -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterations EffectTiming.iterations specification>+setIterations :: (MonadDOM m, IsEffectTiming self) => self -> Double -> m ()+setIterations self val = liftDOM (void ((js_setIterations ((Types.toEffectTiming self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"iterations\"]; })"+        js_getIterations :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterations EffectTiming.iterations specification>+getIterations :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe Double)+getIterations self = liftDOM (((js_getIterations ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterations EffectTiming.iterations specification>+getIterationsUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m Double+getIterationsUnsafe self = liftDOM ((((js_getIterations ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterations EffectTiming.iterations specification>+getIterationsUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m Double+getIterationsUnchecked self = liftDOM ((pFromJSVal <$> (js_getIterations ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"direction\"] = $2; })"+        js_setDirection :: EffectTiming -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-direction EffectTiming.direction specification>+setDirection :: (MonadDOM m, IsEffectTiming self) => self -> PlaybackDirection -> m ()+setDirection self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDirection ((Types.toEffectTiming self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"direction\"]; })"+        js_getDirection :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-direction EffectTiming.direction specification>+getDirection :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe PlaybackDirection)+getDirection self = liftDOM (((js_getDirection ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-direction EffectTiming.direction specification>+getDirectionUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m PlaybackDirection+getDirectionUnsafe self = liftDOM ((((js_getDirection ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-direction EffectTiming.direction specification>+getDirectionUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m PlaybackDirection+getDirectionUnchecked self = liftDOM ((pFromJSVal <$> (js_getDirection ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"easing\"] = $2; })"+        js_setEasing :: EffectTiming -> JSString -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-easing EffectTiming.easing specification>+setEasing :: (MonadDOM m, IsEffectTiming self, ToJSString val) => self -> val -> m ()+setEasing self val = liftDOM (void ((js_setEasing ((Types.toEffectTiming self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"easing\"]; })"+        js_getEasing :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-easing EffectTiming.easing specification>+getEasing :: (MonadDOM m, IsEffectTiming self, FromJSString result) => self -> m (Maybe result)+getEasing self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getEasing ((Types.toEffectTiming self)))))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-easing EffectTiming.easing specification>+getEasingUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack, FromJSString result) => self -> m result+getEasingUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getEasing ((Types.toEffectTiming self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-easing EffectTiming.easing specification>+getEasingUnchecked :: (MonadDOM m, IsEffectTiming self, FromJSString result) => self -> m result+getEasingUnchecked self = liftDOM ((pFromJSVal <$> (js_getEasing ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"delay\"] = $2; })"+        js_setDelay :: EffectTiming -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-delay EffectTiming.delay specification>+setDelay :: (MonadDOM m, IsEffectTiming self) => self -> Double -> m ()+setDelay self val = liftDOM (void ((js_setDelay ((Types.toEffectTiming self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"delay\"]; })"+        js_getDelay :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-delay EffectTiming.delay specification>+getDelay :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe Double)+getDelay self = liftDOM (((js_getDelay ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-delay EffectTiming.delay specification>+getDelayUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m Double+getDelayUnsafe self = liftDOM ((((js_getDelay ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-delay EffectTiming.delay specification>+getDelayUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m Double+getDelayUnchecked self = liftDOM ((pFromJSVal <$> (js_getDelay ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"endDelay\"] = $2; })"+        js_setEndDelay :: EffectTiming -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-enddelay EffectTiming.endDelay specification>+setEndDelay :: (MonadDOM m, IsEffectTiming self) => self -> Double -> m ()+setEndDelay self val = liftDOM (void ((js_setEndDelay ((Types.toEffectTiming self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"endDelay\"]; })"+        js_getEndDelay :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-enddelay EffectTiming.endDelay specification>+getEndDelay :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe Double)+getEndDelay self = liftDOM (((js_getEndDelay ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-enddelay EffectTiming.endDelay specification>+getEndDelayUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m Double+getEndDelayUnsafe self = liftDOM ((((js_getEndDelay ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-enddelay EffectTiming.endDelay specification>+getEndDelayUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m Double+getEndDelayUnchecked self = liftDOM ((pFromJSVal <$> (js_getEndDelay ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"playbackRate\"] = $2; })"+        js_setPlaybackRate :: EffectTiming -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-playbackrate EffectTiming.playbackRate specification>+setPlaybackRate :: (MonadDOM m, IsEffectTiming self) => self -> Double -> m ()+setPlaybackRate self val = liftDOM (void ((js_setPlaybackRate ((Types.toEffectTiming self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"playbackRate\"]; })"+        js_getPlaybackRate :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-playbackrate EffectTiming.playbackRate specification>+getPlaybackRate :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe Double)+getPlaybackRate self = liftDOM (((js_getPlaybackRate ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-playbackrate EffectTiming.playbackRate specification>+getPlaybackRateUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m Double+getPlaybackRateUnsafe self = liftDOM ((((js_getPlaybackRate ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-playbackrate EffectTiming.playbackRate specification>+getPlaybackRateUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m Double+getPlaybackRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getPlaybackRate ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"duration\"] = $2; })"+        js_setDuration :: EffectTiming -> DoubleOrCSSNumericValueOrString -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-duration EffectTiming.duration specification>+setDuration :: (MonadDOM m, IsEffectTiming self, IsDoubleOrCSSNumericValueOrString val) => self -> val -> m ()+setDuration self val = liftDOM (void ((js_setDuration ((Types.toEffectTiming self)) (Types.toDoubleOrCSSNumericValueOrString val))))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+        js_getDuration :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-duration EffectTiming.duration specification>+getDuration :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe DoubleOrCSSNumericValueOrString)+getDuration self = liftDOM (((js_getDuration ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-duration EffectTiming.duration specification>+getDurationUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m DoubleOrCSSNumericValueOrString+getDurationUnsafe self = liftDOM ((((js_getDuration ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-duration EffectTiming.duration specification>+getDurationUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m DoubleOrCSSNumericValueOrString+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration ((Types.toEffectTiming self)))))
src/GHCJS/DOM/JSFFI/Generated/Element.hs view
@@ -1,1275 +1,749 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.Element-       (js_hasAttributes, hasAttributes, hasAttributes_,-        js_getAttributeNames, getAttributeNames, getAttributeNames_,-        js_getAttribute, getAttribute, getAttribute_, getAttributeUnsafe,-        getAttributeUnchecked, js_getAttributeNS, getAttributeNS,-        getAttributeNS_, getAttributeNSUnsafe, getAttributeNSUnchecked,-        js_setAttribute, setAttribute, js_setAttributeNS, setAttributeNS,-        js_removeAttribute, removeAttribute, js_removeAttributeNS,-        removeAttributeNS, js_hasAttribute, hasAttribute, hasAttribute_,-        js_hasAttributeNS, hasAttributeNS, hasAttributeNS_,-        js_getAttributeNode, getAttributeNode, getAttributeNode_,-        getAttributeNodeUnsafe, getAttributeNodeUnchecked,-        js_getAttributeNodeNS, getAttributeNodeNS, getAttributeNodeNS_,-        getAttributeNodeNSUnsafe, getAttributeNodeNSUnchecked,-        js_setAttributeNode, setAttributeNode, setAttributeNode_,-        setAttributeNodeUnsafe, setAttributeNodeUnchecked,-        js_setAttributeNodeNS, setAttributeNodeNS, setAttributeNodeNS_,-        setAttributeNodeNSUnsafe, setAttributeNodeNSUnchecked,-        js_removeAttributeNode, removeAttributeNode, removeAttributeNode_,-        js_attachShadow, attachShadow, attachShadow_, js_closest, closest,-        closest_, closestUnsafe, closestUnchecked, js_matches, matches,-        matches_, js_webkitMatchesSelector, webkitMatchesSelector,-        webkitMatchesSelector_, js_getElementsByTagName,-        getElementsByTagName, getElementsByTagName_,-        js_getElementsByTagNameNS, getElementsByTagNameNS,-        getElementsByTagNameNS_, js_getElementsByClassName,-        getElementsByClassName, getElementsByClassName_,-        js_insertAdjacentElement, insertAdjacentElement,-        insertAdjacentElement_, insertAdjacentElementUnsafe,-        insertAdjacentElementUnchecked, js_insertAdjacentText,-        insertAdjacentText, js_getClientRects, getClientRects,-        getClientRects_, js_getBoundingClientRect, getBoundingClientRect,-        getBoundingClientRect_, js_scrollIntoView, scrollIntoView,-        js_scrollOpt, scrollOpt, js_scroll, scroll, js_scrollToOpt,-        scrollToOpt, js_scrollTo, scrollTo, js_scrollByOpt, scrollByOpt,-        js_scrollBy, scrollBy, js_insertAdjacentHTML, insertAdjacentHTML,-        js_webkitRequestFullScreen, webkitRequestFullScreen,-        js_webkitRequestFullscreen, webkitRequestFullscreen,-        js_requestPointerLock, requestPointerLock,-        js_webkitGetRegionFlowRanges, webkitGetRegionFlowRanges,-        webkitGetRegionFlowRanges_, js_scrollIntoViewIfNeeded,-        scrollIntoViewIfNeeded, js_getNamespaceURI, getNamespaceURI,-        getNamespaceURIUnsafe, getNamespaceURIUnchecked, js_getPrefix,-        getPrefix, getPrefixUnsafe, getPrefixUnchecked, js_getLocalName,-        getLocalName, js_getTagName, getTagName, js_setId, setId, js_getId,-        getId, js_setClassName, setClassName, js_getClassName,-        getClassName, js_getClassList, getClassList, js_setSlot, setSlot,-        js_getSlot, getSlot, js_getAttributes, getAttributes,-        js_getShadowRoot, getShadowRoot, getShadowRootUnsafe,-        getShadowRootUnchecked, js_setScrollTop, setScrollTop,-        js_getScrollTop, getScrollTop, js_setScrollLeft, setScrollLeft,-        js_getScrollLeft, getScrollLeft, js_getScrollWidth, getScrollWidth,-        js_getScrollHeight, getScrollHeight, js_getClientTop, getClientTop,-        js_getClientLeft, getClientLeft, js_getClientWidth, getClientWidth,-        js_getClientHeight, getClientHeight, js_setInnerHTML, setInnerHTML,-        js_getInnerHTML, getInnerHTML, js_setOuterHTML, setOuterHTML,-        js_getOuterHTML, getOuterHTML, js_getWebkitRegionOverset,-        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, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1) => { return ($1[\"hasAttributes\"]() ? 1 : 0); })" js_hasAttributes ::-        Element -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> -hasAttributes :: (MonadIO m, IsElement self) => self -> m Bool-hasAttributes self = liftIO (js_hasAttributes (toElement self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> -hasAttributes_ :: (MonadIO m, IsElement self) => self -> m ()-hasAttributes_ self-  = liftIO (void (js_hasAttributes (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"getAttributeNames\"](); })"-        js_getAttributeNames :: Element -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNames Mozilla Element.getAttributeNames documentation> -getAttributeNames ::-                  (MonadIO m, IsElement self, FromJSString result) =>-                    self -> m [result]-getAttributeNames self-  = liftIO-      ((js_getAttributeNames (toElement self)) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNames Mozilla Element.getAttributeNames documentation> -getAttributeNames_ :: (MonadIO m, IsElement self) => self -> m ()-getAttributeNames_ self-  = liftIO (void (js_getAttributeNames (toElement self)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getAttribute\"]($2); })"-        js_getAttribute :: Element -> JSString -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttribute ::-             (MonadIO m, IsElement self, ToJSString qualifiedName,-              FromJSString result) =>-               self -> qualifiedName -> m (Maybe result)-getAttribute self qualifiedName-  = liftIO-      (fromMaybeJSString <$>-         (js_getAttribute (toElement self) (toJSString qualifiedName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttribute_ ::-              (MonadIO m, IsElement self, ToJSString qualifiedName) =>-                self -> qualifiedName -> m ()-getAttribute_ self qualifiedName-  = liftIO-      (void-         (js_getAttribute (toElement self) (toJSString qualifiedName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttributeUnsafe ::-                   (MonadIO m, IsElement self, ToJSString qualifiedName, HasCallStack,-                    FromJSString result) =>-                     self -> qualifiedName -> m result-getAttributeUnsafe self qualifiedName-  = liftIO-      ((fromMaybeJSString <$>-          (js_getAttribute (toElement self) (toJSString qualifiedName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttributeUnchecked ::-                      (MonadIO m, IsElement self, ToJSString qualifiedName,-                       FromJSString result) =>-                        self -> qualifiedName -> m result-getAttributeUnchecked self qualifiedName-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getAttribute (toElement self) (toJSString qualifiedName)))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"getAttributeNS\"]($2, $3); })"-        js_getAttributeNS ::-        Element -> Optional JSString -> JSString -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> -getAttributeNS ::-               (MonadIO m, IsElement self, ToJSString namespaceURI,-                ToJSString localName, FromJSString result) =>-                 self -> Maybe namespaceURI -> localName -> m (Maybe result)-getAttributeNS self namespaceURI localName-  = liftIO-      (fromMaybeJSString <$>-         (js_getAttributeNS (toElement self)-            (toOptionalJSString namespaceURI)-            (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> -getAttributeNS_ ::-                (MonadIO m, IsElement self, ToJSString namespaceURI,-                 ToJSString localName) =>-                  self -> Maybe namespaceURI -> localName -> m ()-getAttributeNS_ self namespaceURI localName-  = liftIO-      (void-         (js_getAttributeNS (toElement self)-            (toOptionalJSString namespaceURI)-            (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> -getAttributeNSUnsafe ::-                     (MonadIO m, IsElement self, ToJSString namespaceURI,-                      ToJSString localName, HasCallStack, FromJSString result) =>-                       self -> Maybe namespaceURI -> localName -> m result-getAttributeNSUnsafe self namespaceURI localName-  = liftIO-      ((fromMaybeJSString <$>-          (js_getAttributeNS (toElement self)-             (toOptionalJSString namespaceURI)-             (toJSString localName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> -getAttributeNSUnchecked ::-                        (MonadIO m, IsElement self, ToJSString namespaceURI,-                         ToJSString localName, FromJSString result) =>-                          self -> Maybe namespaceURI -> localName -> m result-getAttributeNSUnchecked self namespaceURI localName-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getAttributeNS (toElement self)-            (toOptionalJSString namespaceURI)-            (toJSString localName)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"setAttribute\"]($2, $3); })"-        js_setAttribute :: Element -> JSString -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttribute Mozilla Element.setAttribute documentation> -setAttribute ::-             (MonadIO m, IsElement self, ToJSString qualifiedName,-              ToJSString value) =>-               self -> qualifiedName -> value -> m ()-setAttribute self qualifiedName value-  = liftIO-      (js_setAttribute (toElement self) (toJSString qualifiedName)-         (toJSString value))- -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setAttributeNS\"]($2, $3, $4); })"-        js_setAttributeNS ::-        Element -> Optional JSString -> JSString -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNS Mozilla Element.setAttributeNS documentation> -setAttributeNS ::-               (MonadIO m, IsElement self, ToJSString namespaceURI,-                ToJSString qualifiedName, ToJSString value) =>-                 self -> Maybe namespaceURI -> qualifiedName -> value -> m ()-setAttributeNS self namespaceURI qualifiedName value-  = liftIO-      (js_setAttributeNS (toElement self)-         (toOptionalJSString namespaceURI)-         (toJSString qualifiedName)-         (toJSString value))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"removeAttribute\"]($2); })"-        js_removeAttribute :: Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttribute Mozilla Element.removeAttribute documentation> -removeAttribute ::-                (MonadIO m, IsElement self, ToJSString qualifiedName) =>-                  self -> qualifiedName -> m ()-removeAttribute self qualifiedName-  = liftIO-      (js_removeAttribute (toElement self) (toJSString qualifiedName))- -foreign import javascript unsafe-        "(($1, $2, $3) => { return $1[\"removeAttributeNS\"]($2, $3); })" js_removeAttributeNS ::-        Element -> Optional JSString -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNS Mozilla Element.removeAttributeNS documentation> -removeAttributeNS ::-                  (MonadIO m, IsElement self, ToJSString namespaceURI,-                   ToJSString localName) =>-                    self -> Maybe namespaceURI -> localName -> m ()-removeAttributeNS self namespaceURI localName-  = liftIO-      (js_removeAttributeNS (toElement self)-         (toOptionalJSString namespaceURI)-         (toJSString localName))- -foreign import javascript unsafe-        "(($1, $2) => { return ($1[\"hasAttribute\"]($2) ? 1 : 0); })" js_hasAttribute ::-        Element -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttribute Mozilla Element.hasAttribute documentation> -hasAttribute ::-             (MonadIO m, IsElement self, ToJSString qualifiedName) =>-               self -> qualifiedName -> m Bool-hasAttribute self qualifiedName-  = liftIO-      (js_hasAttribute (toElement self) (toJSString qualifiedName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttribute Mozilla Element.hasAttribute documentation> -hasAttribute_ ::-              (MonadIO m, IsElement self, ToJSString qualifiedName) =>-                self -> qualifiedName -> m ()-hasAttribute_ self qualifiedName-  = liftIO-      (void-         (js_hasAttribute (toElement self) (toJSString qualifiedName)))- -foreign import javascript unsafe-        "(($1, $2, $3) => { return ($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0); })" js_hasAttributeNS ::-        Element -> Optional JSString -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> -hasAttributeNS ::-               (MonadIO m, IsElement self, ToJSString namespaceURI,-                ToJSString localName) =>-                 self -> Maybe namespaceURI -> localName -> m Bool-hasAttributeNS self namespaceURI localName-  = liftIO-      (js_hasAttributeNS (toElement self)-         (toOptionalJSString namespaceURI)-         (toJSString localName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> -hasAttributeNS_ ::-                (MonadIO m, IsElement self, ToJSString namespaceURI,-                 ToJSString localName) =>-                  self -> Maybe namespaceURI -> localName -> m ()-hasAttributeNS_ self namespaceURI localName-  = liftIO-      (void-         (js_hasAttributeNS (toElement self)-            (toOptionalJSString namespaceURI)-            (toJSString localName)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getAttributeNode\"]($2); })"-        js_getAttributeNode :: Element -> JSString -> IO (Nullable Attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNode ::-                 (MonadIO m, IsElement self, ToJSString qualifiedName) =>-                   self -> qualifiedName -> m (Maybe Attr)-getAttributeNode self qualifiedName-  = liftIO-      (nullableToMaybe <$>-         (js_getAttributeNode (toElement self) (toJSString qualifiedName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNode_ ::-                  (MonadIO m, IsElement self, ToJSString qualifiedName) =>-                    self -> qualifiedName -> m ()-getAttributeNode_ self qualifiedName-  = liftIO-      (void-         (js_getAttributeNode (toElement self) (toJSString qualifiedName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNodeUnsafe ::-                       (MonadIO m, IsElement self, ToJSString qualifiedName,-                        HasCallStack) =>-                         self -> qualifiedName -> m Attr-getAttributeNodeUnsafe self qualifiedName-  = liftIO-      ((nullableToMaybe <$>-          (js_getAttributeNode (toElement self) (toJSString qualifiedName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNodeUnchecked ::-                          (MonadIO m, IsElement self, ToJSString qualifiedName) =>-                            self -> qualifiedName -> m Attr-getAttributeNodeUnchecked self qualifiedName-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getAttributeNode (toElement self) (toJSString qualifiedName)))- -foreign import javascript unsafe-        "(($1, $2, $3) => { return $1[\"getAttributeNodeNS\"]($2, $3); })" js_getAttributeNodeNS ::-        Element -> Optional JSString -> JSString -> IO (Nullable Attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNS ::-                   (MonadIO m, IsElement self, ToJSString namespaceURI,-                    ToJSString localName) =>-                     self -> Maybe namespaceURI -> localName -> m (Maybe Attr)-getAttributeNodeNS self namespaceURI localName-  = liftIO-      (nullableToMaybe <$>-         (js_getAttributeNodeNS (toElement self)-            (toOptionalJSString namespaceURI)-            (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNS_ ::-                    (MonadIO m, IsElement self, ToJSString namespaceURI,-                     ToJSString localName) =>-                      self -> Maybe namespaceURI -> localName -> m ()-getAttributeNodeNS_ self namespaceURI localName-  = liftIO-      (void-         (js_getAttributeNodeNS (toElement self)-            (toOptionalJSString namespaceURI)-            (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNSUnsafe ::-                         (MonadIO m, IsElement self, ToJSString namespaceURI,-                          ToJSString localName, HasCallStack) =>-                           self -> Maybe namespaceURI -> localName -> m Attr-getAttributeNodeNSUnsafe self namespaceURI localName-  = liftIO-      ((nullableToMaybe <$>-          (js_getAttributeNodeNS (toElement self)-             (toOptionalJSString namespaceURI)-             (toJSString localName)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNSUnchecked ::-                            (MonadIO m, IsElement self, ToJSString namespaceURI,-                             ToJSString localName) =>-                              self -> Maybe namespaceURI -> localName -> m Attr-getAttributeNodeNSUnchecked self namespaceURI localName-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getAttributeNodeNS (toElement self)-            (toOptionalJSString namespaceURI)-            (toJSString localName)))- -foreign import javascript safe "(($1, $2) => { return $1[\"setAttributeNode\"]($2); })"-        js_setAttributeNode :: Element -> Attr -> IO (Nullable Attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNode ::-                 (MonadIO m, IsElement self) => self -> Attr -> m (Maybe Attr)-setAttributeNode self attr-  = liftIO-      (nullableToMaybe <$> (js_setAttributeNode (toElement self) attr))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNode_ ::-                  (MonadIO m, IsElement self) => self -> Attr -> m ()-setAttributeNode_ self attr-  = liftIO (void (js_setAttributeNode (toElement self) attr))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNodeUnsafe ::-                       (MonadIO m, IsElement self, HasCallStack) => self -> Attr -> m Attr-setAttributeNodeUnsafe self attr-  = liftIO-      ((nullableToMaybe <$> (js_setAttributeNode (toElement self) attr))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNodeUnchecked ::-                          (MonadIO m, IsElement self) => self -> Attr -> m Attr-setAttributeNodeUnchecked self attr-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_setAttributeNode (toElement self) attr))- -foreign import javascript safe "(($1, $2) => { return $1[\"setAttributeNodeNS\"]($2); })"-        js_setAttributeNodeNS :: Element -> Attr -> IO (Nullable Attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNS ::-                   (MonadIO m, IsElement self) => self -> Attr -> m (Maybe Attr)-setAttributeNodeNS self attr-  = liftIO-      (nullableToMaybe <$> (js_setAttributeNodeNS (toElement self) attr))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNS_ ::-                    (MonadIO m, IsElement self) => self -> Attr -> m ()-setAttributeNodeNS_ self attr-  = liftIO (void (js_setAttributeNodeNS (toElement self) attr))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNSUnsafe ::-                         (MonadIO m, IsElement self, HasCallStack) => self -> Attr -> m Attr-setAttributeNodeNSUnsafe self attr-  = liftIO-      ((nullableToMaybe <$>-          (js_setAttributeNodeNS (toElement self) attr))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNSUnchecked ::-                            (MonadIO m, IsElement self) => self -> Attr -> m Attr-setAttributeNodeNSUnchecked self attr-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_setAttributeNodeNS (toElement self) attr))- -foreign import javascript safe "(($1, $2) => { return $1[\"removeAttributeNode\"]($2); })"-        js_removeAttributeNode :: Element -> Attr -> IO Attr---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> -removeAttributeNode ::-                    (MonadIO m, IsElement self) => self -> Attr -> m Attr-removeAttributeNode self attr-  = liftIO (js_removeAttributeNode (toElement self) attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> -removeAttributeNode_ ::-                     (MonadIO m, IsElement self) => self -> Attr -> m ()-removeAttributeNode_ self attr-  = liftIO (void (js_removeAttributeNode (toElement self) attr))- -foreign import javascript safe "(($1, $2) => { return $1[\"attachShadow\"]($2); })"-        js_attachShadow :: Element -> ShadowRootInit -> IO ShadowRoot---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attachShadow Mozilla Element.attachShadow documentation> -attachShadow ::-             (MonadIO m, IsElement self) =>-               self -> ShadowRootInit -> m ShadowRoot-attachShadow self init-  = liftIO (js_attachShadow (toElement self) init)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attachShadow Mozilla Element.attachShadow documentation> -attachShadow_ ::-              (MonadIO m, IsElement self) => self -> ShadowRootInit -> m ()-attachShadow_ self init-  = liftIO (void (js_attachShadow (toElement self) init))- -foreign import javascript safe "(($1, $2) => { return $1[\"closest\"]($2); })" js_closest ::-        Element -> JSString -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closest ::-        (MonadIO m, IsElement self, ToJSString selectors) =>-          self -> selectors -> m (Maybe Element)-closest self selectors-  = liftIO-      (nullableToMaybe <$>-         (js_closest (toElement self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closest_ ::-         (MonadIO m, IsElement self, ToJSString selectors) =>-           self -> selectors -> m ()-closest_ self selectors-  = liftIO-      (void (js_closest (toElement self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closestUnsafe ::-              (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) =>-                self -> selectors -> m Element-closestUnsafe self selectors-  = liftIO-      ((nullableToMaybe <$>-          (js_closest (toElement self) (toJSString selectors)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closestUnchecked ::-                 (MonadIO m, IsElement self, ToJSString selectors) =>-                   self -> selectors -> m Element-closestUnchecked self selectors-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_closest (toElement self) (toJSString selectors)))- -foreign import javascript safe "(($1, $2) => { return ($1[\"matches\"]($2) ? 1 : 0); })"-        js_matches :: Element -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> -matches ::-        (MonadIO m, IsElement self, ToJSString selectors) =>-          self -> selectors -> m Bool-matches self selectors-  = liftIO (js_matches (toElement self) (toJSString selectors))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> -matches_ ::-         (MonadIO m, IsElement self, ToJSString selectors) =>-           self -> selectors -> m ()-matches_ self selectors-  = liftIO-      (void (js_matches (toElement self) (toJSString selectors)))- -foreign import javascript safe-        "(($1, $2) => { return ($1[\"webkitMatchesSelector\"]($2) ? 1 : 0); })"-        js_webkitMatchesSelector :: Element -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> -webkitMatchesSelector ::-                      (MonadIO m, IsElement self, ToJSString selectors) =>-                        self -> selectors -> m Bool-webkitMatchesSelector self selectors-  = liftIO-      (js_webkitMatchesSelector (toElement self) (toJSString selectors))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> -webkitMatchesSelector_ ::-                       (MonadIO m, IsElement self, ToJSString selectors) =>-                         self -> selectors -> m ()-webkitMatchesSelector_ self selectors-  = liftIO-      (void-         (js_webkitMatchesSelector (toElement self) (toJSString selectors)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getElementsByTagName\"]($2); })"-        js_getElementsByTagName :: Element -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> -getElementsByTagName ::-                     (MonadIO m, IsElement self, ToJSString qualifiedName) =>-                       self -> qualifiedName -> m HTMLCollection-getElementsByTagName self qualifiedName-  = liftIO-      (js_getElementsByTagName (toElement self)-         (toJSString qualifiedName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> -getElementsByTagName_ ::-                      (MonadIO m, IsElement self, ToJSString qualifiedName) =>-                        self -> qualifiedName -> m ()-getElementsByTagName_ self qualifiedName-  = liftIO-      (void-         (js_getElementsByTagName (toElement self)-            (toJSString qualifiedName)))- -foreign import javascript unsafe-        "(($1, $2, $3) => { return $1[\"getElementsByTagNameNS\"]($2,\n$3); })" js_getElementsByTagNameNS-        :: Element -> Optional JSString -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> -getElementsByTagNameNS ::-                       (MonadIO m, IsElement self, ToJSString namespaceURI,-                        ToJSString localName) =>-                         self -> Maybe namespaceURI -> localName -> m HTMLCollection-getElementsByTagNameNS self namespaceURI localName-  = liftIO-      (js_getElementsByTagNameNS (toElement self)-         (toOptionalJSString namespaceURI)-         (toJSString localName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> -getElementsByTagNameNS_ ::-                        (MonadIO m, IsElement self, ToJSString namespaceURI,-                         ToJSString localName) =>-                          self -> Maybe namespaceURI -> localName -> m ()-getElementsByTagNameNS_ self namespaceURI localName-  = liftIO-      (void-         (js_getElementsByTagNameNS (toElement self)-            (toOptionalJSString namespaceURI)-            (toJSString localName)))- -foreign import javascript unsafe-        "(($1, $2) => { return $1[\"getElementsByClassName\"]($2); })" js_getElementsByClassName ::-        Element -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> -getElementsByClassName ::-                       (MonadIO m, IsElement self, ToJSString name) =>-                         self -> name -> m HTMLCollection-getElementsByClassName self name-  = liftIO-      (js_getElementsByClassName (toElement self) (toJSString name))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> -getElementsByClassName_ ::-                        (MonadIO m, IsElement self, ToJSString name) =>-                          self -> name -> m ()-getElementsByClassName_ self name-  = liftIO-      (void-         (js_getElementsByClassName (toElement self) (toJSString name)))- -foreign import javascript safe-        "(($1, $2, $3) => { return $1[\"insertAdjacentElement\"]($2,\n$3); })" js_insertAdjacentElement-        :: Element -> JSString -> Element -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> -insertAdjacentElement ::-                      (MonadIO m, IsElement self, ToJSString where',-                       IsElement element) =>-                        self -> where' -> element -> m (Maybe Element)-insertAdjacentElement self where' element-  = liftIO-      (nullableToMaybe <$>-         (js_insertAdjacentElement (toElement self) (toJSString where')-            (toElement element)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> -insertAdjacentElement_ ::-                       (MonadIO m, IsElement self, ToJSString where',-                        IsElement element) =>-                         self -> where' -> element -> m ()-insertAdjacentElement_ self where' element-  = liftIO-      (void-         (js_insertAdjacentElement (toElement self) (toJSString where')-            (toElement element)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> -insertAdjacentElementUnsafe ::-                            (MonadIO m, IsElement self, ToJSString where', IsElement element,-                             HasCallStack) =>-                              self -> where' -> element -> m Element-insertAdjacentElementUnsafe self where' element-  = liftIO-      ((nullableToMaybe <$>-          (js_insertAdjacentElement (toElement self) (toJSString where')-             (toElement element)))-         >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> -insertAdjacentElementUnchecked ::-                               (MonadIO m, IsElement self, ToJSString where',-                                IsElement element) =>-                                 self -> where' -> element -> m Element-insertAdjacentElementUnchecked self where' element-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_insertAdjacentElement (toElement self) (toJSString where')-            (toElement element)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertAdjacentText\"]($2, $3); })"-        js_insertAdjacentText :: Element -> JSString -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentText Mozilla Element.insertAdjacentText documentation> -insertAdjacentText ::-                   (MonadIO m, IsElement self, ToJSString where', ToJSString data') =>-                     self -> where' -> data' -> m ()-insertAdjacentText self where' data'-  = liftIO-      (js_insertAdjacentText (toElement self) (toJSString where')-         (toJSString data'))- -foreign import javascript unsafe "(($1) => { return $1[\"getClientRects\"](); })"-        js_getClientRects :: Element -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> -getClientRects ::-               (MonadIO m, IsElement self) => self -> m [DOMRect]-getClientRects self-  = liftIO-      ((js_getClientRects (toElement self)) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> -getClientRects_ :: (MonadIO m, IsElement self) => self -> m ()-getClientRects_ self-  = liftIO (void (js_getClientRects (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"getBoundingClientRect\"](); })"-        js_getBoundingClientRect :: Element -> IO DOMRect---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> -getBoundingClientRect ::-                      (MonadIO m, IsElement self) => self -> m DOMRect-getBoundingClientRect self-  = liftIO (js_getBoundingClientRect (toElement self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> -getBoundingClientRect_ ::-                       (MonadIO m, IsElement self) => self -> m ()-getBoundingClientRect_ self-  = liftIO (void (js_getBoundingClientRect (toElement self)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"scrollIntoView\"]($2); })"-        js_scrollIntoView :: Element -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoView Mozilla Element.scrollIntoView documentation> -scrollIntoView ::-               (MonadIO m, IsElement self) => self -> Bool -> m ()-scrollIntoView self alignWithTop-  = liftIO (js_scrollIntoView (toElement self) alignWithTop)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"scroll\"]($2); })" js_scrollOpt-        :: Element -> Optional ScrollToOptions -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scroll Mozilla Element.scroll documentation> -scrollOpt ::-          (MonadIO m, IsElement self) =>-            self -> Maybe ScrollToOptions -> m ()-scrollOpt self options-  = liftIO (js_scrollOpt (toElement self) (maybeToOptional options))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"scroll\"]($2, $3); })" js_scroll-        :: Element -> Double -> Double -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scroll Mozilla Element.scroll documentation> -scroll ::-       (MonadIO m, IsElement self) => self -> Double -> Double -> m ()-scroll self x y = liftIO (js_scroll (toElement self) x y)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"scrollTo\"]($2); })"-        js_scrollToOpt :: Element -> Optional ScrollToOptions -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTo Mozilla Element.scrollTo documentation> -scrollToOpt ::-            (MonadIO m, IsElement self) =>-              self -> Maybe ScrollToOptions -> m ()-scrollToOpt self options-  = liftIO-      (js_scrollToOpt (toElement self) (maybeToOptional options))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"scrollTo\"]($2, $3); })"-        js_scrollTo :: Element -> Double -> Double -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTo Mozilla Element.scrollTo documentation> -scrollTo ::-         (MonadIO m, IsElement self) => self -> Double -> Double -> m ()-scrollTo self x y = liftIO (js_scrollTo (toElement self) x y)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"scrollBy\"]($2); })"-        js_scrollByOpt :: Element -> Optional ScrollToOptions -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollBy Mozilla Element.scrollBy documentation> -scrollByOpt ::-            (MonadIO m, IsElement self) =>-              self -> Maybe ScrollToOptions -> m ()-scrollByOpt self option-  = liftIO (js_scrollByOpt (toElement self) (maybeToOptional option))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"scrollBy\"]($2, $3); })"-        js_scrollBy :: Element -> Double -> Double -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollBy Mozilla Element.scrollBy documentation> -scrollBy ::-         (MonadIO m, IsElement self) => self -> Double -> Double -> m ()-scrollBy self x y = liftIO (js_scrollBy (toElement self) x y)- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertAdjacentHTML\"]($2, $3); })"-        js_insertAdjacentHTML :: Element -> JSString -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentHTML Mozilla Element.insertAdjacentHTML documentation> -insertAdjacentHTML ::-                   (MonadIO m, IsElement self, ToJSString position,-                    ToJSString text) =>-                     self -> position -> text -> m ()-insertAdjacentHTML self position text-  = liftIO-      (js_insertAdjacentHTML (toElement self) (toJSString position)-         (toJSString text))- -foreign import javascript unsafe-        "(($1) => { return $1[\"webkitRequestFullScreen\"](); })" js_webkitRequestFullScreen ::-        Element -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullScreen Mozilla Element.webkitRequestFullScreen documentation> -webkitRequestFullScreen ::-                        (MonadIO m, IsElement self) => self -> m ()-webkitRequestFullScreen self-  = liftIO (js_webkitRequestFullScreen (toElement self))- -foreign import javascript unsafe-        "(($1) => { return $1[\"webkitRequestFullscreen\"](); })" js_webkitRequestFullscreen ::-        Element -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullscreen Mozilla Element.webkitRequestFullscreen documentation> -webkitRequestFullscreen ::-                        (MonadIO m, IsElement self) => self -> m ()-webkitRequestFullscreen self-  = liftIO (js_webkitRequestFullscreen (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"requestPointerLock\"](); })"-        js_requestPointerLock :: Element -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.requestPointerLock Mozilla Element.requestPointerLock documentation> -requestPointerLock :: (MonadIO m, IsElement self) => self -> m ()-requestPointerLock self-  = liftIO (js_requestPointerLock (toElement self))- -foreign import javascript unsafe-        "(($1) => { return $1[\"webkitGetRegionFlowRanges\"](); })" js_webkitGetRegionFlowRanges-        :: Element -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> -webkitGetRegionFlowRanges ::-                          (MonadIO m, IsElement self) => self -> m (Maybe [Range])-webkitGetRegionFlowRanges self-  = liftIO-      ((js_webkitGetRegionFlowRanges (toElement self)) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> -webkitGetRegionFlowRanges_ ::-                           (MonadIO m, IsElement self) => self -> m ()-webkitGetRegionFlowRanges_ self-  = liftIO (void (js_webkitGetRegionFlowRanges (toElement self)))- -foreign import javascript unsafe-        "(($1, $2) => { return $1[\"scrollIntoViewIfNeeded\"]($2); })" js_scrollIntoViewIfNeeded ::-        Element -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoViewIfNeeded Mozilla Element.scrollIntoViewIfNeeded documentation> -scrollIntoViewIfNeeded ::-                       (MonadIO m, IsElement self) => self -> Bool -> m ()-scrollIntoViewIfNeeded self centerIfNeeded-  = liftIO-      (js_scrollIntoViewIfNeeded (toElement self) centerIfNeeded)- -foreign import javascript unsafe "(($1) => { return $1[\"namespaceURI\"]; })"-        js_getNamespaceURI :: Element -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.namespaceURI Mozilla Element.namespaceURI documentation> -getNamespaceURI ::-                (MonadIO m, IsElement self, FromJSString result) =>-                  self -> m (Maybe result)-getNamespaceURI self-  = liftIO-      (fromMaybeJSString <$> (js_getNamespaceURI (toElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.namespaceURI Mozilla Element.namespaceURI documentation> -getNamespaceURIUnsafe ::-                      (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>-                        self -> m result-getNamespaceURIUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getNamespaceURI (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.namespaceURI Mozilla Element.namespaceURI documentation> -getNamespaceURIUnchecked ::-                         (MonadIO m, IsElement self, FromJSString result) =>-                           self -> m result-getNamespaceURIUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$>-         (js_getNamespaceURI (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" js_getPrefix ::-        Element -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.prefix Mozilla Element.prefix documentation> -getPrefix ::-          (MonadIO m, IsElement self, FromJSString result) =>-            self -> m (Maybe result)-getPrefix self-  = liftIO (fromMaybeJSString <$> (js_getPrefix (toElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.prefix Mozilla Element.prefix documentation> -getPrefixUnsafe ::-                (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>-                  self -> m result-getPrefixUnsafe self-  = liftIO-      ((fromMaybeJSString <$> (js_getPrefix (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.prefix Mozilla Element.prefix documentation> -getPrefixUnchecked ::-                   (MonadIO m, IsElement self, FromJSString result) =>-                     self -> m result-getPrefixUnchecked self-  = liftIO-      (fromJust . fromMaybeJSString <$> (js_getPrefix (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"localName\"]; })"-        js_getLocalName :: Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.localName Mozilla Element.localName documentation> -getLocalName ::-             (MonadIO m, IsElement self, FromJSString result) =>-               self -> m result-getLocalName self-  = liftIO (fromJSString <$> (js_getLocalName (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"tagName\"]; })" js_getTagName ::-        Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> -getTagName ::-           (MonadIO m, IsElement self, FromJSString result) =>-             self -> m result-getTagName self-  = liftIO (fromJSString <$> (js_getTagName (toElement self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"id\"] = $2; })" js_setId ::-        Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> -setId ::-      (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()-setId self val-  = liftIO (js_setId (toElement self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" js_getId ::-        Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> -getId ::-      (MonadIO m, IsElement self, FromJSString result) =>-        self -> m result-getId self = liftIO (fromJSString <$> (js_getId (toElement self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"className\"] = $2; })"-        js_setClassName :: Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> -setClassName ::-             (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()-setClassName self val-  = liftIO (js_setClassName (toElement self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"className\"]; })"-        js_getClassName :: Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> -getClassName ::-             (MonadIO m, IsElement self, FromJSString result) =>-               self -> m result-getClassName self-  = liftIO (fromJSString <$> (js_getClassName (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"classList\"]; })"-        js_getClassList :: Element -> IO DOMTokenList---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation> -getClassList ::-             (MonadIO m, IsElement self) => self -> m DOMTokenList-getClassList self = liftIO (js_getClassList (toElement self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"slot\"] = $2; })" js_setSlot ::-        Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.slot Mozilla Element.slot documentation> -setSlot ::-        (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()-setSlot self val-  = liftIO (js_setSlot (toElement self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"slot\"]; })" js_getSlot ::-        Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.slot Mozilla Element.slot documentation> -getSlot ::-        (MonadIO m, IsElement self, FromJSString result) =>-          self -> m result-getSlot self-  = liftIO (fromJSString <$> (js_getSlot (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"attributes\"]; })"-        js_getAttributes :: Element -> IO NamedNodeMap---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation> -getAttributes ::-              (MonadIO m, IsElement self) => self -> m NamedNodeMap-getAttributes self = liftIO (js_getAttributes (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"shadowRoot\"]; })"-        js_getShadowRoot :: Element -> IO (Nullable ShadowRoot)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.shadowRoot Mozilla Element.shadowRoot documentation> -getShadowRoot ::-              (MonadIO m, IsElement self) => self -> m (Maybe ShadowRoot)-getShadowRoot self-  = liftIO (nullableToMaybe <$> (js_getShadowRoot (toElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.shadowRoot Mozilla Element.shadowRoot documentation> -getShadowRootUnsafe ::-                    (MonadIO m, IsElement self, HasCallStack) => self -> m ShadowRoot-getShadowRootUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getShadowRoot (toElement self))) >>=-         maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.shadowRoot Mozilla Element.shadowRoot documentation> -getShadowRootUnchecked ::-                       (MonadIO m, IsElement self) => self -> m ShadowRoot-getShadowRootUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getShadowRoot (toElement self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"scrollTop\"] = $2; })"-        js_setScrollTop :: Element -> Int -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> -setScrollTop :: (MonadIO m, IsElement self) => self -> Int -> m ()-setScrollTop self val-  = liftIO (js_setScrollTop (toElement self) val)- -foreign import javascript unsafe "(($1) => { return $1[\"scrollTop\"]; })"-        js_getScrollTop :: Element -> IO Int---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> -getScrollTop :: (MonadIO m, IsElement self) => self -> m Int-getScrollTop self = liftIO (js_getScrollTop (toElement self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"scrollLeft\"] = $2; })"-        js_setScrollLeft :: Element -> Int -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> -setScrollLeft :: (MonadIO m, IsElement self) => self -> Int -> m ()-setScrollLeft self val-  = liftIO (js_setScrollLeft (toElement self) val)- -foreign import javascript unsafe "(($1) => { return $1[\"scrollLeft\"]; })"-        js_getScrollLeft :: Element -> IO Int---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> -getScrollLeft :: (MonadIO m, IsElement self) => self -> m Int-getScrollLeft self = liftIO (js_getScrollLeft (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"scrollWidth\"]; })"-        js_getScrollWidth :: Element -> IO Int---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollWidth Mozilla Element.scrollWidth documentation> -getScrollWidth :: (MonadIO m, IsElement self) => self -> m Int-getScrollWidth self = liftIO (js_getScrollWidth (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"scrollHeight\"]; })"-        js_getScrollHeight :: Element -> IO Int---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollHeight Mozilla Element.scrollHeight documentation> -getScrollHeight :: (MonadIO m, IsElement self) => self -> m Int-getScrollHeight self = liftIO (js_getScrollHeight (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"clientTop\"]; })"-        js_getClientTop :: Element -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientTop Mozilla Element.clientTop documentation> -getClientTop :: (MonadIO m, IsElement self) => self -> m Double-getClientTop self = liftIO (js_getClientTop (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"clientLeft\"]; })"-        js_getClientLeft :: Element -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientLeft Mozilla Element.clientLeft documentation> -getClientLeft :: (MonadIO m, IsElement self) => self -> m Double-getClientLeft self = liftIO (js_getClientLeft (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"clientWidth\"]; })"-        js_getClientWidth :: Element -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientWidth Mozilla Element.clientWidth documentation> -getClientWidth :: (MonadIO m, IsElement self) => self -> m Double-getClientWidth self = liftIO (js_getClientWidth (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"clientHeight\"]; })"-        js_getClientHeight :: Element -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientHeight Mozilla Element.clientHeight documentation> -getClientHeight :: (MonadIO m, IsElement self) => self -> m Double-getClientHeight self = liftIO (js_getClientHeight (toElement self))- -foreign import javascript safe "(($1, $2) => { $1[\"innerHTML\"] = $2; })"-        js_setInnerHTML :: Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> -setInnerHTML ::-             (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()-setInnerHTML self val-  = liftIO (js_setInnerHTML (toElement self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"innerHTML\"]; })"-        js_getInnerHTML :: Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> -getInnerHTML ::-             (MonadIO m, IsElement self, FromJSString result) =>-               self -> m result-getInnerHTML self-  = liftIO (fromJSString <$> (js_getInnerHTML (toElement self)))- -foreign import javascript safe "(($1, $2) => { $1[\"outerHTML\"] = $2; })"-        js_setOuterHTML :: Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> -setOuterHTML ::-             (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()-setOuterHTML self val-  = liftIO (js_setOuterHTML (toElement self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"outerHTML\"]; })"-        js_getOuterHTML :: Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> -getOuterHTML ::-             (MonadIO m, IsElement self, FromJSString result) =>-               self -> m result-getOuterHTML self-  = liftIO (fromJSString <$> (js_getOuterHTML (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"webkitRegionOverset\"]; })"-        js_getWebkitRegionOverset :: Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRegionOverset Mozilla Element.webkitRegionOverset documentation> -getWebkitRegionOverset ::-                       (MonadIO m, IsElement self, FromJSString result) =>-                         self -> m result-getWebkitRegionOverset self-  = liftIO-      (fromJSString <$> (js_getWebkitRegionOverset (toElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onselectstart Mozilla Element.onselectstart documentation> -selectStart ::-            (IsElement self, IsEventTarget self) => EventName self Event-selectStart = unsafeEventName (toJSString "selectstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ongesturechange Mozilla Element.ongesturechange documentation> -gestureChange ::-              (IsElement self, IsEventTarget self) => EventName self UIEvent-gestureChange = unsafeEventName (toJSString "gesturechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ongestureend Mozilla Element.ongestureend documentation> -gestureEnd ::-           (IsElement self, IsEventTarget self) => EventName self UIEvent-gestureEnd = unsafeEventName (toJSString "gestureend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ongesturestart Mozilla Element.ongesturestart documentation> -gestureStart ::-             (IsElement self, IsEventTarget self) => EventName self UIEvent-gestureStart = unsafeEventName (toJSString "gesturestart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitanimationend Mozilla Element.onwebkitanimationend documentation> -webKitAnimationEnd ::-                   (IsElement self, IsEventTarget self) =>-                     EventName self AnimationEvent-webKitAnimationEnd-  = unsafeEventName (toJSString "webkitanimationend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitanimationiteration Mozilla Element.onwebkitanimationiteration documentation> -webKitAnimationIteration ::-                         (IsElement self, IsEventTarget self) =>-                           EventName self AnimationEvent-webKitAnimationIteration-  = unsafeEventName (toJSString "webkitanimationiteration")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitanimationstart Mozilla Element.onwebkitanimationstart documentation> -webKitAnimationStart ::-                     (IsElement self, IsEventTarget self) =>-                       EventName self AnimationEvent-webKitAnimationStart-  = unsafeEventName (toJSString "webkitanimationstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkittransitionend Mozilla Element.onwebkittransitionend documentation> -webKitTransitionEnd ::-                    (IsElement self, IsEventTarget self) =>-                      EventName self TransitionEvent-webKitTransitionEnd-  = unsafeEventName (toJSString "webkittransitionend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitfullscreenchange Mozilla Element.onwebkitfullscreenchange documentation> -webKitFullscreenChange ::-                       (IsElement self, IsEventTarget self) => EventName self Event-webKitFullscreenChange-  = unsafeEventName (toJSString "webkitfullscreenchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitfullscreenerror Mozilla Element.onwebkitfullscreenerror documentation> -webKitFullscreenError ::-                      (IsElement self, IsEventTarget self) => EventName self Event-webKitFullscreenError-  = unsafeEventName (toJSString "webkitfullscreenerror")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onfocusin Mozilla Element.onfocusin documentation> -focusin ::-        (IsElement self, IsEventTarget self) => EventName self onfocusin-focusin = unsafeEventName (toJSString "focusin")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onfocusout Mozilla Element.onfocusout documentation> -focusout ::-         (IsElement self, IsEventTarget self) => EventName self onfocusout-focusout = unsafeEventName (toJSString "focusout")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforeload Mozilla Element.onbeforeload documentation> -beforeload ::-           (IsElement self, IsEventTarget self) => EventName self onbeforeload-beforeload = unsafeEventName (toJSString "beforeload")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitneedkey Mozilla Element.onwebkitneedkey documentation> -webKitNeedKey ::-              (IsElement self, IsEventTarget self) => EventName self Event-webKitNeedKey = unsafeEventName (toJSString "webkitneedkey")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitpresentationmodechanged Mozilla Element.onwebkitpresentationmodechanged documentation> -webKitPresentationModeChanged ::-                              (IsElement self, IsEventTarget self) => EventName self Event-webKitPresentationModeChanged-  = unsafeEventName (toJSString "webkitpresentationmodechanged")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitcurrentplaybacktargetiswirelesschanged Mozilla Element.onwebkitcurrentplaybacktargetiswirelesschanged documentation> -webKitCurrentPlaybackTargetIsWirelessChanged ::-                                             (IsElement self, IsEventTarget self) =>-                                               EventName self Event-webKitCurrentPlaybackTargetIsWirelessChanged-  = unsafeEventName-      (toJSString "webkitcurrentplaybacktargetiswirelesschanged")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitplaybacktargetavailabilitychanged Mozilla Element.onwebkitplaybacktargetavailabilitychanged documentation> -webKitPlaybackTargetAvailabilityChanged ::-                                        (IsElement self, IsEventTarget self) => EventName self Event-webKitPlaybackTargetAvailabilityChanged-  = unsafeEventName-      (toJSString "webkitplaybacktargetavailabilitychanged")+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.Element+       (js_attachShadow, js_checkVisibility, js_closest, js_computedStyleMap, js_getAttribute, js_getAttributeNS, js_getAttributeNames, js_getAttributeNode, js_getAttributeNodeNS, js_getBoundingClientRect, js_getClientRects, js_getElementsByClassName, js_getElementsByTagName, js_getElementsByTagNameNS, js_getHTML, js_hasAttribute, js_hasAttributeNS, js_hasAttributes, js_hasPointerCapture, js_insertAdjacentElement, js_insertAdjacentHTML, js_insertAdjacentText, js_matches, js_releasePointerCapture, js_removeAttribute, js_removeAttributeNS, js_removeAttributeNode, js_requestFullscreen, js_requestPointerLock, js_requestPointerLock', js_scrollOpt, js_scroll, js_scrollByOpt, js_scrollBy, js_scrollIntoView, js_scrollToOpt, js_scrollTo, js_setAttribute, js_setAttributeNS, js_setAttributeNode, js_setAttributeNodeNS, js_setHTML, js_setHTMLUnsafe, js_setPointerCapture, js_toggleAttribute, js_webkitMatchesSelector, js_getNamespaceURI, js_getPrefix, js_getLocalName, js_getTagName, js_setId, js_getId, js_setClassName, js_getClassName, js_getClassList, js_setSlot, js_getSlot, js_getAttributes, js_getShadowRoot, js_getCustomElementRegistry, js_getPart, js_setScrollTop, js_getScrollTop, js_setScrollLeft, js_getScrollLeft, js_getScrollWidth, js_getScrollHeight, js_getClientTop, js_getClientLeft, js_getClientWidth, js_getClientHeight, js_getCurrentCSSZoom, js_setInnerHTML, js_getInnerHTML, js_setOuterHTML, js_getOuterHTML, attachShadow, attachShadow_, checkVisibility, checkVisibility_, closest, closest_, closestUnsafe, closestUnchecked, computedStyleMap, computedStyleMap_, getAttribute, getAttribute_, getAttributeUnsafe, getAttributeUnchecked, getAttributeNS, getAttributeNS_, getAttributeNSUnsafe, getAttributeNSUnchecked, getAttributeNames, getAttributeNames_, getAttributeNode, getAttributeNode_, getAttributeNodeUnsafe, getAttributeNodeUnchecked, getAttributeNodeNS, getAttributeNodeNS_, getAttributeNodeNSUnsafe, getAttributeNodeNSUnchecked, getBoundingClientRect, getBoundingClientRect_, getClientRects, getClientRects_, getElementsByClassName, getElementsByClassName_, getElementsByTagName, getElementsByTagName_, getElementsByTagNameNS, getElementsByTagNameNS_, getHTML, getHTML_, hasAttribute, hasAttribute_, hasAttributeNS, hasAttributeNS_, hasAttributes, hasAttributes_, hasPointerCapture, hasPointerCapture_, insertAdjacentElement, insertAdjacentElement_, insertAdjacentElementUnsafe, insertAdjacentElementUnchecked, insertAdjacentHTML, insertAdjacentText, matches, matches_, releasePointerCapture, removeAttribute, removeAttributeNS, removeAttributeNode, removeAttributeNode_, requestFullscreen, requestPointerLock, requestPointerLock', scrollOpt, scrollOpt_, scroll, scroll_, scrollByOpt, scrollByOpt_, scrollBy, scrollBy_, scrollIntoView, scrollIntoView_, scrollToOpt, scrollToOpt_, scrollTo, scrollTo_, setAttribute, setAttributeNS, setAttributeNode, setAttributeNode_, setAttributeNodeUnsafe, setAttributeNodeUnchecked, setAttributeNodeNS, setAttributeNodeNS_, setAttributeNodeNSUnsafe, setAttributeNodeNSUnchecked, setHTML, setHTMLUnsafe, setPointerCapture, toggleAttribute, toggleAttribute_, webkitMatchesSelector, webkitMatchesSelector_, getNamespaceURI, getNamespaceURIUnsafe, getNamespaceURIUnchecked, getPrefix, getPrefixUnsafe, getPrefixUnchecked, getLocalName, getTagName, setId, getId, setClassName, getClassName, getClassList, setSlot, getSlot, getAttributes, getShadowRoot, getShadowRootUnsafe, getShadowRootUnchecked, getCustomElementRegistry, getCustomElementRegistryUnsafe, getCustomElementRegistryUnchecked, getPart, setScrollTop, getScrollTop, setScrollLeft, getScrollLeft, getScrollWidth, getScrollHeight, getClientTop, getClientLeft, getClientWidth, getClientHeight, getCurrentCSSZoom, setInnerHTML, getInnerHTML, setOuterHTML, getOuterHTML, fullscreenchange, fullscreenerror, compositionend, compositionstart, compositionupdate, contentvisibilityautostatechange, domActivate, domFocusIn, domFocusOut, focusin, focusout, textInput, Element(..), gTypeElement, IsElement, toElement)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return $1[\"attachShadow\"]($2); })"+        js_attachShadow :: Element -> ShadowRootInit -> IO ShadowRoot+-- | <https://developer.mozilla.org/docs/Web/API/Element/attachShadow MDN Element.attachShadow documentation>+attachShadow :: (MonadDOM m, IsElement self) => self -> ShadowRootInit -> m ShadowRoot+attachShadow self init = liftDOM ((js_attachShadow ((Types.toElement self)) (init)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/attachShadow MDN Element.attachShadow documentation>+attachShadow_ :: (MonadDOM m, IsElement self) => self -> ShadowRootInit -> m ()+attachShadow_ self init = liftDOM (void ((js_attachShadow ((Types.toElement self)) (init))))++foreign import javascript safe "(($1, $2) => { return $1[\"checkVisibility\"]($2); })"+        js_checkVisibility :: Element -> JSVal -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/checkVisibility MDN Element.checkVisibility documentation>+checkVisibility :: (MonadDOM m, IsElement self) => self -> Maybe CheckVisibilityOptions -> m Bool+checkVisibility self options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_checkVisibility ((Types.toElement self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/Element/checkVisibility MDN Element.checkVisibility documentation>+checkVisibility_ :: (MonadDOM m, IsElement self) => self -> Maybe CheckVisibilityOptions -> m ()+checkVisibility_ self options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_checkVisibility ((Types.toElement self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"closest\"]($2); })"+        js_closest :: Element -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/closest MDN Element.closest documentation>+closest :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m (Maybe Element)+closest self selectors = liftDOM (((js_closest ((Types.toElement self)) (toJSString selectors)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/closest MDN Element.closest documentation>+closest_ :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m ()+closest_ self selectors = liftDOM (void ((js_closest ((Types.toElement self)) (toJSString selectors))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/closest MDN Element.closest documentation>+closestUnsafe :: (MonadDOM m, IsElement self, ToJSString selectors, HasCallStack) => self -> selectors -> m Element+closestUnsafe self selectors = liftDOM ((((js_closest ((Types.toElement self)) (toJSString selectors)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/closest MDN Element.closest documentation>+closestUnchecked :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m Element+closestUnchecked self selectors = liftDOM ((pFromJSVal <$> (js_closest ((Types.toElement self)) (toJSString selectors))))++foreign import javascript safe "(($1) => { return $1[\"computedStyleMap\"](); })"+        js_computedStyleMap :: Element -> IO StylePropertyMapReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/Element/computedStyleMap MDN Element.computedStyleMap documentation>+computedStyleMap :: (MonadDOM m, IsElement self) => self -> m StylePropertyMapReadOnly+computedStyleMap self = liftDOM ((js_computedStyleMap ((Types.toElement self))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/computedStyleMap MDN Element.computedStyleMap documentation>+computedStyleMap_ :: (MonadDOM m, IsElement self) => self -> m ()+computedStyleMap_ self = liftDOM (void ((js_computedStyleMap ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"getAttribute\"]($2); })"+        js_getAttribute :: Element -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttribute MDN Element.getAttribute documentation>+getAttribute :: (MonadDOM m, IsElement self, ToJSString qualifiedName, FromJSString result) => self -> qualifiedName -> m (Maybe result)+getAttribute self qualifiedName = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAttribute ((Types.toElement self)) (toJSString qualifiedName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttribute MDN Element.getAttribute documentation>+getAttribute_ :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+getAttribute_ self qualifiedName = liftDOM (void ((js_getAttribute ((Types.toElement self)) (toJSString qualifiedName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttribute MDN Element.getAttribute documentation>+getAttributeUnsafe :: (MonadDOM m, IsElement self, ToJSString qualifiedName, HasCallStack, FromJSString result) => self -> qualifiedName -> m result+getAttributeUnsafe self qualifiedName = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAttribute ((Types.toElement self)) (toJSString qualifiedName))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttribute MDN Element.getAttribute documentation>+getAttributeUnchecked :: (MonadDOM m, IsElement self, ToJSString qualifiedName, FromJSString result) => self -> qualifiedName -> m result+getAttributeUnchecked self qualifiedName = liftDOM ((pFromJSVal <$> (js_getAttribute ((Types.toElement self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"getAttributeNS\"]($2, $3); })"+        js_getAttributeNS :: Element -> (Nullable JSString) -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNS MDN Element.getAttributeNS documentation>+getAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName, FromJSString result) => self -> Maybe namespace -> localName -> m (Maybe result)+getAttributeNS self namespace localName = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNS MDN Element.getAttributeNS documentation>+getAttributeNS_ :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+getAttributeNS_ self namespace localName = liftDOM (void ((js_getAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNS MDN Element.getAttributeNS documentation>+getAttributeNSUnsafe :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName, HasCallStack, FromJSString result) => self -> Maybe namespace -> localName -> m result+getAttributeNSUnsafe self namespace localName = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNS MDN Element.getAttributeNS documentation>+getAttributeNSUnchecked :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName, FromJSString result) => self -> Maybe namespace -> localName -> m result+getAttributeNSUnchecked self namespace localName = liftDOM ((pFromJSVal <$> (js_getAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1) => { return $1[\"getAttributeNames\"](); })"+        js_getAttributeNames :: Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNames MDN Element.getAttributeNames documentation>+getAttributeNames :: (MonadDOM m, IsElement self, FromJSString result) => self -> m [result]+getAttributeNames self = liftDOM (((js_getAttributeNames ((Types.toElement self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNames MDN Element.getAttributeNames documentation>+getAttributeNames_ :: (MonadDOM m, IsElement self) => self -> m ()+getAttributeNames_ self = liftDOM (void ((js_getAttributeNames ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"getAttributeNode\"]($2); })"+        js_getAttributeNode :: Element -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNode MDN Element.getAttributeNode documentation>+getAttributeNode :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m (Maybe Attr)+getAttributeNode self qualifiedName = liftDOM (((js_getAttributeNode ((Types.toElement self)) (toJSString qualifiedName)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNode MDN Element.getAttributeNode documentation>+getAttributeNode_ :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+getAttributeNode_ self qualifiedName = liftDOM (void ((js_getAttributeNode ((Types.toElement self)) (toJSString qualifiedName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNode MDN Element.getAttributeNode documentation>+getAttributeNodeUnsafe :: (MonadDOM m, IsElement self, ToJSString qualifiedName, HasCallStack) => self -> qualifiedName -> m Attr+getAttributeNodeUnsafe self qualifiedName = liftDOM ((((js_getAttributeNode ((Types.toElement self)) (toJSString qualifiedName)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNode MDN Element.getAttributeNode documentation>+getAttributeNodeUnchecked :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m Attr+getAttributeNodeUnchecked self qualifiedName = liftDOM ((pFromJSVal <$> (js_getAttributeNode ((Types.toElement self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"getAttributeNodeNS\"]($2, $3); })"+        js_getAttributeNodeNS :: Element -> (Nullable JSString) -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNodeNS MDN Element.getAttributeNodeNS documentation>+getAttributeNodeNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m (Maybe Attr)+getAttributeNodeNS self namespace localName = liftDOM (((js_getAttributeNodeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNodeNS MDN Element.getAttributeNodeNS documentation>+getAttributeNodeNS_ :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+getAttributeNodeNS_ self namespace localName = liftDOM (void ((js_getAttributeNodeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNodeNS MDN Element.getAttributeNodeNS documentation>+getAttributeNodeNSUnsafe :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName, HasCallStack) => self -> Maybe namespace -> localName -> m Attr+getAttributeNodeNSUnsafe self namespace localName = liftDOM ((((js_getAttributeNodeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNodeNS MDN Element.getAttributeNodeNS documentation>+getAttributeNodeNSUnchecked :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m Attr+getAttributeNodeNSUnchecked self namespace localName = liftDOM ((pFromJSVal <$> (js_getAttributeNodeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1) => { return $1[\"getBoundingClientRect\"](); })"+        js_getBoundingClientRect :: Element -> IO DOMRect+-- | <https://developer.mozilla.org/docs/Web/API/Element/getBoundingClientRect MDN Element.getBoundingClientRect documentation>+getBoundingClientRect :: (MonadDOM m, IsElement self) => self -> m DOMRect+getBoundingClientRect self = liftDOM ((js_getBoundingClientRect ((Types.toElement self))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getBoundingClientRect MDN Element.getBoundingClientRect documentation>+getBoundingClientRect_ :: (MonadDOM m, IsElement self) => self -> m ()+getBoundingClientRect_ self = liftDOM (void ((js_getBoundingClientRect ((Types.toElement self)))))++foreign import javascript safe "(($1) => { return $1[\"getClientRects\"](); })"+        js_getClientRects :: Element -> IO DOMRectList+-- | <https://developer.mozilla.org/docs/Web/API/Element/getClientRects MDN Element.getClientRects documentation>+getClientRects :: (MonadDOM m, IsElement self) => self -> m DOMRectList+getClientRects self = liftDOM ((js_getClientRects ((Types.toElement self))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getClientRects MDN Element.getClientRects documentation>+getClientRects_ :: (MonadDOM m, IsElement self) => self -> m ()+getClientRects_ self = liftDOM (void ((js_getClientRects ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"getElementsByClassName\"]($2); })"+        js_getElementsByClassName :: Element -> JSString -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByClassName MDN Element.getElementsByClassName documentation>+getElementsByClassName :: (MonadDOM m, IsElement self, ToJSString classNames) => self -> classNames -> m HTMLCollection+getElementsByClassName self classNames = liftDOM ((js_getElementsByClassName ((Types.toElement self)) (toJSString classNames)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByClassName MDN Element.getElementsByClassName documentation>+getElementsByClassName_ :: (MonadDOM m, IsElement self, ToJSString classNames) => self -> classNames -> m ()+getElementsByClassName_ self classNames = liftDOM (void ((js_getElementsByClassName ((Types.toElement self)) (toJSString classNames))))++foreign import javascript safe "(($1, $2) => { return $1[\"getElementsByTagName\"]($2); })"+        js_getElementsByTagName :: Element -> JSString -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByTagName MDN Element.getElementsByTagName documentation>+getElementsByTagName :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m HTMLCollection+getElementsByTagName self qualifiedName = liftDOM ((js_getElementsByTagName ((Types.toElement self)) (toJSString qualifiedName)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByTagName MDN Element.getElementsByTagName documentation>+getElementsByTagName_ :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+getElementsByTagName_ self qualifiedName = liftDOM (void ((js_getElementsByTagName ((Types.toElement self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"getElementsByTagNameNS\"]($2, $3); })"+        js_getElementsByTagNameNS :: Element -> (Nullable JSString) -> JSString -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByTagNameNS MDN Element.getElementsByTagNameNS documentation>+getElementsByTagNameNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m HTMLCollection+getElementsByTagNameNS self namespace localName = liftDOM ((js_getElementsByTagNameNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByTagNameNS MDN Element.getElementsByTagNameNS documentation>+getElementsByTagNameNS_ :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+getElementsByTagNameNS_ self namespace localName = liftDOM (void ((js_getElementsByTagNameNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1, $2) => { return $1[\"getHTML\"]($2); })"+        js_getHTML :: Element -> JSVal -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/getHTML MDN Element.getHTML documentation>+getHTML :: (MonadDOM m, IsElement self, FromJSString result) => self -> Maybe GetHTMLOptions -> m result+getHTML self options = liftDOM ((fromJSString <$> ((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getHTML ((Types.toElement self)) a2')))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getHTML MDN Element.getHTML documentation>+getHTML_ :: (MonadDOM m, IsElement self) => self -> Maybe GetHTMLOptions -> m ()+getHTML_ self options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getHTML ((Types.toElement self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"hasAttribute\"]($2); })"+        js_hasAttribute :: Element -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttribute MDN Element.hasAttribute documentation>+hasAttribute :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m Bool+hasAttribute self qualifiedName = liftDOM ((js_hasAttribute ((Types.toElement self)) (toJSString qualifiedName)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttribute MDN Element.hasAttribute documentation>+hasAttribute_ :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+hasAttribute_ self qualifiedName = liftDOM (void ((js_hasAttribute ((Types.toElement self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"hasAttributeNS\"]($2, $3); })"+        js_hasAttributeNS :: Element -> (Nullable JSString) -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttributeNS MDN Element.hasAttributeNS documentation>+hasAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m Bool+hasAttributeNS self namespace localName = liftDOM ((js_hasAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttributeNS MDN Element.hasAttributeNS documentation>+hasAttributeNS_ :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+hasAttributeNS_ self namespace localName = liftDOM (void ((js_hasAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1) => { return $1[\"hasAttributes\"](); })"+        js_hasAttributes :: Element -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttributes MDN Element.hasAttributes documentation>+hasAttributes :: (MonadDOM m, IsElement self) => self -> m Bool+hasAttributes self = liftDOM ((js_hasAttributes ((Types.toElement self))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttributes MDN Element.hasAttributes documentation>+hasAttributes_ :: (MonadDOM m, IsElement self) => self -> m ()+hasAttributes_ self = liftDOM (void ((js_hasAttributes ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"hasPointerCapture\"]($2); })"+        js_hasPointerCapture :: Element -> Int -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/hasPointerCapture MDN Element.hasPointerCapture documentation>+hasPointerCapture :: (MonadDOM m, IsElement self) => self -> Int -> m Bool+hasPointerCapture self pointerId = liftDOM ((js_hasPointerCapture ((Types.toElement self)) (pointerId)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/hasPointerCapture MDN Element.hasPointerCapture documentation>+hasPointerCapture_ :: (MonadDOM m, IsElement self) => self -> Int -> m ()+hasPointerCapture_ self pointerId = liftDOM (void ((js_hasPointerCapture ((Types.toElement self)) (pointerId))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertAdjacentElement\"]($2, $3); })"+        js_insertAdjacentElement :: Element -> JSString -> Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentElement MDN Element.insertAdjacentElement documentation>+insertAdjacentElement :: (MonadDOM m, IsElement self, ToJSString where', IsElement element) => self -> where' -> element -> m (Maybe Element)+insertAdjacentElement self where' element = liftDOM (((js_insertAdjacentElement ((Types.toElement self)) (toJSString where') (Types.toElement element)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentElement MDN Element.insertAdjacentElement documentation>+insertAdjacentElement_ :: (MonadDOM m, IsElement self, ToJSString where', IsElement element) => self -> where' -> element -> m ()+insertAdjacentElement_ self where' element = liftDOM (void ((js_insertAdjacentElement ((Types.toElement self)) (toJSString where') (Types.toElement element))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentElement MDN Element.insertAdjacentElement documentation>+insertAdjacentElementUnsafe :: (MonadDOM m, IsElement self, ToJSString where', IsElement element, HasCallStack) => self -> where' -> element -> m Element+insertAdjacentElementUnsafe self where' element = liftDOM ((((js_insertAdjacentElement ((Types.toElement self)) (toJSString where') (Types.toElement element)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentElement MDN Element.insertAdjacentElement documentation>+insertAdjacentElementUnchecked :: (MonadDOM m, IsElement self, ToJSString where', IsElement element) => self -> where' -> element -> m Element+insertAdjacentElementUnchecked self where' element = liftDOM ((pFromJSVal <$> (js_insertAdjacentElement ((Types.toElement self)) (toJSString where') (Types.toElement element))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertAdjacentHTML\"]($2, $3); })"+        js_insertAdjacentHTML :: Element -> JSString -> TrustedHTMLOrString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentHTML MDN Element.insertAdjacentHTML documentation>+insertAdjacentHTML :: (MonadDOM m, IsElement self, ToJSString position, IsTrustedHTMLOrString string) => self -> position -> string -> m ()+insertAdjacentHTML self position string = liftDOM (void ((js_insertAdjacentHTML ((Types.toElement self)) (toJSString position) (Types.toTrustedHTMLOrString string))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertAdjacentText\"]($2, $3); })"+        js_insertAdjacentText :: Element -> JSString -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentText MDN Element.insertAdjacentText documentation>+insertAdjacentText :: (MonadDOM m, IsElement self, ToJSString where', ToJSString data') => self -> where' -> data' -> m ()+insertAdjacentText self where' data' = liftDOM (void ((js_insertAdjacentText ((Types.toElement self)) (toJSString where') (toJSString data'))))++foreign import javascript safe "(($1, $2) => { return $1[\"matches\"]($2); })"+        js_matches :: Element -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/matches MDN Element.matches documentation>+matches :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m Bool+matches self selectors = liftDOM ((js_matches ((Types.toElement self)) (toJSString selectors)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/matches MDN Element.matches documentation>+matches_ :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m ()+matches_ self selectors = liftDOM (void ((js_matches ((Types.toElement self)) (toJSString selectors))))++foreign import javascript safe "(($1, $2) => { return $1[\"releasePointerCapture\"]($2); })"+        js_releasePointerCapture :: Element -> Int -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/releasePointerCapture MDN Element.releasePointerCapture documentation>+releasePointerCapture :: (MonadDOM m, IsElement self) => self -> Int -> m ()+releasePointerCapture self pointerId = liftDOM (void ((js_releasePointerCapture ((Types.toElement self)) (pointerId))))++foreign import javascript safe "(($1, $2) => { return $1[\"removeAttribute\"]($2); })"+        js_removeAttribute :: Element -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/removeAttribute MDN Element.removeAttribute documentation>+removeAttribute :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+removeAttribute self qualifiedName = liftDOM (void ((js_removeAttribute ((Types.toElement self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"removeAttributeNS\"]($2, $3); })"+        js_removeAttributeNS :: Element -> (Nullable JSString) -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/removeAttributeNS MDN Element.removeAttributeNS documentation>+removeAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+removeAttributeNS self namespace localName = liftDOM (void ((js_removeAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1, $2) => { return $1[\"removeAttributeNode\"]($2); })"+        js_removeAttributeNode :: Element -> Attr -> IO Attr+-- | <https://developer.mozilla.org/docs/Web/API/Element/removeAttributeNode MDN Element.removeAttributeNode documentation>+removeAttributeNode :: (MonadDOM m, IsElement self) => self -> Attr -> m Attr+removeAttributeNode self attr = liftDOM ((js_removeAttributeNode ((Types.toElement self)) (attr)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/removeAttributeNode MDN Element.removeAttributeNode documentation>+removeAttributeNode_ :: (MonadDOM m, IsElement self) => self -> Attr -> m ()+removeAttributeNode_ self attr = liftDOM (void ((js_removeAttributeNode ((Types.toElement self)) (attr))))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"requestFullscreen\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_requestFullscreen :: Element -> JSVal -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Element/requestFullscreen MDN Element.requestFullscreen documentation>+requestFullscreen :: (MonadDOM m, IsElement self) => self -> Maybe FullscreenOptions -> m ()+requestFullscreen self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_requestFullscreen ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $c) => { return $1[\"requestPointerLock\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_requestPointerLock :: Element -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Element/requestPointerLock MDN Element.requestPointerLock documentation>+requestPointerLock :: (MonadDOM m, IsElement self) => self -> m ()+requestPointerLock self = liftDOM (void (((js_requestPointerLock ((Types.toElement self))) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"requestPointerLock\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_requestPointerLock' :: Element -> JSVal -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Element/requestPointerLock MDN Element.requestPointerLock documentation>+requestPointerLock' :: (MonadDOM m, IsElement self) => self -> Maybe PointerLockOptions -> m ()+requestPointerLock' self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_requestPointerLock' ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"scroll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_scrollOpt :: Element -> JSVal -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scroll MDN Element.scroll documentation>+scrollOpt :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ScrollResult+scrollOpt self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollOpt ((Types.toElement self)) a2') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scroll MDN Element.scroll documentation>+scrollOpt_ :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ()+scrollOpt_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollOpt ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"scroll\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_scroll :: Element -> Double -> Double -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scroll MDN Element.scroll documentation>+scroll :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ScrollResult+scroll self x y = liftDOM (((js_scroll ((Types.toElement self)) (x) (y)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scroll MDN Element.scroll documentation>+scroll_ :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ()+scroll_ self x y = liftDOM (void (((js_scroll ((Types.toElement self)) (x) (y)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"scrollBy\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_scrollByOpt :: Element -> JSVal -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollBy MDN Element.scrollBy documentation>+scrollByOpt :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ScrollResult+scrollByOpt self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollByOpt ((Types.toElement self)) a2') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollBy MDN Element.scrollBy documentation>+scrollByOpt_ :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ()+scrollByOpt_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollByOpt ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"scrollBy\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_scrollBy :: Element -> Double -> Double -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollBy MDN Element.scrollBy documentation>+scrollBy :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ScrollResult+scrollBy self x y = liftDOM (((js_scrollBy ((Types.toElement self)) (x) (y)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollBy MDN Element.scrollBy documentation>+scrollBy_ :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ()+scrollBy_ self x y = liftDOM (void (((js_scrollBy ((Types.toElement self)) (x) (y)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"scrollIntoView\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_scrollIntoView :: Element -> JSVal -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollIntoView MDN Element.scrollIntoView documentation>+scrollIntoView :: (MonadDOM m, IsElement self, IsBoolOrScrollIntoViewOptions arg) => self -> Maybe arg -> m ScrollResult+scrollIntoView self arg = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal arg) >>= \a2' -> js_scrollIntoView ((Types.toElement self)) a2') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollIntoView MDN Element.scrollIntoView documentation>+scrollIntoView_ :: (MonadDOM m, IsElement self, IsBoolOrScrollIntoViewOptions arg) => self -> Maybe arg -> m ()+scrollIntoView_ self arg = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal arg) >>= \a2' -> js_scrollIntoView ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"scrollTo\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_scrollToOpt :: Element -> JSVal -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTo MDN Element.scrollTo documentation>+scrollToOpt :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ScrollResult+scrollToOpt self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollToOpt ((Types.toElement self)) a2') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTo MDN Element.scrollTo documentation>+scrollToOpt_ :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ()+scrollToOpt_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollToOpt ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"scrollTo\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+        js_scrollTo :: Element -> Double -> Double -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTo MDN Element.scrollTo documentation>+scrollTo :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ScrollResult+scrollTo self x y = liftDOM (((js_scrollTo ((Types.toElement self)) (x) (y)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTo MDN Element.scrollTo documentation>+scrollTo_ :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ()+scrollTo_ self x y = liftDOM (void (((js_scrollTo ((Types.toElement self)) (x) (y)) >>= checkPromiseResult)))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"setAttribute\"]($2, $3); })"+        js_setAttribute :: Element -> JSString -> TrustedTypeOrString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttribute MDN Element.setAttribute documentation>+setAttribute :: (MonadDOM m, IsElement self, ToJSString qualifiedName, IsTrustedTypeOrString value) => self -> qualifiedName -> value -> m ()+setAttribute self qualifiedName value = liftDOM (void ((js_setAttribute ((Types.toElement self)) (toJSString qualifiedName) (Types.toTrustedTypeOrString value))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setAttributeNS\"]($2, $3, $4); })"+        js_setAttributeNS :: Element -> (Nullable JSString) -> JSString -> TrustedTypeOrString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNS MDN Element.setAttributeNS documentation>+setAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString qualifiedName, IsTrustedTypeOrString value) => self -> Maybe namespace -> qualifiedName -> value -> m ()+setAttributeNS self namespace qualifiedName value = liftDOM (void ((js_setAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString qualifiedName) (Types.toTrustedTypeOrString value))))++foreign import javascript safe "(($1, $2) => { return $1[\"setAttributeNode\"]($2); })"+        js_setAttributeNode :: Element -> Attr -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNode MDN Element.setAttributeNode documentation>+setAttributeNode :: (MonadDOM m, IsElement self) => self -> Attr -> m (Maybe Attr)+setAttributeNode self attr = liftDOM (((js_setAttributeNode ((Types.toElement self)) (attr)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNode MDN Element.setAttributeNode documentation>+setAttributeNode_ :: (MonadDOM m, IsElement self) => self -> Attr -> m ()+setAttributeNode_ self attr = liftDOM (void ((js_setAttributeNode ((Types.toElement self)) (attr))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNode MDN Element.setAttributeNode documentation>+setAttributeNodeUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> Attr -> m Attr+setAttributeNodeUnsafe self attr = liftDOM ((((js_setAttributeNode ((Types.toElement self)) (attr)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNode MDN Element.setAttributeNode documentation>+setAttributeNodeUnchecked :: (MonadDOM m, IsElement self) => self -> Attr -> m Attr+setAttributeNodeUnchecked self attr = liftDOM ((pFromJSVal <$> (js_setAttributeNode ((Types.toElement self)) (attr))))++foreign import javascript safe "(($1, $2) => { return $1[\"setAttributeNodeNS\"]($2); })"+        js_setAttributeNodeNS :: Element -> Attr -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNodeNS MDN Element.setAttributeNodeNS documentation>+setAttributeNodeNS :: (MonadDOM m, IsElement self) => self -> Attr -> m (Maybe Attr)+setAttributeNodeNS self attr = liftDOM (((js_setAttributeNodeNS ((Types.toElement self)) (attr)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNodeNS MDN Element.setAttributeNodeNS documentation>+setAttributeNodeNS_ :: (MonadDOM m, IsElement self) => self -> Attr -> m ()+setAttributeNodeNS_ self attr = liftDOM (void ((js_setAttributeNodeNS ((Types.toElement self)) (attr))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNodeNS MDN Element.setAttributeNodeNS documentation>+setAttributeNodeNSUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> Attr -> m Attr+setAttributeNodeNSUnsafe self attr = liftDOM ((((js_setAttributeNodeNS ((Types.toElement self)) (attr)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNodeNS MDN Element.setAttributeNodeNS documentation>+setAttributeNodeNSUnchecked :: (MonadDOM m, IsElement self) => self -> Attr -> m Attr+setAttributeNodeNSUnchecked self attr = liftDOM ((pFromJSVal <$> (js_setAttributeNodeNS ((Types.toElement self)) (attr))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"setHTML\"]($2, $3); })"+        js_setHTML :: Element -> JSString -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/setHTML MDN Element.setHTML documentation>+setHTML :: (MonadDOM m, IsElement self, ToJSString html) => self -> html -> Maybe SetHTMLOptions -> m ()+setHTML self html options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_setHTML ((Types.toElement self)) (toJSString html) a3')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"setHTMLUnsafe\"]($2, $3); })"+        js_setHTMLUnsafe :: Element -> TrustedHTMLOrString -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/setHTMLUnsafe MDN Element.setHTMLUnsafe documentation>+setHTMLUnsafe :: (MonadDOM m, IsElement self, IsTrustedHTMLOrString html, IsSetHTMLUnsafeOptionsOrTrustedHTMLParserOptions options) => self -> html -> Maybe options -> m ()+setHTMLUnsafe self html options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_setHTMLUnsafe ((Types.toElement self)) (Types.toTrustedHTMLOrString html) a3')))++foreign import javascript safe "(($1, $2) => { return $1[\"setPointerCapture\"]($2); })"+        js_setPointerCapture :: Element -> Int -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/setPointerCapture MDN Element.setPointerCapture documentation>+setPointerCapture :: (MonadDOM m, IsElement self) => self -> Int -> m ()+setPointerCapture self pointerId = liftDOM (void ((js_setPointerCapture ((Types.toElement self)) (pointerId))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"toggleAttribute\"]($2, $3); })"+        js_toggleAttribute :: Element -> JSString -> JSVal -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/toggleAttribute MDN Element.toggleAttribute documentation>+toggleAttribute :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> Maybe Bool -> m Bool+toggleAttribute self qualifiedName force = liftDOM (((P.maybe (P.return jsUndefined) toJSVal force) >>= \a3' -> js_toggleAttribute ((Types.toElement self)) (toJSString qualifiedName) a3'))++-- | <https://developer.mozilla.org/docs/Web/API/Element/toggleAttribute MDN Element.toggleAttribute documentation>+toggleAttribute_ :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> Maybe Bool -> m ()+toggleAttribute_ self qualifiedName force = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal force) >>= \a3' -> js_toggleAttribute ((Types.toElement self)) (toJSString qualifiedName) a3')))++foreign import javascript safe "(($1, $2) => { return $1[\"webkitMatchesSelector\"]($2); })"+        js_webkitMatchesSelector :: Element -> JSString -> IO Bool+-- | <https://dom.spec.whatwg.org/#dom-element-webkitmatchesselector Element.webkitMatchesSelector specification>+webkitMatchesSelector :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m Bool+webkitMatchesSelector self selectors = liftDOM ((js_webkitMatchesSelector ((Types.toElement self)) (toJSString selectors)))++-- | <https://dom.spec.whatwg.org/#dom-element-webkitmatchesselector Element.webkitMatchesSelector specification>+webkitMatchesSelector_ :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m ()+webkitMatchesSelector_ self selectors = liftDOM (void ((js_webkitMatchesSelector ((Types.toElement self)) (toJSString selectors))))++foreign import javascript unsafe "(($1) => { return $1[\"namespaceURI\"]; })"+        js_getNamespaceURI :: Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/namespaceURI MDN Element.namespaceURI documentation>+getNamespaceURI :: (MonadDOM m, IsElement self, FromJSString result) => self -> m (Maybe result)+getNamespaceURI self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getNamespaceURI ((Types.toElement self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/namespaceURI MDN Element.namespaceURI documentation>+getNamespaceURIUnsafe :: (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => self -> m result+getNamespaceURIUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getNamespaceURI ((Types.toElement self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/namespaceURI MDN Element.namespaceURI documentation>+getNamespaceURIUnchecked :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getNamespaceURIUnchecked self = liftDOM ((pFromJSVal <$> (js_getNamespaceURI ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })"+        js_getPrefix :: Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/prefix MDN Element.prefix documentation>+getPrefix :: (MonadDOM m, IsElement self, FromJSString result) => self -> m (Maybe result)+getPrefix self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPrefix ((Types.toElement self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/prefix MDN Element.prefix documentation>+getPrefixUnsafe :: (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => self -> m result+getPrefixUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPrefix ((Types.toElement self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/prefix MDN Element.prefix documentation>+getPrefixUnchecked :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getPrefixUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrefix ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"localName\"]; })"+        js_getLocalName :: Element -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/localName MDN Element.localName documentation>+getLocalName :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getLocalName self = liftDOM ((fromJSString <$> (js_getLocalName ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"tagName\"]; })"+        js_getTagName :: Element -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/tagName MDN Element.tagName documentation>+getTagName :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getTagName self = liftDOM ((fromJSString <$> (js_getTagName ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { $1[\"id\"] = $2; })"+        js_setId :: Element -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/id MDN Element.id documentation>+setId :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()+setId self val = liftDOM (void ((js_setId ((Types.toElement self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })"+        js_getId :: Element -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/id MDN Element.id documentation>+getId :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { $1[\"className\"] = $2; })"+        js_setClassName :: Element -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/className MDN Element.className documentation>+setClassName :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()+setClassName self val = liftDOM (void ((js_setClassName ((Types.toElement self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"className\"]; })"+        js_getClassName :: Element -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/className MDN Element.className documentation>+getClassName :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getClassName self = liftDOM ((fromJSString <$> (js_getClassName ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"classList\"]; })"+        js_getClassList :: Element -> IO DOMTokenList+-- | <https://developer.mozilla.org/docs/Web/API/Element/classList MDN Element.classList documentation>+getClassList :: (MonadDOM m, IsElement self) => self -> m DOMTokenList+getClassList self = liftDOM ((js_getClassList ((Types.toElement self))))++foreign import javascript safe "(($1, $2) => { $1[\"slot\"] = $2; })"+        js_setSlot :: Element -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/slot MDN Element.slot documentation>+setSlot :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()+setSlot self val = liftDOM (void ((js_setSlot ((Types.toElement self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"slot\"]; })"+        js_getSlot :: Element -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/slot MDN Element.slot documentation>+getSlot :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getSlot self = liftDOM ((fromJSString <$> (js_getSlot ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"attributes\"]; })"+        js_getAttributes :: Element -> IO NamedNodeMap+-- | <https://developer.mozilla.org/docs/Web/API/Element/attributes MDN Element.attributes documentation>+getAttributes :: (MonadDOM m, IsElement self) => self -> m NamedNodeMap+getAttributes self = liftDOM ((js_getAttributes ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"shadowRoot\"]; })"+        js_getShadowRoot :: Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/shadowRoot MDN Element.shadowRoot documentation>+getShadowRoot :: (MonadDOM m, IsElement self) => self -> m (Maybe ShadowRoot)+getShadowRoot self = liftDOM (((js_getShadowRoot ((Types.toElement self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/shadowRoot MDN Element.shadowRoot documentation>+getShadowRootUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m ShadowRoot+getShadowRootUnsafe self = liftDOM ((((js_getShadowRoot ((Types.toElement self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/shadowRoot MDN Element.shadowRoot documentation>+getShadowRootUnchecked :: (MonadDOM m, IsElement self) => self -> m ShadowRoot+getShadowRootUnchecked self = liftDOM ((pFromJSVal <$> (js_getShadowRoot ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"customElementRegistry\"]; })"+        js_getCustomElementRegistry :: Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/customElementRegistry MDN Element.customElementRegistry documentation>+getCustomElementRegistry :: (MonadDOM m, IsElement self) => self -> m (Maybe CustomElementRegistry)+getCustomElementRegistry self = liftDOM (((js_getCustomElementRegistry ((Types.toElement self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/customElementRegistry MDN Element.customElementRegistry documentation>+getCustomElementRegistryUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m CustomElementRegistry+getCustomElementRegistryUnsafe self = liftDOM ((((js_getCustomElementRegistry ((Types.toElement self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/customElementRegistry MDN Element.customElementRegistry documentation>+getCustomElementRegistryUnchecked :: (MonadDOM m, IsElement self) => self -> m CustomElementRegistry+getCustomElementRegistryUnchecked self = liftDOM ((pFromJSVal <$> (js_getCustomElementRegistry ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"part\"]; })"+        js_getPart :: Element -> IO DOMTokenList+-- | <https://developer.mozilla.org/docs/Web/API/Element/part MDN Element.part documentation>+getPart :: (MonadDOM m, IsElement self) => self -> m DOMTokenList+getPart self = liftDOM ((js_getPart ((Types.toElement self))))++foreign import javascript safe "(($1, $2) => { $1[\"scrollTop\"] = $2; })"+        js_setScrollTop :: Element -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTop MDN Element.scrollTop documentation>+setScrollTop :: (MonadDOM m, IsElement self) => self -> Double -> m ()+setScrollTop self val = liftDOM (void ((js_setScrollTop ((Types.toElement self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"scrollTop\"]; })"+        js_getScrollTop :: Element -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTop MDN Element.scrollTop documentation>+getScrollTop :: (MonadDOM m, IsElement self) => self -> m Double+getScrollTop self = liftDOM ((js_getScrollTop ((Types.toElement self))))++foreign import javascript safe "(($1, $2) => { $1[\"scrollLeft\"] = $2; })"+        js_setScrollLeft :: Element -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollLeft MDN Element.scrollLeft documentation>+setScrollLeft :: (MonadDOM m, IsElement self) => self -> Double -> m ()+setScrollLeft self val = liftDOM (void ((js_setScrollLeft ((Types.toElement self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"scrollLeft\"]; })"+        js_getScrollLeft :: Element -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollLeft MDN Element.scrollLeft documentation>+getScrollLeft :: (MonadDOM m, IsElement self) => self -> m Double+getScrollLeft self = liftDOM ((js_getScrollLeft ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"scrollWidth\"]; })"+        js_getScrollWidth :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollWidth MDN Element.scrollWidth documentation>+getScrollWidth :: (MonadDOM m, IsElement self) => self -> m Int+getScrollWidth self = liftDOM ((js_getScrollWidth ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"scrollHeight\"]; })"+        js_getScrollHeight :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollHeight MDN Element.scrollHeight documentation>+getScrollHeight :: (MonadDOM m, IsElement self) => self -> m Int+getScrollHeight self = liftDOM ((js_getScrollHeight ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"clientTop\"]; })"+        js_getClientTop :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/clientTop MDN Element.clientTop documentation>+getClientTop :: (MonadDOM m, IsElement self) => self -> m Int+getClientTop self = liftDOM ((js_getClientTop ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"clientLeft\"]; })"+        js_getClientLeft :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/clientLeft MDN Element.clientLeft documentation>+getClientLeft :: (MonadDOM m, IsElement self) => self -> m Int+getClientLeft self = liftDOM ((js_getClientLeft ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"clientWidth\"]; })"+        js_getClientWidth :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/clientWidth MDN Element.clientWidth documentation>+getClientWidth :: (MonadDOM m, IsElement self) => self -> m Int+getClientWidth self = liftDOM ((js_getClientWidth ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"clientHeight\"]; })"+        js_getClientHeight :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/clientHeight MDN Element.clientHeight documentation>+getClientHeight :: (MonadDOM m, IsElement self) => self -> m Int+getClientHeight self = liftDOM ((js_getClientHeight ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"currentCSSZoom\"]; })"+        js_getCurrentCSSZoom :: Element -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/Element/currentCSSZoom MDN Element.currentCSSZoom documentation>+getCurrentCSSZoom :: (MonadDOM m, IsElement self) => self -> m Double+getCurrentCSSZoom self = liftDOM ((js_getCurrentCSSZoom ((Types.toElement self))))++foreign import javascript safe "(($1, $2) => { $1[\"innerHTML\"] = $2; })"+        js_setInnerHTML :: Element -> TrustedHTMLOrString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/innerHTML MDN Element.innerHTML documentation>+setInnerHTML :: (MonadDOM m, IsElement self, IsTrustedHTMLOrString val) => self -> val -> m ()+setInnerHTML self val = liftDOM (void ((js_setInnerHTML ((Types.toElement self)) (Types.toTrustedHTMLOrString val))))++foreign import javascript unsafe "(($1) => { return $1[\"innerHTML\"]; })"+        js_getInnerHTML :: Element -> IO TrustedHTMLOrString+-- | <https://developer.mozilla.org/docs/Web/API/Element/innerHTML MDN Element.innerHTML documentation>+getInnerHTML :: (MonadDOM m, IsElement self) => self -> m TrustedHTMLOrString+getInnerHTML self = liftDOM ((js_getInnerHTML ((Types.toElement self))))++foreign import javascript safe "(($1, $2) => { $1[\"outerHTML\"] = $2; })"+        js_setOuterHTML :: Element -> TrustedHTMLOrString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/outerHTML MDN Element.outerHTML documentation>+setOuterHTML :: (MonadDOM m, IsElement self, IsTrustedHTMLOrString val) => self -> val -> m ()+setOuterHTML self val = liftDOM (void ((js_setOuterHTML ((Types.toElement self)) (Types.toTrustedHTMLOrString val))))++foreign import javascript unsafe "(($1) => { return $1[\"outerHTML\"]; })"+        js_getOuterHTML :: Element -> IO TrustedHTMLOrString+-- | <https://developer.mozilla.org/docs/Web/API/Element/outerHTML MDN Element.outerHTML documentation>+getOuterHTML :: (MonadDOM m, IsElement self) => self -> m TrustedHTMLOrString+getOuterHTML self = liftDOM ((js_getOuterHTML ((Types.toElement self))))++-- | <https://fullscreen.spec.whatwg.org/#handler-document-onfullscreenchange fullscreenchange event>+fullscreenchange :: (IsElement self, IsEventTarget self) => EventName self Event+fullscreenchange = unsafeEventName (toJSString "fullscreenchange")++-- | <https://fullscreen.spec.whatwg.org/#handler-document-onfullscreenerror fullscreenerror event>+fullscreenerror :: (IsElement self, IsEventTarget self) => EventName self Event+fullscreenerror = unsafeEventName (toJSString "fullscreenerror")++-- | <https://w3c.github.io/uievents/#compositionend compositionend event>+compositionend :: (IsElement self, IsEventTarget self) => EventName self CompositionEvent+compositionend = unsafeEventName (toJSString "compositionend")++-- | <https://w3c.github.io/uievents/#compositionstart compositionstart event>+compositionstart :: (IsElement self, IsEventTarget self) => EventName self CompositionEvent+compositionstart = unsafeEventName (toJSString "compositionstart")++-- | <https://w3c.github.io/uievents/#compositionupdate compositionupdate event>+compositionupdate :: (IsElement self, IsEventTarget self) => EventName self CompositionEvent+compositionupdate = unsafeEventName (toJSString "compositionupdate")++-- | <https://drafts.csswg.org/css-contain-2/#eventdef-element-contentvisibilityautostatechange contentvisibilityautostatechange event>+contentvisibilityautostatechange :: (IsElement self, IsEventTarget self) => EventName self ContentVisibilityAutoStateChangeEvent+contentvisibilityautostatechange = unsafeEventName (toJSString "contentvisibilityautostatechange")++-- | <https://w3c.github.io/uievents/#domactivate DOMActivate event>+domActivate :: (IsElement self, IsEventTarget self) => EventName self UIEvent+domActivate = unsafeEventName (toJSString "DOMActivate")++-- | <https://w3c.github.io/uievents/#domfocusin DOMFocusIn event>+domFocusIn :: (IsElement self, IsEventTarget self) => EventName self FocusEvent+domFocusIn = unsafeEventName (toJSString "DOMFocusIn")++-- | <https://w3c.github.io/uievents/#domfocusout DOMFocusOut event>+domFocusOut :: (IsElement self, IsEventTarget self) => EventName self FocusEvent+domFocusOut = unsafeEventName (toJSString "DOMFocusOut")++-- | <https://w3c.github.io/uievents/#focusin focusin event>+focusin :: (IsElement self, IsEventTarget self) => EventName self FocusEvent+focusin = unsafeEventName (toJSString "focusin")++-- | <https://w3c.github.io/uievents/#focusout focusout event>+focusout :: (IsElement self, IsEventTarget self) => EventName self FocusEvent+focusout = unsafeEventName (toJSString "focusout")++-- | <https://w3c.github.io/uievents/#textinput textInput event>+textInput :: (IsElement self, IsEventTarget self) => EventName self TextEvent+textInput = unsafeEventName (toJSString "textInput")
src/GHCJS/DOM/JSFFI/Generated/ElementCSSInlineStyle.hs view
@@ -1,37 +1,29 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cssom-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.ElementCSSInlineStyle-       (js_getStyle, getStyle, ElementCSSInlineStyle(..),-        gTypeElementCSSInlineStyle, IsElementCSSInlineStyle,-        toElementCSSInlineStyle)+       (js_getStyle, js_getAttributeStyleMap, getStyle, getAttributeStyleMap, ElementCSSInlineStyle(..), gTypeElementCSSInlineStyle, IsElementCSSInlineStyle, toElementCSSInlineStyle)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" js_getStyle ::-        ElementCSSInlineStyle -> IO CSSStyleDeclaration --- | <https://developer.mozilla.org/en-US/docs/Web/API/ElementCSSInlineStyle.style Mozilla ElementCSSInlineStyle.style documentation> -getStyle ::-         (MonadIO m, IsElementCSSInlineStyle self) =>-           self -> m CSSStyleDeclaration-getStyle self = liftIO (js_getStyle (toElementCSSInlineStyle self))+foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })"+        js_getStyle :: ElementCSSInlineStyle -> IO CSSStyleProperties+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/style MDN ElementCSSInlineStyle.style documentation>+getStyle :: (MonadDOM m, IsElementCSSInlineStyle self) => self -> m CSSStyleProperties+getStyle self = liftDOM ((js_getStyle ((Types.toElementCSSInlineStyle self))))++foreign import javascript unsafe "(($1) => { return $1[\"attributeStyleMap\"]; })"+        js_getAttributeStyleMap :: ElementCSSInlineStyle -> IO StylePropertyMap+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/attributeStyleMap MDN ElementCSSInlineStyle.attributeStyleMap documentation>+getAttributeStyleMap :: (MonadDOM m, IsElementCSSInlineStyle self) => self -> m StylePropertyMap+getAttributeStyleMap self = liftDOM ((js_getAttributeStyleMap ((Types.toElementCSSInlineStyle self))))
+ src/GHCJS/DOM/JSFFI/Generated/ElementContentEditable.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ElementContentEditable+       (js_setContentEditable, js_getContentEditable, js_setEnterKeyHint, js_getEnterKeyHint, js_getIsContentEditable, js_setInputMode, js_getInputMode, setContentEditable, getContentEditable, setEnterKeyHint, getEnterKeyHint, getIsContentEditable, setInputMode, getInputMode, ElementContentEditable(..), gTypeElementContentEditable, IsElementContentEditable, toElementContentEditable)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { $1[\"contentEditable\"] = $2; })"+        js_setContentEditable :: ElementContentEditable -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/contentEditable MDN ElementContentEditable.contentEditable documentation>+setContentEditable :: (MonadDOM m, IsElementContentEditable self, ToJSString val) => self -> val -> m ()+setContentEditable self val = liftDOM (void ((js_setContentEditable ((Types.toElementContentEditable self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"contentEditable\"]; })"+        js_getContentEditable :: ElementContentEditable -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/contentEditable MDN ElementContentEditable.contentEditable documentation>+getContentEditable :: (MonadDOM m, IsElementContentEditable self, FromJSString result) => self -> m result+getContentEditable self = liftDOM ((fromJSString <$> (js_getContentEditable ((Types.toElementContentEditable self)))))++foreign import javascript safe "(($1, $2) => { $1[\"enterKeyHint\"] = $2; })"+        js_setEnterKeyHint :: ElementContentEditable -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/enterKeyHint MDN ElementContentEditable.enterKeyHint documentation>+setEnterKeyHint :: (MonadDOM m, IsElementContentEditable self, ToJSString val) => self -> val -> m ()+setEnterKeyHint self val = liftDOM (void ((js_setEnterKeyHint ((Types.toElementContentEditable self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"enterKeyHint\"]; })"+        js_getEnterKeyHint :: ElementContentEditable -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/enterKeyHint MDN ElementContentEditable.enterKeyHint documentation>+getEnterKeyHint :: (MonadDOM m, IsElementContentEditable self, FromJSString result) => self -> m result+getEnterKeyHint self = liftDOM ((fromJSString <$> (js_getEnterKeyHint ((Types.toElementContentEditable self)))))++foreign import javascript unsafe "(($1) => { return $1[\"isContentEditable\"]; })"+        js_getIsContentEditable :: ElementContentEditable -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/isContentEditable MDN ElementContentEditable.isContentEditable documentation>+getIsContentEditable :: (MonadDOM m, IsElementContentEditable self) => self -> m Bool+getIsContentEditable self = liftDOM ((js_getIsContentEditable ((Types.toElementContentEditable self))))++foreign import javascript safe "(($1, $2) => { $1[\"inputMode\"] = $2; })"+        js_setInputMode :: ElementContentEditable -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/inputMode MDN ElementContentEditable.inputMode documentation>+setInputMode :: (MonadDOM m, IsElementContentEditable self, ToJSString val) => self -> val -> m ()+setInputMode self val = liftDOM (void ((js_setInputMode ((Types.toElementContentEditable self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"inputMode\"]; })"+        js_getInputMode :: ElementContentEditable -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/inputMode MDN ElementContentEditable.inputMode documentation>+getInputMode :: (MonadDOM m, IsElementContentEditable self, FromJSString result) => self -> m result+getInputMode self = liftDOM ((fromJSString <$> (js_getInputMode ((Types.toElementContentEditable self)))))
+ src/GHCJS/DOM/JSFFI/Generated/ElementCreationOptions.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ElementCreationOptions+       (js_newElementCreationOptions, js_setCustomElementRegistry, js_getCustomElementRegistry, js_setIs, js_getIs, newElementCreationOptions, setCustomElementRegistry, getCustomElementRegistry, getCustomElementRegistryUnsafe, getCustomElementRegistryUnchecked, setIs, getIs, getIsUnsafe, getIsUnchecked, ElementCreationOptions(..), gTypeElementCreationOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newElementCreationOptions :: IO ElementCreationOptions+-- | <https://dom.spec.whatwg.org/#dictdef-elementcreationoptions ElementCreationOptions specification>+newElementCreationOptions :: (MonadDOM m) => m ElementCreationOptions+newElementCreationOptions = liftDOM ((js_newElementCreationOptions))++foreign import javascript safe "(($1, $2) => { $1[\"customElementRegistry\"] = $2; })"+        js_setCustomElementRegistry :: ElementCreationOptions -> JSVal -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-customelementregistry ElementCreationOptions.customElementRegistry specification>+setCustomElementRegistry :: (MonadDOM m) => ElementCreationOptions -> Maybe CustomElementRegistry -> m ()+setCustomElementRegistry self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setCustomElementRegistry (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"customElementRegistry\"]; })"+        js_getCustomElementRegistry :: ElementCreationOptions -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-customelementregistry ElementCreationOptions.customElementRegistry specification>+getCustomElementRegistry :: (MonadDOM m) => ElementCreationOptions -> m (Maybe CustomElementRegistry)+getCustomElementRegistry self = liftDOM (((js_getCustomElementRegistry (self)) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-customelementregistry ElementCreationOptions.customElementRegistry specification>+getCustomElementRegistryUnsafe :: (MonadDOM m, HasCallStack) => ElementCreationOptions -> m CustomElementRegistry+getCustomElementRegistryUnsafe self = liftDOM ((((js_getCustomElementRegistry (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-customelementregistry ElementCreationOptions.customElementRegistry specification>+getCustomElementRegistryUnchecked :: (MonadDOM m) => ElementCreationOptions -> m CustomElementRegistry+getCustomElementRegistryUnchecked self = liftDOM ((pFromJSVal <$> (js_getCustomElementRegistry (self))))++foreign import javascript safe "(($1, $2) => { $1[\"is\"] = $2; })"+        js_setIs :: ElementCreationOptions -> JSString -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-is ElementCreationOptions.is specification>+setIs :: (MonadDOM m, ToJSString val) => ElementCreationOptions -> val -> m ()+setIs self val = liftDOM (void ((js_setIs (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"is\"]; })"+        js_getIs :: ElementCreationOptions -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-is ElementCreationOptions.is specification>+getIs :: (MonadDOM m, FromJSString result) => ElementCreationOptions -> m (Maybe result)+getIs self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getIs (self))))++-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-is ElementCreationOptions.is specification>+getIsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ElementCreationOptions -> m result+getIsUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getIs (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-is ElementCreationOptions.is specification>+getIsUnchecked :: (MonadDOM m, FromJSString result) => ElementCreationOptions -> m result+getIsUnchecked self = liftDOM ((pFromJSVal <$> (js_getIs (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ElementDefinitionOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ElementDefinitionOptions+       (js_newElementDefinitionOptions, js_setExtends, js_getExtends, newElementDefinitionOptions, setExtends, getExtends, getExtendsUnsafe, getExtendsUnchecked, ElementDefinitionOptions(..), gTypeElementDefinitionOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newElementDefinitionOptions :: IO ElementDefinitionOptions+-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#elementdefinitionoptions ElementDefinitionOptions specification>+newElementDefinitionOptions :: (MonadDOM m) => m ElementDefinitionOptions+newElementDefinitionOptions = liftDOM ((js_newElementDefinitionOptions))++foreign import javascript safe "(($1, $2) => { $1[\"extends\"] = $2; })"+        js_setExtends :: ElementDefinitionOptions -> JSString -> IO ()+-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#dom-elementdefinitionoptions-extends ElementDefinitionOptions.extends specification>+setExtends :: (MonadDOM m, ToJSString val) => ElementDefinitionOptions -> val -> m ()+setExtends self val = liftDOM (void ((js_setExtends (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"extends\"]; })"+        js_getExtends :: ElementDefinitionOptions -> IO JSVal+-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#dom-elementdefinitionoptions-extends ElementDefinitionOptions.extends specification>+getExtends :: (MonadDOM m, FromJSString result) => ElementDefinitionOptions -> m (Maybe result)+getExtends self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getExtends (self))))++-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#dom-elementdefinitionoptions-extends ElementDefinitionOptions.extends specification>+getExtendsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ElementDefinitionOptions -> m result+getExtendsUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getExtends (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#dom-elementdefinitionoptions-extends ElementDefinitionOptions.extends specification>+getExtendsUnchecked :: (MonadDOM m, FromJSString result) => ElementDefinitionOptions -> m result+getExtendsUnchecked self = liftDOM ((pFromJSVal <$> (js_getExtends (self))))
+ src/GHCJS/DOM/JSFFI/Generated/ElementInternals.hs view
@@ -0,0 +1,107 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ElementInternals+       (js_checkValidity, js_reportValidity, js_setFormValue, js_setValidity, js_getShadowRoot, js_getForm, js_getWillValidate, js_getValidity, js_getValidationMessage, js_getLabels, js_getStates, checkValidity, checkValidity_, reportValidity, reportValidity_, setFormValue, setValidity, getShadowRoot, getShadowRootUnsafe, getShadowRootUnchecked, getForm, getFormUnsafe, getFormUnchecked, getWillValidate, getValidity, getValidationMessage, getLabels, getStates, ElementInternals(..), gTypeElementInternals)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return $1[\"checkValidity\"](); })"+        js_checkValidity :: ElementInternals -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/checkValidity MDN ElementInternals.checkValidity documentation>+checkValidity :: (MonadDOM m) => ElementInternals -> m Bool+checkValidity self = liftDOM ((js_checkValidity (self)))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/checkValidity MDN ElementInternals.checkValidity documentation>+checkValidity_ :: (MonadDOM m) => ElementInternals -> m ()+checkValidity_ self = liftDOM (void ((js_checkValidity (self))))++foreign import javascript safe "(($1) => { return $1[\"reportValidity\"](); })"+        js_reportValidity :: ElementInternals -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/reportValidity MDN ElementInternals.reportValidity documentation>+reportValidity :: (MonadDOM m) => ElementInternals -> m Bool+reportValidity self = liftDOM ((js_reportValidity (self)))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/reportValidity MDN ElementInternals.reportValidity documentation>+reportValidity_ :: (MonadDOM m) => ElementInternals -> m ()+reportValidity_ self = liftDOM (void ((js_reportValidity (self))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"setFormValue\"]($2, $3); })"+        js_setFormValue :: ElementInternals -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/setFormValue MDN ElementInternals.setFormValue documentation>+setFormValue :: (MonadDOM m, IsFileOrStringOrFormData value, IsFileOrStringOrFormData state) => ElementInternals -> Maybe value -> Maybe state -> m ()+setFormValue self value state = liftDOM (void (((toJSVal value) >>= \a2' -> (toJSVal state) >>= \a3' -> js_setFormValue (self) a2' a3')))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setValidity\"]($2, $3, $4); })"+        js_setValidity :: ElementInternals -> JSVal -> (Optional JSString) -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/setValidity MDN ElementInternals.setValidity documentation>+setValidity :: (MonadDOM m, ToJSString message, IsHTMLElement anchor) => ElementInternals -> Maybe ValidityStateFlags -> Maybe message -> Maybe anchor -> m ()+setValidity self flags message anchor = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal flags) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal anchor) >>= \a4' -> js_setValidity (self) a2' (toOptionalJSString message) a4')))++foreign import javascript unsafe "(($1) => { return $1[\"shadowRoot\"]; })"+        js_getShadowRoot :: ElementInternals -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/shadowRoot MDN ElementInternals.shadowRoot documentation>+getShadowRoot :: (MonadDOM m) => ElementInternals -> m (Maybe ShadowRoot)+getShadowRoot self = liftDOM (((js_getShadowRoot (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/shadowRoot MDN ElementInternals.shadowRoot documentation>+getShadowRootUnsafe :: (MonadDOM m, HasCallStack) => ElementInternals -> m ShadowRoot+getShadowRootUnsafe self = liftDOM ((((js_getShadowRoot (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/shadowRoot MDN ElementInternals.shadowRoot documentation>+getShadowRootUnchecked :: (MonadDOM m) => ElementInternals -> m ShadowRoot+getShadowRootUnchecked self = liftDOM ((pFromJSVal <$> (js_getShadowRoot (self))))++foreign import javascript unsafe "(($1) => { return $1[\"form\"]; })"+        js_getForm :: ElementInternals -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/form MDN ElementInternals.form documentation>+getForm :: (MonadDOM m) => ElementInternals -> m (Maybe HTMLFormElement)+getForm self = liftDOM (((js_getForm (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/form MDN ElementInternals.form documentation>+getFormUnsafe :: (MonadDOM m, HasCallStack) => ElementInternals -> m HTMLFormElement+getFormUnsafe self = liftDOM ((((js_getForm (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/form MDN ElementInternals.form documentation>+getFormUnchecked :: (MonadDOM m) => ElementInternals -> m HTMLFormElement+getFormUnchecked self = liftDOM ((pFromJSVal <$> (js_getForm (self))))++foreign import javascript unsafe "(($1) => { return $1[\"willValidate\"]; })"+        js_getWillValidate :: ElementInternals -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/willValidate MDN ElementInternals.willValidate documentation>+getWillValidate :: (MonadDOM m) => ElementInternals -> m Bool+getWillValidate self = liftDOM ((js_getWillValidate (self)))++foreign import javascript unsafe "(($1) => { return $1[\"validity\"]; })"+        js_getValidity :: ElementInternals -> IO ValidityState+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/validity MDN ElementInternals.validity documentation>+getValidity :: (MonadDOM m) => ElementInternals -> m ValidityState+getValidity self = liftDOM ((js_getValidity (self)))++foreign import javascript unsafe "(($1) => { return $1[\"validationMessage\"]; })"+        js_getValidationMessage :: ElementInternals -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/validationMessage MDN ElementInternals.validationMessage documentation>+getValidationMessage :: (MonadDOM m, FromJSString result) => ElementInternals -> m result+getValidationMessage self = liftDOM ((fromJSString <$> (js_getValidationMessage (self))))++foreign import javascript unsafe "(($1) => { return $1[\"labels\"]; })"+        js_getLabels :: ElementInternals -> IO NodeList+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/labels MDN ElementInternals.labels documentation>+getLabels :: (MonadDOM m) => ElementInternals -> m NodeList+getLabels self = liftDOM ((js_getLabels (self)))++foreign import javascript unsafe "(($1) => { return $1[\"states\"]; })"+        js_getStates :: ElementInternals -> IO CustomStateSet+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/states MDN ElementInternals.states documentation>+getStates :: (MonadDOM m) => ElementInternals -> m CustomStateSet+getStates self = liftDOM ((js_getStates (self)))
+ src/GHCJS/DOM/JSFFI/Generated/EncodedAudioChunk.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedAudioChunk+       (js_newEncodedAudioChunk, js_copyTo, js_getType, js_getTimestamp, js_getDuration, js_getByteLength, newEncodedAudioChunk, copyTo, getType, getTimestamp, getDuration, getDurationUnsafe, getDurationUnchecked, getByteLength, EncodedAudioChunk(..), gTypeEncodedAudioChunk)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"EncodedAudioChunk\"]($1); })"+        js_newEncodedAudioChunk :: EncodedAudioChunkInit -> IO EncodedAudioChunk+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/EncodedAudioChunk MDN EncodedAudioChunk. documentation>+newEncodedAudioChunk :: (MonadDOM m) => EncodedAudioChunkInit -> m EncodedAudioChunk+newEncodedAudioChunk init = liftDOM ((js_newEncodedAudioChunk (init)))++foreign import javascript safe "(($1, $2) => { return $1[\"copyTo\"]($2); })"+        js_copyTo :: EncodedAudioChunk -> AllowSharedBufferSource -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/copyTo MDN EncodedAudioChunk.copyTo documentation>+copyTo :: (MonadDOM m, IsAllowSharedBufferSource destination) => EncodedAudioChunk -> destination -> m ()+copyTo self destination = liftDOM (void ((js_copyTo (self) (Types.toAllowSharedBufferSource destination))))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: EncodedAudioChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/type MDN EncodedAudioChunk.type documentation>+getType :: (MonadDOM m) => EncodedAudioChunk -> m EncodedAudioChunkType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"+        js_getTimestamp :: EncodedAudioChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/timestamp MDN EncodedAudioChunk.timestamp documentation>+getTimestamp :: (MonadDOM m) => EncodedAudioChunk -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+        js_getDuration :: EncodedAudioChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/duration MDN EncodedAudioChunk.duration documentation>+getDuration :: (MonadDOM m) => EncodedAudioChunk -> m (Maybe Word53)+getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/duration MDN EncodedAudioChunk.duration documentation>+getDurationUnsafe :: (MonadDOM m, HasCallStack) => EncodedAudioChunk -> m Word53+getDurationUnsafe self = liftDOM ((((js_getDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/duration MDN EncodedAudioChunk.duration documentation>+getDurationUnchecked :: (MonadDOM m) => EncodedAudioChunk -> m Word53+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration (self))))++foreign import javascript unsafe "(($1) => { return $1[\"byteLength\"]; })"+        js_getByteLength :: EncodedAudioChunk -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/byteLength MDN EncodedAudioChunk.byteLength documentation>+getByteLength :: (MonadDOM m) => EncodedAudioChunk -> m Word+getByteLength self = liftDOM ((js_getByteLength (self)))
+ src/GHCJS/DOM/JSFFI/Generated/EncodedAudioChunkInit.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkInit+       (js_newEncodedAudioChunkInit, js_setType, js_getType, js_setTimestamp, js_getTimestamp, js_setDuration, js_getDuration, js_setData, js_getData, js_setTransfer, js_getTransfer, newEncodedAudioChunkInit, setType, getType, setTimestamp, getTimestamp, setDuration, getDuration, getDurationUnsafe, getDurationUnchecked, setData, getData, setTransfer, getTransfer, getTransferUnsafe, getTransferUnchecked, EncodedAudioChunkInit(..), gTypeEncodedAudioChunkInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return ({\"type\": $1, \"timestamp\": $2, \"data\": $3}); })"+        js_newEncodedAudioChunkInit :: JSVal -> JSVal -> AllowSharedBufferSource -> IO EncodedAudioChunkInit+-- | <https://w3c.github.io/webcodecs/#dictdef-encodedaudiochunkinit EncodedAudioChunkInit specification>+newEncodedAudioChunkInit :: (MonadDOM m, IsAllowSharedBufferSource data') => EncodedAudioChunkType -> Int53 -> data' -> m EncodedAudioChunkInit+newEncodedAudioChunkInit type' timestamp data' = liftDOM (((toJSVal type') >>= \a1' -> (toJSVal timestamp) >>= \a2' -> js_newEncodedAudioChunkInit a1' a2' (Types.toAllowSharedBufferSource data')))++foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+        js_setType :: EncodedAudioChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-type EncodedAudioChunkInit.type specification>+setType :: (MonadDOM m) => EncodedAudioChunkInit -> EncodedAudioChunkType -> m ()+setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: EncodedAudioChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-type EncodedAudioChunkInit.type specification>+getType :: (MonadDOM m) => EncodedAudioChunkInit -> m EncodedAudioChunkType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"timestamp\"] = $2; })"+        js_setTimestamp :: EncodedAudioChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-timestamp EncodedAudioChunkInit.timestamp specification>+setTimestamp :: (MonadDOM m) => EncodedAudioChunkInit -> Int53 -> m ()+setTimestamp self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimestamp (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"+        js_getTimestamp :: EncodedAudioChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-timestamp EncodedAudioChunkInit.timestamp specification>+getTimestamp :: (MonadDOM m) => EncodedAudioChunkInit -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"duration\"] = $2; })"+        js_setDuration :: EncodedAudioChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-duration EncodedAudioChunkInit.duration specification>+setDuration :: (MonadDOM m) => EncodedAudioChunkInit -> Word53 -> m ()+setDuration self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDuration (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+        js_getDuration :: EncodedAudioChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-duration EncodedAudioChunkInit.duration specification>+getDuration :: (MonadDOM m) => EncodedAudioChunkInit -> m (Maybe Word53)+getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-duration EncodedAudioChunkInit.duration specification>+getDurationUnsafe :: (MonadDOM m, HasCallStack) => EncodedAudioChunkInit -> m Word53+getDurationUnsafe self = liftDOM ((((js_getDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-duration EncodedAudioChunkInit.duration specification>+getDurationUnchecked :: (MonadDOM m) => EncodedAudioChunkInit -> m Word53+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration (self))))++foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+        js_setData :: EncodedAudioChunkInit -> AllowSharedBufferSource -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-data EncodedAudioChunkInit.data specification>+setData :: (MonadDOM m, IsAllowSharedBufferSource val) => EncodedAudioChunkInit -> val -> m ()+setData self val = liftDOM (void ((js_setData (self) (Types.toAllowSharedBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: EncodedAudioChunkInit -> IO AllowSharedBufferSource+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-data EncodedAudioChunkInit.data specification>+getData :: (MonadDOM m) => EncodedAudioChunkInit -> m AllowSharedBufferSource+getData self = liftDOM ((js_getData (self)))++foreign import javascript safe "(($1, $2) => { $1[\"transfer\"] = $2; })"+        js_setTransfer :: EncodedAudioChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-transfer EncodedAudioChunkInit.transfer specification>+setTransfer :: (MonadDOM m, IsArrayBuffer val) => EncodedAudioChunkInit -> [val] -> m ()+setTransfer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTransfer (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"transfer\"]; })"+        js_getTransfer :: EncodedAudioChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-transfer EncodedAudioChunkInit.transfer specification>+getTransfer :: (MonadDOM m) => EncodedAudioChunkInit -> m (Maybe [ArrayBuffer])+getTransfer self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-transfer EncodedAudioChunkInit.transfer specification>+getTransferUnsafe :: (MonadDOM m, HasCallStack) => EncodedAudioChunkInit -> m [ArrayBuffer]+getTransferUnsafe self = liftDOM ((((js_getTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-transfer EncodedAudioChunkInit.transfer specification>+getTransferUnchecked :: (MonadDOM m) => EncodedAudioChunkInit -> m [ArrayBuffer]+getTransferUnchecked self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/EncodedAudioChunkMetadata.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkMetadata+       (js_newEncodedAudioChunkMetadata, js_setDecoderConfig, js_getDecoderConfig, newEncodedAudioChunkMetadata, setDecoderConfig, getDecoderConfig, getDecoderConfigUnsafe, getDecoderConfigUnchecked, EncodedAudioChunkMetadata(..), gTypeEncodedAudioChunkMetadata)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newEncodedAudioChunkMetadata :: IO EncodedAudioChunkMetadata+-- | <https://w3c.github.io/webcodecs/#dictdef-encodedaudiochunkmetadata EncodedAudioChunkMetadata specification>+newEncodedAudioChunkMetadata :: (MonadDOM m) => m EncodedAudioChunkMetadata+newEncodedAudioChunkMetadata = liftDOM ((js_newEncodedAudioChunkMetadata))++foreign import javascript safe "(($1, $2) => { $1[\"decoderConfig\"] = $2; })"+        js_setDecoderConfig :: EncodedAudioChunkMetadata -> AudioDecoderConfig -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkmetadata-decoderconfig EncodedAudioChunkMetadata.decoderConfig specification>+setDecoderConfig :: (MonadDOM m) => EncodedAudioChunkMetadata -> AudioDecoderConfig -> m ()+setDecoderConfig self val = liftDOM (void ((js_setDecoderConfig (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"decoderConfig\"]; })"+        js_getDecoderConfig :: EncodedAudioChunkMetadata -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkmetadata-decoderconfig EncodedAudioChunkMetadata.decoderConfig specification>+getDecoderConfig :: (MonadDOM m) => EncodedAudioChunkMetadata -> m (Maybe AudioDecoderConfig)+getDecoderConfig self = liftDOM (((js_getDecoderConfig (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkmetadata-decoderconfig EncodedAudioChunkMetadata.decoderConfig specification>+getDecoderConfigUnsafe :: (MonadDOM m, HasCallStack) => EncodedAudioChunkMetadata -> m AudioDecoderConfig+getDecoderConfigUnsafe self = liftDOM ((((js_getDecoderConfig (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkmetadata-decoderconfig EncodedAudioChunkMetadata.decoderConfig specification>+getDecoderConfigUnchecked :: (MonadDOM m) => EncodedAudioChunkMetadata -> m AudioDecoderConfig+getDecoderConfigUnchecked self = liftDOM ((pFromJSVal <$> (js_getDecoderConfig (self))))
+ src/GHCJS/DOM/JSFFI/Generated/EncodedAudioChunkOutputCallback.hs view
@@ -0,0 +1,32 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkOutputCallback+       (newEncodedAudioChunkOutputCallback, newEncodedAudioChunkOutputCallbackSync, newEncodedAudioChunkOutputCallbackAsync, EncodedAudioChunkOutputCallback)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newEncodedAudioChunkOutputCallback :: (MonadDOM m) => (EncodedAudioChunk -> EncodedAudioChunkMetadata -> IO ()) -> m EncodedAudioChunkOutputCallback+newEncodedAudioChunkOutputCallback callback = liftDOM ((EncodedAudioChunkOutputCallback . coerce) <$> syncCallback2 ContinueAsync (\ output metadata -> do+          output' <- fromJSValUnchecked output+          metadata' <- fromJSValUnchecked metadata+          callback output' metadata'))++newEncodedAudioChunkOutputCallbackSync :: (MonadDOM m) => (EncodedAudioChunk -> EncodedAudioChunkMetadata -> IO ()) -> m EncodedAudioChunkOutputCallback+newEncodedAudioChunkOutputCallbackSync callback = liftDOM ((EncodedAudioChunkOutputCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ output metadata -> do+          output' <- fromJSValUnchecked output+          metadata' <- fromJSValUnchecked metadata+          callback output' metadata'))++newEncodedAudioChunkOutputCallbackAsync :: (MonadDOM m) => (EncodedAudioChunk -> EncodedAudioChunkMetadata -> IO ()) -> m EncodedAudioChunkOutputCallback+newEncodedAudioChunkOutputCallbackAsync callback = liftDOM ((EncodedAudioChunkOutputCallback . coerce) <$> asyncCallback2 (\ output metadata -> do+          output' <- fromJSValUnchecked output+          metadata' <- fromJSValUnchecked metadata+          callback output' metadata'))
+ src/GHCJS/DOM/JSFFI/Generated/EncodedVideoChunk.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedVideoChunk+       (js_newEncodedVideoChunk, js_copyTo, js_getType, js_getTimestamp, js_getDuration, js_getByteLength, newEncodedVideoChunk, copyTo, getType, getTimestamp, getDuration, getDurationUnsafe, getDurationUnchecked, getByteLength, EncodedVideoChunk(..), gTypeEncodedVideoChunk)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1) => { return new globalThis[\"EncodedVideoChunk\"]($1); })"+        js_newEncodedVideoChunk :: EncodedVideoChunkInit -> IO EncodedVideoChunk+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/EncodedVideoChunk MDN EncodedVideoChunk. documentation>+newEncodedVideoChunk :: (MonadDOM m) => EncodedVideoChunkInit -> m EncodedVideoChunk+newEncodedVideoChunk init = liftDOM ((js_newEncodedVideoChunk (init)))++foreign import javascript safe "(($1, $2) => { return $1[\"copyTo\"]($2); })"+        js_copyTo :: EncodedVideoChunk -> AllowSharedBufferSource -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/copyTo MDN EncodedVideoChunk.copyTo documentation>+copyTo :: (MonadDOM m, IsAllowSharedBufferSource destination) => EncodedVideoChunk -> destination -> m ()+copyTo self destination = liftDOM (void ((js_copyTo (self) (Types.toAllowSharedBufferSource destination))))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: EncodedVideoChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/type MDN EncodedVideoChunk.type documentation>+getType :: (MonadDOM m) => EncodedVideoChunk -> m EncodedVideoChunkType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"+        js_getTimestamp :: EncodedVideoChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/timestamp MDN EncodedVideoChunk.timestamp documentation>+getTimestamp :: (MonadDOM m) => EncodedVideoChunk -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+        js_getDuration :: EncodedVideoChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/duration MDN EncodedVideoChunk.duration documentation>+getDuration :: (MonadDOM m) => EncodedVideoChunk -> m (Maybe Word53)+getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/duration MDN EncodedVideoChunk.duration documentation>+getDurationUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunk -> m Word53+getDurationUnsafe self = liftDOM ((((js_getDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/duration MDN EncodedVideoChunk.duration documentation>+getDurationUnchecked :: (MonadDOM m) => EncodedVideoChunk -> m Word53+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration (self))))++foreign import javascript unsafe "(($1) => { return $1[\"byteLength\"]; })"+        js_getByteLength :: EncodedVideoChunk -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/byteLength MDN EncodedVideoChunk.byteLength documentation>+getByteLength :: (MonadDOM m) => EncodedVideoChunk -> m Word+getByteLength self = liftDOM ((js_getByteLength (self)))
+ src/GHCJS/DOM/JSFFI/Generated/EncodedVideoChunkInit.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkInit+       (js_newEncodedVideoChunkInit, js_setType, js_getType, js_setTimestamp, js_getTimestamp, js_setDuration, js_getDuration, js_setData, js_getData, js_setTransfer, js_getTransfer, newEncodedVideoChunkInit, setType, getType, setTimestamp, getTimestamp, setDuration, getDuration, getDurationUnsafe, getDurationUnchecked, setData, getData, setTransfer, getTransfer, getTransferUnsafe, getTransferUnchecked, EncodedVideoChunkInit(..), gTypeEncodedVideoChunkInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2, $3) => { return ({\"type\": $1, \"timestamp\": $2, \"data\": $3}); })"+        js_newEncodedVideoChunkInit :: JSVal -> JSVal -> AllowSharedBufferSource -> IO EncodedVideoChunkInit+-- | <https://w3c.github.io/webcodecs/#dictdef-encodedvideochunkinit EncodedVideoChunkInit specification>+newEncodedVideoChunkInit :: (MonadDOM m, IsAllowSharedBufferSource data') => EncodedVideoChunkType -> Int53 -> data' -> m EncodedVideoChunkInit+newEncodedVideoChunkInit type' timestamp data' = liftDOM (((toJSVal type') >>= \a1' -> (toJSVal timestamp) >>= \a2' -> js_newEncodedVideoChunkInit a1' a2' (Types.toAllowSharedBufferSource data')))++foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+        js_setType :: EncodedVideoChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-type EncodedVideoChunkInit.type specification>+setType :: (MonadDOM m) => EncodedVideoChunkInit -> EncodedVideoChunkType -> m ()+setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: EncodedVideoChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-type EncodedVideoChunkInit.type specification>+getType :: (MonadDOM m) => EncodedVideoChunkInit -> m EncodedVideoChunkType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"timestamp\"] = $2; })"+        js_setTimestamp :: EncodedVideoChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-timestamp EncodedVideoChunkInit.timestamp specification>+setTimestamp :: (MonadDOM m) => EncodedVideoChunkInit -> Int53 -> m ()+setTimestamp self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimestamp (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"+        js_getTimestamp :: EncodedVideoChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-timestamp EncodedVideoChunkInit.timestamp specification>+getTimestamp :: (MonadDOM m) => EncodedVideoChunkInit -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"duration\"] = $2; })"+        js_setDuration :: EncodedVideoChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>+setDuration :: (MonadDOM m) => EncodedVideoChunkInit -> Word53 -> m ()+setDuration self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDuration (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+        js_getDuration :: EncodedVideoChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>+getDuration :: (MonadDOM m) => EncodedVideoChunkInit -> m (Maybe Word53)+getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>+getDurationUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkInit -> m Word53+getDurationUnsafe self = liftDOM ((((js_getDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>+getDurationUnchecked :: (MonadDOM m) => EncodedVideoChunkInit -> m Word53+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration (self))))++foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+        js_setData :: EncodedVideoChunkInit -> AllowSharedBufferSource -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-data EncodedVideoChunkInit.data specification>+setData :: (MonadDOM m, IsAllowSharedBufferSource val) => EncodedVideoChunkInit -> val -> m ()+setData self val = liftDOM (void ((js_setData (self) (Types.toAllowSharedBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+        js_getData :: EncodedVideoChunkInit -> IO AllowSharedBufferSource+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-data EncodedVideoChunkInit.data specification>+getData :: (MonadDOM m) => EncodedVideoChunkInit -> m AllowSharedBufferSource+getData self = liftDOM ((js_getData (self)))++foreign import javascript safe "(($1, $2) => { $1[\"transfer\"] = $2; })"+        js_setTransfer :: EncodedVideoChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>+setTransfer :: (MonadDOM m, IsArrayBuffer val) => EncodedVideoChunkInit -> [val] -> m ()+setTransfer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTransfer (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"transfer\"]; })"+        js_getTransfer :: EncodedVideoChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>+getTransfer :: (MonadDOM m) => EncodedVideoChunkInit -> m (Maybe [ArrayBuffer])+getTransfer self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>+getTransferUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkInit -> m [ArrayBuffer]+getTransferUnsafe self = liftDOM ((((js_getTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>+getTransferUnchecked :: (MonadDOM m) => EncodedVideoChunkInit -> m [ArrayBuffer]+getTransferUnchecked self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/EncodedVideoChunkMetadata.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkMetadata+       (js_newEncodedVideoChunkMetadata, js_setDecoderConfig, js_getDecoderConfig, js_setSvc, js_getSvc, js_setAlphaSideData, js_getAlphaSideData, newEncodedVideoChunkMetadata, setDecoderConfig, getDecoderConfig, getDecoderConfigUnsafe, getDecoderConfigUnchecked, setSvc, getSvc, getSvcUnsafe, getSvcUnchecked, setAlphaSideData, getAlphaSideData, getAlphaSideDataUnsafe, getAlphaSideDataUnchecked, EncodedVideoChunkMetadata(..), gTypeEncodedVideoChunkMetadata)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newEncodedVideoChunkMetadata :: IO EncodedVideoChunkMetadata+-- | <https://w3c.github.io/webcodecs/#dictdef-encodedvideochunkmetadata EncodedVideoChunkMetadata specification>+newEncodedVideoChunkMetadata :: (MonadDOM m) => m EncodedVideoChunkMetadata+newEncodedVideoChunkMetadata = liftDOM ((js_newEncodedVideoChunkMetadata))++foreign import javascript safe "(($1, $2) => { $1[\"decoderConfig\"] = $2; })"+        js_setDecoderConfig :: EncodedVideoChunkMetadata -> VideoDecoderConfig -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-decoderconfig EncodedVideoChunkMetadata.decoderConfig specification>+setDecoderConfig :: (MonadDOM m) => EncodedVideoChunkMetadata -> VideoDecoderConfig -> m ()+setDecoderConfig self val = liftDOM (void ((js_setDecoderConfig (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"decoderConfig\"]; })"+        js_getDecoderConfig :: EncodedVideoChunkMetadata -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-decoderconfig EncodedVideoChunkMetadata.decoderConfig specification>+getDecoderConfig :: (MonadDOM m) => EncodedVideoChunkMetadata -> m (Maybe VideoDecoderConfig)+getDecoderConfig self = liftDOM (((js_getDecoderConfig (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-decoderconfig EncodedVideoChunkMetadata.decoderConfig specification>+getDecoderConfigUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkMetadata -> m VideoDecoderConfig+getDecoderConfigUnsafe self = liftDOM ((((js_getDecoderConfig (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-decoderconfig EncodedVideoChunkMetadata.decoderConfig specification>+getDecoderConfigUnchecked :: (MonadDOM m) => EncodedVideoChunkMetadata -> m VideoDecoderConfig+getDecoderConfigUnchecked self = liftDOM ((pFromJSVal <$> (js_getDecoderConfig (self))))++foreign import javascript safe "(($1, $2) => { $1[\"svc\"] = $2; })"+        js_setSvc :: EncodedVideoChunkMetadata -> SvcOutputMetadata -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-svc EncodedVideoChunkMetadata.svc specification>+setSvc :: (MonadDOM m) => EncodedVideoChunkMetadata -> SvcOutputMetadata -> m ()+setSvc self val = liftDOM (void ((js_setSvc (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"svc\"]; })"+        js_getSvc :: EncodedVideoChunkMetadata -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-svc EncodedVideoChunkMetadata.svc specification>+getSvc :: (MonadDOM m) => EncodedVideoChunkMetadata -> m (Maybe SvcOutputMetadata)+getSvc self = liftDOM (((js_getSvc (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-svc EncodedVideoChunkMetadata.svc specification>+getSvcUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkMetadata -> m SvcOutputMetadata+getSvcUnsafe self = liftDOM ((((js_getSvc (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-svc EncodedVideoChunkMetadata.svc specification>+getSvcUnchecked :: (MonadDOM m) => EncodedVideoChunkMetadata -> m SvcOutputMetadata+getSvcUnchecked self = liftDOM ((pFromJSVal <$> (js_getSvc (self))))++foreign import javascript safe "(($1, $2) => { $1[\"alphaSideData\"] = $2; })"+        js_setAlphaSideData :: EncodedVideoChunkMetadata -> BufferSource -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-alphasidedata EncodedVideoChunkMetadata.alphaSideData specification>+setAlphaSideData :: (MonadDOM m, IsBufferSource val) => EncodedVideoChunkMetadata -> val -> m ()+setAlphaSideData self val = liftDOM (void ((js_setAlphaSideData (self) (Types.toBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"alphaSideData\"]; })"+        js_getAlphaSideData :: EncodedVideoChunkMetadata -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-alphasidedata EncodedVideoChunkMetadata.alphaSideData specification>+getAlphaSideData :: (MonadDOM m) => EncodedVideoChunkMetadata -> m (Maybe BufferSource)+getAlphaSideData self = liftDOM (((js_getAlphaSideData (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-alphasidedata EncodedVideoChunkMetadata.alphaSideData specification>+getAlphaSideDataUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkMetadata -> m BufferSource+getAlphaSideDataUnsafe self = liftDOM ((((js_getAlphaSideData (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-alphasidedata EncodedVideoChunkMetadata.alphaSideData specification>+getAlphaSideDataUnchecked :: (MonadDOM m) => EncodedVideoChunkMetadata -> m BufferSource+getAlphaSideDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlphaSideData (self))))
+ src/GHCJS/DOM/JSFFI/Generated/EncodedVideoChunkOutputCallback.hs view
@@ -0,0 +1,32 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkOutputCallback+       (newEncodedVideoChunkOutputCallback, newEncodedVideoChunkOutputCallbackSync, newEncodedVideoChunkOutputCallbackAsync, EncodedVideoChunkOutputCallback)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback2, asyncCallback2)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newEncodedVideoChunkOutputCallback :: (MonadDOM m) => (EncodedVideoChunk -> EncodedVideoChunkMetadata -> IO ()) -> m EncodedVideoChunkOutputCallback+newEncodedVideoChunkOutputCallback callback = liftDOM ((EncodedVideoChunkOutputCallback . coerce) <$> syncCallback2 ContinueAsync (\ chunk metadata -> do+          chunk' <- fromJSValUnchecked chunk+          metadata' <- fromJSValUnchecked metadata+          callback chunk' metadata'))++newEncodedVideoChunkOutputCallbackSync :: (MonadDOM m) => (EncodedVideoChunk -> EncodedVideoChunkMetadata -> IO ()) -> m EncodedVideoChunkOutputCallback+newEncodedVideoChunkOutputCallbackSync callback = liftDOM ((EncodedVideoChunkOutputCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ chunk metadata -> do+          chunk' <- fromJSValUnchecked chunk+          metadata' <- fromJSValUnchecked metadata+          callback chunk' metadata'))++newEncodedVideoChunkOutputCallbackAsync :: (MonadDOM m) => (EncodedVideoChunk -> EncodedVideoChunkMetadata -> IO ()) -> m EncodedVideoChunkOutputCallback+newEncodedVideoChunkOutputCallbackAsync callback = liftDOM ((EncodedVideoChunkOutputCallback . coerce) <$> asyncCallback2 (\ chunk metadata -> do+          chunk' <- fromJSValUnchecked chunk+          metadata' <- fromJSValUnchecked metadata+          callback chunk' metadata'))
src/GHCJS/DOM/JSFFI/Generated/Enums.hs view
@@ -1,4535 +1,9229 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.Enums-       (KeyType(..), PToJSVal, ToJSVal, PFromJSVal, FromJSVal,-        js_KeyTypePublic, js_KeyTypePrivate, js_KeyTypeSecret,-        CryptoKeyUsage(..), js_CryptoKeyUsageEncrypt,-        js_CryptoKeyUsageDecrypt, js_CryptoKeyUsageSign,-        js_CryptoKeyUsageVerify, js_CryptoKeyUsageDeriveKey,-        js_CryptoKeyUsageDeriveBits, js_CryptoKeyUsageWrapKey,-        js_CryptoKeyUsageUnwrapKey, KeyFormat(..), js_KeyFormatRaw,-        js_KeyFormatSpki, js_KeyFormatPkcs8, js_KeyFormatJwk,-        FontFaceLoadStatus(..), js_FontFaceLoadStatusUnloaded,-        js_FontFaceLoadStatusLoading, js_FontFaceLoadStatusLoaded,-        js_FontFaceLoadStatusError, FontFaceSetLoadStatus(..),-        js_FontFaceSetLoadStatusLoading, js_FontFaceSetLoadStatusLoaded,-        VisibilityState(..), js_VisibilityStateHidden,-        js_VisibilityStateVisible, 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, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))- -data KeyType = KeyTypePublic-             | KeyTypePrivate-             | KeyTypeSecret-             deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal KeyType where-        pToJSVal KeyTypePublic = js_KeyTypePublic-        pToJSVal KeyTypePrivate = js_KeyTypePrivate-        pToJSVal KeyTypeSecret = js_KeyTypeSecret- -instance ToJSVal KeyType where-        toJSVal = return . pToJSVal- -instance PFromJSVal KeyType where-        pFromJSVal x | x `js_eq` js_KeyTypePublic = KeyTypePublic-        pFromJSVal x | x `js_eq` js_KeyTypePrivate = KeyTypePrivate-        pFromJSVal x | x `js_eq` js_KeyTypeSecret = KeyTypeSecret- -instance FromJSVal KeyType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"public\"; })" js_KeyTypePublic ::-        JSVal- -foreign import javascript unsafe "(() => { return \"private\"; })" js_KeyTypePrivate ::-        JSVal- -foreign import javascript unsafe "(() => { return \"secret\"; })" js_KeyTypeSecret ::-        JSVal- -data CryptoKeyUsage = CryptoKeyUsageEncrypt-                    | CryptoKeyUsageDecrypt-                    | CryptoKeyUsageSign-                    | CryptoKeyUsageVerify-                    | CryptoKeyUsageDeriveKey-                    | CryptoKeyUsageDeriveBits-                    | CryptoKeyUsageWrapKey-                    | CryptoKeyUsageUnwrapKey-                    deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal CryptoKeyUsage where-        pToJSVal CryptoKeyUsageEncrypt = js_CryptoKeyUsageEncrypt-        pToJSVal CryptoKeyUsageDecrypt = js_CryptoKeyUsageDecrypt-        pToJSVal CryptoKeyUsageSign = js_CryptoKeyUsageSign-        pToJSVal CryptoKeyUsageVerify = js_CryptoKeyUsageVerify-        pToJSVal CryptoKeyUsageDeriveKey = js_CryptoKeyUsageDeriveKey-        pToJSVal CryptoKeyUsageDeriveBits = js_CryptoKeyUsageDeriveBits-        pToJSVal CryptoKeyUsageWrapKey = js_CryptoKeyUsageWrapKey-        pToJSVal CryptoKeyUsageUnwrapKey = js_CryptoKeyUsageUnwrapKey- -instance ToJSVal CryptoKeyUsage where-        toJSVal = return . pToJSVal- -instance PFromJSVal CryptoKeyUsage where-        pFromJSVal x-          | x `js_eq` js_CryptoKeyUsageEncrypt = CryptoKeyUsageEncrypt-        pFromJSVal x-          | x `js_eq` js_CryptoKeyUsageDecrypt = CryptoKeyUsageDecrypt-        pFromJSVal x | x `js_eq` js_CryptoKeyUsageSign = CryptoKeyUsageSign-        pFromJSVal x-          | x `js_eq` js_CryptoKeyUsageVerify = CryptoKeyUsageVerify-        pFromJSVal x-          | x `js_eq` js_CryptoKeyUsageDeriveKey = CryptoKeyUsageDeriveKey-        pFromJSVal x-          | x `js_eq` js_CryptoKeyUsageDeriveBits = CryptoKeyUsageDeriveBits-        pFromJSVal x-          | x `js_eq` js_CryptoKeyUsageWrapKey = CryptoKeyUsageWrapKey-        pFromJSVal x-          | x `js_eq` js_CryptoKeyUsageUnwrapKey = CryptoKeyUsageUnwrapKey- -instance FromJSVal CryptoKeyUsage where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"encrypt\"; })"-        js_CryptoKeyUsageEncrypt :: JSVal- -foreign import javascript unsafe "(() => { return \"decrypt\"; })"-        js_CryptoKeyUsageDecrypt :: JSVal- -foreign import javascript unsafe "(() => { return \"sign\"; })" js_CryptoKeyUsageSign-        :: JSVal- -foreign import javascript unsafe "(() => { return \"verify\"; })"-        js_CryptoKeyUsageVerify :: JSVal- -foreign import javascript unsafe "(() => { return \"deriveKey\"; })"-        js_CryptoKeyUsageDeriveKey :: JSVal- -foreign import javascript unsafe "(() => { return \"deriveBits\"; })"-        js_CryptoKeyUsageDeriveBits :: JSVal- -foreign import javascript unsafe "(() => { return \"wrapKey\"; })"-        js_CryptoKeyUsageWrapKey :: JSVal- -foreign import javascript unsafe "(() => { return \"unwrapKey\"; })"-        js_CryptoKeyUsageUnwrapKey :: JSVal- -data KeyFormat = KeyFormatRaw-               | KeyFormatSpki-               | KeyFormatPkcs8-               | KeyFormatJwk-               deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal KeyFormat where-        pToJSVal KeyFormatRaw = js_KeyFormatRaw-        pToJSVal KeyFormatSpki = js_KeyFormatSpki-        pToJSVal KeyFormatPkcs8 = js_KeyFormatPkcs8-        pToJSVal KeyFormatJwk = js_KeyFormatJwk- -instance ToJSVal KeyFormat where-        toJSVal = return . pToJSVal- -instance PFromJSVal KeyFormat where-        pFromJSVal x | x `js_eq` js_KeyFormatRaw = KeyFormatRaw-        pFromJSVal x | x `js_eq` js_KeyFormatSpki = KeyFormatSpki-        pFromJSVal x | x `js_eq` js_KeyFormatPkcs8 = KeyFormatPkcs8-        pFromJSVal x | x `js_eq` js_KeyFormatJwk = KeyFormatJwk- -instance FromJSVal KeyFormat where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"raw\"; })" js_KeyFormatRaw :: JSVal- -foreign import javascript unsafe "(() => { return \"spki\"; })" js_KeyFormatSpki ::-        JSVal- -foreign import javascript unsafe "(() => { return \"pkcs8\"; })" js_KeyFormatPkcs8 ::-        JSVal- -foreign import javascript unsafe "(() => { return \"jwk\"; })" js_KeyFormatJwk :: JSVal- -data FontFaceLoadStatus = FontFaceLoadStatusUnloaded-                        | FontFaceLoadStatusLoading-                        | FontFaceLoadStatusLoaded-                        | FontFaceLoadStatusError-                        deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal FontFaceLoadStatus where-        pToJSVal FontFaceLoadStatusUnloaded = js_FontFaceLoadStatusUnloaded-        pToJSVal FontFaceLoadStatusLoading = js_FontFaceLoadStatusLoading-        pToJSVal FontFaceLoadStatusLoaded = js_FontFaceLoadStatusLoaded-        pToJSVal FontFaceLoadStatusError = js_FontFaceLoadStatusError- -instance ToJSVal FontFaceLoadStatus where-        toJSVal = return . pToJSVal- -instance PFromJSVal FontFaceLoadStatus where-        pFromJSVal x-          | x `js_eq` js_FontFaceLoadStatusUnloaded =-            FontFaceLoadStatusUnloaded-        pFromJSVal x-          | x `js_eq` js_FontFaceLoadStatusLoading =-            FontFaceLoadStatusLoading-        pFromJSVal x-          | x `js_eq` js_FontFaceLoadStatusLoaded = FontFaceLoadStatusLoaded-        pFromJSVal x-          | x `js_eq` js_FontFaceLoadStatusError = FontFaceLoadStatusError- -instance FromJSVal FontFaceLoadStatus where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"unloaded\"; })"-        js_FontFaceLoadStatusUnloaded :: JSVal- -foreign import javascript unsafe "(() => { return \"loading\"; })"-        js_FontFaceLoadStatusLoading :: JSVal- -foreign import javascript unsafe "(() => { return \"loaded\"; })"-        js_FontFaceLoadStatusLoaded :: JSVal- -foreign import javascript unsafe "(() => { return \"error\"; })"-        js_FontFaceLoadStatusError :: JSVal- -data FontFaceSetLoadStatus = FontFaceSetLoadStatusLoading-                           | FontFaceSetLoadStatusLoaded-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal FontFaceSetLoadStatus where-        pToJSVal FontFaceSetLoadStatusLoading-          = js_FontFaceSetLoadStatusLoading-        pToJSVal FontFaceSetLoadStatusLoaded-          = js_FontFaceSetLoadStatusLoaded- -instance ToJSVal FontFaceSetLoadStatus where-        toJSVal = return . pToJSVal- -instance PFromJSVal FontFaceSetLoadStatus where-        pFromJSVal x-          | x `js_eq` js_FontFaceSetLoadStatusLoading =-            FontFaceSetLoadStatusLoading-        pFromJSVal x-          | x `js_eq` js_FontFaceSetLoadStatusLoaded =-            FontFaceSetLoadStatusLoaded- -instance FromJSVal FontFaceSetLoadStatus where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"loading\"; })"-        js_FontFaceSetLoadStatusLoading :: JSVal- -foreign import javascript unsafe "(() => { return \"loaded\"; })"-        js_FontFaceSetLoadStatusLoaded :: JSVal- -data VisibilityState = VisibilityStateHidden-                     | VisibilityStateVisible-                     | VisibilityStatePrerender-                     deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal VisibilityState where-        pToJSVal VisibilityStateHidden = js_VisibilityStateHidden-        pToJSVal VisibilityStateVisible = js_VisibilityStateVisible-        pToJSVal VisibilityStatePrerender = js_VisibilityStatePrerender- -instance ToJSVal VisibilityState where-        toJSVal = return . pToJSVal- -instance PFromJSVal VisibilityState where-        pFromJSVal x-          | x `js_eq` js_VisibilityStateHidden = VisibilityStateHidden-        pFromJSVal x-          | x `js_eq` js_VisibilityStateVisible = VisibilityStateVisible-        pFromJSVal x-          | x `js_eq` js_VisibilityStatePrerender = VisibilityStatePrerender- -instance FromJSVal VisibilityState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"hidden\"; })"-        js_VisibilityStateHidden :: JSVal- -foreign import javascript unsafe "(() => { return \"visible\"; })"-        js_VisibilityStateVisible :: JSVal- -foreign import javascript unsafe "(() => { return \"prerender\"; })"-        js_VisibilityStatePrerender :: JSVal- -data DocumentReadyState = DocumentReadyStateLoading-                        | DocumentReadyStateInteractive-                        | DocumentReadyStateComplete-                        deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal DocumentReadyState where-        pToJSVal DocumentReadyStateLoading = js_DocumentReadyStateLoading-        pToJSVal DocumentReadyStateInteractive-          = js_DocumentReadyStateInteractive-        pToJSVal DocumentReadyStateComplete = js_DocumentReadyStateComplete- -instance ToJSVal DocumentReadyState where-        toJSVal = return . pToJSVal- -instance PFromJSVal DocumentReadyState where-        pFromJSVal x-          | x `js_eq` js_DocumentReadyStateLoading =-            DocumentReadyStateLoading-        pFromJSVal x-          | x `js_eq` js_DocumentReadyStateInteractive =-            DocumentReadyStateInteractive-        pFromJSVal x-          | x `js_eq` js_DocumentReadyStateComplete =-            DocumentReadyStateComplete- -instance FromJSVal DocumentReadyState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"loading\"; })"-        js_DocumentReadyStateLoading :: JSVal- -foreign import javascript unsafe "(() => { return \"interactive\"; })"-        js_DocumentReadyStateInteractive :: JSVal- -foreign import javascript unsafe "(() => { return \"complete\"; })"-        js_DocumentReadyStateComplete :: JSVal- -data ShadowRootMode = ShadowRootModeUserAgent-                    | ShadowRootModeClosed-                    | ShadowRootModeOpen-                    deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ShadowRootMode where-        pToJSVal ShadowRootModeUserAgent = js_ShadowRootModeUserAgent-        pToJSVal ShadowRootModeClosed = js_ShadowRootModeClosed-        pToJSVal ShadowRootModeOpen = js_ShadowRootModeOpen- -instance ToJSVal ShadowRootMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal ShadowRootMode where-        pFromJSVal x-          | x `js_eq` js_ShadowRootModeUserAgent = ShadowRootModeUserAgent-        pFromJSVal x-          | x `js_eq` js_ShadowRootModeClosed = ShadowRootModeClosed-        pFromJSVal x | x `js_eq` js_ShadowRootModeOpen = ShadowRootModeOpen- -instance FromJSVal ShadowRootMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"user-agent\"; })"-        js_ShadowRootModeUserAgent :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"-        js_ShadowRootModeClosed :: JSVal- -foreign import javascript unsafe "(() => { return \"open\"; })" js_ShadowRootModeOpen-        :: JSVal- -data BlobLineEndings = BlobLineEndingsTransparent-                     | BlobLineEndingsNative-                     deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal BlobLineEndings where-        pToJSVal BlobLineEndingsTransparent = js_BlobLineEndingsTransparent-        pToJSVal BlobLineEndingsNative = js_BlobLineEndingsNative- -instance ToJSVal BlobLineEndings where-        toJSVal = return . pToJSVal- -instance PFromJSVal BlobLineEndings where-        pFromJSVal x-          | x `js_eq` js_BlobLineEndingsTransparent =-            BlobLineEndingsTransparent-        pFromJSVal x-          | x `js_eq` js_BlobLineEndingsNative = BlobLineEndingsNative- -instance FromJSVal BlobLineEndings where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"transparent\"; })"-        js_BlobLineEndingsTransparent :: JSVal- -foreign import javascript unsafe "(() => { return \"native\"; })"-        js_BlobLineEndingsNative :: JSVal- -data ImageSmoothingQuality = ImageSmoothingQualityLow-                           | ImageSmoothingQualityMedium-                           | ImageSmoothingQualityHigh-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ImageSmoothingQuality where-        pToJSVal ImageSmoothingQualityLow = js_ImageSmoothingQualityLow-        pToJSVal ImageSmoothingQualityMedium-          = js_ImageSmoothingQualityMedium-        pToJSVal ImageSmoothingQualityHigh = js_ImageSmoothingQualityHigh- -instance ToJSVal ImageSmoothingQuality where-        toJSVal = return . pToJSVal- -instance PFromJSVal ImageSmoothingQuality where-        pFromJSVal x-          | x `js_eq` js_ImageSmoothingQualityLow = ImageSmoothingQualityLow-        pFromJSVal x-          | x `js_eq` js_ImageSmoothingQualityMedium =-            ImageSmoothingQualityMedium-        pFromJSVal x-          | x `js_eq` js_ImageSmoothingQualityHigh =-            ImageSmoothingQualityHigh- -instance FromJSVal ImageSmoothingQuality where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"low\"; })"-        js_ImageSmoothingQualityLow :: JSVal- -foreign import javascript unsafe "(() => { return \"medium\"; })"-        js_ImageSmoothingQualityMedium :: JSVal- -foreign import javascript unsafe "(() => { return \"high\"; })"-        js_ImageSmoothingQualityHigh :: JSVal- -data CanvasWindingRule = CanvasWindingRuleNonzero-                       | CanvasWindingRuleEvenodd-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal CanvasWindingRule where-        pToJSVal CanvasWindingRuleNonzero = js_CanvasWindingRuleNonzero-        pToJSVal CanvasWindingRuleEvenodd = js_CanvasWindingRuleEvenodd- -instance ToJSVal CanvasWindingRule where-        toJSVal = return . pToJSVal- -instance PFromJSVal CanvasWindingRule where-        pFromJSVal x-          | x `js_eq` js_CanvasWindingRuleNonzero = CanvasWindingRuleNonzero-        pFromJSVal x-          | x `js_eq` js_CanvasWindingRuleEvenodd = CanvasWindingRuleEvenodd- -instance FromJSVal CanvasWindingRule where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"nonzero\"; })"-        js_CanvasWindingRuleNonzero :: JSVal- -foreign import javascript unsafe "(() => { return \"evenodd\"; })"-        js_CanvasWindingRuleEvenodd :: JSVal- -data WebGLPowerPreference = WebGLPowerPreferenceDefault-                          | WebGLPowerPreferenceLowPower-                          | WebGLPowerPreferenceHighPerformance-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGLPowerPreference where-        pToJSVal WebGLPowerPreferenceDefault-          = js_WebGLPowerPreferenceDefault-        pToJSVal WebGLPowerPreferenceLowPower-          = js_WebGLPowerPreferenceLowPower-        pToJSVal WebGLPowerPreferenceHighPerformance-          = js_WebGLPowerPreferenceHighPerformance- -instance ToJSVal WebGLPowerPreference where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGLPowerPreference where-        pFromJSVal x-          | x `js_eq` js_WebGLPowerPreferenceDefault =-            WebGLPowerPreferenceDefault-        pFromJSVal x-          | x `js_eq` js_WebGLPowerPreferenceLowPower =-            WebGLPowerPreferenceLowPower-        pFromJSVal x-          | x `js_eq` js_WebGLPowerPreferenceHighPerformance =-            WebGLPowerPreferenceHighPerformance- -instance FromJSVal WebGLPowerPreference where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"default\"; })"-        js_WebGLPowerPreferenceDefault :: JSVal- -foreign import javascript unsafe "(() => { return \"low-power\"; })"-        js_WebGLPowerPreferenceLowPower :: JSVal- -foreign import javascript unsafe "(() => { return \"high-performance\"; })"-        js_WebGLPowerPreferenceHighPerformance :: JSVal- -data WebGPUCompareFunction = WebGPUCompareFunctionNever-                           | WebGPUCompareFunctionLess-                           | WebGPUCompareFunctionEqual-                           | WebGPUCompareFunctionLessequal-                           | WebGPUCompareFunctionGreater-                           | WebGPUCompareFunctionNotequal-                           | WebGPUCompareFunctionGreaterequal-                           | WebGPUCompareFunctionAlways-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUCompareFunction where-        pToJSVal WebGPUCompareFunctionNever = js_WebGPUCompareFunctionNever-        pToJSVal WebGPUCompareFunctionLess = js_WebGPUCompareFunctionLess-        pToJSVal WebGPUCompareFunctionEqual = js_WebGPUCompareFunctionEqual-        pToJSVal WebGPUCompareFunctionLessequal-          = js_WebGPUCompareFunctionLessequal-        pToJSVal WebGPUCompareFunctionGreater-          = js_WebGPUCompareFunctionGreater-        pToJSVal WebGPUCompareFunctionNotequal-          = js_WebGPUCompareFunctionNotequal-        pToJSVal WebGPUCompareFunctionGreaterequal-          = js_WebGPUCompareFunctionGreaterequal-        pToJSVal WebGPUCompareFunctionAlways-          = js_WebGPUCompareFunctionAlways- -instance ToJSVal WebGPUCompareFunction where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUCompareFunction where-        pFromJSVal x-          | x `js_eq` js_WebGPUCompareFunctionNever =-            WebGPUCompareFunctionNever-        pFromJSVal x-          | x `js_eq` js_WebGPUCompareFunctionLess =-            WebGPUCompareFunctionLess-        pFromJSVal x-          | x `js_eq` js_WebGPUCompareFunctionEqual =-            WebGPUCompareFunctionEqual-        pFromJSVal x-          | x `js_eq` js_WebGPUCompareFunctionLessequal =-            WebGPUCompareFunctionLessequal-        pFromJSVal x-          | x `js_eq` js_WebGPUCompareFunctionGreater =-            WebGPUCompareFunctionGreater-        pFromJSVal x-          | x `js_eq` js_WebGPUCompareFunctionNotequal =-            WebGPUCompareFunctionNotequal-        pFromJSVal x-          | x `js_eq` js_WebGPUCompareFunctionGreaterequal =-            WebGPUCompareFunctionGreaterequal-        pFromJSVal x-          | x `js_eq` js_WebGPUCompareFunctionAlways =-            WebGPUCompareFunctionAlways- -instance FromJSVal WebGPUCompareFunction where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"never\"; })"-        js_WebGPUCompareFunctionNever :: JSVal- -foreign import javascript unsafe "(() => { return \"less\"; })"-        js_WebGPUCompareFunctionLess :: JSVal- -foreign import javascript unsafe "(() => { return \"equal\"; })"-        js_WebGPUCompareFunctionEqual :: JSVal- -foreign import javascript unsafe "(() => { return \"lessequal\"; })"-        js_WebGPUCompareFunctionLessequal :: JSVal- -foreign import javascript unsafe "(() => { return \"greater\"; })"-        js_WebGPUCompareFunctionGreater :: JSVal- -foreign import javascript unsafe "(() => { return \"notequal\"; })"-        js_WebGPUCompareFunctionNotequal :: JSVal- -foreign import javascript unsafe "(() => { return \"greaterequal\"; })"-        js_WebGPUCompareFunctionGreaterequal :: JSVal- -foreign import javascript unsafe "(() => { return \"always\"; })"-        js_WebGPUCompareFunctionAlways :: JSVal- -data WebGPUPixelFormat = WebGPUPixelFormatBGRA8Unorm-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUPixelFormat where-        pToJSVal WebGPUPixelFormatBGRA8Unorm-          = js_WebGPUPixelFormatBGRA8Unorm- -instance ToJSVal WebGPUPixelFormat where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUPixelFormat where-        pFromJSVal x-          | x `js_eq` js_WebGPUPixelFormatBGRA8Unorm =-            WebGPUPixelFormatBGRA8Unorm- -instance FromJSVal WebGPUPixelFormat where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"BGRA8Unorm\"; })"-        js_WebGPUPixelFormatBGRA8Unorm :: JSVal- -data WebGPULoadAction = WebGPULoadActionDontcare-                      | WebGPULoadActionLoad-                      | WebGPULoadActionClear-                      deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPULoadAction where-        pToJSVal WebGPULoadActionDontcare = js_WebGPULoadActionDontcare-        pToJSVal WebGPULoadActionLoad = js_WebGPULoadActionLoad-        pToJSVal WebGPULoadActionClear = js_WebGPULoadActionClear- -instance ToJSVal WebGPULoadAction where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPULoadAction where-        pFromJSVal x-          | x `js_eq` js_WebGPULoadActionDontcare = WebGPULoadActionDontcare-        pFromJSVal x-          | x `js_eq` js_WebGPULoadActionLoad = WebGPULoadActionLoad-        pFromJSVal x-          | x `js_eq` js_WebGPULoadActionClear = WebGPULoadActionClear- -instance FromJSVal WebGPULoadAction where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"dontcare\"; })"-        js_WebGPULoadActionDontcare :: JSVal- -foreign import javascript unsafe "(() => { return \"load\"; })" js_WebGPULoadActionLoad-        :: JSVal- -foreign import javascript unsafe "(() => { return \"clear\"; })"-        js_WebGPULoadActionClear :: JSVal- -data WebGPUStoreAction = WebGPUStoreActionDontcare-                       | WebGPUStoreActionStore-                       | WebGPUStoreActionMultisampleresolve-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUStoreAction where-        pToJSVal WebGPUStoreActionDontcare = js_WebGPUStoreActionDontcare-        pToJSVal WebGPUStoreActionStore = js_WebGPUStoreActionStore-        pToJSVal WebGPUStoreActionMultisampleresolve-          = js_WebGPUStoreActionMultisampleresolve- -instance ToJSVal WebGPUStoreAction where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUStoreAction where-        pFromJSVal x-          | x `js_eq` js_WebGPUStoreActionDontcare =-            WebGPUStoreActionDontcare-        pFromJSVal x-          | x `js_eq` js_WebGPUStoreActionStore = WebGPUStoreActionStore-        pFromJSVal x-          | x `js_eq` js_WebGPUStoreActionMultisampleresolve =-            WebGPUStoreActionMultisampleresolve- -instance FromJSVal WebGPUStoreAction where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"dontcare\"; })"-        js_WebGPUStoreActionDontcare :: JSVal- -foreign import javascript unsafe "(() => { return \"store\"; })"-        js_WebGPUStoreActionStore :: JSVal- -foreign import javascript unsafe "(() => { return \"multisampleresolve\"; })"-        js_WebGPUStoreActionMultisampleresolve :: JSVal- -data WebGPUPrimitiveType = WebGPUPrimitiveTypePoint-                         | WebGPUPrimitiveTypeLine-                         | WebGPUPrimitiveTypeLinestrip-                         | WebGPUPrimitiveTypeTriangle-                         | WebGPUPrimitiveTypeTrianglestrip-                         deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUPrimitiveType where-        pToJSVal WebGPUPrimitiveTypePoint = js_WebGPUPrimitiveTypePoint-        pToJSVal WebGPUPrimitiveTypeLine = js_WebGPUPrimitiveTypeLine-        pToJSVal WebGPUPrimitiveTypeLinestrip-          = js_WebGPUPrimitiveTypeLinestrip-        pToJSVal WebGPUPrimitiveTypeTriangle-          = js_WebGPUPrimitiveTypeTriangle-        pToJSVal WebGPUPrimitiveTypeTrianglestrip-          = js_WebGPUPrimitiveTypeTrianglestrip- -instance ToJSVal WebGPUPrimitiveType where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUPrimitiveType where-        pFromJSVal x-          | x `js_eq` js_WebGPUPrimitiveTypePoint = WebGPUPrimitiveTypePoint-        pFromJSVal x-          | x `js_eq` js_WebGPUPrimitiveTypeLine = WebGPUPrimitiveTypeLine-        pFromJSVal x-          | x `js_eq` js_WebGPUPrimitiveTypeLinestrip =-            WebGPUPrimitiveTypeLinestrip-        pFromJSVal x-          | x `js_eq` js_WebGPUPrimitiveTypeTriangle =-            WebGPUPrimitiveTypeTriangle-        pFromJSVal x-          | x `js_eq` js_WebGPUPrimitiveTypeTrianglestrip =-            WebGPUPrimitiveTypeTrianglestrip- -instance FromJSVal WebGPUPrimitiveType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"point\"; })"-        js_WebGPUPrimitiveTypePoint :: JSVal- -foreign import javascript unsafe "(() => { return \"line\"; })"-        js_WebGPUPrimitiveTypeLine :: JSVal- -foreign import javascript unsafe "(() => { return \"linestrip\"; })"-        js_WebGPUPrimitiveTypeLinestrip :: JSVal- -foreign import javascript unsafe "(() => { return \"triangle\"; })"-        js_WebGPUPrimitiveTypeTriangle :: JSVal- -foreign import javascript unsafe "(() => { return \"trianglestrip\"; })"-        js_WebGPUPrimitiveTypeTrianglestrip :: JSVal- -data WebGPUFunctionType = WebGPUFunctionTypeFragment-                        | WebGPUFunctionTypeVertex-                        deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUFunctionType where-        pToJSVal WebGPUFunctionTypeFragment = js_WebGPUFunctionTypeFragment-        pToJSVal WebGPUFunctionTypeVertex = js_WebGPUFunctionTypeVertex- -instance ToJSVal WebGPUFunctionType where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUFunctionType where-        pFromJSVal x-          | x `js_eq` js_WebGPUFunctionTypeFragment =-            WebGPUFunctionTypeFragment-        pFromJSVal x-          | x `js_eq` js_WebGPUFunctionTypeVertex = WebGPUFunctionTypeVertex- -instance FromJSVal WebGPUFunctionType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"fragment\"; })"-        js_WebGPUFunctionTypeFragment :: JSVal- -foreign import javascript unsafe "(() => { return \"vertex\"; })"-        js_WebGPUFunctionTypeVertex :: JSVal- -data WebGPUStencilOperation = WebGPUStencilOperationKeep-                            | WebGPUStencilOperationZero-                            | WebGPUStencilOperationReplace-                            | WebGPUStencilOperationIncrementclamp-                            | WebGPUStencilOperationDecrementclamp-                            | WebGPUStencilOperationInvert-                            | WebGPUStencilOperationIncrementwrap-                            | WebGPUStencilOperationDecrementwrap-                            deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUStencilOperation where-        pToJSVal WebGPUStencilOperationKeep = js_WebGPUStencilOperationKeep-        pToJSVal WebGPUStencilOperationZero = js_WebGPUStencilOperationZero-        pToJSVal WebGPUStencilOperationReplace-          = js_WebGPUStencilOperationReplace-        pToJSVal WebGPUStencilOperationIncrementclamp-          = js_WebGPUStencilOperationIncrementclamp-        pToJSVal WebGPUStencilOperationDecrementclamp-          = js_WebGPUStencilOperationDecrementclamp-        pToJSVal WebGPUStencilOperationInvert-          = js_WebGPUStencilOperationInvert-        pToJSVal WebGPUStencilOperationIncrementwrap-          = js_WebGPUStencilOperationIncrementwrap-        pToJSVal WebGPUStencilOperationDecrementwrap-          = js_WebGPUStencilOperationDecrementwrap- -instance ToJSVal WebGPUStencilOperation where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUStencilOperation where-        pFromJSVal x-          | x `js_eq` js_WebGPUStencilOperationKeep =-            WebGPUStencilOperationKeep-        pFromJSVal x-          | x `js_eq` js_WebGPUStencilOperationZero =-            WebGPUStencilOperationZero-        pFromJSVal x-          | x `js_eq` js_WebGPUStencilOperationReplace =-            WebGPUStencilOperationReplace-        pFromJSVal x-          | x `js_eq` js_WebGPUStencilOperationIncrementclamp =-            WebGPUStencilOperationIncrementclamp-        pFromJSVal x-          | x `js_eq` js_WebGPUStencilOperationDecrementclamp =-            WebGPUStencilOperationDecrementclamp-        pFromJSVal x-          | x `js_eq` js_WebGPUStencilOperationInvert =-            WebGPUStencilOperationInvert-        pFromJSVal x-          | x `js_eq` js_WebGPUStencilOperationIncrementwrap =-            WebGPUStencilOperationIncrementwrap-        pFromJSVal x-          | x `js_eq` js_WebGPUStencilOperationDecrementwrap =-            WebGPUStencilOperationDecrementwrap- -instance FromJSVal WebGPUStencilOperation where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"keep\"; })"-        js_WebGPUStencilOperationKeep :: JSVal- -foreign import javascript unsafe "(() => { return \"zero\"; })"-        js_WebGPUStencilOperationZero :: JSVal- -foreign import javascript unsafe "(() => { return \"replace\"; })"-        js_WebGPUStencilOperationReplace :: JSVal- -foreign import javascript unsafe "(() => { return \"incrementclamp\"; })"-        js_WebGPUStencilOperationIncrementclamp :: JSVal- -foreign import javascript unsafe "(() => { return \"decrementclamp\"; })"-        js_WebGPUStencilOperationDecrementclamp :: JSVal- -foreign import javascript unsafe "(() => { return \"invert\"; })"-        js_WebGPUStencilOperationInvert :: JSVal- -foreign import javascript unsafe "(() => { return \"incrementwrap\"; })"-        js_WebGPUStencilOperationIncrementwrap :: JSVal- -foreign import javascript unsafe "(() => { return \"decrementwrap\"; })"-        js_WebGPUStencilOperationDecrementwrap :: JSVal- -data WebGPUStatus = WebGPUStatusNotenqueued-                  | WebGPUStatusEnqueued-                  | WebGPUStatusCommitted-                  | WebGPUStatusScheduled-                  | WebGPUStatusCompleted-                  | WebGPUStatusError-                  deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUStatus where-        pToJSVal WebGPUStatusNotenqueued = js_WebGPUStatusNotenqueued-        pToJSVal WebGPUStatusEnqueued = js_WebGPUStatusEnqueued-        pToJSVal WebGPUStatusCommitted = js_WebGPUStatusCommitted-        pToJSVal WebGPUStatusScheduled = js_WebGPUStatusScheduled-        pToJSVal WebGPUStatusCompleted = js_WebGPUStatusCompleted-        pToJSVal WebGPUStatusError = js_WebGPUStatusError- -instance ToJSVal WebGPUStatus where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUStatus where-        pFromJSVal x-          | x `js_eq` js_WebGPUStatusNotenqueued = WebGPUStatusNotenqueued-        pFromJSVal x-          | x `js_eq` js_WebGPUStatusEnqueued = WebGPUStatusEnqueued-        pFromJSVal x-          | x `js_eq` js_WebGPUStatusCommitted = WebGPUStatusCommitted-        pFromJSVal x-          | x `js_eq` js_WebGPUStatusScheduled = WebGPUStatusScheduled-        pFromJSVal x-          | x `js_eq` js_WebGPUStatusCompleted = WebGPUStatusCompleted-        pFromJSVal x | x `js_eq` js_WebGPUStatusError = WebGPUStatusError- -instance FromJSVal WebGPUStatus where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"notenqueued\"; })"-        js_WebGPUStatusNotenqueued :: JSVal- -foreign import javascript unsafe "(() => { return \"enqueued\"; })"-        js_WebGPUStatusEnqueued :: JSVal- -foreign import javascript unsafe "(() => { return \"committed\"; })"-        js_WebGPUStatusCommitted :: JSVal- -foreign import javascript unsafe "(() => { return \"scheduled\"; })"-        js_WebGPUStatusScheduled :: JSVal- -foreign import javascript unsafe "(() => { return \"completed\"; })"-        js_WebGPUStatusCompleted :: JSVal- -foreign import javascript unsafe "(() => { return \"error\"; })" js_WebGPUStatusError-        :: JSVal- -data WebGPUSamplerAddressMode = WebGPUSamplerAddressModeClamptoedge-                              | WebGPUSamplerAddressModeMirrorclamptoedge-                              | WebGPUSamplerAddressModeRepeat-                              | WebGPUSamplerAddressModeMirrorrepeat-                              | WebGPUSamplerAddressModeClamptozero-                              deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUSamplerAddressMode where-        pToJSVal WebGPUSamplerAddressModeClamptoedge-          = js_WebGPUSamplerAddressModeClamptoedge-        pToJSVal WebGPUSamplerAddressModeMirrorclamptoedge-          = js_WebGPUSamplerAddressModeMirrorclamptoedge-        pToJSVal WebGPUSamplerAddressModeRepeat-          = js_WebGPUSamplerAddressModeRepeat-        pToJSVal WebGPUSamplerAddressModeMirrorrepeat-          = js_WebGPUSamplerAddressModeMirrorrepeat-        pToJSVal WebGPUSamplerAddressModeClamptozero-          = js_WebGPUSamplerAddressModeClamptozero- -instance ToJSVal WebGPUSamplerAddressMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUSamplerAddressMode where-        pFromJSVal x-          | x `js_eq` js_WebGPUSamplerAddressModeClamptoedge =-            WebGPUSamplerAddressModeClamptoedge-        pFromJSVal x-          | x `js_eq` js_WebGPUSamplerAddressModeMirrorclamptoedge =-            WebGPUSamplerAddressModeMirrorclamptoedge-        pFromJSVal x-          | x `js_eq` js_WebGPUSamplerAddressModeRepeat =-            WebGPUSamplerAddressModeRepeat-        pFromJSVal x-          | x `js_eq` js_WebGPUSamplerAddressModeMirrorrepeat =-            WebGPUSamplerAddressModeMirrorrepeat-        pFromJSVal x-          | x `js_eq` js_WebGPUSamplerAddressModeClamptozero =-            WebGPUSamplerAddressModeClamptozero- -instance FromJSVal WebGPUSamplerAddressMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"clamptoedge\"; })"-        js_WebGPUSamplerAddressModeClamptoedge :: JSVal- -foreign import javascript unsafe "(() => { return \"mirrorclamptoedge\"; })"-        js_WebGPUSamplerAddressModeMirrorclamptoedge :: JSVal- -foreign import javascript unsafe "(() => { return \"repeat\"; })"-        js_WebGPUSamplerAddressModeRepeat :: JSVal- -foreign import javascript unsafe "(() => { return \"mirrorrepeat\"; })"-        js_WebGPUSamplerAddressModeMirrorrepeat :: JSVal- -foreign import javascript unsafe "(() => { return \"clamptozero\"; })"-        js_WebGPUSamplerAddressModeClamptozero :: JSVal- -data WebGPUSamplerMinMagFilter = WebGPUSamplerMinMagFilterNearest-                               | WebGPUSamplerMinMagFilterLinear-                               deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUSamplerMinMagFilter where-        pToJSVal WebGPUSamplerMinMagFilterNearest-          = js_WebGPUSamplerMinMagFilterNearest-        pToJSVal WebGPUSamplerMinMagFilterLinear-          = js_WebGPUSamplerMinMagFilterLinear- -instance ToJSVal WebGPUSamplerMinMagFilter where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUSamplerMinMagFilter where-        pFromJSVal x-          | x `js_eq` js_WebGPUSamplerMinMagFilterNearest =-            WebGPUSamplerMinMagFilterNearest-        pFromJSVal x-          | x `js_eq` js_WebGPUSamplerMinMagFilterLinear =-            WebGPUSamplerMinMagFilterLinear- -instance FromJSVal WebGPUSamplerMinMagFilter where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"nearest\"; })"-        js_WebGPUSamplerMinMagFilterNearest :: JSVal- -foreign import javascript unsafe "(() => { return \"linear\"; })"-        js_WebGPUSamplerMinMagFilterLinear :: JSVal- -data WebGPUSamplerMipFilter = WebGPUSamplerMipFilterNotmipmapped-                            | WebGPUSamplerMipFilterNearest-                            | WebGPUSamplerMipFilterLinear-                            deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUSamplerMipFilter where-        pToJSVal WebGPUSamplerMipFilterNotmipmapped-          = js_WebGPUSamplerMipFilterNotmipmapped-        pToJSVal WebGPUSamplerMipFilterNearest-          = js_WebGPUSamplerMipFilterNearest-        pToJSVal WebGPUSamplerMipFilterLinear-          = js_WebGPUSamplerMipFilterLinear- -instance ToJSVal WebGPUSamplerMipFilter where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUSamplerMipFilter where-        pFromJSVal x-          | x `js_eq` js_WebGPUSamplerMipFilterNotmipmapped =-            WebGPUSamplerMipFilterNotmipmapped-        pFromJSVal x-          | x `js_eq` js_WebGPUSamplerMipFilterNearest =-            WebGPUSamplerMipFilterNearest-        pFromJSVal x-          | x `js_eq` js_WebGPUSamplerMipFilterLinear =-            WebGPUSamplerMipFilterLinear- -instance FromJSVal WebGPUSamplerMipFilter where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"notmipmapped\"; })"-        js_WebGPUSamplerMipFilterNotmipmapped :: JSVal- -foreign import javascript unsafe "(() => { return \"nearest\"; })"-        js_WebGPUSamplerMipFilterNearest :: JSVal- -foreign import javascript unsafe "(() => { return \"linear\"; })"-        js_WebGPUSamplerMipFilterLinear :: JSVal- -data WebGPUCullMode = WebGPUCullModeNone-                    | WebGPUCullModeFront-                    | WebGPUCullModeBack-                    deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUCullMode where-        pToJSVal WebGPUCullModeNone = js_WebGPUCullModeNone-        pToJSVal WebGPUCullModeFront = js_WebGPUCullModeFront-        pToJSVal WebGPUCullModeBack = js_WebGPUCullModeBack- -instance ToJSVal WebGPUCullMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUCullMode where-        pFromJSVal x | x `js_eq` js_WebGPUCullModeNone = WebGPUCullModeNone-        pFromJSVal x-          | x `js_eq` js_WebGPUCullModeFront = WebGPUCullModeFront-        pFromJSVal x | x `js_eq` js_WebGPUCullModeBack = WebGPUCullModeBack- -instance FromJSVal WebGPUCullMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"none\"; })" js_WebGPUCullModeNone-        :: JSVal- -foreign import javascript unsafe "(() => { return \"front\"; })" js_WebGPUCullModeFront-        :: JSVal- -foreign import javascript unsafe "(() => { return \"back\"; })" js_WebGPUCullModeBack-        :: JSVal- -data WebGPUIndexType = WebGPUIndexTypeUint16-                     | WebGPUIndexTypeUint32-                     deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUIndexType where-        pToJSVal WebGPUIndexTypeUint16 = js_WebGPUIndexTypeUint16-        pToJSVal WebGPUIndexTypeUint32 = js_WebGPUIndexTypeUint32- -instance ToJSVal WebGPUIndexType where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUIndexType where-        pFromJSVal x-          | x `js_eq` js_WebGPUIndexTypeUint16 = WebGPUIndexTypeUint16-        pFromJSVal x-          | x `js_eq` js_WebGPUIndexTypeUint32 = WebGPUIndexTypeUint32- -instance FromJSVal WebGPUIndexType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"uint16\"; })"-        js_WebGPUIndexTypeUint16 :: JSVal- -foreign import javascript unsafe "(() => { return \"uint32\"; })"-        js_WebGPUIndexTypeUint32 :: JSVal- -data WebGPUVisibilityResultMode = WebGPUVisibilityResultModeDisabled-                                | WebGPUVisibilityResultModeBoolean-                                | WebGPUVisibilityResultModeCounting-                                deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUVisibilityResultMode where-        pToJSVal WebGPUVisibilityResultModeDisabled-          = js_WebGPUVisibilityResultModeDisabled-        pToJSVal WebGPUVisibilityResultModeBoolean-          = js_WebGPUVisibilityResultModeBoolean-        pToJSVal WebGPUVisibilityResultModeCounting-          = js_WebGPUVisibilityResultModeCounting- -instance ToJSVal WebGPUVisibilityResultMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUVisibilityResultMode where-        pFromJSVal x-          | x `js_eq` js_WebGPUVisibilityResultModeDisabled =-            WebGPUVisibilityResultModeDisabled-        pFromJSVal x-          | x `js_eq` js_WebGPUVisibilityResultModeBoolean =-            WebGPUVisibilityResultModeBoolean-        pFromJSVal x-          | x `js_eq` js_WebGPUVisibilityResultModeCounting =-            WebGPUVisibilityResultModeCounting- -instance FromJSVal WebGPUVisibilityResultMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"disabled\"; })"-        js_WebGPUVisibilityResultModeDisabled :: JSVal- -foreign import javascript unsafe "(() => { return \"boolean\"; })"-        js_WebGPUVisibilityResultModeBoolean :: JSVal- -foreign import javascript unsafe "(() => { return \"counting\"; })"-        js_WebGPUVisibilityResultModeCounting :: JSVal- -data WebGPUWinding = WebGPUWindingClockwise-                   | WebGPUWindingCounterclockwise-                   deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUWinding where-        pToJSVal WebGPUWindingClockwise = js_WebGPUWindingClockwise-        pToJSVal WebGPUWindingCounterclockwise-          = js_WebGPUWindingCounterclockwise- -instance ToJSVal WebGPUWinding where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUWinding where-        pFromJSVal x-          | x `js_eq` js_WebGPUWindingClockwise = WebGPUWindingClockwise-        pFromJSVal x-          | x `js_eq` js_WebGPUWindingCounterclockwise =-            WebGPUWindingCounterclockwise- -instance FromJSVal WebGPUWinding where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"clockwise\"; })"-        js_WebGPUWindingClockwise :: JSVal- -foreign import javascript unsafe "(() => { return \"counterclockwise\"; })"-        js_WebGPUWindingCounterclockwise :: JSVal- -data WebGPUDepthClipMode = WebGPUDepthClipModeClip-                         | WebGPUDepthClipModeClamp-                         deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUDepthClipMode where-        pToJSVal WebGPUDepthClipModeClip = js_WebGPUDepthClipModeClip-        pToJSVal WebGPUDepthClipModeClamp = js_WebGPUDepthClipModeClamp- -instance ToJSVal WebGPUDepthClipMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUDepthClipMode where-        pFromJSVal x-          | x `js_eq` js_WebGPUDepthClipModeClip = WebGPUDepthClipModeClip-        pFromJSVal x-          | x `js_eq` js_WebGPUDepthClipModeClamp = WebGPUDepthClipModeClamp- -instance FromJSVal WebGPUDepthClipMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"clip\"; })"-        js_WebGPUDepthClipModeClip :: JSVal- -foreign import javascript unsafe "(() => { return \"clamp\"; })"-        js_WebGPUDepthClipModeClamp :: JSVal- -data WebGPUTriangleFillMode = WebGPUTriangleFillModeFill-                            | WebGPUTriangleFillModeLines-                            deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUTriangleFillMode where-        pToJSVal WebGPUTriangleFillModeFill = js_WebGPUTriangleFillModeFill-        pToJSVal WebGPUTriangleFillModeLines-          = js_WebGPUTriangleFillModeLines- -instance ToJSVal WebGPUTriangleFillMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUTriangleFillMode where-        pFromJSVal x-          | x `js_eq` js_WebGPUTriangleFillModeFill =-            WebGPUTriangleFillModeFill-        pFromJSVal x-          | x `js_eq` js_WebGPUTriangleFillModeLines =-            WebGPUTriangleFillModeLines- -instance FromJSVal WebGPUTriangleFillMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"fill\"; })"-        js_WebGPUTriangleFillModeFill :: JSVal- -foreign import javascript unsafe "(() => { return \"lines\"; })"-        js_WebGPUTriangleFillModeLines :: JSVal- -data WebGPUCPUCacheMode = WebGPUCPUCacheModeDefaultcache-                        | WebGPUCPUCacheModeWritecombined-                        deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUCPUCacheMode where-        pToJSVal WebGPUCPUCacheModeDefaultcache-          = js_WebGPUCPUCacheModeDefaultcache-        pToJSVal WebGPUCPUCacheModeWritecombined-          = js_WebGPUCPUCacheModeWritecombined- -instance ToJSVal WebGPUCPUCacheMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUCPUCacheMode where-        pFromJSVal x-          | x `js_eq` js_WebGPUCPUCacheModeDefaultcache =-            WebGPUCPUCacheModeDefaultcache-        pFromJSVal x-          | x `js_eq` js_WebGPUCPUCacheModeWritecombined =-            WebGPUCPUCacheModeWritecombined- -instance FromJSVal WebGPUCPUCacheMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"defaultcache\"; })"-        js_WebGPUCPUCacheModeDefaultcache :: JSVal- -foreign import javascript unsafe "(() => { return \"writecombined\"; })"-        js_WebGPUCPUCacheModeWritecombined :: JSVal- -data WebGPUStorageMode = WebGPUStorageModeShared-                       | WebGPUStorageModeManaged-                       | WebGPUStorageModePrivate-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUStorageMode where-        pToJSVal WebGPUStorageModeShared = js_WebGPUStorageModeShared-        pToJSVal WebGPUStorageModeManaged = js_WebGPUStorageModeManaged-        pToJSVal WebGPUStorageModePrivate = js_WebGPUStorageModePrivate- -instance ToJSVal WebGPUStorageMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUStorageMode where-        pFromJSVal x-          | x `js_eq` js_WebGPUStorageModeShared = WebGPUStorageModeShared-        pFromJSVal x-          | x `js_eq` js_WebGPUStorageModeManaged = WebGPUStorageModeManaged-        pFromJSVal x-          | x `js_eq` js_WebGPUStorageModePrivate = WebGPUStorageModePrivate- -instance FromJSVal WebGPUStorageMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"shared\"; })"-        js_WebGPUStorageModeShared :: JSVal- -foreign import javascript unsafe "(() => { return \"managed\"; })"-        js_WebGPUStorageModeManaged :: JSVal- -foreign import javascript unsafe "(() => { return \"private\"; })"-        js_WebGPUStorageModePrivate :: JSVal- -data WebGPUResourceOptions = WebGPUResourceOptionsCpucachemodedefaultcache-                           | WebGPUResourceOptionsCpucachemodewritecombined-                           | WebGPUResourceOptionsStoragemodeshared-                           | WebGPUResourceOptionsStoragemodemanaged-                           | WebGPUResourceOptionsStoragemodeprivate-                           | WebGPUResourceOptionsOptioncpucachemodedefaultcache-                           | WebGPUResourceOptionsOptioncpucachemodewritecombined-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUResourceOptions where-        pToJSVal WebGPUResourceOptionsCpucachemodedefaultcache-          = js_WebGPUResourceOptionsCpucachemodedefaultcache-        pToJSVal WebGPUResourceOptionsCpucachemodewritecombined-          = js_WebGPUResourceOptionsCpucachemodewritecombined-        pToJSVal WebGPUResourceOptionsStoragemodeshared-          = js_WebGPUResourceOptionsStoragemodeshared-        pToJSVal WebGPUResourceOptionsStoragemodemanaged-          = js_WebGPUResourceOptionsStoragemodemanaged-        pToJSVal WebGPUResourceOptionsStoragemodeprivate-          = js_WebGPUResourceOptionsStoragemodeprivate-        pToJSVal WebGPUResourceOptionsOptioncpucachemodedefaultcache-          = js_WebGPUResourceOptionsOptioncpucachemodedefaultcache-        pToJSVal WebGPUResourceOptionsOptioncpucachemodewritecombined-          = js_WebGPUResourceOptionsOptioncpucachemodewritecombined- -instance ToJSVal WebGPUResourceOptions where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUResourceOptions where-        pFromJSVal x-          | x `js_eq` js_WebGPUResourceOptionsCpucachemodedefaultcache =-            WebGPUResourceOptionsCpucachemodedefaultcache-        pFromJSVal x-          | x `js_eq` js_WebGPUResourceOptionsCpucachemodewritecombined =-            WebGPUResourceOptionsCpucachemodewritecombined-        pFromJSVal x-          | x `js_eq` js_WebGPUResourceOptionsStoragemodeshared =-            WebGPUResourceOptionsStoragemodeshared-        pFromJSVal x-          | x `js_eq` js_WebGPUResourceOptionsStoragemodemanaged =-            WebGPUResourceOptionsStoragemodemanaged-        pFromJSVal x-          | x `js_eq` js_WebGPUResourceOptionsStoragemodeprivate =-            WebGPUResourceOptionsStoragemodeprivate-        pFromJSVal x-          | x `js_eq` js_WebGPUResourceOptionsOptioncpucachemodedefaultcache-            = WebGPUResourceOptionsOptioncpucachemodedefaultcache-        pFromJSVal x-          | x `js_eq` js_WebGPUResourceOptionsOptioncpucachemodewritecombined-            = WebGPUResourceOptionsOptioncpucachemodewritecombined- -instance FromJSVal WebGPUResourceOptions where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"cpucachemodedefaultcache\"; })"-        js_WebGPUResourceOptionsCpucachemodedefaultcache :: JSVal- -foreign import javascript unsafe "(() => { return \"cpucachemodewritecombined\"; })"-        js_WebGPUResourceOptionsCpucachemodewritecombined :: JSVal- -foreign import javascript unsafe "(() => { return \"storagemodeshared\"; })"-        js_WebGPUResourceOptionsStoragemodeshared :: JSVal- -foreign import javascript unsafe "(() => { return \"storagemodemanaged\"; })"-        js_WebGPUResourceOptionsStoragemodemanaged :: JSVal- -foreign import javascript unsafe "(() => { return \"storagemodeprivate\"; })"-        js_WebGPUResourceOptionsStoragemodeprivate :: JSVal- -foreign import javascript unsafe-        "(() => { return \"optioncpucachemodedefaultcache\"; })"-        js_WebGPUResourceOptionsOptioncpucachemodedefaultcache :: JSVal- -foreign import javascript unsafe-        "(() => { return \"optioncpucachemodewritecombined\"; })"-        js_WebGPUResourceOptionsOptioncpucachemodewritecombined :: JSVal- -data WebGPUTextureUsage = WebGPUTextureUsageUnknown-                        | WebGPUTextureUsageShaderread-                        | WebGPUTextureUsageShaderwrite-                        | WebGPUTextureUsageRendertarget-                        | WebGPUTextureUsagePixelformatview-                        deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUTextureUsage where-        pToJSVal WebGPUTextureUsageUnknown = js_WebGPUTextureUsageUnknown-        pToJSVal WebGPUTextureUsageShaderread-          = js_WebGPUTextureUsageShaderread-        pToJSVal WebGPUTextureUsageShaderwrite-          = js_WebGPUTextureUsageShaderwrite-        pToJSVal WebGPUTextureUsageRendertarget-          = js_WebGPUTextureUsageRendertarget-        pToJSVal WebGPUTextureUsagePixelformatview-          = js_WebGPUTextureUsagePixelformatview- -instance ToJSVal WebGPUTextureUsage where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUTextureUsage where-        pFromJSVal x-          | x `js_eq` js_WebGPUTextureUsageUnknown =-            WebGPUTextureUsageUnknown-        pFromJSVal x-          | x `js_eq` js_WebGPUTextureUsageShaderread =-            WebGPUTextureUsageShaderread-        pFromJSVal x-          | x `js_eq` js_WebGPUTextureUsageShaderwrite =-            WebGPUTextureUsageShaderwrite-        pFromJSVal x-          | x `js_eq` js_WebGPUTextureUsageRendertarget =-            WebGPUTextureUsageRendertarget-        pFromJSVal x-          | x `js_eq` js_WebGPUTextureUsagePixelformatview =-            WebGPUTextureUsagePixelformatview- -instance FromJSVal WebGPUTextureUsage where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"unknown\"; })"-        js_WebGPUTextureUsageUnknown :: JSVal- -foreign import javascript unsafe "(() => { return \"shaderread\"; })"-        js_WebGPUTextureUsageShaderread :: JSVal- -foreign import javascript unsafe "(() => { return \"shaderwrite\"; })"-        js_WebGPUTextureUsageShaderwrite :: JSVal- -foreign import javascript unsafe "(() => { return \"rendertarget\"; })"-        js_WebGPUTextureUsageRendertarget :: JSVal- -foreign import javascript unsafe "(() => { return \"pixelformatview\"; })"-        js_WebGPUTextureUsagePixelformatview :: JSVal- -data WebGPUBlendOperation = WebGPUBlendOperationAdd-                          | WebGPUBlendOperationSubtract-                          | WebGPUBlendOperationReversesubtract-                          | WebGPUBlendOperationMin-                          | WebGPUBlendOperationMax-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUBlendOperation where-        pToJSVal WebGPUBlendOperationAdd = js_WebGPUBlendOperationAdd-        pToJSVal WebGPUBlendOperationSubtract-          = js_WebGPUBlendOperationSubtract-        pToJSVal WebGPUBlendOperationReversesubtract-          = js_WebGPUBlendOperationReversesubtract-        pToJSVal WebGPUBlendOperationMin = js_WebGPUBlendOperationMin-        pToJSVal WebGPUBlendOperationMax = js_WebGPUBlendOperationMax- -instance ToJSVal WebGPUBlendOperation where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUBlendOperation where-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendOperationAdd = WebGPUBlendOperationAdd-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendOperationSubtract =-            WebGPUBlendOperationSubtract-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendOperationReversesubtract =-            WebGPUBlendOperationReversesubtract-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendOperationMin = WebGPUBlendOperationMin-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendOperationMax = WebGPUBlendOperationMax- -instance FromJSVal WebGPUBlendOperation where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"add\"; })"-        js_WebGPUBlendOperationAdd :: JSVal- -foreign import javascript unsafe "(() => { return \"subtract\"; })"-        js_WebGPUBlendOperationSubtract :: JSVal- -foreign import javascript unsafe "(() => { return \"reversesubtract\"; })"-        js_WebGPUBlendOperationReversesubtract :: JSVal- -foreign import javascript unsafe "(() => { return \"min\"; })"-        js_WebGPUBlendOperationMin :: JSVal- -foreign import javascript unsafe "(() => { return \"max\"; })"-        js_WebGPUBlendOperationMax :: JSVal- -data WebGPUBlendFactor = WebGPUBlendFactorZero-                       | WebGPUBlendFactorOne-                       | WebGPUBlendFactorSourcecolor-                       | WebGPUBlendFactorOneminussourcecolor-                       | WebGPUBlendFactorSourcealpha-                       | WebGPUBlendFactorOneminussourcealpha-                       | WebGPUBlendFactorDestinationcolor-                       | WebGPUBlendFactorOneminusdestinationcolor-                       | WebGPUBlendFactorDestinationalpha-                       | WebGPUBlendFactorOneminusdestinationalpha-                       | WebGPUBlendFactorSourcealphasaturated-                       | WebGPUBlendFactorBlendcolor-                       | WebGPUBlendFactorOneminusblendcolor-                       | WebGPUBlendFactorBlendalpha-                       | WebGPUBlendFactorOneminusblendalpha-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUBlendFactor where-        pToJSVal WebGPUBlendFactorZero = js_WebGPUBlendFactorZero-        pToJSVal WebGPUBlendFactorOne = js_WebGPUBlendFactorOne-        pToJSVal WebGPUBlendFactorSourcecolor-          = js_WebGPUBlendFactorSourcecolor-        pToJSVal WebGPUBlendFactorOneminussourcecolor-          = js_WebGPUBlendFactorOneminussourcecolor-        pToJSVal WebGPUBlendFactorSourcealpha-          = js_WebGPUBlendFactorSourcealpha-        pToJSVal WebGPUBlendFactorOneminussourcealpha-          = js_WebGPUBlendFactorOneminussourcealpha-        pToJSVal WebGPUBlendFactorDestinationcolor-          = js_WebGPUBlendFactorDestinationcolor-        pToJSVal WebGPUBlendFactorOneminusdestinationcolor-          = js_WebGPUBlendFactorOneminusdestinationcolor-        pToJSVal WebGPUBlendFactorDestinationalpha-          = js_WebGPUBlendFactorDestinationalpha-        pToJSVal WebGPUBlendFactorOneminusdestinationalpha-          = js_WebGPUBlendFactorOneminusdestinationalpha-        pToJSVal WebGPUBlendFactorSourcealphasaturated-          = js_WebGPUBlendFactorSourcealphasaturated-        pToJSVal WebGPUBlendFactorBlendcolor-          = js_WebGPUBlendFactorBlendcolor-        pToJSVal WebGPUBlendFactorOneminusblendcolor-          = js_WebGPUBlendFactorOneminusblendcolor-        pToJSVal WebGPUBlendFactorBlendalpha-          = js_WebGPUBlendFactorBlendalpha-        pToJSVal WebGPUBlendFactorOneminusblendalpha-          = js_WebGPUBlendFactorOneminusblendalpha- -instance ToJSVal WebGPUBlendFactor where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUBlendFactor where-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorZero = WebGPUBlendFactorZero-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorOne = WebGPUBlendFactorOne-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorSourcecolor =-            WebGPUBlendFactorSourcecolor-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorOneminussourcecolor =-            WebGPUBlendFactorOneminussourcecolor-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorSourcealpha =-            WebGPUBlendFactorSourcealpha-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorOneminussourcealpha =-            WebGPUBlendFactorOneminussourcealpha-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorDestinationcolor =-            WebGPUBlendFactorDestinationcolor-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorOneminusdestinationcolor =-            WebGPUBlendFactorOneminusdestinationcolor-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorDestinationalpha =-            WebGPUBlendFactorDestinationalpha-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorOneminusdestinationalpha =-            WebGPUBlendFactorOneminusdestinationalpha-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorSourcealphasaturated =-            WebGPUBlendFactorSourcealphasaturated-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorBlendcolor =-            WebGPUBlendFactorBlendcolor-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorOneminusblendcolor =-            WebGPUBlendFactorOneminusblendcolor-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorBlendalpha =-            WebGPUBlendFactorBlendalpha-        pFromJSVal x-          | x `js_eq` js_WebGPUBlendFactorOneminusblendalpha =-            WebGPUBlendFactorOneminusblendalpha- -instance FromJSVal WebGPUBlendFactor where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"zero\"; })"-        js_WebGPUBlendFactorZero :: JSVal- -foreign import javascript unsafe "(() => { return \"one\"; })" js_WebGPUBlendFactorOne-        :: JSVal- -foreign import javascript unsafe "(() => { return \"sourcecolor\"; })"-        js_WebGPUBlendFactorSourcecolor :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminussourcecolor\"; })"-        js_WebGPUBlendFactorOneminussourcecolor :: JSVal- -foreign import javascript unsafe "(() => { return \"sourcealpha\"; })"-        js_WebGPUBlendFactorSourcealpha :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminussourcealpha\"; })"-        js_WebGPUBlendFactorOneminussourcealpha :: JSVal- -foreign import javascript unsafe "(() => { return \"destinationcolor\"; })"-        js_WebGPUBlendFactorDestinationcolor :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminusdestinationcolor\"; })"-        js_WebGPUBlendFactorOneminusdestinationcolor :: JSVal- -foreign import javascript unsafe "(() => { return \"destinationalpha\"; })"-        js_WebGPUBlendFactorDestinationalpha :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminusdestinationalpha\"; })"-        js_WebGPUBlendFactorOneminusdestinationalpha :: JSVal- -foreign import javascript unsafe "(() => { return \"sourcealphasaturated\"; })"-        js_WebGPUBlendFactorSourcealphasaturated :: JSVal- -foreign import javascript unsafe "(() => { return \"blendcolor\"; })"-        js_WebGPUBlendFactorBlendcolor :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminusblendcolor\"; })"-        js_WebGPUBlendFactorOneminusblendcolor :: JSVal- -foreign import javascript unsafe "(() => { return \"blendalpha\"; })"-        js_WebGPUBlendFactorBlendalpha :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminusblendalpha\"; })"-        js_WebGPUBlendFactorOneminusblendalpha :: JSVal- -data WebGPUColorWriteMask = WebGPUColorWriteMaskNone-                          | WebGPUColorWriteMaskRed-                          | WebGPUColorWriteMaskGreen-                          | WebGPUColorWriteMaskBlue-                          | WebGPUColorWriteMaskAlpha-                          | WebGPUColorWriteMaskAll-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUColorWriteMask where-        pToJSVal WebGPUColorWriteMaskNone = js_WebGPUColorWriteMaskNone-        pToJSVal WebGPUColorWriteMaskRed = js_WebGPUColorWriteMaskRed-        pToJSVal WebGPUColorWriteMaskGreen = js_WebGPUColorWriteMaskGreen-        pToJSVal WebGPUColorWriteMaskBlue = js_WebGPUColorWriteMaskBlue-        pToJSVal WebGPUColorWriteMaskAlpha = js_WebGPUColorWriteMaskAlpha-        pToJSVal WebGPUColorWriteMaskAll = js_WebGPUColorWriteMaskAll- -instance ToJSVal WebGPUColorWriteMask where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUColorWriteMask where-        pFromJSVal x-          | x `js_eq` js_WebGPUColorWriteMaskNone = WebGPUColorWriteMaskNone-        pFromJSVal x-          | x `js_eq` js_WebGPUColorWriteMaskRed = WebGPUColorWriteMaskRed-        pFromJSVal x-          | x `js_eq` js_WebGPUColorWriteMaskGreen =-            WebGPUColorWriteMaskGreen-        pFromJSVal x-          | x `js_eq` js_WebGPUColorWriteMaskBlue = WebGPUColorWriteMaskBlue-        pFromJSVal x-          | x `js_eq` js_WebGPUColorWriteMaskAlpha =-            WebGPUColorWriteMaskAlpha-        pFromJSVal x-          | x `js_eq` js_WebGPUColorWriteMaskAll = WebGPUColorWriteMaskAll- -instance FromJSVal WebGPUColorWriteMask where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"none\"; })"-        js_WebGPUColorWriteMaskNone :: JSVal- -foreign import javascript unsafe "(() => { return \"red\"; })"-        js_WebGPUColorWriteMaskRed :: JSVal- -foreign import javascript unsafe "(() => { return \"green\"; })"-        js_WebGPUColorWriteMaskGreen :: JSVal- -foreign import javascript unsafe "(() => { return \"blue\"; })"-        js_WebGPUColorWriteMaskBlue :: JSVal- -foreign import javascript unsafe "(() => { return \"alpha\"; })"-        js_WebGPUColorWriteMaskAlpha :: JSVal- -foreign import javascript unsafe "(() => { return \"all\"; })"-        js_WebGPUColorWriteMaskAll :: JSVal- -data WebGPUMultisampleDepthResolveFilter = WebGPUMultisampleDepthResolveFilterSample0-                                         | WebGPUMultisampleDepthResolveFilterMin-                                         | WebGPUMultisampleDepthResolveFilterMax-                                         deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUMultisampleDepthResolveFilter where-        pToJSVal WebGPUMultisampleDepthResolveFilterSample0-          = js_WebGPUMultisampleDepthResolveFilterSample0-        pToJSVal WebGPUMultisampleDepthResolveFilterMin-          = js_WebGPUMultisampleDepthResolveFilterMin-        pToJSVal WebGPUMultisampleDepthResolveFilterMax-          = js_WebGPUMultisampleDepthResolveFilterMax- -instance ToJSVal WebGPUMultisampleDepthResolveFilter where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUMultisampleDepthResolveFilter where-        pFromJSVal x-          | x `js_eq` js_WebGPUMultisampleDepthResolveFilterSample0 =-            WebGPUMultisampleDepthResolveFilterSample0-        pFromJSVal x-          | x `js_eq` js_WebGPUMultisampleDepthResolveFilterMin =-            WebGPUMultisampleDepthResolveFilterMin-        pFromJSVal x-          | x `js_eq` js_WebGPUMultisampleDepthResolveFilterMax =-            WebGPUMultisampleDepthResolveFilterMax- -instance FromJSVal WebGPUMultisampleDepthResolveFilter where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"sample0\"; })"-        js_WebGPUMultisampleDepthResolveFilterSample0 :: JSVal- -foreign import javascript unsafe "(() => { return \"min\"; })"-        js_WebGPUMultisampleDepthResolveFilterMin :: JSVal- -foreign import javascript unsafe "(() => { return \"max\"; })"-        js_WebGPUMultisampleDepthResolveFilterMax :: JSVal- -data WebGPUFeatureSet = WebGPUFeatureSetLevel1-                      | WebGPUFeatureSetLevel2-                      deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUFeatureSet where-        pToJSVal WebGPUFeatureSetLevel1 = js_WebGPUFeatureSetLevel1-        pToJSVal WebGPUFeatureSetLevel2 = js_WebGPUFeatureSetLevel2- -instance ToJSVal WebGPUFeatureSet where-        toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUFeatureSet where-        pFromJSVal x-          | x `js_eq` js_WebGPUFeatureSetLevel1 = WebGPUFeatureSetLevel1-        pFromJSVal x-          | x `js_eq` js_WebGPUFeatureSetLevel2 = WebGPUFeatureSetLevel2- -instance FromJSVal WebGPUFeatureSet where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"level1\"; })"-        js_WebGPUFeatureSetLevel1 :: JSVal- -foreign import javascript unsafe "(() => { return \"level2\"; })"-        js_WebGPUFeatureSetLevel2 :: JSVal- -data VideoPresentationMode = VideoPresentationModeFullscreen-                           | VideoPresentationModePictureInPicture-                           | VideoPresentationModeInline-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal VideoPresentationMode where-        pToJSVal VideoPresentationModeFullscreen-          = js_VideoPresentationModeFullscreen-        pToJSVal VideoPresentationModePictureInPicture-          = js_VideoPresentationModePictureInPicture-        pToJSVal VideoPresentationModeInline-          = js_VideoPresentationModeInline- -instance ToJSVal VideoPresentationMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal VideoPresentationMode where-        pFromJSVal x-          | x `js_eq` js_VideoPresentationModeFullscreen =-            VideoPresentationModeFullscreen-        pFromJSVal x-          | x `js_eq` js_VideoPresentationModePictureInPicture =-            VideoPresentationModePictureInPicture-        pFromJSVal x-          | x `js_eq` js_VideoPresentationModeInline =-            VideoPresentationModeInline- -instance FromJSVal VideoPresentationMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"fullscreen\"; })"-        js_VideoPresentationModeFullscreen :: JSVal- -foreign import javascript unsafe "(() => { return \"picture-in-picture\"; })"-        js_VideoPresentationModePictureInPicture :: JSVal- -foreign import javascript unsafe "(() => { return \"inline\"; })"-        js_VideoPresentationModeInline :: JSVal- -data TextTrackMode = TextTrackModeDisabled-                   | TextTrackModeHidden-                   | TextTrackModeShowing-                   deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal TextTrackMode where-        pToJSVal TextTrackModeDisabled = js_TextTrackModeDisabled-        pToJSVal TextTrackModeHidden = js_TextTrackModeHidden-        pToJSVal TextTrackModeShowing = js_TextTrackModeShowing- -instance ToJSVal TextTrackMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal TextTrackMode where-        pFromJSVal x-          | x `js_eq` js_TextTrackModeDisabled = TextTrackModeDisabled-        pFromJSVal x-          | x `js_eq` js_TextTrackModeHidden = TextTrackModeHidden-        pFromJSVal x-          | x `js_eq` js_TextTrackModeShowing = TextTrackModeShowing- -instance FromJSVal TextTrackMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"disabled\"; })"-        js_TextTrackModeDisabled :: JSVal- -foreign import javascript unsafe "(() => { return \"hidden\"; })"-        js_TextTrackModeHidden :: JSVal- -foreign import javascript unsafe "(() => { return \"showing\"; })"-        js_TextTrackModeShowing :: JSVal- -data TextTrackKind = TextTrackKindSubtitles-                   | TextTrackKindCaptions-                   | TextTrackKindDescriptions-                   | TextTrackKindChapters-                   | TextTrackKindMetadata-                   | TextTrackKindForced-                   deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal TextTrackKind where-        pToJSVal TextTrackKindSubtitles = js_TextTrackKindSubtitles-        pToJSVal TextTrackKindCaptions = js_TextTrackKindCaptions-        pToJSVal TextTrackKindDescriptions = js_TextTrackKindDescriptions-        pToJSVal TextTrackKindChapters = js_TextTrackKindChapters-        pToJSVal TextTrackKindMetadata = js_TextTrackKindMetadata-        pToJSVal TextTrackKindForced = js_TextTrackKindForced- -instance ToJSVal TextTrackKind where-        toJSVal = return . pToJSVal- -instance PFromJSVal TextTrackKind where-        pFromJSVal x-          | x `js_eq` js_TextTrackKindSubtitles = TextTrackKindSubtitles-        pFromJSVal x-          | x `js_eq` js_TextTrackKindCaptions = TextTrackKindCaptions-        pFromJSVal x-          | x `js_eq` js_TextTrackKindDescriptions =-            TextTrackKindDescriptions-        pFromJSVal x-          | x `js_eq` js_TextTrackKindChapters = TextTrackKindChapters-        pFromJSVal x-          | x `js_eq` js_TextTrackKindMetadata = TextTrackKindMetadata-        pFromJSVal x-          | x `js_eq` js_TextTrackKindForced = TextTrackKindForced- -instance FromJSVal TextTrackKind where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"subtitles\"; })"-        js_TextTrackKindSubtitles :: JSVal- -foreign import javascript unsafe "(() => { return \"captions\"; })"-        js_TextTrackKindCaptions :: JSVal- -foreign import javascript unsafe "(() => { return \"descriptions\"; })"-        js_TextTrackKindDescriptions :: JSVal- -foreign import javascript unsafe "(() => { return \"chapters\"; })"-        js_TextTrackKindChapters :: JSVal- -foreign import javascript unsafe "(() => { return \"metadata\"; })"-        js_TextTrackKindMetadata :: JSVal- -foreign import javascript unsafe "(() => { return \"forced\"; })"-        js_TextTrackKindForced :: JSVal- -data ApplePayErrorCode = ApplePayErrorCodeUnknown-                       | ApplePayErrorCodeShippingContactInvalid-                       | ApplePayErrorCodeBillingContactInvalid-                       | ApplePayErrorCodeAddressUnservicable-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayErrorCode where-        pToJSVal ApplePayErrorCodeUnknown = js_ApplePayErrorCodeUnknown-        pToJSVal ApplePayErrorCodeShippingContactInvalid-          = js_ApplePayErrorCodeShippingContactInvalid-        pToJSVal ApplePayErrorCodeBillingContactInvalid-          = js_ApplePayErrorCodeBillingContactInvalid-        pToJSVal ApplePayErrorCodeAddressUnservicable-          = js_ApplePayErrorCodeAddressUnservicable- -instance ToJSVal ApplePayErrorCode where-        toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayErrorCode where-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorCodeUnknown = ApplePayErrorCodeUnknown-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorCodeShippingContactInvalid =-            ApplePayErrorCodeShippingContactInvalid-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorCodeBillingContactInvalid =-            ApplePayErrorCodeBillingContactInvalid-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorCodeAddressUnservicable =-            ApplePayErrorCodeAddressUnservicable- -instance FromJSVal ApplePayErrorCode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"unknown\"; })"-        js_ApplePayErrorCodeUnknown :: JSVal- -foreign import javascript unsafe "(() => { return \"shippingContactInvalid\"; })"-        js_ApplePayErrorCodeShippingContactInvalid :: JSVal- -foreign import javascript unsafe "(() => { return \"billingContactInvalid\"; })"-        js_ApplePayErrorCodeBillingContactInvalid :: JSVal- -foreign import javascript unsafe "(() => { return \"addressUnservicable\"; })"-        js_ApplePayErrorCodeAddressUnservicable :: JSVal- -data ApplePayErrorContactField = ApplePayErrorContactFieldPhoneNumber-                               | ApplePayErrorContactFieldEmailAddress-                               | ApplePayErrorContactFieldName-                               | ApplePayErrorContactFieldPostalAddress-                               | ApplePayErrorContactFieldAddressLines-                               | ApplePayErrorContactFieldLocality-                               | ApplePayErrorContactFieldPostalCode-                               | ApplePayErrorContactFieldAdministrativeArea-                               | ApplePayErrorContactFieldCountry-                               deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayErrorContactField where-        pToJSVal ApplePayErrorContactFieldPhoneNumber-          = js_ApplePayErrorContactFieldPhoneNumber-        pToJSVal ApplePayErrorContactFieldEmailAddress-          = js_ApplePayErrorContactFieldEmailAddress-        pToJSVal ApplePayErrorContactFieldName-          = js_ApplePayErrorContactFieldName-        pToJSVal ApplePayErrorContactFieldPostalAddress-          = js_ApplePayErrorContactFieldPostalAddress-        pToJSVal ApplePayErrorContactFieldAddressLines-          = js_ApplePayErrorContactFieldAddressLines-        pToJSVal ApplePayErrorContactFieldLocality-          = js_ApplePayErrorContactFieldLocality-        pToJSVal ApplePayErrorContactFieldPostalCode-          = js_ApplePayErrorContactFieldPostalCode-        pToJSVal ApplePayErrorContactFieldAdministrativeArea-          = js_ApplePayErrorContactFieldAdministrativeArea-        pToJSVal ApplePayErrorContactFieldCountry-          = js_ApplePayErrorContactFieldCountry- -instance ToJSVal ApplePayErrorContactField where-        toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayErrorContactField where-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorContactFieldPhoneNumber =-            ApplePayErrorContactFieldPhoneNumber-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorContactFieldEmailAddress =-            ApplePayErrorContactFieldEmailAddress-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorContactFieldName =-            ApplePayErrorContactFieldName-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorContactFieldPostalAddress =-            ApplePayErrorContactFieldPostalAddress-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorContactFieldAddressLines =-            ApplePayErrorContactFieldAddressLines-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorContactFieldLocality =-            ApplePayErrorContactFieldLocality-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorContactFieldPostalCode =-            ApplePayErrorContactFieldPostalCode-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorContactFieldAdministrativeArea =-            ApplePayErrorContactFieldAdministrativeArea-        pFromJSVal x-          | x `js_eq` js_ApplePayErrorContactFieldCountry =-            ApplePayErrorContactFieldCountry- -instance FromJSVal ApplePayErrorContactField where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"phoneNumber\"; })"-        js_ApplePayErrorContactFieldPhoneNumber :: JSVal- -foreign import javascript unsafe "(() => { return \"emailAddress\"; })"-        js_ApplePayErrorContactFieldEmailAddress :: JSVal- -foreign import javascript unsafe "(() => { return \"name\"; })"-        js_ApplePayErrorContactFieldName :: JSVal- -foreign import javascript unsafe "(() => { return \"postalAddress\"; })"-        js_ApplePayErrorContactFieldPostalAddress :: JSVal- -foreign import javascript unsafe "(() => { return \"addressLines\"; })"-        js_ApplePayErrorContactFieldAddressLines :: JSVal- -foreign import javascript unsafe "(() => { return \"locality\"; })"-        js_ApplePayErrorContactFieldLocality :: JSVal- -foreign import javascript unsafe "(() => { return \"postalCode\"; })"-        js_ApplePayErrorContactFieldPostalCode :: JSVal- -foreign import javascript unsafe "(() => { return \"administrativeArea\"; })"-        js_ApplePayErrorContactFieldAdministrativeArea :: JSVal- -foreign import javascript unsafe "(() => { return \"country\"; })"-        js_ApplePayErrorContactFieldCountry :: JSVal- -data ApplePayLineItemType = ApplePayLineItemTypePending-                          | ApplePayLineItemTypeFinal-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayLineItemType where-        pToJSVal ApplePayLineItemTypePending-          = js_ApplePayLineItemTypePending-        pToJSVal ApplePayLineItemTypeFinal = js_ApplePayLineItemTypeFinal- -instance ToJSVal ApplePayLineItemType where-        toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayLineItemType where-        pFromJSVal x-          | x `js_eq` js_ApplePayLineItemTypePending =-            ApplePayLineItemTypePending-        pFromJSVal x-          | x `js_eq` js_ApplePayLineItemTypeFinal =-            ApplePayLineItemTypeFinal- -instance FromJSVal ApplePayLineItemType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"pending\"; })"-        js_ApplePayLineItemTypePending :: JSVal- -foreign import javascript unsafe "(() => { return \"final\"; })"-        js_ApplePayLineItemTypeFinal :: JSVal- -data ApplePayPaymentMethodType = ApplePayPaymentMethodTypeDebit-                               | ApplePayPaymentMethodTypeCredit-                               | ApplePayPaymentMethodTypePrepaid-                               | ApplePayPaymentMethodTypeStore-                               deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayPaymentMethodType where-        pToJSVal ApplePayPaymentMethodTypeDebit-          = js_ApplePayPaymentMethodTypeDebit-        pToJSVal ApplePayPaymentMethodTypeCredit-          = js_ApplePayPaymentMethodTypeCredit-        pToJSVal ApplePayPaymentMethodTypePrepaid-          = js_ApplePayPaymentMethodTypePrepaid-        pToJSVal ApplePayPaymentMethodTypeStore-          = js_ApplePayPaymentMethodTypeStore- -instance ToJSVal ApplePayPaymentMethodType where-        toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayPaymentMethodType where-        pFromJSVal x-          | x `js_eq` js_ApplePayPaymentMethodTypeDebit =-            ApplePayPaymentMethodTypeDebit-        pFromJSVal x-          | x `js_eq` js_ApplePayPaymentMethodTypeCredit =-            ApplePayPaymentMethodTypeCredit-        pFromJSVal x-          | x `js_eq` js_ApplePayPaymentMethodTypePrepaid =-            ApplePayPaymentMethodTypePrepaid-        pFromJSVal x-          | x `js_eq` js_ApplePayPaymentMethodTypeStore =-            ApplePayPaymentMethodTypeStore- -instance FromJSVal ApplePayPaymentMethodType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"debit\"; })"-        js_ApplePayPaymentMethodTypeDebit :: JSVal- -foreign import javascript unsafe "(() => { return \"credit\"; })"-        js_ApplePayPaymentMethodTypeCredit :: JSVal- -foreign import javascript unsafe "(() => { return \"prepaid\"; })"-        js_ApplePayPaymentMethodTypePrepaid :: JSVal- -foreign import javascript unsafe "(() => { return \"store\"; })"-        js_ApplePayPaymentMethodTypeStore :: JSVal- -data ApplePayPaymentPassActivationState = ApplePayPaymentPassActivationStateActivated-                                        | ApplePayPaymentPassActivationStateRequiresActivation-                                        | ApplePayPaymentPassActivationStateActivating-                                        | ApplePayPaymentPassActivationStateSuspended-                                        | ApplePayPaymentPassActivationStateDeactivated-                                        deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayPaymentPassActivationState where-        pToJSVal ApplePayPaymentPassActivationStateActivated-          = js_ApplePayPaymentPassActivationStateActivated-        pToJSVal ApplePayPaymentPassActivationStateRequiresActivation-          = js_ApplePayPaymentPassActivationStateRequiresActivation-        pToJSVal ApplePayPaymentPassActivationStateActivating-          = js_ApplePayPaymentPassActivationStateActivating-        pToJSVal ApplePayPaymentPassActivationStateSuspended-          = js_ApplePayPaymentPassActivationStateSuspended-        pToJSVal ApplePayPaymentPassActivationStateDeactivated-          = js_ApplePayPaymentPassActivationStateDeactivated- -instance ToJSVal ApplePayPaymentPassActivationState where-        toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayPaymentPassActivationState where-        pFromJSVal x-          | x `js_eq` js_ApplePayPaymentPassActivationStateActivated =-            ApplePayPaymentPassActivationStateActivated-        pFromJSVal x-          | x `js_eq` js_ApplePayPaymentPassActivationStateRequiresActivation-            = ApplePayPaymentPassActivationStateRequiresActivation-        pFromJSVal x-          | x `js_eq` js_ApplePayPaymentPassActivationStateActivating =-            ApplePayPaymentPassActivationStateActivating-        pFromJSVal x-          | x `js_eq` js_ApplePayPaymentPassActivationStateSuspended =-            ApplePayPaymentPassActivationStateSuspended-        pFromJSVal x-          | x `js_eq` js_ApplePayPaymentPassActivationStateDeactivated =-            ApplePayPaymentPassActivationStateDeactivated- -instance FromJSVal ApplePayPaymentPassActivationState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"activated\"; })"-        js_ApplePayPaymentPassActivationStateActivated :: JSVal- -foreign import javascript unsafe "(() => { return \"requiresActivation\"; })"-        js_ApplePayPaymentPassActivationStateRequiresActivation :: JSVal- -foreign import javascript unsafe "(() => { return \"activating\"; })"-        js_ApplePayPaymentPassActivationStateActivating :: JSVal- -foreign import javascript unsafe "(() => { return \"suspended\"; })"-        js_ApplePayPaymentPassActivationStateSuspended :: JSVal- -foreign import javascript unsafe "(() => { return \"deactivated\"; })"-        js_ApplePayPaymentPassActivationStateDeactivated :: JSVal- -data ApplePayMerchantCapability = ApplePayMerchantCapabilitySupports3DS-                                | ApplePayMerchantCapabilitySupportsEMV-                                | ApplePayMerchantCapabilitySupportsCredit-                                | ApplePayMerchantCapabilitySupportsDebit-                                deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayMerchantCapability where-        pToJSVal ApplePayMerchantCapabilitySupports3DS-          = js_ApplePayMerchantCapabilitySupports3DS-        pToJSVal ApplePayMerchantCapabilitySupportsEMV-          = js_ApplePayMerchantCapabilitySupportsEMV-        pToJSVal ApplePayMerchantCapabilitySupportsCredit-          = js_ApplePayMerchantCapabilitySupportsCredit-        pToJSVal ApplePayMerchantCapabilitySupportsDebit-          = js_ApplePayMerchantCapabilitySupportsDebit- -instance ToJSVal ApplePayMerchantCapability where-        toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayMerchantCapability where-        pFromJSVal x-          | x `js_eq` js_ApplePayMerchantCapabilitySupports3DS =-            ApplePayMerchantCapabilitySupports3DS-        pFromJSVal x-          | x `js_eq` js_ApplePayMerchantCapabilitySupportsEMV =-            ApplePayMerchantCapabilitySupportsEMV-        pFromJSVal x-          | x `js_eq` js_ApplePayMerchantCapabilitySupportsCredit =-            ApplePayMerchantCapabilitySupportsCredit-        pFromJSVal x-          | x `js_eq` js_ApplePayMerchantCapabilitySupportsDebit =-            ApplePayMerchantCapabilitySupportsDebit- -instance FromJSVal ApplePayMerchantCapability where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"supports3DS\"; })"-        js_ApplePayMerchantCapabilitySupports3DS :: JSVal- -foreign import javascript unsafe "(() => { return \"supportsEMV\"; })"-        js_ApplePayMerchantCapabilitySupportsEMV :: JSVal- -foreign import javascript unsafe "(() => { return \"supportsCredit\"; })"-        js_ApplePayMerchantCapabilitySupportsCredit :: JSVal- -foreign import javascript unsafe "(() => { return \"supportsDebit\"; })"-        js_ApplePayMerchantCapabilitySupportsDebit :: JSVal- -data ApplePayContactField = ApplePayContactFieldEmail-                          | ApplePayContactFieldName-                          | ApplePayContactFieldPhone-                          | ApplePayContactFieldPostalAddress-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayContactField where-        pToJSVal ApplePayContactFieldEmail = js_ApplePayContactFieldEmail-        pToJSVal ApplePayContactFieldName = js_ApplePayContactFieldName-        pToJSVal ApplePayContactFieldPhone = js_ApplePayContactFieldPhone-        pToJSVal ApplePayContactFieldPostalAddress-          = js_ApplePayContactFieldPostalAddress- -instance ToJSVal ApplePayContactField where-        toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayContactField where-        pFromJSVal x-          | x `js_eq` js_ApplePayContactFieldEmail =-            ApplePayContactFieldEmail-        pFromJSVal x-          | x `js_eq` js_ApplePayContactFieldName = ApplePayContactFieldName-        pFromJSVal x-          | x `js_eq` js_ApplePayContactFieldPhone =-            ApplePayContactFieldPhone-        pFromJSVal x-          | x `js_eq` js_ApplePayContactFieldPostalAddress =-            ApplePayContactFieldPostalAddress- -instance FromJSVal ApplePayContactField where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"email\"; })"-        js_ApplePayContactFieldEmail :: JSVal- -foreign import javascript unsafe "(() => { return \"name\"; })"-        js_ApplePayContactFieldName :: JSVal- -foreign import javascript unsafe "(() => { return \"phone\"; })"-        js_ApplePayContactFieldPhone :: JSVal- -foreign import javascript unsafe "(() => { return \"postalAddress\"; })"-        js_ApplePayContactFieldPostalAddress :: JSVal- -data ApplePayShippingType = ApplePayShippingTypeShipping-                          | ApplePayShippingTypeDelivery-                          | ApplePayShippingTypeStorePickup-                          | ApplePayShippingTypeServicePickup-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayShippingType where-        pToJSVal ApplePayShippingTypeShipping-          = js_ApplePayShippingTypeShipping-        pToJSVal ApplePayShippingTypeDelivery-          = js_ApplePayShippingTypeDelivery-        pToJSVal ApplePayShippingTypeStorePickup-          = js_ApplePayShippingTypeStorePickup-        pToJSVal ApplePayShippingTypeServicePickup-          = js_ApplePayShippingTypeServicePickup- -instance ToJSVal ApplePayShippingType where-        toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayShippingType where-        pFromJSVal x-          | x `js_eq` js_ApplePayShippingTypeShipping =-            ApplePayShippingTypeShipping-        pFromJSVal x-          | x `js_eq` js_ApplePayShippingTypeDelivery =-            ApplePayShippingTypeDelivery-        pFromJSVal x-          | x `js_eq` js_ApplePayShippingTypeStorePickup =-            ApplePayShippingTypeStorePickup-        pFromJSVal x-          | x `js_eq` js_ApplePayShippingTypeServicePickup =-            ApplePayShippingTypeServicePickup- -instance FromJSVal ApplePayShippingType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"shipping\"; })"-        js_ApplePayShippingTypeShipping :: JSVal- -foreign import javascript unsafe "(() => { return \"delivery\"; })"-        js_ApplePayShippingTypeDelivery :: JSVal- -foreign import javascript unsafe "(() => { return \"storePickup\"; })"-        js_ApplePayShippingTypeStorePickup :: JSVal- -foreign import javascript unsafe "(() => { return \"servicePickup\"; })"-        js_ApplePayShippingTypeServicePickup :: JSVal- -data MediaKeyMessageType = MediaKeyMessageTypeLicenseRequest-                         | MediaKeyMessageTypeLicenseRenewal-                         | MediaKeyMessageTypeLicenseRelease-                         | MediaKeyMessageTypeIndividualizationRequest-                         deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaKeyMessageType where-        pToJSVal MediaKeyMessageTypeLicenseRequest-          = js_MediaKeyMessageTypeLicenseRequest-        pToJSVal MediaKeyMessageTypeLicenseRenewal-          = js_MediaKeyMessageTypeLicenseRenewal-        pToJSVal MediaKeyMessageTypeLicenseRelease-          = js_MediaKeyMessageTypeLicenseRelease-        pToJSVal MediaKeyMessageTypeIndividualizationRequest-          = js_MediaKeyMessageTypeIndividualizationRequest- -instance ToJSVal MediaKeyMessageType where-        toJSVal = return . pToJSVal- -instance PFromJSVal MediaKeyMessageType where-        pFromJSVal x-          | x `js_eq` js_MediaKeyMessageTypeLicenseRequest =-            MediaKeyMessageTypeLicenseRequest-        pFromJSVal x-          | x `js_eq` js_MediaKeyMessageTypeLicenseRenewal =-            MediaKeyMessageTypeLicenseRenewal-        pFromJSVal x-          | x `js_eq` js_MediaKeyMessageTypeLicenseRelease =-            MediaKeyMessageTypeLicenseRelease-        pFromJSVal x-          | x `js_eq` js_MediaKeyMessageTypeIndividualizationRequest =-            MediaKeyMessageTypeIndividualizationRequest- -instance FromJSVal MediaKeyMessageType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"license-request\"; })"-        js_MediaKeyMessageTypeLicenseRequest :: JSVal- -foreign import javascript unsafe "(() => { return \"license-renewal\"; })"-        js_MediaKeyMessageTypeLicenseRenewal :: JSVal- -foreign import javascript unsafe "(() => { return \"license-release\"; })"-        js_MediaKeyMessageTypeLicenseRelease :: JSVal- -foreign import javascript unsafe "(() => { return \"individualization-request\"; })"-        js_MediaKeyMessageTypeIndividualizationRequest :: JSVal- -data MediaKeySessionType = MediaKeySessionTypeTemporary-                         | MediaKeySessionTypePersistentUsageRecord-                         | MediaKeySessionTypePersistentLicense-                         deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaKeySessionType where-        pToJSVal MediaKeySessionTypeTemporary-          = js_MediaKeySessionTypeTemporary-        pToJSVal MediaKeySessionTypePersistentUsageRecord-          = js_MediaKeySessionTypePersistentUsageRecord-        pToJSVal MediaKeySessionTypePersistentLicense-          = js_MediaKeySessionTypePersistentLicense- -instance ToJSVal MediaKeySessionType where-        toJSVal = return . pToJSVal- -instance PFromJSVal MediaKeySessionType where-        pFromJSVal x-          | x `js_eq` js_MediaKeySessionTypeTemporary =-            MediaKeySessionTypeTemporary-        pFromJSVal x-          | x `js_eq` js_MediaKeySessionTypePersistentUsageRecord =-            MediaKeySessionTypePersistentUsageRecord-        pFromJSVal x-          | x `js_eq` js_MediaKeySessionTypePersistentLicense =-            MediaKeySessionTypePersistentLicense- -instance FromJSVal MediaKeySessionType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"temporary\"; })"-        js_MediaKeySessionTypeTemporary :: JSVal- -foreign import javascript unsafe "(() => { return \"persistent-usage-record\"; })"-        js_MediaKeySessionTypePersistentUsageRecord :: JSVal- -foreign import javascript unsafe "(() => { return \"persistent-license\"; })"-        js_MediaKeySessionTypePersistentLicense :: JSVal- -data MediaKeysRequirement = MediaKeysRequirementRequired-                          | MediaKeysRequirementOptional-                          | MediaKeysRequirementNotAllowed-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaKeysRequirement where-        pToJSVal MediaKeysRequirementRequired-          = js_MediaKeysRequirementRequired-        pToJSVal MediaKeysRequirementOptional-          = js_MediaKeysRequirementOptional-        pToJSVal MediaKeysRequirementNotAllowed-          = js_MediaKeysRequirementNotAllowed- -instance ToJSVal MediaKeysRequirement where-        toJSVal = return . pToJSVal- -instance PFromJSVal MediaKeysRequirement where-        pFromJSVal x-          | x `js_eq` js_MediaKeysRequirementRequired =-            MediaKeysRequirementRequired-        pFromJSVal x-          | x `js_eq` js_MediaKeysRequirementOptional =-            MediaKeysRequirementOptional-        pFromJSVal x-          | x `js_eq` js_MediaKeysRequirementNotAllowed =-            MediaKeysRequirementNotAllowed- -instance FromJSVal MediaKeysRequirement where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"required\"; })"-        js_MediaKeysRequirementRequired :: JSVal- -foreign import javascript unsafe "(() => { return \"optional\"; })"-        js_MediaKeysRequirementOptional :: JSVal- -foreign import javascript unsafe "(() => { return \"not-allowed\"; })"-        js_MediaKeysRequirementNotAllowed :: JSVal- -data MediaKeyStatus = MediaKeyStatusUsable-                    | MediaKeyStatusExpired-                    | MediaKeyStatusReleased-                    | MediaKeyStatusOutputRestricted-                    | MediaKeyStatusOutputDownscaled-                    | MediaKeyStatusStatusPending-                    | MediaKeyStatusInternalError-                    deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaKeyStatus where-        pToJSVal MediaKeyStatusUsable = js_MediaKeyStatusUsable-        pToJSVal MediaKeyStatusExpired = js_MediaKeyStatusExpired-        pToJSVal MediaKeyStatusReleased = js_MediaKeyStatusReleased-        pToJSVal MediaKeyStatusOutputRestricted-          = js_MediaKeyStatusOutputRestricted-        pToJSVal MediaKeyStatusOutputDownscaled-          = js_MediaKeyStatusOutputDownscaled-        pToJSVal MediaKeyStatusStatusPending-          = js_MediaKeyStatusStatusPending-        pToJSVal MediaKeyStatusInternalError-          = js_MediaKeyStatusInternalError- -instance ToJSVal MediaKeyStatus where-        toJSVal = return . pToJSVal- -instance PFromJSVal MediaKeyStatus where-        pFromJSVal x-          | x `js_eq` js_MediaKeyStatusUsable = MediaKeyStatusUsable-        pFromJSVal x-          | x `js_eq` js_MediaKeyStatusExpired = MediaKeyStatusExpired-        pFromJSVal x-          | x `js_eq` js_MediaKeyStatusReleased = MediaKeyStatusReleased-        pFromJSVal x-          | x `js_eq` js_MediaKeyStatusOutputRestricted =-            MediaKeyStatusOutputRestricted-        pFromJSVal x-          | x `js_eq` js_MediaKeyStatusOutputDownscaled =-            MediaKeyStatusOutputDownscaled-        pFromJSVal x-          | x `js_eq` js_MediaKeyStatusStatusPending =-            MediaKeyStatusStatusPending-        pFromJSVal x-          | x `js_eq` js_MediaKeyStatusInternalError =-            MediaKeyStatusInternalError- -instance FromJSVal MediaKeyStatus where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"usable\"; })"-        js_MediaKeyStatusUsable :: JSVal- -foreign import javascript unsafe "(() => { return \"expired\"; })"-        js_MediaKeyStatusExpired :: JSVal- -foreign import javascript unsafe "(() => { return \"released\"; })"-        js_MediaKeyStatusReleased :: JSVal- -foreign import javascript unsafe "(() => { return \"output-restricted\"; })"-        js_MediaKeyStatusOutputRestricted :: JSVal- -foreign import javascript unsafe "(() => { return \"output-downscaled\"; })"-        js_MediaKeyStatusOutputDownscaled :: JSVal- -foreign import javascript unsafe "(() => { return \"status-pending\"; })"-        js_MediaKeyStatusStatusPending :: JSVal- -foreign import javascript unsafe "(() => { return \"internal-error\"; })"-        js_MediaKeyStatusInternalError :: JSVal- -data RequestType = RequestType-                 | RequestTypeAudio-                 | RequestTypeFont-                 | RequestTypeImage-                 | RequestTypeScript-                 | RequestTypeStyle-                 | RequestTypeTrack-                 | RequestTypeVideo-                 deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestType where-        pToJSVal RequestType = js_RequestType-        pToJSVal RequestTypeAudio = js_RequestTypeAudio-        pToJSVal RequestTypeFont = js_RequestTypeFont-        pToJSVal RequestTypeImage = js_RequestTypeImage-        pToJSVal RequestTypeScript = js_RequestTypeScript-        pToJSVal RequestTypeStyle = js_RequestTypeStyle-        pToJSVal RequestTypeTrack = js_RequestTypeTrack-        pToJSVal RequestTypeVideo = js_RequestTypeVideo- -instance ToJSVal RequestType where-        toJSVal = return . pToJSVal- -instance PFromJSVal RequestType where-        pFromJSVal x | x `js_eq` js_RequestType = RequestType-        pFromJSVal x | x `js_eq` js_RequestTypeAudio = RequestTypeAudio-        pFromJSVal x | x `js_eq` js_RequestTypeFont = RequestTypeFont-        pFromJSVal x | x `js_eq` js_RequestTypeImage = RequestTypeImage-        pFromJSVal x | x `js_eq` js_RequestTypeScript = RequestTypeScript-        pFromJSVal x | x `js_eq` js_RequestTypeStyle = RequestTypeStyle-        pFromJSVal x | x `js_eq` js_RequestTypeTrack = RequestTypeTrack-        pFromJSVal x | x `js_eq` js_RequestTypeVideo = RequestTypeVideo- -instance FromJSVal RequestType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"\"; })" js_RequestType :: JSVal- -foreign import javascript unsafe "(() => { return \"audio\"; })" js_RequestTypeAudio ::-        JSVal- -foreign import javascript unsafe "(() => { return \"font\"; })" js_RequestTypeFont ::-        JSVal- -foreign import javascript unsafe "(() => { return \"image\"; })" js_RequestTypeImage ::-        JSVal- -foreign import javascript unsafe "(() => { return \"script\"; })" js_RequestTypeScript-        :: JSVal- -foreign import javascript unsafe "(() => { return \"style\"; })" js_RequestTypeStyle ::-        JSVal- -foreign import javascript unsafe "(() => { return \"track\"; })" js_RequestTypeTrack ::-        JSVal- -foreign import javascript unsafe "(() => { return \"video\"; })" js_RequestTypeVideo ::-        JSVal- -data RequestDestination = RequestDestination-                        | RequestDestinationDocument-                        | RequestDestinationSharedworker-                        | RequestDestinationSubresource-                        | RequestDestinationUnknown-                        | RequestDestinationWorker-                        deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestDestination where-        pToJSVal RequestDestination = js_RequestDestination-        pToJSVal RequestDestinationDocument = js_RequestDestinationDocument-        pToJSVal RequestDestinationSharedworker-          = js_RequestDestinationSharedworker-        pToJSVal RequestDestinationSubresource-          = js_RequestDestinationSubresource-        pToJSVal RequestDestinationUnknown = js_RequestDestinationUnknown-        pToJSVal RequestDestinationWorker = js_RequestDestinationWorker- -instance ToJSVal RequestDestination where-        toJSVal = return . pToJSVal- -instance PFromJSVal RequestDestination where-        pFromJSVal x | x `js_eq` js_RequestDestination = RequestDestination-        pFromJSVal x-          | x `js_eq` js_RequestDestinationDocument =-            RequestDestinationDocument-        pFromJSVal x-          | x `js_eq` js_RequestDestinationSharedworker =-            RequestDestinationSharedworker-        pFromJSVal x-          | x `js_eq` js_RequestDestinationSubresource =-            RequestDestinationSubresource-        pFromJSVal x-          | x `js_eq` js_RequestDestinationUnknown =-            RequestDestinationUnknown-        pFromJSVal x-          | x `js_eq` js_RequestDestinationWorker = RequestDestinationWorker- -instance FromJSVal RequestDestination where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"\"; })" js_RequestDestination ::-        JSVal- -foreign import javascript unsafe "(() => { return \"document\"; })"-        js_RequestDestinationDocument :: JSVal- -foreign import javascript unsafe "(() => { return \"sharedworker\"; })"-        js_RequestDestinationSharedworker :: JSVal- -foreign import javascript unsafe "(() => { return \"subresource\"; })"-        js_RequestDestinationSubresource :: JSVal- -foreign import javascript unsafe "(() => { return \"unknown\"; })"-        js_RequestDestinationUnknown :: JSVal- -foreign import javascript unsafe "(() => { return \"worker\"; })"-        js_RequestDestinationWorker :: JSVal- -data RequestMode = RequestModeNavigate-                 | RequestModeSameOrigin-                 | RequestModeNoCors-                 | RequestModeCors-                 deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestMode where-        pToJSVal RequestModeNavigate = js_RequestModeNavigate-        pToJSVal RequestModeSameOrigin = js_RequestModeSameOrigin-        pToJSVal RequestModeNoCors = js_RequestModeNoCors-        pToJSVal RequestModeCors = js_RequestModeCors- -instance ToJSVal RequestMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal RequestMode where-        pFromJSVal x-          | x `js_eq` js_RequestModeNavigate = RequestModeNavigate-        pFromJSVal x-          | x `js_eq` js_RequestModeSameOrigin = RequestModeSameOrigin-        pFromJSVal x | x `js_eq` js_RequestModeNoCors = RequestModeNoCors-        pFromJSVal x | x `js_eq` js_RequestModeCors = RequestModeCors- -instance FromJSVal RequestMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"navigate\"; })"-        js_RequestModeNavigate :: JSVal- -foreign import javascript unsafe "(() => { return \"same-origin\"; })"-        js_RequestModeSameOrigin :: JSVal- -foreign import javascript unsafe "(() => { return \"no-cors\"; })" js_RequestModeNoCors-        :: JSVal- -foreign import javascript unsafe "(() => { return \"cors\"; })" js_RequestModeCors ::-        JSVal- -data RequestCredentials = RequestCredentialsOmit-                        | RequestCredentialsSameOrigin-                        | RequestCredentialsInclude-                        deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestCredentials where-        pToJSVal RequestCredentialsOmit = js_RequestCredentialsOmit-        pToJSVal RequestCredentialsSameOrigin-          = js_RequestCredentialsSameOrigin-        pToJSVal RequestCredentialsInclude = js_RequestCredentialsInclude- -instance ToJSVal RequestCredentials where-        toJSVal = return . pToJSVal- -instance PFromJSVal RequestCredentials where-        pFromJSVal x-          | x `js_eq` js_RequestCredentialsOmit = RequestCredentialsOmit-        pFromJSVal x-          | x `js_eq` js_RequestCredentialsSameOrigin =-            RequestCredentialsSameOrigin-        pFromJSVal x-          | x `js_eq` js_RequestCredentialsInclude =-            RequestCredentialsInclude- -instance FromJSVal RequestCredentials where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"omit\"; })"-        js_RequestCredentialsOmit :: JSVal- -foreign import javascript unsafe "(() => { return \"same-origin\"; })"-        js_RequestCredentialsSameOrigin :: JSVal- -foreign import javascript unsafe "(() => { return \"include\"; })"-        js_RequestCredentialsInclude :: JSVal- -data RequestCache = RequestCacheDefault-                  | RequestCacheNoStore-                  | RequestCacheReload-                  | RequestCacheNoCache-                  | RequestCacheForceCache-                  | RequestCacheOnlyIfCached-                  deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestCache where-        pToJSVal RequestCacheDefault = js_RequestCacheDefault-        pToJSVal RequestCacheNoStore = js_RequestCacheNoStore-        pToJSVal RequestCacheReload = js_RequestCacheReload-        pToJSVal RequestCacheNoCache = js_RequestCacheNoCache-        pToJSVal RequestCacheForceCache = js_RequestCacheForceCache-        pToJSVal RequestCacheOnlyIfCached = js_RequestCacheOnlyIfCached- -instance ToJSVal RequestCache where-        toJSVal = return . pToJSVal- -instance PFromJSVal RequestCache where-        pFromJSVal x-          | x `js_eq` js_RequestCacheDefault = RequestCacheDefault-        pFromJSVal x-          | x `js_eq` js_RequestCacheNoStore = RequestCacheNoStore-        pFromJSVal x | x `js_eq` js_RequestCacheReload = RequestCacheReload-        pFromJSVal x-          | x `js_eq` js_RequestCacheNoCache = RequestCacheNoCache-        pFromJSVal x-          | x `js_eq` js_RequestCacheForceCache = RequestCacheForceCache-        pFromJSVal x-          | x `js_eq` js_RequestCacheOnlyIfCached = RequestCacheOnlyIfCached- -instance FromJSVal RequestCache where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"default\"; })"-        js_RequestCacheDefault :: JSVal- -foreign import javascript unsafe "(() => { return \"no-store\"; })"-        js_RequestCacheNoStore :: JSVal- -foreign import javascript unsafe "(() => { return \"reload\"; })" js_RequestCacheReload-        :: JSVal- -foreign import javascript unsafe "(() => { return \"no-cache\"; })"-        js_RequestCacheNoCache :: JSVal- -foreign import javascript unsafe "(() => { return \"force-cache\"; })"-        js_RequestCacheForceCache :: JSVal- -foreign import javascript unsafe "(() => { return \"only-if-cached\"; })"-        js_RequestCacheOnlyIfCached :: JSVal- -data RequestRedirect = RequestRedirectFollow-                     | RequestRedirectError-                     | RequestRedirectManual-                     deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestRedirect where-        pToJSVal RequestRedirectFollow = js_RequestRedirectFollow-        pToJSVal RequestRedirectError = js_RequestRedirectError-        pToJSVal RequestRedirectManual = js_RequestRedirectManual- -instance ToJSVal RequestRedirect where-        toJSVal = return . pToJSVal- -instance PFromJSVal RequestRedirect where-        pFromJSVal x-          | x `js_eq` js_RequestRedirectFollow = RequestRedirectFollow-        pFromJSVal x-          | x `js_eq` js_RequestRedirectError = RequestRedirectError-        pFromJSVal x-          | x `js_eq` js_RequestRedirectManual = RequestRedirectManual- -instance FromJSVal RequestRedirect where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"follow\"; })"-        js_RequestRedirectFollow :: JSVal- -foreign import javascript unsafe "(() => { return \"error\"; })"-        js_RequestRedirectError :: JSVal- -foreign import javascript unsafe "(() => { return \"manual\"; })"-        js_RequestRedirectManual :: JSVal- -data ReferrerPolicy = ReferrerPolicy-                    | ReferrerPolicyNoReferrer-                    | ReferrerPolicyNoReferrerWhenDowngrade-                    | ReferrerPolicyOrigin-                    | ReferrerPolicyOriginWhenCrossOrigin-                    | ReferrerPolicyUnsafeUrl-                    deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ReferrerPolicy where-        pToJSVal ReferrerPolicy = js_ReferrerPolicy-        pToJSVal ReferrerPolicyNoReferrer = js_ReferrerPolicyNoReferrer-        pToJSVal ReferrerPolicyNoReferrerWhenDowngrade-          = js_ReferrerPolicyNoReferrerWhenDowngrade-        pToJSVal ReferrerPolicyOrigin = js_ReferrerPolicyOrigin-        pToJSVal ReferrerPolicyOriginWhenCrossOrigin-          = js_ReferrerPolicyOriginWhenCrossOrigin-        pToJSVal ReferrerPolicyUnsafeUrl = js_ReferrerPolicyUnsafeUrl- -instance ToJSVal ReferrerPolicy where-        toJSVal = return . pToJSVal- -instance PFromJSVal ReferrerPolicy where-        pFromJSVal x | x `js_eq` js_ReferrerPolicy = ReferrerPolicy-        pFromJSVal x-          | x `js_eq` js_ReferrerPolicyNoReferrer = ReferrerPolicyNoReferrer-        pFromJSVal x-          | x `js_eq` js_ReferrerPolicyNoReferrerWhenDowngrade =-            ReferrerPolicyNoReferrerWhenDowngrade-        pFromJSVal x-          | x `js_eq` js_ReferrerPolicyOrigin = ReferrerPolicyOrigin-        pFromJSVal x-          | x `js_eq` js_ReferrerPolicyOriginWhenCrossOrigin =-            ReferrerPolicyOriginWhenCrossOrigin-        pFromJSVal x-          | x `js_eq` js_ReferrerPolicyUnsafeUrl = ReferrerPolicyUnsafeUrl- -instance FromJSVal ReferrerPolicy where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"\"; })" js_ReferrerPolicy :: JSVal- -foreign import javascript unsafe "(() => { return \"no-referrer\"; })"-        js_ReferrerPolicyNoReferrer :: JSVal- -foreign import javascript unsafe "(() => { return \"no-referrer-when-downgrade\"; })"-        js_ReferrerPolicyNoReferrerWhenDowngrade :: JSVal- -foreign import javascript unsafe "(() => { return \"origin\"; })"-        js_ReferrerPolicyOrigin :: JSVal- -foreign import javascript unsafe "(() => { return \"origin-when-cross-origin\"; })"-        js_ReferrerPolicyOriginWhenCrossOrigin :: JSVal- -foreign import javascript unsafe "(() => { return \"unsafe-url\"; })"-        js_ReferrerPolicyUnsafeUrl :: JSVal- -data ResponseType = ResponseTypeBasic-                  | ResponseTypeCors-                  | ResponseTypeDefault-                  | ResponseTypeError-                  | ResponseTypeOpaque-                  | ResponseTypeOpaqueredirect-                  deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ResponseType where-        pToJSVal ResponseTypeBasic = js_ResponseTypeBasic-        pToJSVal ResponseTypeCors = js_ResponseTypeCors-        pToJSVal ResponseTypeDefault = js_ResponseTypeDefault-        pToJSVal ResponseTypeError = js_ResponseTypeError-        pToJSVal ResponseTypeOpaque = js_ResponseTypeOpaque-        pToJSVal ResponseTypeOpaqueredirect = js_ResponseTypeOpaqueredirect- -instance ToJSVal ResponseType where-        toJSVal = return . pToJSVal- -instance PFromJSVal ResponseType where-        pFromJSVal x | x `js_eq` js_ResponseTypeBasic = ResponseTypeBasic-        pFromJSVal x | x `js_eq` js_ResponseTypeCors = ResponseTypeCors-        pFromJSVal x-          | x `js_eq` js_ResponseTypeDefault = ResponseTypeDefault-        pFromJSVal x | x `js_eq` js_ResponseTypeError = ResponseTypeError-        pFromJSVal x | x `js_eq` js_ResponseTypeOpaque = ResponseTypeOpaque-        pFromJSVal x-          | x `js_eq` js_ResponseTypeOpaqueredirect =-            ResponseTypeOpaqueredirect- -instance FromJSVal ResponseType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"basic\"; })" js_ResponseTypeBasic-        :: JSVal- -foreign import javascript unsafe "(() => { return \"cors\"; })" js_ResponseTypeCors ::-        JSVal- -foreign import javascript unsafe "(() => { return \"default\"; })"-        js_ResponseTypeDefault :: JSVal- -foreign import javascript unsafe "(() => { return \"error\"; })" js_ResponseTypeError-        :: JSVal- -foreign import javascript unsafe "(() => { return \"opaque\"; })" js_ResponseTypeOpaque-        :: JSVal- -foreign import javascript unsafe "(() => { return \"opaqueredirect\"; })"-        js_ResponseTypeOpaqueredirect :: JSVal- -data IDBCursorDirection = IDBCursorDirectionNext-                        | IDBCursorDirectionNextunique-                        | IDBCursorDirectionPrev-                        | IDBCursorDirectionPrevunique-                        deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal IDBCursorDirection where-        pToJSVal IDBCursorDirectionNext = js_IDBCursorDirectionNext-        pToJSVal IDBCursorDirectionNextunique-          = js_IDBCursorDirectionNextunique-        pToJSVal IDBCursorDirectionPrev = js_IDBCursorDirectionPrev-        pToJSVal IDBCursorDirectionPrevunique-          = js_IDBCursorDirectionPrevunique- -instance ToJSVal IDBCursorDirection where-        toJSVal = return . pToJSVal- -instance PFromJSVal IDBCursorDirection where-        pFromJSVal x-          | x `js_eq` js_IDBCursorDirectionNext = IDBCursorDirectionNext-        pFromJSVal x-          | x `js_eq` js_IDBCursorDirectionNextunique =-            IDBCursorDirectionNextunique-        pFromJSVal x-          | x `js_eq` js_IDBCursorDirectionPrev = IDBCursorDirectionPrev-        pFromJSVal x-          | x `js_eq` js_IDBCursorDirectionPrevunique =-            IDBCursorDirectionPrevunique- -instance FromJSVal IDBCursorDirection where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"next\"; })"-        js_IDBCursorDirectionNext :: JSVal- -foreign import javascript unsafe "(() => { return \"nextunique\"; })"-        js_IDBCursorDirectionNextunique :: JSVal- -foreign import javascript unsafe "(() => { return \"prev\"; })"-        js_IDBCursorDirectionPrev :: JSVal- -foreign import javascript unsafe "(() => { return \"prevunique\"; })"-        js_IDBCursorDirectionPrevunique :: JSVal- -data IDBRequestReadyState = IDBRequestReadyStatePending-                          | IDBRequestReadyStateDone-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal IDBRequestReadyState where-        pToJSVal IDBRequestReadyStatePending-          = js_IDBRequestReadyStatePending-        pToJSVal IDBRequestReadyStateDone = js_IDBRequestReadyStateDone- -instance ToJSVal IDBRequestReadyState where-        toJSVal = return . pToJSVal- -instance PFromJSVal IDBRequestReadyState where-        pFromJSVal x-          | x `js_eq` js_IDBRequestReadyStatePending =-            IDBRequestReadyStatePending-        pFromJSVal x-          | x `js_eq` js_IDBRequestReadyStateDone = IDBRequestReadyStateDone- -instance FromJSVal IDBRequestReadyState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"pending\"; })"-        js_IDBRequestReadyStatePending :: JSVal- -foreign import javascript unsafe "(() => { return \"done\"; })"-        js_IDBRequestReadyStateDone :: JSVal- -data IDBTransactionMode = IDBTransactionModeReadonly-                        | IDBTransactionModeReadwrite-                        | IDBTransactionModeVersionchange-                        deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal IDBTransactionMode where-        pToJSVal IDBTransactionModeReadonly = js_IDBTransactionModeReadonly-        pToJSVal IDBTransactionModeReadwrite-          = js_IDBTransactionModeReadwrite-        pToJSVal IDBTransactionModeVersionchange-          = js_IDBTransactionModeVersionchange- -instance ToJSVal IDBTransactionMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal IDBTransactionMode where-        pFromJSVal x-          | x `js_eq` js_IDBTransactionModeReadonly =-            IDBTransactionModeReadonly-        pFromJSVal x-          | x `js_eq` js_IDBTransactionModeReadwrite =-            IDBTransactionModeReadwrite-        pFromJSVal x-          | x `js_eq` js_IDBTransactionModeVersionchange =-            IDBTransactionModeVersionchange- -instance FromJSVal IDBTransactionMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"readonly\"; })"-        js_IDBTransactionModeReadonly :: JSVal- -foreign import javascript unsafe "(() => { return \"readwrite\"; })"-        js_IDBTransactionModeReadwrite :: JSVal- -foreign import javascript unsafe "(() => { return \"versionchange\"; })"-        js_IDBTransactionModeVersionchange :: JSVal- -data DeviceType = DeviceTypeNone-                | DeviceTypeAirplay-                | DeviceTypeTvout-                deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal DeviceType where-        pToJSVal DeviceTypeNone = js_DeviceTypeNone-        pToJSVal DeviceTypeAirplay = js_DeviceTypeAirplay-        pToJSVal DeviceTypeTvout = js_DeviceTypeTvout- -instance ToJSVal DeviceType where-        toJSVal = return . pToJSVal- -instance PFromJSVal DeviceType where-        pFromJSVal x | x `js_eq` js_DeviceTypeNone = DeviceTypeNone-        pFromJSVal x | x `js_eq` js_DeviceTypeAirplay = DeviceTypeAirplay-        pFromJSVal x | x `js_eq` js_DeviceTypeTvout = DeviceTypeTvout- -instance FromJSVal DeviceType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"none\"; })" js_DeviceTypeNone ::-        JSVal- -foreign import javascript unsafe "(() => { return \"airplay\"; })" js_DeviceTypeAirplay-        :: JSVal- -foreign import javascript unsafe "(() => { return \"tvout\"; })" js_DeviceTypeTvout ::-        JSVal- -data MediaSessionKind = MediaSessionKindContent-                      | MediaSessionKindTransient-                      | MediaSessionKindTransientSolo-                      | MediaSessionKindAmbient-                      deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaSessionKind where-        pToJSVal MediaSessionKindContent = js_MediaSessionKindContent-        pToJSVal MediaSessionKindTransient = js_MediaSessionKindTransient-        pToJSVal MediaSessionKindTransientSolo-          = js_MediaSessionKindTransientSolo-        pToJSVal MediaSessionKindAmbient = js_MediaSessionKindAmbient- -instance ToJSVal MediaSessionKind where-        toJSVal = return . pToJSVal- -instance PFromJSVal MediaSessionKind where-        pFromJSVal x-          | x `js_eq` js_MediaSessionKindContent = MediaSessionKindContent-        pFromJSVal x-          | x `js_eq` js_MediaSessionKindTransient =-            MediaSessionKindTransient-        pFromJSVal x-          | x `js_eq` js_MediaSessionKindTransientSolo =-            MediaSessionKindTransientSolo-        pFromJSVal x-          | x `js_eq` js_MediaSessionKindAmbient = MediaSessionKindAmbient- -instance FromJSVal MediaSessionKind where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"content\"; })"-        js_MediaSessionKindContent :: JSVal- -foreign import javascript unsafe "(() => { return \"transient\"; })"-        js_MediaSessionKindTransient :: JSVal- -foreign import javascript unsafe "(() => { return \"transient-solo\"; })"-        js_MediaSessionKindTransientSolo :: JSVal- -foreign import javascript unsafe "(() => { return \"ambient\"; })"-        js_MediaSessionKindAmbient :: JSVal- -data EndOfStreamError = EndOfStreamErrorNetwork-                      | EndOfStreamErrorDecode-                      deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal EndOfStreamError where-        pToJSVal EndOfStreamErrorNetwork = js_EndOfStreamErrorNetwork-        pToJSVal EndOfStreamErrorDecode = js_EndOfStreamErrorDecode- -instance ToJSVal EndOfStreamError where-        toJSVal = return . pToJSVal- -instance PFromJSVal EndOfStreamError where-        pFromJSVal x-          | x `js_eq` js_EndOfStreamErrorNetwork = EndOfStreamErrorNetwork-        pFromJSVal x-          | x `js_eq` js_EndOfStreamErrorDecode = EndOfStreamErrorDecode- -instance FromJSVal EndOfStreamError where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"network\"; })"-        js_EndOfStreamErrorNetwork :: JSVal- -foreign import javascript unsafe "(() => { return \"decode\"; })"-        js_EndOfStreamErrorDecode :: JSVal- -data ReadyState = ReadyStateClosed-                | ReadyStateOpen-                | ReadyStateEnded-                deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ReadyState where-        pToJSVal ReadyStateClosed = js_ReadyStateClosed-        pToJSVal ReadyStateOpen = js_ReadyStateOpen-        pToJSVal ReadyStateEnded = js_ReadyStateEnded- -instance ToJSVal ReadyState where-        toJSVal = return . pToJSVal- -instance PFromJSVal ReadyState where-        pFromJSVal x | x `js_eq` js_ReadyStateClosed = ReadyStateClosed-        pFromJSVal x | x `js_eq` js_ReadyStateOpen = ReadyStateOpen-        pFromJSVal x | x `js_eq` js_ReadyStateEnded = ReadyStateEnded- -instance FromJSVal ReadyState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })" js_ReadyStateClosed-        :: JSVal- -foreign import javascript unsafe "(() => { return \"open\"; })" js_ReadyStateOpen ::-        JSVal- -foreign import javascript unsafe "(() => { return \"ended\"; })" js_ReadyStateEnded ::-        JSVal- -data AppendMode = AppendModeSegments-                | AppendModeSequence-                deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal AppendMode where-        pToJSVal AppendModeSegments = js_AppendModeSegments-        pToJSVal AppendModeSequence = js_AppendModeSequence- -instance ToJSVal AppendMode where-        toJSVal = return . pToJSVal- -instance PFromJSVal AppendMode where-        pFromJSVal x | x `js_eq` js_AppendModeSegments = AppendModeSegments-        pFromJSVal x | x `js_eq` js_AppendModeSequence = AppendModeSequence- -instance FromJSVal AppendMode where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"segments\"; })"-        js_AppendModeSegments :: JSVal- -foreign import javascript unsafe "(() => { return \"sequence\"; })"-        js_AppendModeSequence :: JSVal- -data MediaDeviceKind = MediaDeviceKindAudioinput-                     | MediaDeviceKindAudiooutput-                     | MediaDeviceKindVideoinput-                     deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaDeviceKind where-        pToJSVal MediaDeviceKindAudioinput = js_MediaDeviceKindAudioinput-        pToJSVal MediaDeviceKindAudiooutput = js_MediaDeviceKindAudiooutput-        pToJSVal MediaDeviceKindVideoinput = js_MediaDeviceKindVideoinput- -instance ToJSVal MediaDeviceKind where-        toJSVal = return . pToJSVal- -instance PFromJSVal MediaDeviceKind where-        pFromJSVal x-          | x `js_eq` js_MediaDeviceKindAudioinput =-            MediaDeviceKindAudioinput-        pFromJSVal x-          | x `js_eq` js_MediaDeviceKindAudiooutput =-            MediaDeviceKindAudiooutput-        pFromJSVal x-          | x `js_eq` js_MediaDeviceKindVideoinput =-            MediaDeviceKindVideoinput- -instance FromJSVal MediaDeviceKind where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"audioinput\"; })"-        js_MediaDeviceKindAudioinput :: JSVal- -foreign import javascript unsafe "(() => { return \"audiooutput\"; })"-        js_MediaDeviceKindAudiooutput :: JSVal- -foreign import javascript unsafe "(() => { return \"videoinput\"; })"-        js_MediaDeviceKindVideoinput :: JSVal- -data MediaStreamTrackState = MediaStreamTrackStateLive-                           | MediaStreamTrackStateEnded-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaStreamTrackState where-        pToJSVal MediaStreamTrackStateLive = js_MediaStreamTrackStateLive-        pToJSVal MediaStreamTrackStateEnded = js_MediaStreamTrackStateEnded- -instance ToJSVal MediaStreamTrackState where-        toJSVal = return . pToJSVal- -instance PFromJSVal MediaStreamTrackState where-        pFromJSVal x-          | x `js_eq` js_MediaStreamTrackStateLive =-            MediaStreamTrackStateLive-        pFromJSVal x-          | x `js_eq` js_MediaStreamTrackStateEnded =-            MediaStreamTrackStateEnded- -instance FromJSVal MediaStreamTrackState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"live\"; })"-        js_MediaStreamTrackStateLive :: JSVal- -foreign import javascript unsafe "(() => { return \"ended\"; })"-        js_MediaStreamTrackStateEnded :: JSVal- -data RTCIceTransportPolicy = RTCIceTransportPolicyRelay-                           | RTCIceTransportPolicyAll-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCIceTransportPolicy where-        pToJSVal RTCIceTransportPolicyRelay = js_RTCIceTransportPolicyRelay-        pToJSVal RTCIceTransportPolicyAll = js_RTCIceTransportPolicyAll- -instance ToJSVal RTCIceTransportPolicy where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCIceTransportPolicy where-        pFromJSVal x-          | x `js_eq` js_RTCIceTransportPolicyRelay =-            RTCIceTransportPolicyRelay-        pFromJSVal x-          | x `js_eq` js_RTCIceTransportPolicyAll = RTCIceTransportPolicyAll- -instance FromJSVal RTCIceTransportPolicy where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"relay\"; })"-        js_RTCIceTransportPolicyRelay :: JSVal- -foreign import javascript unsafe "(() => { return \"all\"; })"-        js_RTCIceTransportPolicyAll :: JSVal- -data RTCBundlePolicy = RTCBundlePolicyBalanced-                     | RTCBundlePolicyMaxCompat-                     | RTCBundlePolicyMaxBundle-                     deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCBundlePolicy where-        pToJSVal RTCBundlePolicyBalanced = js_RTCBundlePolicyBalanced-        pToJSVal RTCBundlePolicyMaxCompat = js_RTCBundlePolicyMaxCompat-        pToJSVal RTCBundlePolicyMaxBundle = js_RTCBundlePolicyMaxBundle- -instance ToJSVal RTCBundlePolicy where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCBundlePolicy where-        pFromJSVal x-          | x `js_eq` js_RTCBundlePolicyBalanced = RTCBundlePolicyBalanced-        pFromJSVal x-          | x `js_eq` js_RTCBundlePolicyMaxCompat = RTCBundlePolicyMaxCompat-        pFromJSVal x-          | x `js_eq` js_RTCBundlePolicyMaxBundle = RTCBundlePolicyMaxBundle- -instance FromJSVal RTCBundlePolicy where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"balanced\"; })"-        js_RTCBundlePolicyBalanced :: JSVal- -foreign import javascript unsafe "(() => { return \"max-compat\"; })"-        js_RTCBundlePolicyMaxCompat :: JSVal- -foreign import javascript unsafe "(() => { return \"max-bundle\"; })"-        js_RTCBundlePolicyMaxBundle :: JSVal- -data RTCDataChannelState = RTCDataChannelStateConnecting-                         | RTCDataChannelStateOpen-                         | RTCDataChannelStateClosing-                         | RTCDataChannelStateClosed-                         deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCDataChannelState where-        pToJSVal RTCDataChannelStateConnecting-          = js_RTCDataChannelStateConnecting-        pToJSVal RTCDataChannelStateOpen = js_RTCDataChannelStateOpen-        pToJSVal RTCDataChannelStateClosing = js_RTCDataChannelStateClosing-        pToJSVal RTCDataChannelStateClosed = js_RTCDataChannelStateClosed- -instance ToJSVal RTCDataChannelState where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCDataChannelState where-        pFromJSVal x-          | x `js_eq` js_RTCDataChannelStateConnecting =-            RTCDataChannelStateConnecting-        pFromJSVal x-          | x `js_eq` js_RTCDataChannelStateOpen = RTCDataChannelStateOpen-        pFromJSVal x-          | x `js_eq` js_RTCDataChannelStateClosing =-            RTCDataChannelStateClosing-        pFromJSVal x-          | x `js_eq` js_RTCDataChannelStateClosed =-            RTCDataChannelStateClosed- -instance FromJSVal RTCDataChannelState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"connecting\"; })"-        js_RTCDataChannelStateConnecting :: JSVal- -foreign import javascript unsafe "(() => { return \"open\"; })"-        js_RTCDataChannelStateOpen :: JSVal- -foreign import javascript unsafe "(() => { return \"closing\"; })"-        js_RTCDataChannelStateClosing :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"-        js_RTCDataChannelStateClosed :: JSVal- -data RTCIceConnectionState = RTCIceConnectionStateNew-                           | RTCIceConnectionStateChecking-                           | RTCIceConnectionStateConnected-                           | RTCIceConnectionStateCompleted-                           | RTCIceConnectionStateFailed-                           | RTCIceConnectionStateDisconnected-                           | RTCIceConnectionStateClosed-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCIceConnectionState where-        pToJSVal RTCIceConnectionStateNew = js_RTCIceConnectionStateNew-        pToJSVal RTCIceConnectionStateChecking-          = js_RTCIceConnectionStateChecking-        pToJSVal RTCIceConnectionStateConnected-          = js_RTCIceConnectionStateConnected-        pToJSVal RTCIceConnectionStateCompleted-          = js_RTCIceConnectionStateCompleted-        pToJSVal RTCIceConnectionStateFailed-          = js_RTCIceConnectionStateFailed-        pToJSVal RTCIceConnectionStateDisconnected-          = js_RTCIceConnectionStateDisconnected-        pToJSVal RTCIceConnectionStateClosed-          = js_RTCIceConnectionStateClosed- -instance ToJSVal RTCIceConnectionState where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCIceConnectionState where-        pFromJSVal x-          | x `js_eq` js_RTCIceConnectionStateNew = RTCIceConnectionStateNew-        pFromJSVal x-          | x `js_eq` js_RTCIceConnectionStateChecking =-            RTCIceConnectionStateChecking-        pFromJSVal x-          | x `js_eq` js_RTCIceConnectionStateConnected =-            RTCIceConnectionStateConnected-        pFromJSVal x-          | x `js_eq` js_RTCIceConnectionStateCompleted =-            RTCIceConnectionStateCompleted-        pFromJSVal x-          | x `js_eq` js_RTCIceConnectionStateFailed =-            RTCIceConnectionStateFailed-        pFromJSVal x-          | x `js_eq` js_RTCIceConnectionStateDisconnected =-            RTCIceConnectionStateDisconnected-        pFromJSVal x-          | x `js_eq` js_RTCIceConnectionStateClosed =-            RTCIceConnectionStateClosed- -instance FromJSVal RTCIceConnectionState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"new\"; })"-        js_RTCIceConnectionStateNew :: JSVal- -foreign import javascript unsafe "(() => { return \"checking\"; })"-        js_RTCIceConnectionStateChecking :: JSVal- -foreign import javascript unsafe "(() => { return \"connected\"; })"-        js_RTCIceConnectionStateConnected :: JSVal- -foreign import javascript unsafe "(() => { return \"completed\"; })"-        js_RTCIceConnectionStateCompleted :: JSVal- -foreign import javascript unsafe "(() => { return \"failed\"; })"-        js_RTCIceConnectionStateFailed :: JSVal- -foreign import javascript unsafe "(() => { return \"disconnected\"; })"-        js_RTCIceConnectionStateDisconnected :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"-        js_RTCIceConnectionStateClosed :: JSVal- -data RTCIceGatheringState = RTCIceGatheringStateNew-                          | RTCIceGatheringStateGathering-                          | RTCIceGatheringStateComplete-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCIceGatheringState where-        pToJSVal RTCIceGatheringStateNew = js_RTCIceGatheringStateNew-        pToJSVal RTCIceGatheringStateGathering-          = js_RTCIceGatheringStateGathering-        pToJSVal RTCIceGatheringStateComplete-          = js_RTCIceGatheringStateComplete- -instance ToJSVal RTCIceGatheringState where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCIceGatheringState where-        pFromJSVal x-          | x `js_eq` js_RTCIceGatheringStateNew = RTCIceGatheringStateNew-        pFromJSVal x-          | x `js_eq` js_RTCIceGatheringStateGathering =-            RTCIceGatheringStateGathering-        pFromJSVal x-          | x `js_eq` js_RTCIceGatheringStateComplete =-            RTCIceGatheringStateComplete- -instance FromJSVal RTCIceGatheringState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"new\"; })"-        js_RTCIceGatheringStateNew :: JSVal- -foreign import javascript unsafe "(() => { return \"gathering\"; })"-        js_RTCIceGatheringStateGathering :: JSVal- -foreign import javascript unsafe "(() => { return \"complete\"; })"-        js_RTCIceGatheringStateComplete :: JSVal- -data RTCIceTransportState = RTCIceTransportStateNew-                          | RTCIceTransportStateChecking-                          | RTCIceTransportStateConnected-                          | RTCIceTransportStateCompleted-                          | RTCIceTransportStateFailed-                          | RTCIceTransportStateDisconnected-                          | RTCIceTransportStateClosed-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCIceTransportState where-        pToJSVal RTCIceTransportStateNew = js_RTCIceTransportStateNew-        pToJSVal RTCIceTransportStateChecking-          = js_RTCIceTransportStateChecking-        pToJSVal RTCIceTransportStateConnected-          = js_RTCIceTransportStateConnected-        pToJSVal RTCIceTransportStateCompleted-          = js_RTCIceTransportStateCompleted-        pToJSVal RTCIceTransportStateFailed = js_RTCIceTransportStateFailed-        pToJSVal RTCIceTransportStateDisconnected-          = js_RTCIceTransportStateDisconnected-        pToJSVal RTCIceTransportStateClosed = js_RTCIceTransportStateClosed- -instance ToJSVal RTCIceTransportState where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCIceTransportState where-        pFromJSVal x-          | x `js_eq` js_RTCIceTransportStateNew = RTCIceTransportStateNew-        pFromJSVal x-          | x `js_eq` js_RTCIceTransportStateChecking =-            RTCIceTransportStateChecking-        pFromJSVal x-          | x `js_eq` js_RTCIceTransportStateConnected =-            RTCIceTransportStateConnected-        pFromJSVal x-          | x `js_eq` js_RTCIceTransportStateCompleted =-            RTCIceTransportStateCompleted-        pFromJSVal x-          | x `js_eq` js_RTCIceTransportStateFailed =-            RTCIceTransportStateFailed-        pFromJSVal x-          | x `js_eq` js_RTCIceTransportStateDisconnected =-            RTCIceTransportStateDisconnected-        pFromJSVal x-          | x `js_eq` js_RTCIceTransportStateClosed =-            RTCIceTransportStateClosed- -instance FromJSVal RTCIceTransportState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"new\"; })"-        js_RTCIceTransportStateNew :: JSVal- -foreign import javascript unsafe "(() => { return \"checking\"; })"-        js_RTCIceTransportStateChecking :: JSVal- -foreign import javascript unsafe "(() => { return \"connected\"; })"-        js_RTCIceTransportStateConnected :: JSVal- -foreign import javascript unsafe "(() => { return \"completed\"; })"-        js_RTCIceTransportStateCompleted :: JSVal- -foreign import javascript unsafe "(() => { return \"failed\"; })"-        js_RTCIceTransportStateFailed :: JSVal- -foreign import javascript unsafe "(() => { return \"disconnected\"; })"-        js_RTCIceTransportStateDisconnected :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"-        js_RTCIceTransportStateClosed :: JSVal- -data RTCPeerConnectionState = RTCPeerConnectionStateNew-                            | RTCPeerConnectionStateConnecting-                            | RTCPeerConnectionStateConnected-                            | RTCPeerConnectionStateDisconnected-                            | RTCPeerConnectionStateFailed-                            | RTCPeerConnectionStateClosed-                            deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCPeerConnectionState where-        pToJSVal RTCPeerConnectionStateNew = js_RTCPeerConnectionStateNew-        pToJSVal RTCPeerConnectionStateConnecting-          = js_RTCPeerConnectionStateConnecting-        pToJSVal RTCPeerConnectionStateConnected-          = js_RTCPeerConnectionStateConnected-        pToJSVal RTCPeerConnectionStateDisconnected-          = js_RTCPeerConnectionStateDisconnected-        pToJSVal RTCPeerConnectionStateFailed-          = js_RTCPeerConnectionStateFailed-        pToJSVal RTCPeerConnectionStateClosed-          = js_RTCPeerConnectionStateClosed- -instance ToJSVal RTCPeerConnectionState where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCPeerConnectionState where-        pFromJSVal x-          | x `js_eq` js_RTCPeerConnectionStateNew =-            RTCPeerConnectionStateNew-        pFromJSVal x-          | x `js_eq` js_RTCPeerConnectionStateConnecting =-            RTCPeerConnectionStateConnecting-        pFromJSVal x-          | x `js_eq` js_RTCPeerConnectionStateConnected =-            RTCPeerConnectionStateConnected-        pFromJSVal x-          | x `js_eq` js_RTCPeerConnectionStateDisconnected =-            RTCPeerConnectionStateDisconnected-        pFromJSVal x-          | x `js_eq` js_RTCPeerConnectionStateFailed =-            RTCPeerConnectionStateFailed-        pFromJSVal x-          | x `js_eq` js_RTCPeerConnectionStateClosed =-            RTCPeerConnectionStateClosed- -instance FromJSVal RTCPeerConnectionState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"new\"; })"-        js_RTCPeerConnectionStateNew :: JSVal- -foreign import javascript unsafe "(() => { return \"connecting\"; })"-        js_RTCPeerConnectionStateConnecting :: JSVal- -foreign import javascript unsafe "(() => { return \"connected\"; })"-        js_RTCPeerConnectionStateConnected :: JSVal- -foreign import javascript unsafe "(() => { return \"disconnected\"; })"-        js_RTCPeerConnectionStateDisconnected :: JSVal- -foreign import javascript unsafe "(() => { return \"failed\"; })"-        js_RTCPeerConnectionStateFailed :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"-        js_RTCPeerConnectionStateClosed :: JSVal- -data RTCDegradationPreference = RTCDegradationPreferenceMaintainFramerate-                              | RTCDegradationPreferenceMaintainResolution-                              | RTCDegradationPreferenceBalanced-                              deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCDegradationPreference where-        pToJSVal RTCDegradationPreferenceMaintainFramerate-          = js_RTCDegradationPreferenceMaintainFramerate-        pToJSVal RTCDegradationPreferenceMaintainResolution-          = js_RTCDegradationPreferenceMaintainResolution-        pToJSVal RTCDegradationPreferenceBalanced-          = js_RTCDegradationPreferenceBalanced- -instance ToJSVal RTCDegradationPreference where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCDegradationPreference where-        pFromJSVal x-          | x `js_eq` js_RTCDegradationPreferenceMaintainFramerate =-            RTCDegradationPreferenceMaintainFramerate-        pFromJSVal x-          | x `js_eq` js_RTCDegradationPreferenceMaintainResolution =-            RTCDegradationPreferenceMaintainResolution-        pFromJSVal x-          | x `js_eq` js_RTCDegradationPreferenceBalanced =-            RTCDegradationPreferenceBalanced- -instance FromJSVal RTCDegradationPreference where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"maintain-framerate\"; })"-        js_RTCDegradationPreferenceMaintainFramerate :: JSVal- -foreign import javascript unsafe "(() => { return \"maintain-resolution\"; })"-        js_RTCDegradationPreferenceMaintainResolution :: JSVal- -foreign import javascript unsafe "(() => { return \"balanced\"; })"-        js_RTCDegradationPreferenceBalanced :: JSVal- -data RTCDtxStatus = RTCDtxStatusDisabled-                  | RTCDtxStatusEnabled-                  deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCDtxStatus where-        pToJSVal RTCDtxStatusDisabled = js_RTCDtxStatusDisabled-        pToJSVal RTCDtxStatusEnabled = js_RTCDtxStatusEnabled- -instance ToJSVal RTCDtxStatus where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCDtxStatus where-        pFromJSVal x-          | x `js_eq` js_RTCDtxStatusDisabled = RTCDtxStatusDisabled-        pFromJSVal x-          | x `js_eq` js_RTCDtxStatusEnabled = RTCDtxStatusEnabled- -instance FromJSVal RTCDtxStatus where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"disabled\"; })"-        js_RTCDtxStatusDisabled :: JSVal- -foreign import javascript unsafe "(() => { return \"enabled\"; })"-        js_RTCDtxStatusEnabled :: JSVal- -data RTCPriorityType = RTCPriorityTypeVeryLow-                     | RTCPriorityTypeLow-                     | RTCPriorityTypeMedium-                     | RTCPriorityTypeHigh-                     deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCPriorityType where-        pToJSVal RTCPriorityTypeVeryLow = js_RTCPriorityTypeVeryLow-        pToJSVal RTCPriorityTypeLow = js_RTCPriorityTypeLow-        pToJSVal RTCPriorityTypeMedium = js_RTCPriorityTypeMedium-        pToJSVal RTCPriorityTypeHigh = js_RTCPriorityTypeHigh- -instance ToJSVal RTCPriorityType where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCPriorityType where-        pFromJSVal x-          | x `js_eq` js_RTCPriorityTypeVeryLow = RTCPriorityTypeVeryLow-        pFromJSVal x | x `js_eq` js_RTCPriorityTypeLow = RTCPriorityTypeLow-        pFromJSVal x-          | x `js_eq` js_RTCPriorityTypeMedium = RTCPriorityTypeMedium-        pFromJSVal x-          | x `js_eq` js_RTCPriorityTypeHigh = RTCPriorityTypeHigh- -instance FromJSVal RTCPriorityType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"very-low\"; })"-        js_RTCPriorityTypeVeryLow :: JSVal- -foreign import javascript unsafe "(() => { return \"low\"; })" js_RTCPriorityTypeLow ::-        JSVal- -foreign import javascript unsafe "(() => { return \"medium\"; })"-        js_RTCPriorityTypeMedium :: JSVal- -foreign import javascript unsafe "(() => { return \"high\"; })" js_RTCPriorityTypeHigh-        :: JSVal- -data RTCRtpTransceiverDirection = RTCRtpTransceiverDirectionSendrecv-                                | RTCRtpTransceiverDirectionSendonly-                                | RTCRtpTransceiverDirectionRecvonly-                                | RTCRtpTransceiverDirectionInactive-                                deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCRtpTransceiverDirection where-        pToJSVal RTCRtpTransceiverDirectionSendrecv-          = js_RTCRtpTransceiverDirectionSendrecv-        pToJSVal RTCRtpTransceiverDirectionSendonly-          = js_RTCRtpTransceiverDirectionSendonly-        pToJSVal RTCRtpTransceiverDirectionRecvonly-          = js_RTCRtpTransceiverDirectionRecvonly-        pToJSVal RTCRtpTransceiverDirectionInactive-          = js_RTCRtpTransceiverDirectionInactive- -instance ToJSVal RTCRtpTransceiverDirection where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCRtpTransceiverDirection where-        pFromJSVal x-          | x `js_eq` js_RTCRtpTransceiverDirectionSendrecv =-            RTCRtpTransceiverDirectionSendrecv-        pFromJSVal x-          | x `js_eq` js_RTCRtpTransceiverDirectionSendonly =-            RTCRtpTransceiverDirectionSendonly-        pFromJSVal x-          | x `js_eq` js_RTCRtpTransceiverDirectionRecvonly =-            RTCRtpTransceiverDirectionRecvonly-        pFromJSVal x-          | x `js_eq` js_RTCRtpTransceiverDirectionInactive =-            RTCRtpTransceiverDirectionInactive- -instance FromJSVal RTCRtpTransceiverDirection where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"sendrecv\"; })"-        js_RTCRtpTransceiverDirectionSendrecv :: JSVal- -foreign import javascript unsafe "(() => { return \"sendonly\"; })"-        js_RTCRtpTransceiverDirectionSendonly :: JSVal- -foreign import javascript unsafe "(() => { return \"recvonly\"; })"-        js_RTCRtpTransceiverDirectionRecvonly :: JSVal- -foreign import javascript unsafe "(() => { return \"inactive\"; })"-        js_RTCRtpTransceiverDirectionInactive :: JSVal- -data RTCSdpType = RTCSdpTypeOffer-                | RTCSdpTypePranswer-                | RTCSdpTypeAnswer-                | RTCSdpTypeRollback-                deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCSdpType where-        pToJSVal RTCSdpTypeOffer = js_RTCSdpTypeOffer-        pToJSVal RTCSdpTypePranswer = js_RTCSdpTypePranswer-        pToJSVal RTCSdpTypeAnswer = js_RTCSdpTypeAnswer-        pToJSVal RTCSdpTypeRollback = js_RTCSdpTypeRollback- -instance ToJSVal RTCSdpType where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCSdpType where-        pFromJSVal x | x `js_eq` js_RTCSdpTypeOffer = RTCSdpTypeOffer-        pFromJSVal x | x `js_eq` js_RTCSdpTypePranswer = RTCSdpTypePranswer-        pFromJSVal x | x `js_eq` js_RTCSdpTypeAnswer = RTCSdpTypeAnswer-        pFromJSVal x | x `js_eq` js_RTCSdpTypeRollback = RTCSdpTypeRollback- -instance FromJSVal RTCSdpType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"offer\"; })" js_RTCSdpTypeOffer ::-        JSVal- -foreign import javascript unsafe "(() => { return \"pranswer\"; })"-        js_RTCSdpTypePranswer :: JSVal- -foreign import javascript unsafe "(() => { return \"answer\"; })" js_RTCSdpTypeAnswer-        :: JSVal- -foreign import javascript unsafe "(() => { return \"rollback\"; })"-        js_RTCSdpTypeRollback :: JSVal- -data RTCSignalingState = RTCSignalingStateStable-                       | RTCSignalingStateHaveLocalOffer-                       | RTCSignalingStateHaveRemoteOffer-                       | RTCSignalingStateHaveLocalPranswer-                       | RTCSignalingStateHaveRemotePranswer-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCSignalingState where-        pToJSVal RTCSignalingStateStable = js_RTCSignalingStateStable-        pToJSVal RTCSignalingStateHaveLocalOffer-          = js_RTCSignalingStateHaveLocalOffer-        pToJSVal RTCSignalingStateHaveRemoteOffer-          = js_RTCSignalingStateHaveRemoteOffer-        pToJSVal RTCSignalingStateHaveLocalPranswer-          = js_RTCSignalingStateHaveLocalPranswer-        pToJSVal RTCSignalingStateHaveRemotePranswer-          = js_RTCSignalingStateHaveRemotePranswer- -instance ToJSVal RTCSignalingState where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCSignalingState where-        pFromJSVal x-          | x `js_eq` js_RTCSignalingStateStable = RTCSignalingStateStable-        pFromJSVal x-          | x `js_eq` js_RTCSignalingStateHaveLocalOffer =-            RTCSignalingStateHaveLocalOffer-        pFromJSVal x-          | x `js_eq` js_RTCSignalingStateHaveRemoteOffer =-            RTCSignalingStateHaveRemoteOffer-        pFromJSVal x-          | x `js_eq` js_RTCSignalingStateHaveLocalPranswer =-            RTCSignalingStateHaveLocalPranswer-        pFromJSVal x-          | x `js_eq` js_RTCSignalingStateHaveRemotePranswer =-            RTCSignalingStateHaveRemotePranswer- -instance FromJSVal RTCSignalingState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"stable\"; })"-        js_RTCSignalingStateStable :: JSVal- -foreign import javascript unsafe "(() => { return \"have-local-offer\"; })"-        js_RTCSignalingStateHaveLocalOffer :: JSVal- -foreign import javascript unsafe "(() => { return \"have-remote-offer\"; })"-        js_RTCSignalingStateHaveRemoteOffer :: JSVal- -foreign import javascript unsafe "(() => { return \"have-local-pranswer\"; })"-        js_RTCSignalingStateHaveLocalPranswer :: JSVal- -foreign import javascript unsafe "(() => { return \"have-remote-pranswer\"; })"-        js_RTCSignalingStateHaveRemotePranswer :: JSVal- -data RTCStatsType = RTCStatsTypeCodec-                  | RTCStatsTypeInboundRtp-                  | RTCStatsTypeOutboundRtp-                  | RTCStatsTypePeerConnection-                  | RTCStatsTypeDataChannel-                  | RTCStatsTypeTrack-                  | RTCStatsTypeTransport-                  | RTCStatsTypeCandidatePair-                  | RTCStatsTypeLocalCandidate-                  | RTCStatsTypeRemoteCandidate-                  | RTCStatsTypeCertificate-                  deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCStatsType where-        pToJSVal RTCStatsTypeCodec = js_RTCStatsTypeCodec-        pToJSVal RTCStatsTypeInboundRtp = js_RTCStatsTypeInboundRtp-        pToJSVal RTCStatsTypeOutboundRtp = js_RTCStatsTypeOutboundRtp-        pToJSVal RTCStatsTypePeerConnection = js_RTCStatsTypePeerConnection-        pToJSVal RTCStatsTypeDataChannel = js_RTCStatsTypeDataChannel-        pToJSVal RTCStatsTypeTrack = js_RTCStatsTypeTrack-        pToJSVal RTCStatsTypeTransport = js_RTCStatsTypeTransport-        pToJSVal RTCStatsTypeCandidatePair = js_RTCStatsTypeCandidatePair-        pToJSVal RTCStatsTypeLocalCandidate = js_RTCStatsTypeLocalCandidate-        pToJSVal RTCStatsTypeRemoteCandidate-          = js_RTCStatsTypeRemoteCandidate-        pToJSVal RTCStatsTypeCertificate = js_RTCStatsTypeCertificate- -instance ToJSVal RTCStatsType where-        toJSVal = return . pToJSVal- -instance PFromJSVal RTCStatsType where-        pFromJSVal x | x `js_eq` js_RTCStatsTypeCodec = RTCStatsTypeCodec-        pFromJSVal x-          | x `js_eq` js_RTCStatsTypeInboundRtp = RTCStatsTypeInboundRtp-        pFromJSVal x-          | x `js_eq` js_RTCStatsTypeOutboundRtp = RTCStatsTypeOutboundRtp-        pFromJSVal x-          | x `js_eq` js_RTCStatsTypePeerConnection =-            RTCStatsTypePeerConnection-        pFromJSVal x-          | x `js_eq` js_RTCStatsTypeDataChannel = RTCStatsTypeDataChannel-        pFromJSVal x | x `js_eq` js_RTCStatsTypeTrack = RTCStatsTypeTrack-        pFromJSVal x-          | x `js_eq` js_RTCStatsTypeTransport = RTCStatsTypeTransport-        pFromJSVal x-          | x `js_eq` js_RTCStatsTypeCandidatePair =-            RTCStatsTypeCandidatePair-        pFromJSVal x-          | x `js_eq` js_RTCStatsTypeLocalCandidate =-            RTCStatsTypeLocalCandidate-        pFromJSVal x-          | x `js_eq` js_RTCStatsTypeRemoteCandidate =-            RTCStatsTypeRemoteCandidate-        pFromJSVal x-          | x `js_eq` js_RTCStatsTypeCertificate = RTCStatsTypeCertificate- -instance FromJSVal RTCStatsType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"codec\"; })" js_RTCStatsTypeCodec-        :: JSVal- -foreign import javascript unsafe "(() => { return \"inbound-rtp\"; })"-        js_RTCStatsTypeInboundRtp :: JSVal- -foreign import javascript unsafe "(() => { return \"outbound-rtp\"; })"-        js_RTCStatsTypeOutboundRtp :: JSVal- -foreign import javascript unsafe "(() => { return \"peer-connection\"; })"-        js_RTCStatsTypePeerConnection :: JSVal- -foreign import javascript unsafe "(() => { return \"data-channel\"; })"-        js_RTCStatsTypeDataChannel :: JSVal- -foreign import javascript unsafe "(() => { return \"track\"; })" js_RTCStatsTypeTrack-        :: JSVal- -foreign import javascript unsafe "(() => { return \"transport\"; })"-        js_RTCStatsTypeTransport :: JSVal- -foreign import javascript unsafe "(() => { return \"candidate-pair\"; })"-        js_RTCStatsTypeCandidatePair :: JSVal- -foreign import javascript unsafe "(() => { return \"local-candidate\"; })"-        js_RTCStatsTypeLocalCandidate :: JSVal- -foreign import javascript unsafe "(() => { return \"remote-candidate\"; })"-        js_RTCStatsTypeRemoteCandidate :: JSVal- -foreign import javascript unsafe "(() => { return \"certificate\"; })"-        js_RTCStatsTypeCertificate :: JSVal- -data NotificationDirection = NotificationDirectionAuto-                           | NotificationDirectionLtr-                           | NotificationDirectionRtl-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal NotificationDirection where-        pToJSVal NotificationDirectionAuto = js_NotificationDirectionAuto-        pToJSVal NotificationDirectionLtr = js_NotificationDirectionLtr-        pToJSVal NotificationDirectionRtl = js_NotificationDirectionRtl- -instance ToJSVal NotificationDirection where-        toJSVal = return . pToJSVal- -instance PFromJSVal NotificationDirection where-        pFromJSVal x-          | x `js_eq` js_NotificationDirectionAuto =-            NotificationDirectionAuto-        pFromJSVal x-          | x `js_eq` js_NotificationDirectionLtr = NotificationDirectionLtr-        pFromJSVal x-          | x `js_eq` js_NotificationDirectionRtl = NotificationDirectionRtl- -instance FromJSVal NotificationDirection where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"auto\"; })"-        js_NotificationDirectionAuto :: JSVal- -foreign import javascript unsafe "(() => { return \"ltr\"; })"-        js_NotificationDirectionLtr :: JSVal- -foreign import javascript unsafe "(() => { return \"rtl\"; })"-        js_NotificationDirectionRtl :: JSVal- -data AudioContextState = AudioContextStateSuspended-                       | AudioContextStateRunning-                       | AudioContextStateInterrupted-                       | AudioContextStateClosed-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal AudioContextState where-        pToJSVal AudioContextStateSuspended = js_AudioContextStateSuspended-        pToJSVal AudioContextStateRunning = js_AudioContextStateRunning-        pToJSVal AudioContextStateInterrupted-          = js_AudioContextStateInterrupted-        pToJSVal AudioContextStateClosed = js_AudioContextStateClosed- -instance ToJSVal AudioContextState where-        toJSVal = return . pToJSVal- -instance PFromJSVal AudioContextState where-        pFromJSVal x-          | x `js_eq` js_AudioContextStateSuspended =-            AudioContextStateSuspended-        pFromJSVal x-          | x `js_eq` js_AudioContextStateRunning = AudioContextStateRunning-        pFromJSVal x-          | x `js_eq` js_AudioContextStateInterrupted =-            AudioContextStateInterrupted-        pFromJSVal x-          | x `js_eq` js_AudioContextStateClosed = AudioContextStateClosed- -instance FromJSVal AudioContextState where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"suspended\"; })"-        js_AudioContextStateSuspended :: JSVal- -foreign import javascript unsafe "(() => { return \"running\"; })"-        js_AudioContextStateRunning :: JSVal- -foreign import javascript unsafe "(() => { return \"interrupted\"; })"-        js_AudioContextStateInterrupted :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"-        js_AudioContextStateClosed :: JSVal- -data BiquadFilterType = BiquadFilterTypeLowpass-                      | BiquadFilterTypeHighpass-                      | BiquadFilterTypeBandpass-                      | BiquadFilterTypeLowshelf-                      | BiquadFilterTypeHighshelf-                      | BiquadFilterTypePeaking-                      | BiquadFilterTypeNotch-                      | BiquadFilterTypeAllpass-                      deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal BiquadFilterType where-        pToJSVal BiquadFilterTypeLowpass = js_BiquadFilterTypeLowpass-        pToJSVal BiquadFilterTypeHighpass = js_BiquadFilterTypeHighpass-        pToJSVal BiquadFilterTypeBandpass = js_BiquadFilterTypeBandpass-        pToJSVal BiquadFilterTypeLowshelf = js_BiquadFilterTypeLowshelf-        pToJSVal BiquadFilterTypeHighshelf = js_BiquadFilterTypeHighshelf-        pToJSVal BiquadFilterTypePeaking = js_BiquadFilterTypePeaking-        pToJSVal BiquadFilterTypeNotch = js_BiquadFilterTypeNotch-        pToJSVal BiquadFilterTypeAllpass = js_BiquadFilterTypeAllpass- -instance ToJSVal BiquadFilterType where-        toJSVal = return . pToJSVal- -instance PFromJSVal BiquadFilterType where-        pFromJSVal x-          | x `js_eq` js_BiquadFilterTypeLowpass = BiquadFilterTypeLowpass-        pFromJSVal x-          | x `js_eq` js_BiquadFilterTypeHighpass = BiquadFilterTypeHighpass-        pFromJSVal x-          | x `js_eq` js_BiquadFilterTypeBandpass = BiquadFilterTypeBandpass-        pFromJSVal x-          | x `js_eq` js_BiquadFilterTypeLowshelf = BiquadFilterTypeLowshelf-        pFromJSVal x-          | x `js_eq` js_BiquadFilterTypeHighshelf =-            BiquadFilterTypeHighshelf-        pFromJSVal x-          | x `js_eq` js_BiquadFilterTypePeaking = BiquadFilterTypePeaking-        pFromJSVal x-          | x `js_eq` js_BiquadFilterTypeNotch = BiquadFilterTypeNotch-        pFromJSVal x-          | x `js_eq` js_BiquadFilterTypeAllpass = BiquadFilterTypeAllpass- -instance FromJSVal BiquadFilterType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"lowpass\"; })"-        js_BiquadFilterTypeLowpass :: JSVal- -foreign import javascript unsafe "(() => { return \"highpass\"; })"-        js_BiquadFilterTypeHighpass :: JSVal- -foreign import javascript unsafe "(() => { return \"bandpass\"; })"-        js_BiquadFilterTypeBandpass :: JSVal- -foreign import javascript unsafe "(() => { return \"lowshelf\"; })"-        js_BiquadFilterTypeLowshelf :: JSVal- -foreign import javascript unsafe "(() => { return \"highshelf\"; })"-        js_BiquadFilterTypeHighshelf :: JSVal- -foreign import javascript unsafe "(() => { return \"peaking\"; })"-        js_BiquadFilterTypePeaking :: JSVal- -foreign import javascript unsafe "(() => { return \"notch\"; })"-        js_BiquadFilterTypeNotch :: JSVal- -foreign import javascript unsafe "(() => { return \"allpass\"; })"-        js_BiquadFilterTypeAllpass :: JSVal- -data OscillatorType = OscillatorTypeSine-                    | OscillatorTypeSquare-                    | OscillatorTypeSawtooth-                    | OscillatorTypeTriangle-                    | OscillatorTypeCustom-                    deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal OscillatorType where-        pToJSVal OscillatorTypeSine = js_OscillatorTypeSine-        pToJSVal OscillatorTypeSquare = js_OscillatorTypeSquare-        pToJSVal OscillatorTypeSawtooth = js_OscillatorTypeSawtooth-        pToJSVal OscillatorTypeTriangle = js_OscillatorTypeTriangle-        pToJSVal OscillatorTypeCustom = js_OscillatorTypeCustom- -instance ToJSVal OscillatorType where-        toJSVal = return . pToJSVal- -instance PFromJSVal OscillatorType where-        pFromJSVal x | x `js_eq` js_OscillatorTypeSine = OscillatorTypeSine-        pFromJSVal x-          | x `js_eq` js_OscillatorTypeSquare = OscillatorTypeSquare-        pFromJSVal x-          | x `js_eq` js_OscillatorTypeSawtooth = OscillatorTypeSawtooth-        pFromJSVal x-          | x `js_eq` js_OscillatorTypeTriangle = OscillatorTypeTriangle-        pFromJSVal x-          | x `js_eq` js_OscillatorTypeCustom = OscillatorTypeCustom- -instance FromJSVal OscillatorType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"sine\"; })" js_OscillatorTypeSine-        :: JSVal- -foreign import javascript unsafe "(() => { return \"square\"; })"-        js_OscillatorTypeSquare :: JSVal- -foreign import javascript unsafe "(() => { return \"sawtooth\"; })"-        js_OscillatorTypeSawtooth :: JSVal- -foreign import javascript unsafe "(() => { return \"triangle\"; })"-        js_OscillatorTypeTriangle :: JSVal- -foreign import javascript unsafe "(() => { return \"custom\"; })"-        js_OscillatorTypeCustom :: JSVal- -data PanningModelType = PanningModelTypeEqualpower-                      | PanningModelTypeHRTF-                      deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal PanningModelType where-        pToJSVal PanningModelTypeEqualpower = js_PanningModelTypeEqualpower-        pToJSVal PanningModelTypeHRTF = js_PanningModelTypeHRTF- -instance ToJSVal PanningModelType where-        toJSVal = return . pToJSVal- -instance PFromJSVal PanningModelType where-        pFromJSVal x-          | x `js_eq` js_PanningModelTypeEqualpower =-            PanningModelTypeEqualpower-        pFromJSVal x-          | x `js_eq` js_PanningModelTypeHRTF = PanningModelTypeHRTF- -instance FromJSVal PanningModelType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"equalpower\"; })"-        js_PanningModelTypeEqualpower :: JSVal- -foreign import javascript unsafe "(() => { return \"HRTF\"; })" js_PanningModelTypeHRTF-        :: JSVal- -data DistanceModelType = DistanceModelTypeLinear-                       | DistanceModelTypeInverse-                       | DistanceModelTypeExponential-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal DistanceModelType where-        pToJSVal DistanceModelTypeLinear = js_DistanceModelTypeLinear-        pToJSVal DistanceModelTypeInverse = js_DistanceModelTypeInverse-        pToJSVal DistanceModelTypeExponential-          = js_DistanceModelTypeExponential- -instance ToJSVal DistanceModelType where-        toJSVal = return . pToJSVal- -instance PFromJSVal DistanceModelType where-        pFromJSVal x-          | x `js_eq` js_DistanceModelTypeLinear = DistanceModelTypeLinear-        pFromJSVal x-          | x `js_eq` js_DistanceModelTypeInverse = DistanceModelTypeInverse-        pFromJSVal x-          | x `js_eq` js_DistanceModelTypeExponential =-            DistanceModelTypeExponential- -instance FromJSVal DistanceModelType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"linear\"; })"-        js_DistanceModelTypeLinear :: JSVal- -foreign import javascript unsafe "(() => { return \"inverse\"; })"-        js_DistanceModelTypeInverse :: JSVal- -foreign import javascript unsafe "(() => { return \"exponential\"; })"-        js_DistanceModelTypeExponential :: JSVal- -data OverSampleType = OverSampleTypeNone-                    | OverSampleType2x-                    | OverSampleType4x-                    deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal OverSampleType where-        pToJSVal OverSampleTypeNone = js_OverSampleTypeNone-        pToJSVal OverSampleType2x = js_OverSampleType2x-        pToJSVal OverSampleType4x = js_OverSampleType4x- -instance ToJSVal OverSampleType where-        toJSVal = return . pToJSVal- -instance PFromJSVal OverSampleType where-        pFromJSVal x | x `js_eq` js_OverSampleTypeNone = OverSampleTypeNone-        pFromJSVal x | x `js_eq` js_OverSampleType2x = OverSampleType2x-        pFromJSVal x | x `js_eq` js_OverSampleType4x = OverSampleType4x- -instance FromJSVal OverSampleType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"none\"; })" js_OverSampleTypeNone-        :: JSVal- -foreign import javascript unsafe "(() => { return \"2x\"; })" js_OverSampleType2x ::-        JSVal- -foreign import javascript unsafe "(() => { return \"4x\"; })" js_OverSampleType4x ::-        JSVal- -data ScrollRestoration = ScrollRestorationAuto-                       | ScrollRestorationManual-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ScrollRestoration where-        pToJSVal ScrollRestorationAuto = js_ScrollRestorationAuto-        pToJSVal ScrollRestorationManual = js_ScrollRestorationManual- -instance ToJSVal ScrollRestoration where-        toJSVal = return . pToJSVal- -instance PFromJSVal ScrollRestoration where-        pFromJSVal x-          | x `js_eq` js_ScrollRestorationAuto = ScrollRestorationAuto-        pFromJSVal x-          | x `js_eq` js_ScrollRestorationManual = ScrollRestorationManual- -instance FromJSVal ScrollRestoration where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"auto\"; })"-        js_ScrollRestorationAuto :: JSVal- -foreign import javascript unsafe "(() => { return \"manual\"; })"-        js_ScrollRestorationManual :: JSVal- -data XMLHttpRequestResponseType = XMLHttpRequestResponseType-                                | XMLHttpRequestResponseTypeArraybuffer-                                | XMLHttpRequestResponseTypeBlob-                                | XMLHttpRequestResponseTypeDocument-                                | XMLHttpRequestResponseTypeJson-                                | XMLHttpRequestResponseTypeText-                                deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal XMLHttpRequestResponseType where-        pToJSVal XMLHttpRequestResponseType = js_XMLHttpRequestResponseType-        pToJSVal XMLHttpRequestResponseTypeArraybuffer-          = js_XMLHttpRequestResponseTypeArraybuffer-        pToJSVal XMLHttpRequestResponseTypeBlob-          = js_XMLHttpRequestResponseTypeBlob-        pToJSVal XMLHttpRequestResponseTypeDocument-          = js_XMLHttpRequestResponseTypeDocument-        pToJSVal XMLHttpRequestResponseTypeJson-          = js_XMLHttpRequestResponseTypeJson-        pToJSVal XMLHttpRequestResponseTypeText-          = js_XMLHttpRequestResponseTypeText- -instance ToJSVal XMLHttpRequestResponseType where-        toJSVal = return . pToJSVal- -instance PFromJSVal XMLHttpRequestResponseType where-        pFromJSVal x-          | x `js_eq` js_XMLHttpRequestResponseType =-            XMLHttpRequestResponseType-        pFromJSVal x-          | x `js_eq` js_XMLHttpRequestResponseTypeArraybuffer =-            XMLHttpRequestResponseTypeArraybuffer-        pFromJSVal x-          | x `js_eq` js_XMLHttpRequestResponseTypeBlob =-            XMLHttpRequestResponseTypeBlob-        pFromJSVal x-          | x `js_eq` js_XMLHttpRequestResponseTypeDocument =-            XMLHttpRequestResponseTypeDocument-        pFromJSVal x-          | x `js_eq` js_XMLHttpRequestResponseTypeJson =-            XMLHttpRequestResponseTypeJson-        pFromJSVal x-          | x `js_eq` js_XMLHttpRequestResponseTypeText =-            XMLHttpRequestResponseTypeText- -instance FromJSVal XMLHttpRequestResponseType where-        fromJSValUnchecked = return . pFromJSVal-        fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"\"; })"-        js_XMLHttpRequestResponseType :: JSVal- -foreign import javascript unsafe "(() => { return \"arraybuffer\"; })"-        js_XMLHttpRequestResponseTypeArraybuffer :: JSVal- -foreign import javascript unsafe "(() => { return \"blob\"; })"-        js_XMLHttpRequestResponseTypeBlob :: JSVal- -foreign import javascript unsafe "(() => { return \"document\"; })"-        js_XMLHttpRequestResponseTypeDocument :: JSVal- -foreign import javascript unsafe "(() => { return \"json\"; })"-        js_XMLHttpRequestResponseTypeJson :: JSVal- -foreign import javascript unsafe "(() => { return \"text\"; })"-        js_XMLHttpRequestResponseTypeText :: JSVal+{-# LANGUAGE OverloadedStrings #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webref IDL. Do not edit.+module GHCJS.DOM.JSFFI.Generated.Enums+       (AacBitstreamFormat(..), js_AacBitstreamFormatAac, js_AacBitstreamFormatAdts, AlignSetting(..), js_AlignSettingStart, js_AlignSettingCenter, js_AlignSettingEnd, js_AlignSettingLeft, js_AlignSettingRight, AlphaOption(..), js_AlphaOptionKeep, js_AlphaOptionDiscard, AnimationPlayState(..), js_AnimationPlayStateIdle, js_AnimationPlayStateRunning, js_AnimationPlayStatePaused, js_AnimationPlayStateFinished, AnimationReplaceState(..), js_AnimationReplaceStateActive, js_AnimationReplaceStateRemoved, js_AnimationReplaceStatePersisted, AppendMode(..), js_AppendModeSegments, js_AppendModeSequence, AriaNotifyPriority(..), js_AriaNotifyPriorityNormal, js_AriaNotifyPriorityHigh, AudioContextLatencyCategory(..), js_AudioContextLatencyCategoryBalanced, js_AudioContextLatencyCategoryInteractive, js_AudioContextLatencyCategoryPlayback, AudioContextRenderSizeCategory(..), js_AudioContextRenderSizeCategoryDefault, js_AudioContextRenderSizeCategoryHardware, AudioContextState(..), js_AudioContextStateSuspended, js_AudioContextStateRunning, js_AudioContextStateClosed, js_AudioContextStateInterrupted, AudioSampleFormat(..), js_AudioSampleFormatU8, js_AudioSampleFormatS16, js_AudioSampleFormatS32, js_AudioSampleFormatF32, js_AudioSampleFormatU8Planar, js_AudioSampleFormatS16Planar, js_AudioSampleFormatS32Planar, js_AudioSampleFormatF32Planar, AudioSelectionPreferenceEnum(..), js_AudioSelectionPreferenceEnumPreferred, AudioSinkType(..), js_AudioSinkTypeNone, AutoKeyword(..), js_AutoKeywordAuto, AutomationRate(..), js_AutomationRateARate, js_AutomationRateKRate, AvcBitstreamFormat(..), js_AvcBitstreamFormatAnnexb, js_AvcBitstreamFormatAvc, BinaryType(..), js_BinaryTypeBlob, js_BinaryTypeArraybuffer, BiquadFilterType(..), js_BiquadFilterTypeLowpass, js_BiquadFilterTypeHighpass, js_BiquadFilterTypeBandpass, js_BiquadFilterTypeLowshelf, js_BiquadFilterTypeHighshelf, js_BiquadFilterTypePeaking, js_BiquadFilterTypeNotch, js_BiquadFilterTypeAllpass, BitrateMode(..), js_BitrateModeConstant, js_BitrateModeVariable, CSSMathOperator(..), js_CSSMathOperatorSum, js_CSSMathOperatorProduct, js_CSSMathOperatorNegate, js_CSSMathOperatorInvert, js_CSSMathOperatorMin, js_CSSMathOperatorMax, js_CSSMathOperatorClamp, CSSNumericBaseType(..), js_CSSNumericBaseTypeLength, js_CSSNumericBaseTypeAngle, js_CSSNumericBaseTypeTime, js_CSSNumericBaseTypeFrequency, js_CSSNumericBaseTypeResolution, js_CSSNumericBaseTypeFlex, js_CSSNumericBaseTypePercent, CanPlayTypeResult(..), js_CanPlayTypeResult, js_CanPlayTypeResultMaybe, js_CanPlayTypeResultProbably, CanvasColorType(..), js_CanvasColorTypeUnorm8, js_CanvasColorTypeFloat16, CanvasDirection(..), js_CanvasDirectionLtr, js_CanvasDirectionRtl, js_CanvasDirectionInherit, CanvasFillRule(..), js_CanvasFillRuleNonzero, js_CanvasFillRuleEvenodd, CanvasFontKerning(..), js_CanvasFontKerningAuto, js_CanvasFontKerningNormal, js_CanvasFontKerningNone, CanvasFontStretch(..), js_CanvasFontStretchUltraCondensed, js_CanvasFontStretchExtraCondensed, js_CanvasFontStretchCondensed, js_CanvasFontStretchSemiCondensed, js_CanvasFontStretchNormal, js_CanvasFontStretchSemiExpanded, js_CanvasFontStretchExpanded, js_CanvasFontStretchExtraExpanded, js_CanvasFontStretchUltraExpanded, CanvasFontVariantCaps(..), js_CanvasFontVariantCapsNormal, js_CanvasFontVariantCapsSmallCaps, js_CanvasFontVariantCapsAllSmallCaps, js_CanvasFontVariantCapsPetiteCaps, js_CanvasFontVariantCapsAllPetiteCaps, js_CanvasFontVariantCapsUnicase, js_CanvasFontVariantCapsTitlingCaps, CanvasLineCap(..), js_CanvasLineCapButt, js_CanvasLineCapRound, js_CanvasLineCapSquare, CanvasLineJoin(..), js_CanvasLineJoinRound, js_CanvasLineJoinBevel, js_CanvasLineJoinMiter, CanvasTextAlign(..), js_CanvasTextAlignStart, js_CanvasTextAlignEnd, js_CanvasTextAlignLeft, js_CanvasTextAlignRight, js_CanvasTextAlignCenter, CanvasTextBaseline(..), js_CanvasTextBaselineTop, js_CanvasTextBaselineHanging, js_CanvasTextBaselineMiddle, js_CanvasTextBaselineAlphabetic, js_CanvasTextBaselineIdeographic, js_CanvasTextBaselineBottom, CanvasTextRendering(..), js_CanvasTextRenderingAuto, js_CanvasTextRenderingOptimizeSpeed, js_CanvasTextRenderingOptimizeLegibility, js_CanvasTextRenderingGeometricPrecision, ChannelCountMode(..), js_ChannelCountModeMax, js_ChannelCountModeClampedMax, js_ChannelCountModeExplicit, ChannelInterpretation(..), js_ChannelInterpretationSpeakers, js_ChannelInterpretationDiscrete, ClientType(..), js_ClientTypeWindow, js_ClientTypeWorker, js_ClientTypeSharedworker, js_ClientTypeAll, CodecState(..), js_CodecStateUnconfigured, js_CodecStateConfigured, js_CodecStateClosed, ColorGamut(..), js_ColorGamutSrgb, js_ColorGamutP3, js_ColorGamutRec2020, ColorSpaceConversion(..), js_ColorSpaceConversionNone, js_ColorSpaceConversionDefault, CompositeOperation(..), js_CompositeOperationReplace, js_CompositeOperationAdd, js_CompositeOperationAccumulate, CompressionFormat(..), js_CompressionFormatBrotli, js_CompressionFormatDeflate, js_CompressionFormatDeflateRaw, js_CompressionFormatGzip, CookieSameSite(..), js_CookieSameSiteStrict, js_CookieSameSiteLax, js_CookieSameSiteNone, CredentialMediationRequirement(..), js_CredentialMediationRequirementSilent, js_CredentialMediationRequirementOptional, js_CredentialMediationRequirementConditional, js_CredentialMediationRequirementRequired, DOMParserSupportedType(..), js_DOMParserSupportedTypeTextHtml, js_DOMParserSupportedTypeTextXml, js_DOMParserSupportedTypeApplicationXml, js_DOMParserSupportedTypeApplicationXhtmlXml, js_DOMParserSupportedTypeImageSvgXml, DigitalCredentialIssuanceProtocol(..), js_DigitalCredentialIssuanceProtocolOpenid4vciV1, DigitalCredentialPresentationProtocol(..), js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned, js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed, js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned, js_DigitalCredentialPresentationProtocolOrgIsoMdoc, DirectionSetting(..), js_DirectionSetting, js_DirectionSettingRl, js_DirectionSettingLr, DistanceModelType(..), js_DistanceModelTypeLinear, js_DistanceModelTypeInverse, js_DistanceModelTypeExponential, DocumentReadyState(..), js_DocumentReadyStateLoading, js_DocumentReadyStateInteractive, js_DocumentReadyStateComplete, DocumentVisibilityState(..), js_DocumentVisibilityStateVisible, js_DocumentVisibilityStateHidden, EncodedAudioChunkType(..), js_EncodedAudioChunkTypeKey, js_EncodedAudioChunkTypeDelta, EncodedVideoChunkType(..), js_EncodedVideoChunkTypeKey, js_EncodedVideoChunkTypeDelta, EndOfStreamError(..), js_EndOfStreamErrorNetwork, js_EndOfStreamErrorDecode, EndingType(..), js_EndingTypeTransparent, js_EndingTypeNative, FileSystemHandleKind(..), js_FileSystemHandleKindFile, js_FileSystemHandleKindDirectory, FillLightMode(..), js_FillLightModeAuto, js_FillLightModeOff, js_FillLightModeFlash, FillMode(..), js_FillModeNone, js_FillModeForwards, js_FillModeBackwards, js_FillModeBoth, js_FillModeAuto, FlowControlType(..), js_FlowControlTypeNone, js_FlowControlTypeHardware, FontFaceLoadStatus(..), js_FontFaceLoadStatusUnloaded, js_FontFaceLoadStatusLoading, js_FontFaceLoadStatusLoaded, js_FontFaceLoadStatusError, FontFaceSetLoadStatus(..), js_FontFaceSetLoadStatusLoading, js_FontFaceSetLoadStatusLoaded, FrameType(..), js_FrameTypeAuxiliary, js_FrameTypeTopLevel, js_FrameTypeNested, js_FrameTypeNone, FullscreenKeyboardLock(..), js_FullscreenKeyboardLockBrowser, js_FullscreenKeyboardLockNone, FullscreenNavigationUI(..), js_FullscreenNavigationUIAuto, js_FullscreenNavigationUIShow, js_FullscreenNavigationUIHide, GPUAddressMode(..), js_GPUAddressModeClampToEdge, js_GPUAddressModeRepeat, js_GPUAddressModeMirrorRepeat, GPUAutoLayoutMode(..), js_GPUAutoLayoutModeAuto, GPUBlendFactor(..), js_GPUBlendFactorZero, js_GPUBlendFactorOne, js_GPUBlendFactorSrc, js_GPUBlendFactorOneMinusSrc, js_GPUBlendFactorSrcAlpha, js_GPUBlendFactorOneMinusSrcAlpha, js_GPUBlendFactorDst, js_GPUBlendFactorOneMinusDst, js_GPUBlendFactorDstAlpha, js_GPUBlendFactorOneMinusDstAlpha, js_GPUBlendFactorSrcAlphaSaturated, js_GPUBlendFactorConstant, js_GPUBlendFactorOneMinusConstant, js_GPUBlendFactorSrc1, js_GPUBlendFactorOneMinusSrc1, js_GPUBlendFactorSrc1Alpha, js_GPUBlendFactorOneMinusSrc1Alpha, GPUBlendOperation(..), js_GPUBlendOperationAdd, js_GPUBlendOperationSubtract, js_GPUBlendOperationReverseSubtract, js_GPUBlendOperationMin, js_GPUBlendOperationMax, GPUBufferBindingType(..), js_GPUBufferBindingTypeUniform, js_GPUBufferBindingTypeStorage, js_GPUBufferBindingTypeReadOnlyStorage, GPUBufferMapState(..), js_GPUBufferMapStateUnmapped, js_GPUBufferMapStatePending, js_GPUBufferMapStateMapped, GPUCanvasAlphaMode(..), js_GPUCanvasAlphaModeOpaque, js_GPUCanvasAlphaModePremultiplied, GPUCanvasToneMappingMode(..), js_GPUCanvasToneMappingModeStandard, js_GPUCanvasToneMappingModeExtended, GPUCompareFunction(..), js_GPUCompareFunctionNever, js_GPUCompareFunctionLess, js_GPUCompareFunctionEqual, js_GPUCompareFunctionLessEqual, js_GPUCompareFunctionGreater, js_GPUCompareFunctionNotEqual, js_GPUCompareFunctionGreaterEqual, js_GPUCompareFunctionAlways, GPUCompilationMessageType(..), js_GPUCompilationMessageTypeError, js_GPUCompilationMessageTypeWarning, js_GPUCompilationMessageTypeInfo, GPUCullMode(..), js_GPUCullModeNone, js_GPUCullModeFront, js_GPUCullModeBack, GPUDeviceLostReason(..), js_GPUDeviceLostReasonUnknown, js_GPUDeviceLostReasonDestroyed, GPUErrorFilter(..), js_GPUErrorFilterValidation, js_GPUErrorFilterOutOfMemory, js_GPUErrorFilterInternal, GPUFeatureName(..), js_GPUFeatureNameCoreFeaturesAndLimits, js_GPUFeatureNameDepthClipControl, js_GPUFeatureNameDepth32floatStencil8, js_GPUFeatureNameTextureCompressionBc, js_GPUFeatureNameTextureCompressionBcSliced3d, js_GPUFeatureNameTextureCompressionEtc2, js_GPUFeatureNameTextureCompressionAstc, js_GPUFeatureNameTextureCompressionAstcSliced3d, js_GPUFeatureNameTimestampQuery, js_GPUFeatureNameIndirectFirstInstance, js_GPUFeatureNameShaderF16, js_GPUFeatureNameRg11b10ufloatRenderable, js_GPUFeatureNameBgra8unormStorage, js_GPUFeatureNameFloat32Filterable, js_GPUFeatureNameFloat32Blendable, js_GPUFeatureNameClipDistances, js_GPUFeatureNameDualSourceBlending, js_GPUFeatureNameSubgroups, js_GPUFeatureNameTextureFormatsTier1, js_GPUFeatureNameTextureFormatsTier2, js_GPUFeatureNamePrimitiveIndex, js_GPUFeatureNameTextureComponentSwizzle, js_GPUFeatureNameSubgroupSizeControl, js_GPUFeatureNameTextureCompressionUnaligned, js_GPUFeatureNameAtomicVec2uMinMax, GPUFilterMode(..), js_GPUFilterModeNearest, js_GPUFilterModeLinear, GPUFrontFace(..), js_GPUFrontFaceCcw, js_GPUFrontFaceCw, GPUIndexFormat(..), js_GPUIndexFormatUint16, js_GPUIndexFormatUint32, GPULoadOp(..), js_GPULoadOpLoad, js_GPULoadOpClear, GPUMipmapFilterMode(..), js_GPUMipmapFilterModeNearest, js_GPUMipmapFilterModeLinear, GPUPipelineErrorReason(..), js_GPUPipelineErrorReasonValidation, js_GPUPipelineErrorReasonInternal, GPUPowerPreference(..), js_GPUPowerPreferenceLowPower, js_GPUPowerPreferenceHighPerformance, GPUPrimitiveTopology(..), js_GPUPrimitiveTopologyPointList, js_GPUPrimitiveTopologyLineList, js_GPUPrimitiveTopologyLineStrip, js_GPUPrimitiveTopologyTriangleList, js_GPUPrimitiveTopologyTriangleStrip, GPUQueryType(..), js_GPUQueryTypeOcclusion, js_GPUQueryTypeTimestamp, GPUSamplerBindingType(..), js_GPUSamplerBindingTypeFiltering, js_GPUSamplerBindingTypeNonFiltering, js_GPUSamplerBindingTypeComparison, GPUStencilOperation(..), js_GPUStencilOperationKeep, js_GPUStencilOperationZero, js_GPUStencilOperationReplace, js_GPUStencilOperationInvert, js_GPUStencilOperationIncrementClamp, js_GPUStencilOperationDecrementClamp, js_GPUStencilOperationIncrementWrap, js_GPUStencilOperationDecrementWrap, GPUStorageTextureAccess(..), js_GPUStorageTextureAccessWriteOnly, js_GPUStorageTextureAccessReadOnly, js_GPUStorageTextureAccessReadWrite, GPUStoreOp(..), js_GPUStoreOpStore, js_GPUStoreOpDiscard, GPUTextureAspect(..), js_GPUTextureAspectAll, js_GPUTextureAspectStencilOnly, js_GPUTextureAspectDepthOnly, GPUTextureDimension(..), js_GPUTextureDimension1d, js_GPUTextureDimension2d, js_GPUTextureDimension3d, GPUTextureFormat(..), js_GPUTextureFormatR8unorm, js_GPUTextureFormatR8snorm, js_GPUTextureFormatR8uint, js_GPUTextureFormatR8sint, js_GPUTextureFormatR16unorm, js_GPUTextureFormatR16snorm, js_GPUTextureFormatR16uint, js_GPUTextureFormatR16sint, js_GPUTextureFormatR16float, js_GPUTextureFormatRg8unorm, js_GPUTextureFormatRg8snorm, js_GPUTextureFormatRg8uint, js_GPUTextureFormatRg8sint, js_GPUTextureFormatR32uint, js_GPUTextureFormatR32sint, js_GPUTextureFormatR32float, js_GPUTextureFormatRg16unorm, js_GPUTextureFormatRg16snorm, js_GPUTextureFormatRg16uint, js_GPUTextureFormatRg16sint, js_GPUTextureFormatRg16float, js_GPUTextureFormatRgba8unorm, js_GPUTextureFormatRgba8unormSrgb, js_GPUTextureFormatRgba8snorm, js_GPUTextureFormatRgba8uint, js_GPUTextureFormatRgba8sint, js_GPUTextureFormatBgra8unorm, js_GPUTextureFormatBgra8unormSrgb, js_GPUTextureFormatRgb9e5ufloat, js_GPUTextureFormatRgb10a2uint, js_GPUTextureFormatRgb10a2unorm, js_GPUTextureFormatRg11b10ufloat, js_GPUTextureFormatRg32uint, js_GPUTextureFormatRg32sint, js_GPUTextureFormatRg32float, js_GPUTextureFormatRgba16unorm, js_GPUTextureFormatRgba16snorm, js_GPUTextureFormatRgba16uint, js_GPUTextureFormatRgba16sint, js_GPUTextureFormatRgba16float, js_GPUTextureFormatRgba32uint, js_GPUTextureFormatRgba32sint, js_GPUTextureFormatRgba32float, js_GPUTextureFormatStencil8, js_GPUTextureFormatDepth16unorm, js_GPUTextureFormatDepth24plus, js_GPUTextureFormatDepth24plusStencil8, js_GPUTextureFormatDepth32float, js_GPUTextureFormatDepth32floatStencil8, js_GPUTextureFormatBc1RgbaUnorm, js_GPUTextureFormatBc1RgbaUnormSrgb, js_GPUTextureFormatBc2RgbaUnorm, js_GPUTextureFormatBc2RgbaUnormSrgb, js_GPUTextureFormatBc3RgbaUnorm, js_GPUTextureFormatBc3RgbaUnormSrgb, js_GPUTextureFormatBc4RUnorm, js_GPUTextureFormatBc4RSnorm, js_GPUTextureFormatBc5RgUnorm, js_GPUTextureFormatBc5RgSnorm, js_GPUTextureFormatBc6hRgbUfloat, js_GPUTextureFormatBc6hRgbFloat, js_GPUTextureFormatBc7RgbaUnorm, js_GPUTextureFormatBc7RgbaUnormSrgb, js_GPUTextureFormatEtc2Rgb8unorm, js_GPUTextureFormatEtc2Rgb8unormSrgb, js_GPUTextureFormatEtc2Rgb8a1unorm, js_GPUTextureFormatEtc2Rgb8a1unormSrgb, js_GPUTextureFormatEtc2Rgba8unorm, js_GPUTextureFormatEtc2Rgba8unormSrgb, js_GPUTextureFormatEacR11unorm, js_GPUTextureFormatEacR11snorm, js_GPUTextureFormatEacRg11unorm, js_GPUTextureFormatEacRg11snorm, js_GPUTextureFormatAstc4x4Unorm, js_GPUTextureFormatAstc4x4UnormSrgb, js_GPUTextureFormatAstc5x4Unorm, js_GPUTextureFormatAstc5x4UnormSrgb, js_GPUTextureFormatAstc5x5Unorm, js_GPUTextureFormatAstc5x5UnormSrgb, js_GPUTextureFormatAstc6x5Unorm, js_GPUTextureFormatAstc6x5UnormSrgb, js_GPUTextureFormatAstc6x6Unorm, js_GPUTextureFormatAstc6x6UnormSrgb, js_GPUTextureFormatAstc8x5Unorm, js_GPUTextureFormatAstc8x5UnormSrgb, js_GPUTextureFormatAstc8x6Unorm, js_GPUTextureFormatAstc8x6UnormSrgb, js_GPUTextureFormatAstc8x8Unorm, js_GPUTextureFormatAstc8x8UnormSrgb, js_GPUTextureFormatAstc10x5Unorm, js_GPUTextureFormatAstc10x5UnormSrgb, js_GPUTextureFormatAstc10x6Unorm, js_GPUTextureFormatAstc10x6UnormSrgb, js_GPUTextureFormatAstc10x8Unorm, js_GPUTextureFormatAstc10x8UnormSrgb, js_GPUTextureFormatAstc10x10Unorm, js_GPUTextureFormatAstc10x10UnormSrgb, js_GPUTextureFormatAstc12x10Unorm, js_GPUTextureFormatAstc12x10UnormSrgb, js_GPUTextureFormatAstc12x12Unorm, js_GPUTextureFormatAstc12x12UnormSrgb, GPUTextureSampleType(..), js_GPUTextureSampleTypeFloat, js_GPUTextureSampleTypeUnfilterableFloat, js_GPUTextureSampleTypeDepth, js_GPUTextureSampleTypeSint, js_GPUTextureSampleTypeUint, GPUTextureViewDimension(..), js_GPUTextureViewDimension1d, js_GPUTextureViewDimension2d, js_GPUTextureViewDimension2dArray, js_GPUTextureViewDimensionCube, js_GPUTextureViewDimensionCubeArray, js_GPUTextureViewDimension3d, GPUVertexFormat(..), js_GPUVertexFormatUint8, js_GPUVertexFormatUint8x2, js_GPUVertexFormatUint8x4, js_GPUVertexFormatSint8, js_GPUVertexFormatSint8x2, js_GPUVertexFormatSint8x4, js_GPUVertexFormatUnorm8, js_GPUVertexFormatUnorm8x2, js_GPUVertexFormatUnorm8x4, js_GPUVertexFormatSnorm8, js_GPUVertexFormatSnorm8x2, js_GPUVertexFormatSnorm8x4, js_GPUVertexFormatUint16, js_GPUVertexFormatUint16x2, js_GPUVertexFormatUint16x4, js_GPUVertexFormatSint16, js_GPUVertexFormatSint16x2, js_GPUVertexFormatSint16x4, js_GPUVertexFormatUnorm16, js_GPUVertexFormatUnorm16x2, js_GPUVertexFormatUnorm16x4, js_GPUVertexFormatSnorm16, js_GPUVertexFormatSnorm16x2, js_GPUVertexFormatSnorm16x4, js_GPUVertexFormatFloat16, js_GPUVertexFormatFloat16x2, js_GPUVertexFormatFloat16x4, js_GPUVertexFormatFloat32, js_GPUVertexFormatFloat32x2, js_GPUVertexFormatFloat32x3, js_GPUVertexFormatFloat32x4, js_GPUVertexFormatUint32, js_GPUVertexFormatUint32x2, js_GPUVertexFormatUint32x3, js_GPUVertexFormatUint32x4, js_GPUVertexFormatSint32, js_GPUVertexFormatSint32x2, js_GPUVertexFormatSint32x3, js_GPUVertexFormatSint32x4, js_GPUVertexFormatUnorm1010102, js_GPUVertexFormatUnorm8x4Bgra, js_GPUVertexFormatSnorm1010102, GPUVertexStepMode(..), js_GPUVertexStepModeVertex, js_GPUVertexStepModeInstance, GamepadHapticEffectType(..), js_GamepadHapticEffectTypeDualRumble, js_GamepadHapticEffectTypeTriggerRumble, GamepadHapticsResult(..), js_GamepadHapticsResultComplete, js_GamepadHapticsResultPreempted, GamepadMappingType(..), js_GamepadMappingType, js_GamepadMappingTypeStandard, js_GamepadMappingTypeXrStandard, GetUserMediaSemantics(..), js_GetUserMediaSemanticsBrowserChooses, js_GetUserMediaSemanticsUserChooses, HardwareAcceleration(..), js_HardwareAccelerationNoPreference, js_HardwareAccelerationPreferHardware, js_HardwareAccelerationPreferSoftware, HdrMetadataType(..), js_HdrMetadataTypeSmpteSt2086, js_HdrMetadataTypeSmpteSt209410, js_HdrMetadataTypeSmpteSt209440, HevcBitstreamFormat(..), js_HevcBitstreamFormatAnnexb, js_HevcBitstreamFormatHevc, HighlightType(..), js_HighlightTypeHighlight, js_HighlightTypeSpellingError, js_HighlightTypeGrammarError, IDBCursorDirection(..), js_IDBCursorDirectionNext, js_IDBCursorDirectionNextunique, js_IDBCursorDirectionPrev, js_IDBCursorDirectionPrevunique, IDBRequestReadyState(..), js_IDBRequestReadyStatePending, js_IDBRequestReadyStateDone, IDBTransactionDurability(..), js_IDBTransactionDurabilityDefault, js_IDBTransactionDurabilityStrict, js_IDBTransactionDurabilityRelaxed, IDBTransactionMode(..), js_IDBTransactionModeReadonly, js_IDBTransactionModeReadwrite, js_IDBTransactionModeVersionchange, IPAddressSpace(..), js_IPAddressSpacePublic, js_IPAddressSpaceLocal, js_IPAddressSpaceLoopback, IdentityCredentialRequestOptionsContext(..), js_IdentityCredentialRequestOptionsContextSignin, js_IdentityCredentialRequestOptionsContextSignup, js_IdentityCredentialRequestOptionsContextUse, js_IdentityCredentialRequestOptionsContextContinue, IdentityCredentialRequestOptionsMode(..), js_IdentityCredentialRequestOptionsModeActive, js_IdentityCredentialRequestOptionsModePassive, ImageDataPixelFormat(..), js_ImageDataPixelFormatRgbaUnorm8, js_ImageDataPixelFormatRgbaFloat16, ImageSmoothingQuality(..), js_ImageSmoothingQualityLow, js_ImageSmoothingQualityMedium, js_ImageSmoothingQualityHigh, IterationCompositeOperation(..), js_IterationCompositeOperationReplace, js_IterationCompositeOperationAccumulate, KeyFormat(..), js_KeyFormatRawPublic, js_KeyFormatRawPrivate, js_KeyFormatRawSeed, js_KeyFormatRawSecret, js_KeyFormatRaw, js_KeyFormatSpki, js_KeyFormatPkcs8, js_KeyFormatJwk, KeyType(..), js_KeyTypePublic, js_KeyTypePrivate, js_KeyTypeSecret, KeyUsage(..), js_KeyUsageEncrypt, js_KeyUsageDecrypt, js_KeyUsageSign, js_KeyUsageVerify, js_KeyUsageDeriveKey, js_KeyUsageDeriveBits, js_KeyUsageWrapKey, js_KeyUsageUnwrapKey, js_KeyUsageEncapsulateKey, js_KeyUsageEncapsulateBits, js_KeyUsageDecapsulateKey, js_KeyUsageDecapsulateBits, LatencyMode(..), js_LatencyModeQuality, js_LatencyModeRealtime, LineAlignSetting(..), js_LineAlignSettingStart, js_LineAlignSettingCenter, js_LineAlignSettingEnd, LockMode(..), js_LockModeShared, js_LockModeExclusive, LoginStatus(..), js_LoginStatusLoggedIn, js_LoginStatusLoggedOut, MIDIPortConnectionState(..), js_MIDIPortConnectionStateOpen, js_MIDIPortConnectionStateClosed, js_MIDIPortConnectionStatePending, MIDIPortDeviceState(..), js_MIDIPortDeviceStateDisconnected, js_MIDIPortDeviceStateConnected, MIDIPortType(..), js_MIDIPortTypeInput, js_MIDIPortTypeOutput, MediaDecodingType(..), js_MediaDecodingTypeFile, js_MediaDecodingTypeMediaSource, js_MediaDecodingTypeWebrtc, MediaDeviceKind(..), js_MediaDeviceKindAudioinput, js_MediaDeviceKindAudiooutput, js_MediaDeviceKindVideoinput, MediaEncodingType(..), js_MediaEncodingTypeRecord, js_MediaEncodingTypeWebrtc, MediaKeyMessageType(..), js_MediaKeyMessageTypeLicenseRequest, js_MediaKeyMessageTypeLicenseRenewal, js_MediaKeyMessageTypeLicenseRelease, js_MediaKeyMessageTypeIndividualizationRequest, MediaKeySessionClosedReason(..), js_MediaKeySessionClosedReasonInternalError, js_MediaKeySessionClosedReasonClosedByApplication, js_MediaKeySessionClosedReasonReleaseAcknowledged, js_MediaKeySessionClosedReasonHardwareContextReset, js_MediaKeySessionClosedReasonResourceEvicted, MediaKeySessionType(..), js_MediaKeySessionTypeTemporary, js_MediaKeySessionTypePersistentLicense, MediaKeyStatus(..), js_MediaKeyStatusUsable, js_MediaKeyStatusExpired, js_MediaKeyStatusReleased, js_MediaKeyStatusOutputRestricted, js_MediaKeyStatusOutputDownscaled, js_MediaKeyStatusUsableInFuture, js_MediaKeyStatusStatusPending, js_MediaKeyStatusInternalError, MediaKeysRequirement(..), js_MediaKeysRequirementRequired, js_MediaKeysRequirementOptional, js_MediaKeysRequirementNotAllowed, MediaSessionAction(..), js_MediaSessionActionPlay, js_MediaSessionActionPause, js_MediaSessionActionSeekbackward, js_MediaSessionActionSeekforward, js_MediaSessionActionPrevioustrack, js_MediaSessionActionNexttrack, js_MediaSessionActionSkipad, js_MediaSessionActionStop, js_MediaSessionActionSeekto, js_MediaSessionActionTogglemicrophone, js_MediaSessionActionTogglecamera, js_MediaSessionActionTogglescreenshare, js_MediaSessionActionHangup, js_MediaSessionActionPreviousslide, js_MediaSessionActionNextslide, js_MediaSessionActionEnterpictureinpicture, js_MediaSessionActionVoiceactivity, MediaSessionEnterPictureInPictureReason(..), js_MediaSessionEnterPictureInPictureReasonOther, js_MediaSessionEnterPictureInPictureReasonUseraction, js_MediaSessionEnterPictureInPictureReasonContentoccluded, MediaSessionPlaybackState(..), js_MediaSessionPlaybackStateNone, js_MediaSessionPlaybackStatePaused, js_MediaSessionPlaybackStatePlaying, MediaStreamTrackState(..), js_MediaStreamTrackStateLive, js_MediaStreamTrackStateEnded, MonitorTypeSurfacesEnum(..), js_MonitorTypeSurfacesEnumInclude, js_MonitorTypeSurfacesEnumExclude, NavigationFocusReset(..), js_NavigationFocusResetAfterTransition, js_NavigationFocusResetManual, NavigationHistoryBehavior(..), js_NavigationHistoryBehaviorAuto, js_NavigationHistoryBehaviorPush, js_NavigationHistoryBehaviorReplace, NavigationScrollBehavior(..), js_NavigationScrollBehaviorAfterTransition, js_NavigationScrollBehaviorManual, NavigationTimingType(..), js_NavigationTimingTypeNavigate, js_NavigationTimingTypeReload, js_NavigationTimingTypeBackForward, NavigationType(..), js_NavigationTypePush, js_NavigationTypeReplace, js_NavigationTypeReload, js_NavigationTypeTraverse, NotificationDirection(..), js_NotificationDirectionAuto, js_NotificationDirectionLtr, js_NotificationDirectionRtl, NotificationPermission(..), js_NotificationPermissionDefault, js_NotificationPermissionDenied, js_NotificationPermissionGranted, OTPCredentialTransportType(..), js_OTPCredentialTransportTypeSms, OffscreenRenderingContextId(..), js_OffscreenRenderingContextId2d, js_OffscreenRenderingContextIdBitmaprenderer, js_OffscreenRenderingContextIdWebgl, js_OffscreenRenderingContextIdWebgl2, js_OffscreenRenderingContextIdWebgpu, OperationType(..), js_OperationTypeTokenRequest, js_OperationTypeSendRedemptionRecord, js_OperationTypeTokenRedemption, OpusApplication(..), js_OpusApplicationVoip, js_OpusApplicationAudio, js_OpusApplicationLowdelay, OpusBitstreamFormat(..), js_OpusBitstreamFormatOpus, js_OpusBitstreamFormatOgg, OpusSignal(..), js_OpusSignalAuto, js_OpusSignalMusic, js_OpusSignalVoice, OrientationLockType(..), js_OrientationLockTypeAny, js_OrientationLockTypeNatural, js_OrientationLockTypeLandscape, js_OrientationLockTypePortrait, js_OrientationLockTypePortraitPrimary, js_OrientationLockTypePortraitSecondary, js_OrientationLockTypeLandscapePrimary, js_OrientationLockTypeLandscapeSecondary, OrientationType(..), js_OrientationTypePortraitPrimary, js_OrientationTypePortraitSecondary, js_OrientationTypeLandscapePrimary, js_OrientationTypeLandscapeSecondary, OscillatorType(..), js_OscillatorTypeSine, js_OscillatorTypeSquare, js_OscillatorTypeSawtooth, js_OscillatorTypeTriangle, js_OscillatorTypeCustom, OverSampleType(..), js_OverSampleTypeNone, js_OverSampleType2x, js_OverSampleType4x, PanningModelType(..), js_PanningModelTypeEqualpower, js_PanningModelTypeHRTF, ParityType(..), js_ParityTypeNone, js_ParityTypeEven, js_ParityTypeOdd, PaymentComplete(..), js_PaymentCompleteFail, js_PaymentCompleteSuccess, js_PaymentCompleteUnknown, PaymentShippingType(..), js_PaymentShippingTypeShipping, js_PaymentShippingTypeDelivery, js_PaymentShippingTypePickup, PermissionState(..), js_PermissionStateGranted, js_PermissionStateDenied, js_PermissionStatePrompt, PlaybackDirection(..), js_PlaybackDirectionNormal, js_PlaybackDirectionReverse, js_PlaybackDirectionAlternate, js_PlaybackDirectionAlternateReverse, PositionAlignSetting(..), js_PositionAlignSettingLineLeft, js_PositionAlignSettingCenter, js_PositionAlignSettingLineRight, js_PositionAlignSettingAuto, PredefinedColorSpace(..), js_PredefinedColorSpaceSrgb, js_PredefinedColorSpaceSrgbLinear, js_PredefinedColorSpaceDisplayP3, js_PredefinedColorSpaceDisplayP3Linear, PresentationStyle(..), js_PresentationStyleUnspecified, js_PresentationStyleInline, js_PresentationStyleAttachment, PushEncryptionKeyName(..), js_PushEncryptionKeyNameP256dh, js_PushEncryptionKeyNameAuth, RTCBundlePolicy(..), js_RTCBundlePolicyBalanced, js_RTCBundlePolicyMaxCompat, js_RTCBundlePolicyMaxBundle, RTCDataChannelState(..), js_RTCDataChannelStateConnecting, js_RTCDataChannelStateOpen, js_RTCDataChannelStateClosing, js_RTCDataChannelStateClosed, RTCDegradationPreference(..), js_RTCDegradationPreferenceMaintainFramerate, js_RTCDegradationPreferenceMaintainResolution, js_RTCDegradationPreferenceBalanced, js_RTCDegradationPreferenceMaintainFramerateAndResolution, RTCDtlsTransportState(..), js_RTCDtlsTransportStateNew, js_RTCDtlsTransportStateConnecting, js_RTCDtlsTransportStateConnected, js_RTCDtlsTransportStateClosed, js_RTCDtlsTransportStateFailed, RTCErrorDetailType(..), js_RTCErrorDetailTypeDataChannelFailure, js_RTCErrorDetailTypeDtlsFailure, js_RTCErrorDetailTypeFingerprintFailure, js_RTCErrorDetailTypeSctpFailure, js_RTCErrorDetailTypeSdpSyntaxError, js_RTCErrorDetailTypeHardwareEncoderNotAvailable, js_RTCErrorDetailTypeHardwareEncoderError, RTCIceCandidateType(..), js_RTCIceCandidateTypeHost, js_RTCIceCandidateTypeSrflx, js_RTCIceCandidateTypePrflx, js_RTCIceCandidateTypeRelay, RTCIceComponent(..), js_RTCIceComponentRtp, js_RTCIceComponentRtcp, RTCIceConnectionState(..), js_RTCIceConnectionStateClosed, js_RTCIceConnectionStateFailed, js_RTCIceConnectionStateDisconnected, js_RTCIceConnectionStateNew, js_RTCIceConnectionStateChecking, js_RTCIceConnectionStateCompleted, js_RTCIceConnectionStateConnected, RTCIceGathererState(..), js_RTCIceGathererStateNew, js_RTCIceGathererStateGathering, js_RTCIceGathererStateComplete, RTCIceGatheringState(..), js_RTCIceGatheringStateNew, js_RTCIceGatheringStateGathering, js_RTCIceGatheringStateComplete, RTCIceProtocol(..), js_RTCIceProtocolUdp, js_RTCIceProtocolTcp, RTCIceRole(..), js_RTCIceRoleUnknown, js_RTCIceRoleControlling, js_RTCIceRoleControlled, RTCIceServerTransportProtocol(..), js_RTCIceServerTransportProtocolUdp, js_RTCIceServerTransportProtocolTcp, js_RTCIceServerTransportProtocolTls, RTCIceTcpCandidateType(..), js_RTCIceTcpCandidateTypeActive, js_RTCIceTcpCandidateTypePassive, js_RTCIceTcpCandidateTypeSo, RTCIceTransportPolicy(..), js_RTCIceTransportPolicyRelay, js_RTCIceTransportPolicyAll, RTCIceTransportState(..), js_RTCIceTransportStateClosed, js_RTCIceTransportStateFailed, js_RTCIceTransportStateDisconnected, js_RTCIceTransportStateNew, js_RTCIceTransportStateChecking, js_RTCIceTransportStateCompleted, js_RTCIceTransportStateConnected, RTCPeerConnectionState(..), js_RTCPeerConnectionStateClosed, js_RTCPeerConnectionStateFailed, js_RTCPeerConnectionStateDisconnected, js_RTCPeerConnectionStateNew, js_RTCPeerConnectionStateConnecting, js_RTCPeerConnectionStateConnected, RTCPriorityType(..), js_RTCPriorityTypeVeryLow, js_RTCPriorityTypeLow, js_RTCPriorityTypeMedium, js_RTCPriorityTypeHigh, RTCRtcpMuxPolicy(..), js_RTCRtcpMuxPolicyRequire, RTCRtpScriptTransformType(..), js_RTCRtpScriptTransformTypeSframe, RTCRtpTransceiverDirection(..), js_RTCRtpTransceiverDirectionSendrecv, js_RTCRtpTransceiverDirectionSendonly, js_RTCRtpTransceiverDirectionRecvonly, js_RTCRtpTransceiverDirectionInactive, js_RTCRtpTransceiverDirectionStopped, RTCSctpTransportState(..), js_RTCSctpTransportStateConnecting, js_RTCSctpTransportStateConnected, js_RTCSctpTransportStateClosed, RTCSdpType(..), js_RTCSdpTypeOffer, js_RTCSdpTypePranswer, js_RTCSdpTypeAnswer, js_RTCSdpTypeRollback, RTCSignalingState(..), js_RTCSignalingStateStable, js_RTCSignalingStateHaveLocalOffer, js_RTCSignalingStateHaveRemoteOffer, js_RTCSignalingStateHaveLocalPranswer, js_RTCSignalingStateHaveRemotePranswer, js_RTCSignalingStateClosed, ReadableStreamReaderMode(..), js_ReadableStreamReaderModeByob, ReadableStreamType(..), js_ReadableStreamTypeBytes, ReadyState(..), js_ReadyStateClosed, js_ReadyStateOpen, js_ReadyStateEnded, RecordingState(..), js_RecordingStateInactive, js_RecordingStateRecording, js_RecordingStatePaused, RedEyeReduction(..), js_RedEyeReductionNever, js_RedEyeReductionAlways, js_RedEyeReductionControllable, ReferrerPolicy(..), js_ReferrerPolicy, js_ReferrerPolicyNoReferrer, js_ReferrerPolicyNoReferrerWhenDowngrade, js_ReferrerPolicySameOrigin, js_ReferrerPolicyOrigin, js_ReferrerPolicyStrictOrigin, js_ReferrerPolicyOriginWhenCrossOrigin, js_ReferrerPolicyStrictOriginWhenCrossOrigin, js_ReferrerPolicyUnsafeUrl, RefreshPolicy(..), js_RefreshPolicyNone, js_RefreshPolicyRefresh, RemotePlaybackState(..), js_RemotePlaybackStateConnecting, js_RemotePlaybackStateConnected, js_RemotePlaybackStateDisconnected, RequestCache(..), js_RequestCacheDefault, js_RequestCacheNoStore, js_RequestCacheReload, js_RequestCacheNoCache, js_RequestCacheForceCache, js_RequestCacheOnlyIfCached, RequestCredentials(..), js_RequestCredentialsOmit, js_RequestCredentialsSameOrigin, js_RequestCredentialsInclude, RequestDestination(..), js_RequestDestination, js_RequestDestinationAudio, js_RequestDestinationAudioworklet, js_RequestDestinationDocument, js_RequestDestinationEmbed, js_RequestDestinationFont, js_RequestDestinationFrame, js_RequestDestinationIframe, js_RequestDestinationImage, js_RequestDestinationJson, js_RequestDestinationManifest, js_RequestDestinationObject, js_RequestDestinationPaintworklet, js_RequestDestinationReport, js_RequestDestinationScript, js_RequestDestinationSharedworker, js_RequestDestinationStyle, js_RequestDestinationText, js_RequestDestinationTrack, js_RequestDestinationVideo, js_RequestDestinationWorker, js_RequestDestinationXslt, RequestDuplex(..), js_RequestDuplexHalf, RequestMode(..), js_RequestModeNavigate, js_RequestModeSameOrigin, js_RequestModeNoCors, js_RequestModeCors, RequestPriority(..), js_RequestPriorityHigh, js_RequestPriorityLow, js_RequestPriorityAuto, RequestRedirect(..), js_RequestRedirectFollow, js_RequestRedirectError, js_RequestRedirectManual, ResizeObserverBoxOptions(..), js_ResizeObserverBoxOptionsBorderBox, js_ResizeObserverBoxOptionsContentBox, js_ResizeObserverBoxOptionsDevicePixelContentBox, ResponseType(..), js_ResponseTypeBasic, js_ResponseTypeCors, js_ResponseTypeDefault, js_ResponseTypeError, js_ResponseTypeOpaque, js_ResponseTypeOpaqueredirect, RouterSourceEnum(..), js_RouterSourceEnumCache, js_RouterSourceEnumFetchEvent, js_RouterSourceEnumNetwork, js_RouterSourceEnumRaceNetworkAndFetchHandler, RunningStatus(..), js_RunningStatusRunning, js_RunningStatusNotRunning, SameSiteCookiesType(..), js_SameSiteCookiesTypeAll, js_SameSiteCookiesTypeNone, SanitizerPresets(..), js_SanitizerPresetsDefault, ScrollAxis(..), js_ScrollAxisBlock, js_ScrollAxisInline, js_ScrollAxisX, js_ScrollAxisY, ScrollBehavior(..), js_ScrollBehaviorAuto, js_ScrollBehaviorInstant, js_ScrollBehaviorSmooth, ScrollIntoViewContainer(..), js_ScrollIntoViewContainerAll, js_ScrollIntoViewContainerNearest, ScrollLogicalPosition(..), js_ScrollLogicalPositionStart, js_ScrollLogicalPositionCenter, js_ScrollLogicalPositionEnd, js_ScrollLogicalPositionNearest, ScrollRestoration(..), js_ScrollRestorationAuto, js_ScrollRestorationManual, ScrollSetting(..), js_ScrollSetting, js_ScrollSettingUp, SecurityPolicyViolationEventDisposition(..), js_SecurityPolicyViolationEventDispositionEnforce, js_SecurityPolicyViolationEventDispositionReport, SegmentType(..), js_SegmentTypeHumanFace, js_SegmentTypeLeftEye, js_SegmentTypeRightEye, js_SegmentTypeEye, js_SegmentTypeMouth, SelectionMode(..), js_SelectionModeSelect, js_SelectionModeStart, js_SelectionModeEnd, js_SelectionModePreserve, SelfCapturePreferenceEnum(..), js_SelfCapturePreferenceEnumInclude, js_SelfCapturePreferenceEnumExclude, ServiceWorkerState(..), js_ServiceWorkerStateParsed, js_ServiceWorkerStateInstalling, js_ServiceWorkerStateInstalled, js_ServiceWorkerStateActivating, js_ServiceWorkerStateActivated, js_ServiceWorkerStateRedundant, ServiceWorkerUpdateViaCache(..), js_ServiceWorkerUpdateViaCacheImports, js_ServiceWorkerUpdateViaCacheAll, js_ServiceWorkerUpdateViaCacheNone, ShadowRootMode(..), js_ShadowRootModeOpen, js_ShadowRootModeClosed, SlotAssignmentMode(..), js_SlotAssignmentModeManual, js_SlotAssignmentModeNamed, SpeechRecognitionAvailabilityStatus(..), js_SpeechRecognitionAvailabilityStatusUnavailable, js_SpeechRecognitionAvailabilityStatusDownloadable, js_SpeechRecognitionAvailabilityStatusDownloading, js_SpeechRecognitionAvailabilityStatusAvailable, SpeechRecognitionErrorCode(..), js_SpeechRecognitionErrorCodeNoSpeech, js_SpeechRecognitionErrorCodeAborted, js_SpeechRecognitionErrorCodeAudioCapture, js_SpeechRecognitionErrorCodeNetwork, js_SpeechRecognitionErrorCodeNotAllowed, js_SpeechRecognitionErrorCodeServiceNotAllowed, js_SpeechRecognitionErrorCodeLanguageNotSupported, js_SpeechRecognitionErrorCodePhrasesNotSupported, SpeechRecognitionQuality(..), js_SpeechRecognitionQualityCommand, js_SpeechRecognitionQualityDictation, js_SpeechRecognitionQualityConversation, SpeechSynthesisErrorCode(..), js_SpeechSynthesisErrorCodeCanceled, js_SpeechSynthesisErrorCodeInterrupted, js_SpeechSynthesisErrorCodeAudioBusy, js_SpeechSynthesisErrorCodeAudioHardware, js_SpeechSynthesisErrorCodeNetwork, js_SpeechSynthesisErrorCodeSynthesisUnavailable, js_SpeechSynthesisErrorCodeSynthesisFailed, js_SpeechSynthesisErrorCodeLanguageUnavailable, js_SpeechSynthesisErrorCodeVoiceUnavailable, js_SpeechSynthesisErrorCodeTextTooLong, js_SpeechSynthesisErrorCodeInvalidArgument, js_SpeechSynthesisErrorCodeNotAllowed, SurfaceSwitchingPreferenceEnum(..), js_SurfaceSwitchingPreferenceEnumInclude, js_SurfaceSwitchingPreferenceEnumExclude, SystemAudioPreferenceEnum(..), js_SystemAudioPreferenceEnumInclude, js_SystemAudioPreferenceEnumExclude, TaskPriority(..), js_TaskPriorityUserBlocking, js_TaskPriorityUserVisible, js_TaskPriorityBackground, TextTrackKind(..), js_TextTrackKindSubtitles, js_TextTrackKindCaptions, js_TextTrackKindDescriptions, js_TextTrackKindChapters, js_TextTrackKindMetadata, TextTrackMode(..), js_TextTrackModeDisabled, js_TextTrackModeHidden, js_TextTrackModeShowing, TokenVersion(..), js_TokenVersion1, TouchType(..), js_TouchTypeDirect, js_TouchTypeStylus, TransferFunction(..), js_TransferFunctionSrgb, js_TransferFunctionPq, js_TransferFunctionHlg, VideoColorPrimaries(..), js_VideoColorPrimariesBt709, js_VideoColorPrimariesBt470bg, js_VideoColorPrimariesSmpte170m, js_VideoColorPrimariesBt2020, js_VideoColorPrimariesSmpte432, VideoEncoderBitrateMode(..), js_VideoEncoderBitrateModeConstant, js_VideoEncoderBitrateModeVariable, js_VideoEncoderBitrateModeQuantizer, VideoMatrixCoefficients(..), js_VideoMatrixCoefficientsRgb, js_VideoMatrixCoefficientsBt709, js_VideoMatrixCoefficientsBt470bg, js_VideoMatrixCoefficientsSmpte170m, js_VideoMatrixCoefficientsBt2020Ncl, VideoPixelFormat(..), js_VideoPixelFormatI420, js_VideoPixelFormatI420P10, js_VideoPixelFormatI420P12, js_VideoPixelFormatI420A, js_VideoPixelFormatI420AP10, js_VideoPixelFormatI420AP12, js_VideoPixelFormatI422, js_VideoPixelFormatI422P10, js_VideoPixelFormatI422P12, js_VideoPixelFormatI422A, js_VideoPixelFormatI422AP10, js_VideoPixelFormatI422AP12, js_VideoPixelFormatI444, js_VideoPixelFormatI444P10, js_VideoPixelFormatI444P12, js_VideoPixelFormatI444A, js_VideoPixelFormatI444AP10, js_VideoPixelFormatI444AP12, js_VideoPixelFormatNV12, js_VideoPixelFormatRGBA, js_VideoPixelFormatRGBX, js_VideoPixelFormatBGRA, js_VideoPixelFormatBGRX, VideoTransferCharacteristics(..), js_VideoTransferCharacteristicsBt709, js_VideoTransferCharacteristicsSmpte170m, js_VideoTransferCharacteristicsIec6196621, js_VideoTransferCharacteristicsLinear, js_VideoTransferCharacteristicsPq, js_VideoTransferCharacteristicsHlg, WakeLockType(..), js_WakeLockTypeScreen, WebGLPowerPreference(..), js_WebGLPowerPreferenceDefault, js_WebGLPowerPreferenceLowPower, js_WebGLPowerPreferenceHighPerformance, WebTransportCongestionControl(..), js_WebTransportCongestionControlDefault, js_WebTransportCongestionControlThroughput, js_WebTransportCongestionControlLowLatency, WebTransportErrorSource(..), js_WebTransportErrorSourceStream, js_WebTransportErrorSourceSession, WebTransportReliabilityMode(..), js_WebTransportReliabilityModePending, js_WebTransportReliabilityModeReliableOnly, js_WebTransportReliabilityModeSupportsUnreliable, WindowAudioPreferenceEnum(..), js_WindowAudioPreferenceEnumSystem, js_WindowAudioPreferenceEnumWindow, js_WindowAudioPreferenceEnumExclude, WorkerType(..), js_WorkerTypeClassic, js_WorkerTypeModule, WriteCommandType(..), js_WriteCommandTypeWrite, js_WriteCommandTypeSeek, js_WriteCommandTypeTruncate, XMLHttpRequestResponseType(..), js_XMLHttpRequestResponseType, js_XMLHttpRequestResponseTypeArraybuffer, js_XMLHttpRequestResponseTypeBlob, js_XMLHttpRequestResponseTypeDocument, js_XMLHttpRequestResponseTypeJson, js_XMLHttpRequestResponseTypeText)+       where+import Prelude ((.), (>>=), (<$>), Show, Read, Eq, Ord, Bounded, Enum, Maybe(..))+import qualified Prelude as P+import Data.Typeable (Typeable)+import GHCJS.Types (JSString)+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))++-- | <https://developer.mozilla.org/en-US/docs/Web/API AacBitstreamFormat> (webcodecs-aac-codec-registration)+data AacBitstreamFormat = AacBitstreamFormatAac+    | AacBitstreamFormatAdts+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AacBitstreamFormat where+  pToJSVal x = pToJSVal (case x of+    AacBitstreamFormatAac -> js_AacBitstreamFormatAac+    AacBitstreamFormatAdts -> js_AacBitstreamFormatAdts+    )++instance ToJSVal AacBitstreamFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AacBitstreamFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected AacBitstreamFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AacBitstreamFormatAac, AacBitstreamFormatAac), (js_AacBitstreamFormatAdts, AacBitstreamFormatAdts)]++instance FromJSVal AacBitstreamFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AacBitstreamFormatAac, AacBitstreamFormatAac), (js_AacBitstreamFormatAdts, AacBitstreamFormatAdts)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AacBitstreamFormatAac :: JSString+js_AacBitstreamFormatAac = "aac"+js_AacBitstreamFormatAdts :: JSString+js_AacBitstreamFormatAdts = "adts"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AlignSetting> (webvtt1)+data AlignSetting = AlignSettingStart+    | AlignSettingCenter+    | AlignSettingEnd+    | AlignSettingLeft+    | AlignSettingRight+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AlignSetting where+  pToJSVal x = pToJSVal (case x of+    AlignSettingStart -> js_AlignSettingStart+    AlignSettingCenter -> js_AlignSettingCenter+    AlignSettingEnd -> js_AlignSettingEnd+    AlignSettingLeft -> js_AlignSettingLeft+    AlignSettingRight -> js_AlignSettingRight+    )++instance ToJSVal AlignSetting where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AlignSetting where+  pFromJSVal x = P.maybe (P.error "Unexpected AlignSetting value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AlignSettingStart, AlignSettingStart), (js_AlignSettingCenter, AlignSettingCenter), (js_AlignSettingEnd, AlignSettingEnd), (js_AlignSettingLeft, AlignSettingLeft), (js_AlignSettingRight, AlignSettingRight)]++instance FromJSVal AlignSetting where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AlignSettingStart, AlignSettingStart), (js_AlignSettingCenter, AlignSettingCenter), (js_AlignSettingEnd, AlignSettingEnd), (js_AlignSettingLeft, AlignSettingLeft), (js_AlignSettingRight, AlignSettingRight)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AlignSettingStart :: JSString+js_AlignSettingStart = "start"+js_AlignSettingCenter :: JSString+js_AlignSettingCenter = "center"+js_AlignSettingEnd :: JSString+js_AlignSettingEnd = "end"+js_AlignSettingLeft :: JSString+js_AlignSettingLeft = "left"+js_AlignSettingRight :: JSString+js_AlignSettingRight = "right"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AlphaOption> (webcodecs)+data AlphaOption = AlphaOptionKeep+    | AlphaOptionDiscard+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AlphaOption where+  pToJSVal x = pToJSVal (case x of+    AlphaOptionKeep -> js_AlphaOptionKeep+    AlphaOptionDiscard -> js_AlphaOptionDiscard+    )++instance ToJSVal AlphaOption where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AlphaOption where+  pFromJSVal x = P.maybe (P.error "Unexpected AlphaOption value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AlphaOptionKeep, AlphaOptionKeep), (js_AlphaOptionDiscard, AlphaOptionDiscard)]++instance FromJSVal AlphaOption where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AlphaOptionKeep, AlphaOptionKeep), (js_AlphaOptionDiscard, AlphaOptionDiscard)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AlphaOptionKeep :: JSString+js_AlphaOptionKeep = "keep"+js_AlphaOptionDiscard :: JSString+js_AlphaOptionDiscard = "discard"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AnimationPlayState> (web-animations-1)+data AnimationPlayState = AnimationPlayStateIdle+    | AnimationPlayStateRunning+    | AnimationPlayStatePaused+    | AnimationPlayStateFinished+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AnimationPlayState where+  pToJSVal x = pToJSVal (case x of+    AnimationPlayStateIdle -> js_AnimationPlayStateIdle+    AnimationPlayStateRunning -> js_AnimationPlayStateRunning+    AnimationPlayStatePaused -> js_AnimationPlayStatePaused+    AnimationPlayStateFinished -> js_AnimationPlayStateFinished+    )++instance ToJSVal AnimationPlayState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AnimationPlayState where+  pFromJSVal x = P.maybe (P.error "Unexpected AnimationPlayState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AnimationPlayStateIdle, AnimationPlayStateIdle), (js_AnimationPlayStateRunning, AnimationPlayStateRunning), (js_AnimationPlayStatePaused, AnimationPlayStatePaused), (js_AnimationPlayStateFinished, AnimationPlayStateFinished)]++instance FromJSVal AnimationPlayState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AnimationPlayStateIdle, AnimationPlayStateIdle), (js_AnimationPlayStateRunning, AnimationPlayStateRunning), (js_AnimationPlayStatePaused, AnimationPlayStatePaused), (js_AnimationPlayStateFinished, AnimationPlayStateFinished)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AnimationPlayStateIdle :: JSString+js_AnimationPlayStateIdle = "idle"+js_AnimationPlayStateRunning :: JSString+js_AnimationPlayStateRunning = "running"+js_AnimationPlayStatePaused :: JSString+js_AnimationPlayStatePaused = "paused"+js_AnimationPlayStateFinished :: JSString+js_AnimationPlayStateFinished = "finished"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AnimationReplaceState> (web-animations-1)+data AnimationReplaceState = AnimationReplaceStateActive+    | AnimationReplaceStateRemoved+    | AnimationReplaceStatePersisted+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AnimationReplaceState where+  pToJSVal x = pToJSVal (case x of+    AnimationReplaceStateActive -> js_AnimationReplaceStateActive+    AnimationReplaceStateRemoved -> js_AnimationReplaceStateRemoved+    AnimationReplaceStatePersisted -> js_AnimationReplaceStatePersisted+    )++instance ToJSVal AnimationReplaceState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AnimationReplaceState where+  pFromJSVal x = P.maybe (P.error "Unexpected AnimationReplaceState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AnimationReplaceStateActive, AnimationReplaceStateActive), (js_AnimationReplaceStateRemoved, AnimationReplaceStateRemoved), (js_AnimationReplaceStatePersisted, AnimationReplaceStatePersisted)]++instance FromJSVal AnimationReplaceState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AnimationReplaceStateActive, AnimationReplaceStateActive), (js_AnimationReplaceStateRemoved, AnimationReplaceStateRemoved), (js_AnimationReplaceStatePersisted, AnimationReplaceStatePersisted)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AnimationReplaceStateActive :: JSString+js_AnimationReplaceStateActive = "active"+js_AnimationReplaceStateRemoved :: JSString+js_AnimationReplaceStateRemoved = "removed"+js_AnimationReplaceStatePersisted :: JSString+js_AnimationReplaceStatePersisted = "persisted"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AppendMode> (media-source-2)+data AppendMode = AppendModeSegments+    | AppendModeSequence+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AppendMode where+  pToJSVal x = pToJSVal (case x of+    AppendModeSegments -> js_AppendModeSegments+    AppendModeSequence -> js_AppendModeSequence+    )++instance ToJSVal AppendMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AppendMode where+  pFromJSVal x = P.maybe (P.error "Unexpected AppendMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AppendModeSegments, AppendModeSegments), (js_AppendModeSequence, AppendModeSequence)]++instance FromJSVal AppendMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AppendModeSegments, AppendModeSegments), (js_AppendModeSequence, AppendModeSequence)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AppendModeSegments :: JSString+js_AppendModeSegments = "segments"+js_AppendModeSequence :: JSString+js_AppendModeSequence = "sequence"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AriaNotifyPriority> (wai-aria-1.3)+data AriaNotifyPriority = AriaNotifyPriorityNormal+    | AriaNotifyPriorityHigh+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AriaNotifyPriority where+  pToJSVal x = pToJSVal (case x of+    AriaNotifyPriorityNormal -> js_AriaNotifyPriorityNormal+    AriaNotifyPriorityHigh -> js_AriaNotifyPriorityHigh+    )++instance ToJSVal AriaNotifyPriority where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AriaNotifyPriority where+  pFromJSVal x = P.maybe (P.error "Unexpected AriaNotifyPriority value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AriaNotifyPriorityNormal, AriaNotifyPriorityNormal), (js_AriaNotifyPriorityHigh, AriaNotifyPriorityHigh)]++instance FromJSVal AriaNotifyPriority where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AriaNotifyPriorityNormal, AriaNotifyPriorityNormal), (js_AriaNotifyPriorityHigh, AriaNotifyPriorityHigh)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AriaNotifyPriorityNormal :: JSString+js_AriaNotifyPriorityNormal = "normal"+js_AriaNotifyPriorityHigh :: JSString+js_AriaNotifyPriorityHigh = "high"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioContextLatencyCategory> (webaudio-1.1)+data AudioContextLatencyCategory = AudioContextLatencyCategoryBalanced+    | AudioContextLatencyCategoryInteractive+    | AudioContextLatencyCategoryPlayback+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioContextLatencyCategory where+  pToJSVal x = pToJSVal (case x of+    AudioContextLatencyCategoryBalanced -> js_AudioContextLatencyCategoryBalanced+    AudioContextLatencyCategoryInteractive -> js_AudioContextLatencyCategoryInteractive+    AudioContextLatencyCategoryPlayback -> js_AudioContextLatencyCategoryPlayback+    )++instance ToJSVal AudioContextLatencyCategory where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AudioContextLatencyCategory where+  pFromJSVal x = P.maybe (P.error "Unexpected AudioContextLatencyCategory value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioContextLatencyCategoryBalanced, AudioContextLatencyCategoryBalanced), (js_AudioContextLatencyCategoryInteractive, AudioContextLatencyCategoryInteractive), (js_AudioContextLatencyCategoryPlayback, AudioContextLatencyCategoryPlayback)]++instance FromJSVal AudioContextLatencyCategory where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioContextLatencyCategoryBalanced, AudioContextLatencyCategoryBalanced), (js_AudioContextLatencyCategoryInteractive, AudioContextLatencyCategoryInteractive), (js_AudioContextLatencyCategoryPlayback, AudioContextLatencyCategoryPlayback)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AudioContextLatencyCategoryBalanced :: JSString+js_AudioContextLatencyCategoryBalanced = "balanced"+js_AudioContextLatencyCategoryInteractive :: JSString+js_AudioContextLatencyCategoryInteractive = "interactive"+js_AudioContextLatencyCategoryPlayback :: JSString+js_AudioContextLatencyCategoryPlayback = "playback"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioContextRenderSizeCategory> (webaudio-1.1)+data AudioContextRenderSizeCategory = AudioContextRenderSizeCategoryDefault+    | AudioContextRenderSizeCategoryHardware+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioContextRenderSizeCategory where+  pToJSVal x = pToJSVal (case x of+    AudioContextRenderSizeCategoryDefault -> js_AudioContextRenderSizeCategoryDefault+    AudioContextRenderSizeCategoryHardware -> js_AudioContextRenderSizeCategoryHardware+    )++instance ToJSVal AudioContextRenderSizeCategory where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AudioContextRenderSizeCategory where+  pFromJSVal x = P.maybe (P.error "Unexpected AudioContextRenderSizeCategory value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioContextRenderSizeCategoryDefault, AudioContextRenderSizeCategoryDefault), (js_AudioContextRenderSizeCategoryHardware, AudioContextRenderSizeCategoryHardware)]++instance FromJSVal AudioContextRenderSizeCategory where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioContextRenderSizeCategoryDefault, AudioContextRenderSizeCategoryDefault), (js_AudioContextRenderSizeCategoryHardware, AudioContextRenderSizeCategoryHardware)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AudioContextRenderSizeCategoryDefault :: JSString+js_AudioContextRenderSizeCategoryDefault = "default"+js_AudioContextRenderSizeCategoryHardware :: JSString+js_AudioContextRenderSizeCategoryHardware = "hardware"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioContextState> (webaudio-1.1)+data AudioContextState = AudioContextStateSuspended+    | AudioContextStateRunning+    | AudioContextStateClosed+    | AudioContextStateInterrupted+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioContextState where+  pToJSVal x = pToJSVal (case x of+    AudioContextStateSuspended -> js_AudioContextStateSuspended+    AudioContextStateRunning -> js_AudioContextStateRunning+    AudioContextStateClosed -> js_AudioContextStateClosed+    AudioContextStateInterrupted -> js_AudioContextStateInterrupted+    )++instance ToJSVal AudioContextState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AudioContextState where+  pFromJSVal x = P.maybe (P.error "Unexpected AudioContextState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioContextStateSuspended, AudioContextStateSuspended), (js_AudioContextStateRunning, AudioContextStateRunning), (js_AudioContextStateClosed, AudioContextStateClosed), (js_AudioContextStateInterrupted, AudioContextStateInterrupted)]++instance FromJSVal AudioContextState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioContextStateSuspended, AudioContextStateSuspended), (js_AudioContextStateRunning, AudioContextStateRunning), (js_AudioContextStateClosed, AudioContextStateClosed), (js_AudioContextStateInterrupted, AudioContextStateInterrupted)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AudioContextStateSuspended :: JSString+js_AudioContextStateSuspended = "suspended"+js_AudioContextStateRunning :: JSString+js_AudioContextStateRunning = "running"+js_AudioContextStateClosed :: JSString+js_AudioContextStateClosed = "closed"+js_AudioContextStateInterrupted :: JSString+js_AudioContextStateInterrupted = "interrupted"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioSampleFormat> (webcodecs)+data AudioSampleFormat = AudioSampleFormatU8+    | AudioSampleFormatS16+    | AudioSampleFormatS32+    | AudioSampleFormatF32+    | AudioSampleFormatU8Planar+    | AudioSampleFormatS16Planar+    | AudioSampleFormatS32Planar+    | AudioSampleFormatF32Planar+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioSampleFormat where+  pToJSVal x = pToJSVal (case x of+    AudioSampleFormatU8 -> js_AudioSampleFormatU8+    AudioSampleFormatS16 -> js_AudioSampleFormatS16+    AudioSampleFormatS32 -> js_AudioSampleFormatS32+    AudioSampleFormatF32 -> js_AudioSampleFormatF32+    AudioSampleFormatU8Planar -> js_AudioSampleFormatU8Planar+    AudioSampleFormatS16Planar -> js_AudioSampleFormatS16Planar+    AudioSampleFormatS32Planar -> js_AudioSampleFormatS32Planar+    AudioSampleFormatF32Planar -> js_AudioSampleFormatF32Planar+    )++instance ToJSVal AudioSampleFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AudioSampleFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected AudioSampleFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioSampleFormatU8, AudioSampleFormatU8), (js_AudioSampleFormatS16, AudioSampleFormatS16), (js_AudioSampleFormatS32, AudioSampleFormatS32), (js_AudioSampleFormatF32, AudioSampleFormatF32), (js_AudioSampleFormatU8Planar, AudioSampleFormatU8Planar), (js_AudioSampleFormatS16Planar, AudioSampleFormatS16Planar), (js_AudioSampleFormatS32Planar, AudioSampleFormatS32Planar), (js_AudioSampleFormatF32Planar, AudioSampleFormatF32Planar)]++instance FromJSVal AudioSampleFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioSampleFormatU8, AudioSampleFormatU8), (js_AudioSampleFormatS16, AudioSampleFormatS16), (js_AudioSampleFormatS32, AudioSampleFormatS32), (js_AudioSampleFormatF32, AudioSampleFormatF32), (js_AudioSampleFormatU8Planar, AudioSampleFormatU8Planar), (js_AudioSampleFormatS16Planar, AudioSampleFormatS16Planar), (js_AudioSampleFormatS32Planar, AudioSampleFormatS32Planar), (js_AudioSampleFormatF32Planar, AudioSampleFormatF32Planar)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AudioSampleFormatU8 :: JSString+js_AudioSampleFormatU8 = "u8"+js_AudioSampleFormatS16 :: JSString+js_AudioSampleFormatS16 = "s16"+js_AudioSampleFormatS32 :: JSString+js_AudioSampleFormatS32 = "s32"+js_AudioSampleFormatF32 :: JSString+js_AudioSampleFormatF32 = "f32"+js_AudioSampleFormatU8Planar :: JSString+js_AudioSampleFormatU8Planar = "u8-planar"+js_AudioSampleFormatS16Planar :: JSString+js_AudioSampleFormatS16Planar = "s16-planar"+js_AudioSampleFormatS32Planar :: JSString+js_AudioSampleFormatS32Planar = "s32-planar"+js_AudioSampleFormatF32Planar :: JSString+js_AudioSampleFormatF32Planar = "f32-planar"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioSelectionPreferenceEnum> (screen-capture)+data AudioSelectionPreferenceEnum = AudioSelectionPreferenceEnumPreferred+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioSelectionPreferenceEnum where+  pToJSVal x = pToJSVal (case x of+    AudioSelectionPreferenceEnumPreferred -> js_AudioSelectionPreferenceEnumPreferred+    )++instance ToJSVal AudioSelectionPreferenceEnum where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AudioSelectionPreferenceEnum where+  pFromJSVal x = P.maybe (P.error "Unexpected AudioSelectionPreferenceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioSelectionPreferenceEnumPreferred, AudioSelectionPreferenceEnumPreferred)]++instance FromJSVal AudioSelectionPreferenceEnum where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioSelectionPreferenceEnumPreferred, AudioSelectionPreferenceEnumPreferred)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AudioSelectionPreferenceEnumPreferred :: JSString+js_AudioSelectionPreferenceEnumPreferred = "preferred"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioSinkType> (webaudio-1.1)+data AudioSinkType = AudioSinkTypeNone+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioSinkType where+  pToJSVal x = pToJSVal (case x of+    AudioSinkTypeNone -> js_AudioSinkTypeNone+    )++instance ToJSVal AudioSinkType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AudioSinkType where+  pFromJSVal x = P.maybe (P.error "Unexpected AudioSinkType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioSinkTypeNone, AudioSinkTypeNone)]++instance FromJSVal AudioSinkType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AudioSinkTypeNone, AudioSinkTypeNone)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AudioSinkTypeNone :: JSString+js_AudioSinkTypeNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AutoKeyword> (webvtt1)+data AutoKeyword = AutoKeywordAuto+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AutoKeyword where+  pToJSVal x = pToJSVal (case x of+    AutoKeywordAuto -> js_AutoKeywordAuto+    )++instance ToJSVal AutoKeyword where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AutoKeyword where+  pFromJSVal x = P.maybe (P.error "Unexpected AutoKeyword value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AutoKeywordAuto, AutoKeywordAuto)]++instance FromJSVal AutoKeyword where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AutoKeywordAuto, AutoKeywordAuto)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AutoKeywordAuto :: JSString+js_AutoKeywordAuto = "auto"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AutomationRate> (webaudio-1.1)+data AutomationRate = AutomationRateARate+    | AutomationRateKRate+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AutomationRate where+  pToJSVal x = pToJSVal (case x of+    AutomationRateARate -> js_AutomationRateARate+    AutomationRateKRate -> js_AutomationRateKRate+    )++instance ToJSVal AutomationRate where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AutomationRate where+  pFromJSVal x = P.maybe (P.error "Unexpected AutomationRate value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AutomationRateARate, AutomationRateARate), (js_AutomationRateKRate, AutomationRateKRate)]++instance FromJSVal AutomationRate where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AutomationRateARate, AutomationRateARate), (js_AutomationRateKRate, AutomationRateKRate)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AutomationRateARate :: JSString+js_AutomationRateARate = "a-rate"+js_AutomationRateKRate :: JSString+js_AutomationRateKRate = "k-rate"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AvcBitstreamFormat> (webcodecs-avc-codec-registration)+data AvcBitstreamFormat = AvcBitstreamFormatAnnexb+    | AvcBitstreamFormatAvc+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AvcBitstreamFormat where+  pToJSVal x = pToJSVal (case x of+    AvcBitstreamFormatAnnexb -> js_AvcBitstreamFormatAnnexb+    AvcBitstreamFormatAvc -> js_AvcBitstreamFormatAvc+    )++instance ToJSVal AvcBitstreamFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal AvcBitstreamFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected AvcBitstreamFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AvcBitstreamFormatAnnexb, AvcBitstreamFormatAnnexb), (js_AvcBitstreamFormatAvc, AvcBitstreamFormatAvc)]++instance FromJSVal AvcBitstreamFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_AvcBitstreamFormatAnnexb, AvcBitstreamFormatAnnexb), (js_AvcBitstreamFormatAvc, AvcBitstreamFormatAvc)]+  fromJSValUnchecked = P.return . pFromJSVal++js_AvcBitstreamFormatAnnexb :: JSString+js_AvcBitstreamFormatAnnexb = "annexb"+js_AvcBitstreamFormatAvc :: JSString+js_AvcBitstreamFormatAvc = "avc"++-- | <https://developer.mozilla.org/en-US/docs/Web/API BinaryType> (websockets)+data BinaryType = BinaryTypeBlob+    | BinaryTypeArraybuffer+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal BinaryType where+  pToJSVal x = pToJSVal (case x of+    BinaryTypeBlob -> js_BinaryTypeBlob+    BinaryTypeArraybuffer -> js_BinaryTypeArraybuffer+    )++instance ToJSVal BinaryType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal BinaryType where+  pFromJSVal x = P.maybe (P.error "Unexpected BinaryType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_BinaryTypeBlob, BinaryTypeBlob), (js_BinaryTypeArraybuffer, BinaryTypeArraybuffer)]++instance FromJSVal BinaryType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_BinaryTypeBlob, BinaryTypeBlob), (js_BinaryTypeArraybuffer, BinaryTypeArraybuffer)]+  fromJSValUnchecked = P.return . pFromJSVal++js_BinaryTypeBlob :: JSString+js_BinaryTypeBlob = "blob"+js_BinaryTypeArraybuffer :: JSString+js_BinaryTypeArraybuffer = "arraybuffer"++-- | <https://developer.mozilla.org/en-US/docs/Web/API BiquadFilterType> (webaudio-1.1)+data BiquadFilterType = BiquadFilterTypeLowpass+    | BiquadFilterTypeHighpass+    | BiquadFilterTypeBandpass+    | BiquadFilterTypeLowshelf+    | BiquadFilterTypeHighshelf+    | BiquadFilterTypePeaking+    | BiquadFilterTypeNotch+    | BiquadFilterTypeAllpass+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal BiquadFilterType where+  pToJSVal x = pToJSVal (case x of+    BiquadFilterTypeLowpass -> js_BiquadFilterTypeLowpass+    BiquadFilterTypeHighpass -> js_BiquadFilterTypeHighpass+    BiquadFilterTypeBandpass -> js_BiquadFilterTypeBandpass+    BiquadFilterTypeLowshelf -> js_BiquadFilterTypeLowshelf+    BiquadFilterTypeHighshelf -> js_BiquadFilterTypeHighshelf+    BiquadFilterTypePeaking -> js_BiquadFilterTypePeaking+    BiquadFilterTypeNotch -> js_BiquadFilterTypeNotch+    BiquadFilterTypeAllpass -> js_BiquadFilterTypeAllpass+    )++instance ToJSVal BiquadFilterType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal BiquadFilterType where+  pFromJSVal x = P.maybe (P.error "Unexpected BiquadFilterType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_BiquadFilterTypeLowpass, BiquadFilterTypeLowpass), (js_BiquadFilterTypeHighpass, BiquadFilterTypeHighpass), (js_BiquadFilterTypeBandpass, BiquadFilterTypeBandpass), (js_BiquadFilterTypeLowshelf, BiquadFilterTypeLowshelf), (js_BiquadFilterTypeHighshelf, BiquadFilterTypeHighshelf), (js_BiquadFilterTypePeaking, BiquadFilterTypePeaking), (js_BiquadFilterTypeNotch, BiquadFilterTypeNotch), (js_BiquadFilterTypeAllpass, BiquadFilterTypeAllpass)]++instance FromJSVal BiquadFilterType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_BiquadFilterTypeLowpass, BiquadFilterTypeLowpass), (js_BiquadFilterTypeHighpass, BiquadFilterTypeHighpass), (js_BiquadFilterTypeBandpass, BiquadFilterTypeBandpass), (js_BiquadFilterTypeLowshelf, BiquadFilterTypeLowshelf), (js_BiquadFilterTypeHighshelf, BiquadFilterTypeHighshelf), (js_BiquadFilterTypePeaking, BiquadFilterTypePeaking), (js_BiquadFilterTypeNotch, BiquadFilterTypeNotch), (js_BiquadFilterTypeAllpass, BiquadFilterTypeAllpass)]+  fromJSValUnchecked = P.return . pFromJSVal++js_BiquadFilterTypeLowpass :: JSString+js_BiquadFilterTypeLowpass = "lowpass"+js_BiquadFilterTypeHighpass :: JSString+js_BiquadFilterTypeHighpass = "highpass"+js_BiquadFilterTypeBandpass :: JSString+js_BiquadFilterTypeBandpass = "bandpass"+js_BiquadFilterTypeLowshelf :: JSString+js_BiquadFilterTypeLowshelf = "lowshelf"+js_BiquadFilterTypeHighshelf :: JSString+js_BiquadFilterTypeHighshelf = "highshelf"+js_BiquadFilterTypePeaking :: JSString+js_BiquadFilterTypePeaking = "peaking"+js_BiquadFilterTypeNotch :: JSString+js_BiquadFilterTypeNotch = "notch"+js_BiquadFilterTypeAllpass :: JSString+js_BiquadFilterTypeAllpass = "allpass"++-- | <https://developer.mozilla.org/en-US/docs/Web/API BitrateMode> (mediastream-recording)+data BitrateMode = BitrateModeConstant+    | BitrateModeVariable+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal BitrateMode where+  pToJSVal x = pToJSVal (case x of+    BitrateModeConstant -> js_BitrateModeConstant+    BitrateModeVariable -> js_BitrateModeVariable+    )++instance ToJSVal BitrateMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal BitrateMode where+  pFromJSVal x = P.maybe (P.error "Unexpected BitrateMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_BitrateModeConstant, BitrateModeConstant), (js_BitrateModeVariable, BitrateModeVariable)]++instance FromJSVal BitrateMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_BitrateModeConstant, BitrateModeConstant), (js_BitrateModeVariable, BitrateModeVariable)]+  fromJSValUnchecked = P.return . pFromJSVal++js_BitrateModeConstant :: JSString+js_BitrateModeConstant = "constant"+js_BitrateModeVariable :: JSString+js_BitrateModeVariable = "variable"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CSSMathOperator> (css-typed-om-1)+data CSSMathOperator = CSSMathOperatorSum+    | CSSMathOperatorProduct+    | CSSMathOperatorNegate+    | CSSMathOperatorInvert+    | CSSMathOperatorMin+    | CSSMathOperatorMax+    | CSSMathOperatorClamp+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CSSMathOperator where+  pToJSVal x = pToJSVal (case x of+    CSSMathOperatorSum -> js_CSSMathOperatorSum+    CSSMathOperatorProduct -> js_CSSMathOperatorProduct+    CSSMathOperatorNegate -> js_CSSMathOperatorNegate+    CSSMathOperatorInvert -> js_CSSMathOperatorInvert+    CSSMathOperatorMin -> js_CSSMathOperatorMin+    CSSMathOperatorMax -> js_CSSMathOperatorMax+    CSSMathOperatorClamp -> js_CSSMathOperatorClamp+    )++instance ToJSVal CSSMathOperator where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CSSMathOperator where+  pFromJSVal x = P.maybe (P.error "Unexpected CSSMathOperator value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CSSMathOperatorSum, CSSMathOperatorSum), (js_CSSMathOperatorProduct, CSSMathOperatorProduct), (js_CSSMathOperatorNegate, CSSMathOperatorNegate), (js_CSSMathOperatorInvert, CSSMathOperatorInvert), (js_CSSMathOperatorMin, CSSMathOperatorMin), (js_CSSMathOperatorMax, CSSMathOperatorMax), (js_CSSMathOperatorClamp, CSSMathOperatorClamp)]++instance FromJSVal CSSMathOperator where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CSSMathOperatorSum, CSSMathOperatorSum), (js_CSSMathOperatorProduct, CSSMathOperatorProduct), (js_CSSMathOperatorNegate, CSSMathOperatorNegate), (js_CSSMathOperatorInvert, CSSMathOperatorInvert), (js_CSSMathOperatorMin, CSSMathOperatorMin), (js_CSSMathOperatorMax, CSSMathOperatorMax), (js_CSSMathOperatorClamp, CSSMathOperatorClamp)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CSSMathOperatorSum :: JSString+js_CSSMathOperatorSum = "sum"+js_CSSMathOperatorProduct :: JSString+js_CSSMathOperatorProduct = "product"+js_CSSMathOperatorNegate :: JSString+js_CSSMathOperatorNegate = "negate"+js_CSSMathOperatorInvert :: JSString+js_CSSMathOperatorInvert = "invert"+js_CSSMathOperatorMin :: JSString+js_CSSMathOperatorMin = "min"+js_CSSMathOperatorMax :: JSString+js_CSSMathOperatorMax = "max"+js_CSSMathOperatorClamp :: JSString+js_CSSMathOperatorClamp = "clamp"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CSSNumericBaseType> (css-typed-om-1)+data CSSNumericBaseType = CSSNumericBaseTypeLength+    | CSSNumericBaseTypeAngle+    | CSSNumericBaseTypeTime+    | CSSNumericBaseTypeFrequency+    | CSSNumericBaseTypeResolution+    | CSSNumericBaseTypeFlex+    | CSSNumericBaseTypePercent+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CSSNumericBaseType where+  pToJSVal x = pToJSVal (case x of+    CSSNumericBaseTypeLength -> js_CSSNumericBaseTypeLength+    CSSNumericBaseTypeAngle -> js_CSSNumericBaseTypeAngle+    CSSNumericBaseTypeTime -> js_CSSNumericBaseTypeTime+    CSSNumericBaseTypeFrequency -> js_CSSNumericBaseTypeFrequency+    CSSNumericBaseTypeResolution -> js_CSSNumericBaseTypeResolution+    CSSNumericBaseTypeFlex -> js_CSSNumericBaseTypeFlex+    CSSNumericBaseTypePercent -> js_CSSNumericBaseTypePercent+    )++instance ToJSVal CSSNumericBaseType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CSSNumericBaseType where+  pFromJSVal x = P.maybe (P.error "Unexpected CSSNumericBaseType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CSSNumericBaseTypeLength, CSSNumericBaseTypeLength), (js_CSSNumericBaseTypeAngle, CSSNumericBaseTypeAngle), (js_CSSNumericBaseTypeTime, CSSNumericBaseTypeTime), (js_CSSNumericBaseTypeFrequency, CSSNumericBaseTypeFrequency), (js_CSSNumericBaseTypeResolution, CSSNumericBaseTypeResolution), (js_CSSNumericBaseTypeFlex, CSSNumericBaseTypeFlex), (js_CSSNumericBaseTypePercent, CSSNumericBaseTypePercent)]++instance FromJSVal CSSNumericBaseType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CSSNumericBaseTypeLength, CSSNumericBaseTypeLength), (js_CSSNumericBaseTypeAngle, CSSNumericBaseTypeAngle), (js_CSSNumericBaseTypeTime, CSSNumericBaseTypeTime), (js_CSSNumericBaseTypeFrequency, CSSNumericBaseTypeFrequency), (js_CSSNumericBaseTypeResolution, CSSNumericBaseTypeResolution), (js_CSSNumericBaseTypeFlex, CSSNumericBaseTypeFlex), (js_CSSNumericBaseTypePercent, CSSNumericBaseTypePercent)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CSSNumericBaseTypeLength :: JSString+js_CSSNumericBaseTypeLength = "length"+js_CSSNumericBaseTypeAngle :: JSString+js_CSSNumericBaseTypeAngle = "angle"+js_CSSNumericBaseTypeTime :: JSString+js_CSSNumericBaseTypeTime = "time"+js_CSSNumericBaseTypeFrequency :: JSString+js_CSSNumericBaseTypeFrequency = "frequency"+js_CSSNumericBaseTypeResolution :: JSString+js_CSSNumericBaseTypeResolution = "resolution"+js_CSSNumericBaseTypeFlex :: JSString+js_CSSNumericBaseTypeFlex = "flex"+js_CSSNumericBaseTypePercent :: JSString+js_CSSNumericBaseTypePercent = "percent"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanPlayTypeResult> (html)+data CanPlayTypeResult = CanPlayTypeResult+    | CanPlayTypeResultMaybe+    | CanPlayTypeResultProbably+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanPlayTypeResult where+  pToJSVal x = pToJSVal (case x of+    CanPlayTypeResult -> js_CanPlayTypeResult+    CanPlayTypeResultMaybe -> js_CanPlayTypeResultMaybe+    CanPlayTypeResultProbably -> js_CanPlayTypeResultProbably+    )++instance ToJSVal CanPlayTypeResult where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanPlayTypeResult where+  pFromJSVal x = P.maybe (P.error "Unexpected CanPlayTypeResult value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanPlayTypeResult, CanPlayTypeResult), (js_CanPlayTypeResultMaybe, CanPlayTypeResultMaybe), (js_CanPlayTypeResultProbably, CanPlayTypeResultProbably)]++instance FromJSVal CanPlayTypeResult where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanPlayTypeResult, CanPlayTypeResult), (js_CanPlayTypeResultMaybe, CanPlayTypeResultMaybe), (js_CanPlayTypeResultProbably, CanPlayTypeResultProbably)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanPlayTypeResult :: JSString+js_CanPlayTypeResult = ""+js_CanPlayTypeResultMaybe :: JSString+js_CanPlayTypeResultMaybe = "maybe"+js_CanPlayTypeResultProbably :: JSString+js_CanPlayTypeResultProbably = "probably"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasColorType> (html)+data CanvasColorType = CanvasColorTypeUnorm8+    | CanvasColorTypeFloat16+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasColorType where+  pToJSVal x = pToJSVal (case x of+    CanvasColorTypeUnorm8 -> js_CanvasColorTypeUnorm8+    CanvasColorTypeFloat16 -> js_CanvasColorTypeFloat16+    )++instance ToJSVal CanvasColorType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasColorType where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasColorType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasColorTypeUnorm8, CanvasColorTypeUnorm8), (js_CanvasColorTypeFloat16, CanvasColorTypeFloat16)]++instance FromJSVal CanvasColorType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasColorTypeUnorm8, CanvasColorTypeUnorm8), (js_CanvasColorTypeFloat16, CanvasColorTypeFloat16)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasColorTypeUnorm8 :: JSString+js_CanvasColorTypeUnorm8 = "unorm8"+js_CanvasColorTypeFloat16 :: JSString+js_CanvasColorTypeFloat16 = "float16"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasDirection> (html)+data CanvasDirection = CanvasDirectionLtr+    | CanvasDirectionRtl+    | CanvasDirectionInherit+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasDirection where+  pToJSVal x = pToJSVal (case x of+    CanvasDirectionLtr -> js_CanvasDirectionLtr+    CanvasDirectionRtl -> js_CanvasDirectionRtl+    CanvasDirectionInherit -> js_CanvasDirectionInherit+    )++instance ToJSVal CanvasDirection where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasDirection where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasDirection value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasDirectionLtr, CanvasDirectionLtr), (js_CanvasDirectionRtl, CanvasDirectionRtl), (js_CanvasDirectionInherit, CanvasDirectionInherit)]++instance FromJSVal CanvasDirection where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasDirectionLtr, CanvasDirectionLtr), (js_CanvasDirectionRtl, CanvasDirectionRtl), (js_CanvasDirectionInherit, CanvasDirectionInherit)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasDirectionLtr :: JSString+js_CanvasDirectionLtr = "ltr"+js_CanvasDirectionRtl :: JSString+js_CanvasDirectionRtl = "rtl"+js_CanvasDirectionInherit :: JSString+js_CanvasDirectionInherit = "inherit"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasFillRule> (html)+data CanvasFillRule = CanvasFillRuleNonzero+    | CanvasFillRuleEvenodd+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasFillRule where+  pToJSVal x = pToJSVal (case x of+    CanvasFillRuleNonzero -> js_CanvasFillRuleNonzero+    CanvasFillRuleEvenodd -> js_CanvasFillRuleEvenodd+    )++instance ToJSVal CanvasFillRule where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasFillRule where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasFillRule value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasFillRuleNonzero, CanvasFillRuleNonzero), (js_CanvasFillRuleEvenodd, CanvasFillRuleEvenodd)]++instance FromJSVal CanvasFillRule where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasFillRuleNonzero, CanvasFillRuleNonzero), (js_CanvasFillRuleEvenodd, CanvasFillRuleEvenodd)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasFillRuleNonzero :: JSString+js_CanvasFillRuleNonzero = "nonzero"+js_CanvasFillRuleEvenodd :: JSString+js_CanvasFillRuleEvenodd = "evenodd"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasFontKerning> (html)+data CanvasFontKerning = CanvasFontKerningAuto+    | CanvasFontKerningNormal+    | CanvasFontKerningNone+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasFontKerning where+  pToJSVal x = pToJSVal (case x of+    CanvasFontKerningAuto -> js_CanvasFontKerningAuto+    CanvasFontKerningNormal -> js_CanvasFontKerningNormal+    CanvasFontKerningNone -> js_CanvasFontKerningNone+    )++instance ToJSVal CanvasFontKerning where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasFontKerning where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasFontKerning value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasFontKerningAuto, CanvasFontKerningAuto), (js_CanvasFontKerningNormal, CanvasFontKerningNormal), (js_CanvasFontKerningNone, CanvasFontKerningNone)]++instance FromJSVal CanvasFontKerning where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasFontKerningAuto, CanvasFontKerningAuto), (js_CanvasFontKerningNormal, CanvasFontKerningNormal), (js_CanvasFontKerningNone, CanvasFontKerningNone)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasFontKerningAuto :: JSString+js_CanvasFontKerningAuto = "auto"+js_CanvasFontKerningNormal :: JSString+js_CanvasFontKerningNormal = "normal"+js_CanvasFontKerningNone :: JSString+js_CanvasFontKerningNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasFontStretch> (html)+data CanvasFontStretch = CanvasFontStretchUltraCondensed+    | CanvasFontStretchExtraCondensed+    | CanvasFontStretchCondensed+    | CanvasFontStretchSemiCondensed+    | CanvasFontStretchNormal+    | CanvasFontStretchSemiExpanded+    | CanvasFontStretchExpanded+    | CanvasFontStretchExtraExpanded+    | CanvasFontStretchUltraExpanded+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasFontStretch where+  pToJSVal x = pToJSVal (case x of+    CanvasFontStretchUltraCondensed -> js_CanvasFontStretchUltraCondensed+    CanvasFontStretchExtraCondensed -> js_CanvasFontStretchExtraCondensed+    CanvasFontStretchCondensed -> js_CanvasFontStretchCondensed+    CanvasFontStretchSemiCondensed -> js_CanvasFontStretchSemiCondensed+    CanvasFontStretchNormal -> js_CanvasFontStretchNormal+    CanvasFontStretchSemiExpanded -> js_CanvasFontStretchSemiExpanded+    CanvasFontStretchExpanded -> js_CanvasFontStretchExpanded+    CanvasFontStretchExtraExpanded -> js_CanvasFontStretchExtraExpanded+    CanvasFontStretchUltraExpanded -> js_CanvasFontStretchUltraExpanded+    )++instance ToJSVal CanvasFontStretch where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasFontStretch where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasFontStretch value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasFontStretchUltraCondensed, CanvasFontStretchUltraCondensed), (js_CanvasFontStretchExtraCondensed, CanvasFontStretchExtraCondensed), (js_CanvasFontStretchCondensed, CanvasFontStretchCondensed), (js_CanvasFontStretchSemiCondensed, CanvasFontStretchSemiCondensed), (js_CanvasFontStretchNormal, CanvasFontStretchNormal), (js_CanvasFontStretchSemiExpanded, CanvasFontStretchSemiExpanded), (js_CanvasFontStretchExpanded, CanvasFontStretchExpanded), (js_CanvasFontStretchExtraExpanded, CanvasFontStretchExtraExpanded), (js_CanvasFontStretchUltraExpanded, CanvasFontStretchUltraExpanded)]++instance FromJSVal CanvasFontStretch where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasFontStretchUltraCondensed, CanvasFontStretchUltraCondensed), (js_CanvasFontStretchExtraCondensed, CanvasFontStretchExtraCondensed), (js_CanvasFontStretchCondensed, CanvasFontStretchCondensed), (js_CanvasFontStretchSemiCondensed, CanvasFontStretchSemiCondensed), (js_CanvasFontStretchNormal, CanvasFontStretchNormal), (js_CanvasFontStretchSemiExpanded, CanvasFontStretchSemiExpanded), (js_CanvasFontStretchExpanded, CanvasFontStretchExpanded), (js_CanvasFontStretchExtraExpanded, CanvasFontStretchExtraExpanded), (js_CanvasFontStretchUltraExpanded, CanvasFontStretchUltraExpanded)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasFontStretchUltraCondensed :: JSString+js_CanvasFontStretchUltraCondensed = "ultra-condensed"+js_CanvasFontStretchExtraCondensed :: JSString+js_CanvasFontStretchExtraCondensed = "extra-condensed"+js_CanvasFontStretchCondensed :: JSString+js_CanvasFontStretchCondensed = "condensed"+js_CanvasFontStretchSemiCondensed :: JSString+js_CanvasFontStretchSemiCondensed = "semi-condensed"+js_CanvasFontStretchNormal :: JSString+js_CanvasFontStretchNormal = "normal"+js_CanvasFontStretchSemiExpanded :: JSString+js_CanvasFontStretchSemiExpanded = "semi-expanded"+js_CanvasFontStretchExpanded :: JSString+js_CanvasFontStretchExpanded = "expanded"+js_CanvasFontStretchExtraExpanded :: JSString+js_CanvasFontStretchExtraExpanded = "extra-expanded"+js_CanvasFontStretchUltraExpanded :: JSString+js_CanvasFontStretchUltraExpanded = "ultra-expanded"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasFontVariantCaps> (html)+data CanvasFontVariantCaps = CanvasFontVariantCapsNormal+    | CanvasFontVariantCapsSmallCaps+    | CanvasFontVariantCapsAllSmallCaps+    | CanvasFontVariantCapsPetiteCaps+    | CanvasFontVariantCapsAllPetiteCaps+    | CanvasFontVariantCapsUnicase+    | CanvasFontVariantCapsTitlingCaps+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasFontVariantCaps where+  pToJSVal x = pToJSVal (case x of+    CanvasFontVariantCapsNormal -> js_CanvasFontVariantCapsNormal+    CanvasFontVariantCapsSmallCaps -> js_CanvasFontVariantCapsSmallCaps+    CanvasFontVariantCapsAllSmallCaps -> js_CanvasFontVariantCapsAllSmallCaps+    CanvasFontVariantCapsPetiteCaps -> js_CanvasFontVariantCapsPetiteCaps+    CanvasFontVariantCapsAllPetiteCaps -> js_CanvasFontVariantCapsAllPetiteCaps+    CanvasFontVariantCapsUnicase -> js_CanvasFontVariantCapsUnicase+    CanvasFontVariantCapsTitlingCaps -> js_CanvasFontVariantCapsTitlingCaps+    )++instance ToJSVal CanvasFontVariantCaps where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasFontVariantCaps where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasFontVariantCaps value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasFontVariantCapsNormal, CanvasFontVariantCapsNormal), (js_CanvasFontVariantCapsSmallCaps, CanvasFontVariantCapsSmallCaps), (js_CanvasFontVariantCapsAllSmallCaps, CanvasFontVariantCapsAllSmallCaps), (js_CanvasFontVariantCapsPetiteCaps, CanvasFontVariantCapsPetiteCaps), (js_CanvasFontVariantCapsAllPetiteCaps, CanvasFontVariantCapsAllPetiteCaps), (js_CanvasFontVariantCapsUnicase, CanvasFontVariantCapsUnicase), (js_CanvasFontVariantCapsTitlingCaps, CanvasFontVariantCapsTitlingCaps)]++instance FromJSVal CanvasFontVariantCaps where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasFontVariantCapsNormal, CanvasFontVariantCapsNormal), (js_CanvasFontVariantCapsSmallCaps, CanvasFontVariantCapsSmallCaps), (js_CanvasFontVariantCapsAllSmallCaps, CanvasFontVariantCapsAllSmallCaps), (js_CanvasFontVariantCapsPetiteCaps, CanvasFontVariantCapsPetiteCaps), (js_CanvasFontVariantCapsAllPetiteCaps, CanvasFontVariantCapsAllPetiteCaps), (js_CanvasFontVariantCapsUnicase, CanvasFontVariantCapsUnicase), (js_CanvasFontVariantCapsTitlingCaps, CanvasFontVariantCapsTitlingCaps)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasFontVariantCapsNormal :: JSString+js_CanvasFontVariantCapsNormal = "normal"+js_CanvasFontVariantCapsSmallCaps :: JSString+js_CanvasFontVariantCapsSmallCaps = "small-caps"+js_CanvasFontVariantCapsAllSmallCaps :: JSString+js_CanvasFontVariantCapsAllSmallCaps = "all-small-caps"+js_CanvasFontVariantCapsPetiteCaps :: JSString+js_CanvasFontVariantCapsPetiteCaps = "petite-caps"+js_CanvasFontVariantCapsAllPetiteCaps :: JSString+js_CanvasFontVariantCapsAllPetiteCaps = "all-petite-caps"+js_CanvasFontVariantCapsUnicase :: JSString+js_CanvasFontVariantCapsUnicase = "unicase"+js_CanvasFontVariantCapsTitlingCaps :: JSString+js_CanvasFontVariantCapsTitlingCaps = "titling-caps"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasLineCap> (html)+data CanvasLineCap = CanvasLineCapButt+    | CanvasLineCapRound+    | CanvasLineCapSquare+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasLineCap where+  pToJSVal x = pToJSVal (case x of+    CanvasLineCapButt -> js_CanvasLineCapButt+    CanvasLineCapRound -> js_CanvasLineCapRound+    CanvasLineCapSquare -> js_CanvasLineCapSquare+    )++instance ToJSVal CanvasLineCap where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasLineCap where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasLineCap value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasLineCapButt, CanvasLineCapButt), (js_CanvasLineCapRound, CanvasLineCapRound), (js_CanvasLineCapSquare, CanvasLineCapSquare)]++instance FromJSVal CanvasLineCap where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasLineCapButt, CanvasLineCapButt), (js_CanvasLineCapRound, CanvasLineCapRound), (js_CanvasLineCapSquare, CanvasLineCapSquare)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasLineCapButt :: JSString+js_CanvasLineCapButt = "butt"+js_CanvasLineCapRound :: JSString+js_CanvasLineCapRound = "round"+js_CanvasLineCapSquare :: JSString+js_CanvasLineCapSquare = "square"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasLineJoin> (html)+data CanvasLineJoin = CanvasLineJoinRound+    | CanvasLineJoinBevel+    | CanvasLineJoinMiter+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasLineJoin where+  pToJSVal x = pToJSVal (case x of+    CanvasLineJoinRound -> js_CanvasLineJoinRound+    CanvasLineJoinBevel -> js_CanvasLineJoinBevel+    CanvasLineJoinMiter -> js_CanvasLineJoinMiter+    )++instance ToJSVal CanvasLineJoin where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasLineJoin where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasLineJoin value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasLineJoinRound, CanvasLineJoinRound), (js_CanvasLineJoinBevel, CanvasLineJoinBevel), (js_CanvasLineJoinMiter, CanvasLineJoinMiter)]++instance FromJSVal CanvasLineJoin where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasLineJoinRound, CanvasLineJoinRound), (js_CanvasLineJoinBevel, CanvasLineJoinBevel), (js_CanvasLineJoinMiter, CanvasLineJoinMiter)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasLineJoinRound :: JSString+js_CanvasLineJoinRound = "round"+js_CanvasLineJoinBevel :: JSString+js_CanvasLineJoinBevel = "bevel"+js_CanvasLineJoinMiter :: JSString+js_CanvasLineJoinMiter = "miter"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasTextAlign> (html)+data CanvasTextAlign = CanvasTextAlignStart+    | CanvasTextAlignEnd+    | CanvasTextAlignLeft+    | CanvasTextAlignRight+    | CanvasTextAlignCenter+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasTextAlign where+  pToJSVal x = pToJSVal (case x of+    CanvasTextAlignStart -> js_CanvasTextAlignStart+    CanvasTextAlignEnd -> js_CanvasTextAlignEnd+    CanvasTextAlignLeft -> js_CanvasTextAlignLeft+    CanvasTextAlignRight -> js_CanvasTextAlignRight+    CanvasTextAlignCenter -> js_CanvasTextAlignCenter+    )++instance ToJSVal CanvasTextAlign where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasTextAlign where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasTextAlign value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasTextAlignStart, CanvasTextAlignStart), (js_CanvasTextAlignEnd, CanvasTextAlignEnd), (js_CanvasTextAlignLeft, CanvasTextAlignLeft), (js_CanvasTextAlignRight, CanvasTextAlignRight), (js_CanvasTextAlignCenter, CanvasTextAlignCenter)]++instance FromJSVal CanvasTextAlign where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasTextAlignStart, CanvasTextAlignStart), (js_CanvasTextAlignEnd, CanvasTextAlignEnd), (js_CanvasTextAlignLeft, CanvasTextAlignLeft), (js_CanvasTextAlignRight, CanvasTextAlignRight), (js_CanvasTextAlignCenter, CanvasTextAlignCenter)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasTextAlignStart :: JSString+js_CanvasTextAlignStart = "start"+js_CanvasTextAlignEnd :: JSString+js_CanvasTextAlignEnd = "end"+js_CanvasTextAlignLeft :: JSString+js_CanvasTextAlignLeft = "left"+js_CanvasTextAlignRight :: JSString+js_CanvasTextAlignRight = "right"+js_CanvasTextAlignCenter :: JSString+js_CanvasTextAlignCenter = "center"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasTextBaseline> (html)+data CanvasTextBaseline = CanvasTextBaselineTop+    | CanvasTextBaselineHanging+    | CanvasTextBaselineMiddle+    | CanvasTextBaselineAlphabetic+    | CanvasTextBaselineIdeographic+    | CanvasTextBaselineBottom+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasTextBaseline where+  pToJSVal x = pToJSVal (case x of+    CanvasTextBaselineTop -> js_CanvasTextBaselineTop+    CanvasTextBaselineHanging -> js_CanvasTextBaselineHanging+    CanvasTextBaselineMiddle -> js_CanvasTextBaselineMiddle+    CanvasTextBaselineAlphabetic -> js_CanvasTextBaselineAlphabetic+    CanvasTextBaselineIdeographic -> js_CanvasTextBaselineIdeographic+    CanvasTextBaselineBottom -> js_CanvasTextBaselineBottom+    )++instance ToJSVal CanvasTextBaseline where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasTextBaseline where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasTextBaseline value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasTextBaselineTop, CanvasTextBaselineTop), (js_CanvasTextBaselineHanging, CanvasTextBaselineHanging), (js_CanvasTextBaselineMiddle, CanvasTextBaselineMiddle), (js_CanvasTextBaselineAlphabetic, CanvasTextBaselineAlphabetic), (js_CanvasTextBaselineIdeographic, CanvasTextBaselineIdeographic), (js_CanvasTextBaselineBottom, CanvasTextBaselineBottom)]++instance FromJSVal CanvasTextBaseline where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasTextBaselineTop, CanvasTextBaselineTop), (js_CanvasTextBaselineHanging, CanvasTextBaselineHanging), (js_CanvasTextBaselineMiddle, CanvasTextBaselineMiddle), (js_CanvasTextBaselineAlphabetic, CanvasTextBaselineAlphabetic), (js_CanvasTextBaselineIdeographic, CanvasTextBaselineIdeographic), (js_CanvasTextBaselineBottom, CanvasTextBaselineBottom)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasTextBaselineTop :: JSString+js_CanvasTextBaselineTop = "top"+js_CanvasTextBaselineHanging :: JSString+js_CanvasTextBaselineHanging = "hanging"+js_CanvasTextBaselineMiddle :: JSString+js_CanvasTextBaselineMiddle = "middle"+js_CanvasTextBaselineAlphabetic :: JSString+js_CanvasTextBaselineAlphabetic = "alphabetic"+js_CanvasTextBaselineIdeographic :: JSString+js_CanvasTextBaselineIdeographic = "ideographic"+js_CanvasTextBaselineBottom :: JSString+js_CanvasTextBaselineBottom = "bottom"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasTextRendering> (html)+data CanvasTextRendering = CanvasTextRenderingAuto+    | CanvasTextRenderingOptimizeSpeed+    | CanvasTextRenderingOptimizeLegibility+    | CanvasTextRenderingGeometricPrecision+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasTextRendering where+  pToJSVal x = pToJSVal (case x of+    CanvasTextRenderingAuto -> js_CanvasTextRenderingAuto+    CanvasTextRenderingOptimizeSpeed -> js_CanvasTextRenderingOptimizeSpeed+    CanvasTextRenderingOptimizeLegibility -> js_CanvasTextRenderingOptimizeLegibility+    CanvasTextRenderingGeometricPrecision -> js_CanvasTextRenderingGeometricPrecision+    )++instance ToJSVal CanvasTextRendering where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasTextRendering where+  pFromJSVal x = P.maybe (P.error "Unexpected CanvasTextRendering value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasTextRenderingAuto, CanvasTextRenderingAuto), (js_CanvasTextRenderingOptimizeSpeed, CanvasTextRenderingOptimizeSpeed), (js_CanvasTextRenderingOptimizeLegibility, CanvasTextRenderingOptimizeLegibility), (js_CanvasTextRenderingGeometricPrecision, CanvasTextRenderingGeometricPrecision)]++instance FromJSVal CanvasTextRendering where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CanvasTextRenderingAuto, CanvasTextRenderingAuto), (js_CanvasTextRenderingOptimizeSpeed, CanvasTextRenderingOptimizeSpeed), (js_CanvasTextRenderingOptimizeLegibility, CanvasTextRenderingOptimizeLegibility), (js_CanvasTextRenderingGeometricPrecision, CanvasTextRenderingGeometricPrecision)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CanvasTextRenderingAuto :: JSString+js_CanvasTextRenderingAuto = "auto"+js_CanvasTextRenderingOptimizeSpeed :: JSString+js_CanvasTextRenderingOptimizeSpeed = "optimizeSpeed"+js_CanvasTextRenderingOptimizeLegibility :: JSString+js_CanvasTextRenderingOptimizeLegibility = "optimizeLegibility"+js_CanvasTextRenderingGeometricPrecision :: JSString+js_CanvasTextRenderingGeometricPrecision = "geometricPrecision"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ChannelCountMode> (webaudio-1.1)+data ChannelCountMode = ChannelCountModeMax+    | ChannelCountModeClampedMax+    | ChannelCountModeExplicit+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ChannelCountMode where+  pToJSVal x = pToJSVal (case x of+    ChannelCountModeMax -> js_ChannelCountModeMax+    ChannelCountModeClampedMax -> js_ChannelCountModeClampedMax+    ChannelCountModeExplicit -> js_ChannelCountModeExplicit+    )++instance ToJSVal ChannelCountMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ChannelCountMode where+  pFromJSVal x = P.maybe (P.error "Unexpected ChannelCountMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ChannelCountModeMax, ChannelCountModeMax), (js_ChannelCountModeClampedMax, ChannelCountModeClampedMax), (js_ChannelCountModeExplicit, ChannelCountModeExplicit)]++instance FromJSVal ChannelCountMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ChannelCountModeMax, ChannelCountModeMax), (js_ChannelCountModeClampedMax, ChannelCountModeClampedMax), (js_ChannelCountModeExplicit, ChannelCountModeExplicit)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ChannelCountModeMax :: JSString+js_ChannelCountModeMax = "max"+js_ChannelCountModeClampedMax :: JSString+js_ChannelCountModeClampedMax = "clamped-max"+js_ChannelCountModeExplicit :: JSString+js_ChannelCountModeExplicit = "explicit"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ChannelInterpretation> (webaudio-1.1)+data ChannelInterpretation = ChannelInterpretationSpeakers+    | ChannelInterpretationDiscrete+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ChannelInterpretation where+  pToJSVal x = pToJSVal (case x of+    ChannelInterpretationSpeakers -> js_ChannelInterpretationSpeakers+    ChannelInterpretationDiscrete -> js_ChannelInterpretationDiscrete+    )++instance ToJSVal ChannelInterpretation where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ChannelInterpretation where+  pFromJSVal x = P.maybe (P.error "Unexpected ChannelInterpretation value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ChannelInterpretationSpeakers, ChannelInterpretationSpeakers), (js_ChannelInterpretationDiscrete, ChannelInterpretationDiscrete)]++instance FromJSVal ChannelInterpretation where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ChannelInterpretationSpeakers, ChannelInterpretationSpeakers), (js_ChannelInterpretationDiscrete, ChannelInterpretationDiscrete)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ChannelInterpretationSpeakers :: JSString+js_ChannelInterpretationSpeakers = "speakers"+js_ChannelInterpretationDiscrete :: JSString+js_ChannelInterpretationDiscrete = "discrete"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ClientType> (service-workers)+data ClientType = ClientTypeWindow+    | ClientTypeWorker+    | ClientTypeSharedworker+    | ClientTypeAll+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ClientType where+  pToJSVal x = pToJSVal (case x of+    ClientTypeWindow -> js_ClientTypeWindow+    ClientTypeWorker -> js_ClientTypeWorker+    ClientTypeSharedworker -> js_ClientTypeSharedworker+    ClientTypeAll -> js_ClientTypeAll+    )++instance ToJSVal ClientType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ClientType where+  pFromJSVal x = P.maybe (P.error "Unexpected ClientType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ClientTypeWindow, ClientTypeWindow), (js_ClientTypeWorker, ClientTypeWorker), (js_ClientTypeSharedworker, ClientTypeSharedworker), (js_ClientTypeAll, ClientTypeAll)]++instance FromJSVal ClientType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ClientTypeWindow, ClientTypeWindow), (js_ClientTypeWorker, ClientTypeWorker), (js_ClientTypeSharedworker, ClientTypeSharedworker), (js_ClientTypeAll, ClientTypeAll)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ClientTypeWindow :: JSString+js_ClientTypeWindow = "window"+js_ClientTypeWorker :: JSString+js_ClientTypeWorker = "worker"+js_ClientTypeSharedworker :: JSString+js_ClientTypeSharedworker = "sharedworker"+js_ClientTypeAll :: JSString+js_ClientTypeAll = "all"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CodecState> (webcodecs)+data CodecState = CodecStateUnconfigured+    | CodecStateConfigured+    | CodecStateClosed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CodecState where+  pToJSVal x = pToJSVal (case x of+    CodecStateUnconfigured -> js_CodecStateUnconfigured+    CodecStateConfigured -> js_CodecStateConfigured+    CodecStateClosed -> js_CodecStateClosed+    )++instance ToJSVal CodecState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CodecState where+  pFromJSVal x = P.maybe (P.error "Unexpected CodecState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CodecStateUnconfigured, CodecStateUnconfigured), (js_CodecStateConfigured, CodecStateConfigured), (js_CodecStateClosed, CodecStateClosed)]++instance FromJSVal CodecState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CodecStateUnconfigured, CodecStateUnconfigured), (js_CodecStateConfigured, CodecStateConfigured), (js_CodecStateClosed, CodecStateClosed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CodecStateUnconfigured :: JSString+js_CodecStateUnconfigured = "unconfigured"+js_CodecStateConfigured :: JSString+js_CodecStateConfigured = "configured"+js_CodecStateClosed :: JSString+js_CodecStateClosed = "closed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ColorGamut> (media-capabilities)+data ColorGamut = ColorGamutSrgb+    | ColorGamutP3+    | ColorGamutRec2020+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ColorGamut where+  pToJSVal x = pToJSVal (case x of+    ColorGamutSrgb -> js_ColorGamutSrgb+    ColorGamutP3 -> js_ColorGamutP3+    ColorGamutRec2020 -> js_ColorGamutRec2020+    )++instance ToJSVal ColorGamut where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ColorGamut where+  pFromJSVal x = P.maybe (P.error "Unexpected ColorGamut value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ColorGamutSrgb, ColorGamutSrgb), (js_ColorGamutP3, ColorGamutP3), (js_ColorGamutRec2020, ColorGamutRec2020)]++instance FromJSVal ColorGamut where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ColorGamutSrgb, ColorGamutSrgb), (js_ColorGamutP3, ColorGamutP3), (js_ColorGamutRec2020, ColorGamutRec2020)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ColorGamutSrgb :: JSString+js_ColorGamutSrgb = "srgb"+js_ColorGamutP3 :: JSString+js_ColorGamutP3 = "p3"+js_ColorGamutRec2020 :: JSString+js_ColorGamutRec2020 = "rec2020"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ColorSpaceConversion> (html)+data ColorSpaceConversion = ColorSpaceConversionNone+    | ColorSpaceConversionDefault+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ColorSpaceConversion where+  pToJSVal x = pToJSVal (case x of+    ColorSpaceConversionNone -> js_ColorSpaceConversionNone+    ColorSpaceConversionDefault -> js_ColorSpaceConversionDefault+    )++instance ToJSVal ColorSpaceConversion where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ColorSpaceConversion where+  pFromJSVal x = P.maybe (P.error "Unexpected ColorSpaceConversion value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ColorSpaceConversionNone, ColorSpaceConversionNone), (js_ColorSpaceConversionDefault, ColorSpaceConversionDefault)]++instance FromJSVal ColorSpaceConversion where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ColorSpaceConversionNone, ColorSpaceConversionNone), (js_ColorSpaceConversionDefault, ColorSpaceConversionDefault)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ColorSpaceConversionNone :: JSString+js_ColorSpaceConversionNone = "none"+js_ColorSpaceConversionDefault :: JSString+js_ColorSpaceConversionDefault = "default"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CompositeOperation> (web-animations-1)+data CompositeOperation = CompositeOperationReplace+    | CompositeOperationAdd+    | CompositeOperationAccumulate+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CompositeOperation where+  pToJSVal x = pToJSVal (case x of+    CompositeOperationReplace -> js_CompositeOperationReplace+    CompositeOperationAdd -> js_CompositeOperationAdd+    CompositeOperationAccumulate -> js_CompositeOperationAccumulate+    )++instance ToJSVal CompositeOperation where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CompositeOperation where+  pFromJSVal x = P.maybe (P.error "Unexpected CompositeOperation value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CompositeOperationReplace, CompositeOperationReplace), (js_CompositeOperationAdd, CompositeOperationAdd), (js_CompositeOperationAccumulate, CompositeOperationAccumulate)]++instance FromJSVal CompositeOperation where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CompositeOperationReplace, CompositeOperationReplace), (js_CompositeOperationAdd, CompositeOperationAdd), (js_CompositeOperationAccumulate, CompositeOperationAccumulate)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CompositeOperationReplace :: JSString+js_CompositeOperationReplace = "replace"+js_CompositeOperationAdd :: JSString+js_CompositeOperationAdd = "add"+js_CompositeOperationAccumulate :: JSString+js_CompositeOperationAccumulate = "accumulate"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CompressionFormat> (compression)+data CompressionFormat = CompressionFormatBrotli+    | CompressionFormatDeflate+    | CompressionFormatDeflateRaw+    | CompressionFormatGzip+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CompressionFormat where+  pToJSVal x = pToJSVal (case x of+    CompressionFormatBrotli -> js_CompressionFormatBrotli+    CompressionFormatDeflate -> js_CompressionFormatDeflate+    CompressionFormatDeflateRaw -> js_CompressionFormatDeflateRaw+    CompressionFormatGzip -> js_CompressionFormatGzip+    )++instance ToJSVal CompressionFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CompressionFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected CompressionFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CompressionFormatBrotli, CompressionFormatBrotli), (js_CompressionFormatDeflate, CompressionFormatDeflate), (js_CompressionFormatDeflateRaw, CompressionFormatDeflateRaw), (js_CompressionFormatGzip, CompressionFormatGzip)]++instance FromJSVal CompressionFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CompressionFormatBrotli, CompressionFormatBrotli), (js_CompressionFormatDeflate, CompressionFormatDeflate), (js_CompressionFormatDeflateRaw, CompressionFormatDeflateRaw), (js_CompressionFormatGzip, CompressionFormatGzip)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CompressionFormatBrotli :: JSString+js_CompressionFormatBrotli = "brotli"+js_CompressionFormatDeflate :: JSString+js_CompressionFormatDeflate = "deflate"+js_CompressionFormatDeflateRaw :: JSString+js_CompressionFormatDeflateRaw = "deflate-raw"+js_CompressionFormatGzip :: JSString+js_CompressionFormatGzip = "gzip"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CookieSameSite> (cookiestore)+data CookieSameSite = CookieSameSiteStrict+    | CookieSameSiteLax+    | CookieSameSiteNone+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CookieSameSite where+  pToJSVal x = pToJSVal (case x of+    CookieSameSiteStrict -> js_CookieSameSiteStrict+    CookieSameSiteLax -> js_CookieSameSiteLax+    CookieSameSiteNone -> js_CookieSameSiteNone+    )++instance ToJSVal CookieSameSite where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CookieSameSite where+  pFromJSVal x = P.maybe (P.error "Unexpected CookieSameSite value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CookieSameSiteStrict, CookieSameSiteStrict), (js_CookieSameSiteLax, CookieSameSiteLax), (js_CookieSameSiteNone, CookieSameSiteNone)]++instance FromJSVal CookieSameSite where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CookieSameSiteStrict, CookieSameSiteStrict), (js_CookieSameSiteLax, CookieSameSiteLax), (js_CookieSameSiteNone, CookieSameSiteNone)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CookieSameSiteStrict :: JSString+js_CookieSameSiteStrict = "strict"+js_CookieSameSiteLax :: JSString+js_CookieSameSiteLax = "lax"+js_CookieSameSiteNone :: JSString+js_CookieSameSiteNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CredentialMediationRequirement> (credential-management-1)+data CredentialMediationRequirement = CredentialMediationRequirementSilent+    | CredentialMediationRequirementOptional+    | CredentialMediationRequirementConditional+    | CredentialMediationRequirementRequired+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CredentialMediationRequirement where+  pToJSVal x = pToJSVal (case x of+    CredentialMediationRequirementSilent -> js_CredentialMediationRequirementSilent+    CredentialMediationRequirementOptional -> js_CredentialMediationRequirementOptional+    CredentialMediationRequirementConditional -> js_CredentialMediationRequirementConditional+    CredentialMediationRequirementRequired -> js_CredentialMediationRequirementRequired+    )++instance ToJSVal CredentialMediationRequirement where+  toJSVal = P.return . pToJSVal++instance PFromJSVal CredentialMediationRequirement where+  pFromJSVal x = P.maybe (P.error "Unexpected CredentialMediationRequirement value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CredentialMediationRequirementSilent, CredentialMediationRequirementSilent), (js_CredentialMediationRequirementOptional, CredentialMediationRequirementOptional), (js_CredentialMediationRequirementConditional, CredentialMediationRequirementConditional), (js_CredentialMediationRequirementRequired, CredentialMediationRequirementRequired)]++instance FromJSVal CredentialMediationRequirement where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_CredentialMediationRequirementSilent, CredentialMediationRequirementSilent), (js_CredentialMediationRequirementOptional, CredentialMediationRequirementOptional), (js_CredentialMediationRequirementConditional, CredentialMediationRequirementConditional), (js_CredentialMediationRequirementRequired, CredentialMediationRequirementRequired)]+  fromJSValUnchecked = P.return . pFromJSVal++js_CredentialMediationRequirementSilent :: JSString+js_CredentialMediationRequirementSilent = "silent"+js_CredentialMediationRequirementOptional :: JSString+js_CredentialMediationRequirementOptional = "optional"+js_CredentialMediationRequirementConditional :: JSString+js_CredentialMediationRequirementConditional = "conditional"+js_CredentialMediationRequirementRequired :: JSString+js_CredentialMediationRequirementRequired = "required"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DOMParserSupportedType> (html)+data DOMParserSupportedType = DOMParserSupportedTypeTextHtml+    | DOMParserSupportedTypeTextXml+    | DOMParserSupportedTypeApplicationXml+    | DOMParserSupportedTypeApplicationXhtmlXml+    | DOMParserSupportedTypeImageSvgXml+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DOMParserSupportedType where+  pToJSVal x = pToJSVal (case x of+    DOMParserSupportedTypeTextHtml -> js_DOMParserSupportedTypeTextHtml+    DOMParserSupportedTypeTextXml -> js_DOMParserSupportedTypeTextXml+    DOMParserSupportedTypeApplicationXml -> js_DOMParserSupportedTypeApplicationXml+    DOMParserSupportedTypeApplicationXhtmlXml -> js_DOMParserSupportedTypeApplicationXhtmlXml+    DOMParserSupportedTypeImageSvgXml -> js_DOMParserSupportedTypeImageSvgXml+    )++instance ToJSVal DOMParserSupportedType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal DOMParserSupportedType where+  pFromJSVal x = P.maybe (P.error "Unexpected DOMParserSupportedType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DOMParserSupportedTypeTextHtml, DOMParserSupportedTypeTextHtml), (js_DOMParserSupportedTypeTextXml, DOMParserSupportedTypeTextXml), (js_DOMParserSupportedTypeApplicationXml, DOMParserSupportedTypeApplicationXml), (js_DOMParserSupportedTypeApplicationXhtmlXml, DOMParserSupportedTypeApplicationXhtmlXml), (js_DOMParserSupportedTypeImageSvgXml, DOMParserSupportedTypeImageSvgXml)]++instance FromJSVal DOMParserSupportedType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DOMParserSupportedTypeTextHtml, DOMParserSupportedTypeTextHtml), (js_DOMParserSupportedTypeTextXml, DOMParserSupportedTypeTextXml), (js_DOMParserSupportedTypeApplicationXml, DOMParserSupportedTypeApplicationXml), (js_DOMParserSupportedTypeApplicationXhtmlXml, DOMParserSupportedTypeApplicationXhtmlXml), (js_DOMParserSupportedTypeImageSvgXml, DOMParserSupportedTypeImageSvgXml)]+  fromJSValUnchecked = P.return . pFromJSVal++js_DOMParserSupportedTypeTextHtml :: JSString+js_DOMParserSupportedTypeTextHtml = "text/html"+js_DOMParserSupportedTypeTextXml :: JSString+js_DOMParserSupportedTypeTextXml = "text/xml"+js_DOMParserSupportedTypeApplicationXml :: JSString+js_DOMParserSupportedTypeApplicationXml = "application/xml"+js_DOMParserSupportedTypeApplicationXhtmlXml :: JSString+js_DOMParserSupportedTypeApplicationXhtmlXml = "application/xhtml+xml"+js_DOMParserSupportedTypeImageSvgXml :: JSString+js_DOMParserSupportedTypeImageSvgXml = "image/svg+xml"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DigitalCredentialIssuanceProtocol> (digital-credentials)+data DigitalCredentialIssuanceProtocol = DigitalCredentialIssuanceProtocolOpenid4vciV1+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DigitalCredentialIssuanceProtocol where+  pToJSVal x = pToJSVal (case x of+    DigitalCredentialIssuanceProtocolOpenid4vciV1 -> js_DigitalCredentialIssuanceProtocolOpenid4vciV1+    )++instance ToJSVal DigitalCredentialIssuanceProtocol where+  toJSVal = P.return . pToJSVal++instance PFromJSVal DigitalCredentialIssuanceProtocol where+  pFromJSVal x = P.maybe (P.error "Unexpected DigitalCredentialIssuanceProtocol value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DigitalCredentialIssuanceProtocolOpenid4vciV1, DigitalCredentialIssuanceProtocolOpenid4vciV1)]++instance FromJSVal DigitalCredentialIssuanceProtocol where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DigitalCredentialIssuanceProtocolOpenid4vciV1, DigitalCredentialIssuanceProtocolOpenid4vciV1)]+  fromJSValUnchecked = P.return . pFromJSVal++js_DigitalCredentialIssuanceProtocolOpenid4vciV1 :: JSString+js_DigitalCredentialIssuanceProtocolOpenid4vciV1 = "openid4vci-v1"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DigitalCredentialPresentationProtocol> (digital-credentials)+data DigitalCredentialPresentationProtocol = DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned+    | DigitalCredentialPresentationProtocolOpenid4vpV1Signed+    | DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned+    | DigitalCredentialPresentationProtocolOrgIsoMdoc+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DigitalCredentialPresentationProtocol where+  pToJSVal x = pToJSVal (case x of+    DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned -> js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned+    DigitalCredentialPresentationProtocolOpenid4vpV1Signed -> js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed+    DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned -> js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned+    DigitalCredentialPresentationProtocolOrgIsoMdoc -> js_DigitalCredentialPresentationProtocolOrgIsoMdoc+    )++instance ToJSVal DigitalCredentialPresentationProtocol where+  toJSVal = P.return . pToJSVal++instance PFromJSVal DigitalCredentialPresentationProtocol where+  pFromJSVal x = P.maybe (P.error "Unexpected DigitalCredentialPresentationProtocol value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned, DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned), (js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed, DigitalCredentialPresentationProtocolOpenid4vpV1Signed), (js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned, DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned), (js_DigitalCredentialPresentationProtocolOrgIsoMdoc, DigitalCredentialPresentationProtocolOrgIsoMdoc)]++instance FromJSVal DigitalCredentialPresentationProtocol where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned, DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned), (js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed, DigitalCredentialPresentationProtocolOpenid4vpV1Signed), (js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned, DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned), (js_DigitalCredentialPresentationProtocolOrgIsoMdoc, DigitalCredentialPresentationProtocolOrgIsoMdoc)]+  fromJSValUnchecked = P.return . pFromJSVal++js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned :: JSString+js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned = "openid4vp-v1-unsigned"+js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed :: JSString+js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed = "openid4vp-v1-signed"+js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned :: JSString+js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned = "openid4vp-v1-multisigned"+js_DigitalCredentialPresentationProtocolOrgIsoMdoc :: JSString+js_DigitalCredentialPresentationProtocolOrgIsoMdoc = "org-iso-mdoc"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DirectionSetting> (webvtt1)+data DirectionSetting = DirectionSetting+    | DirectionSettingRl+    | DirectionSettingLr+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DirectionSetting where+  pToJSVal x = pToJSVal (case x of+    DirectionSetting -> js_DirectionSetting+    DirectionSettingRl -> js_DirectionSettingRl+    DirectionSettingLr -> js_DirectionSettingLr+    )++instance ToJSVal DirectionSetting where+  toJSVal = P.return . pToJSVal++instance PFromJSVal DirectionSetting where+  pFromJSVal x = P.maybe (P.error "Unexpected DirectionSetting value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DirectionSetting, DirectionSetting), (js_DirectionSettingRl, DirectionSettingRl), (js_DirectionSettingLr, DirectionSettingLr)]++instance FromJSVal DirectionSetting where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DirectionSetting, DirectionSetting), (js_DirectionSettingRl, DirectionSettingRl), (js_DirectionSettingLr, DirectionSettingLr)]+  fromJSValUnchecked = P.return . pFromJSVal++js_DirectionSetting :: JSString+js_DirectionSetting = ""+js_DirectionSettingRl :: JSString+js_DirectionSettingRl = "rl"+js_DirectionSettingLr :: JSString+js_DirectionSettingLr = "lr"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DistanceModelType> (webaudio-1.1)+data DistanceModelType = DistanceModelTypeLinear+    | DistanceModelTypeInverse+    | DistanceModelTypeExponential+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DistanceModelType where+  pToJSVal x = pToJSVal (case x of+    DistanceModelTypeLinear -> js_DistanceModelTypeLinear+    DistanceModelTypeInverse -> js_DistanceModelTypeInverse+    DistanceModelTypeExponential -> js_DistanceModelTypeExponential+    )++instance ToJSVal DistanceModelType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal DistanceModelType where+  pFromJSVal x = P.maybe (P.error "Unexpected DistanceModelType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DistanceModelTypeLinear, DistanceModelTypeLinear), (js_DistanceModelTypeInverse, DistanceModelTypeInverse), (js_DistanceModelTypeExponential, DistanceModelTypeExponential)]++instance FromJSVal DistanceModelType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DistanceModelTypeLinear, DistanceModelTypeLinear), (js_DistanceModelTypeInverse, DistanceModelTypeInverse), (js_DistanceModelTypeExponential, DistanceModelTypeExponential)]+  fromJSValUnchecked = P.return . pFromJSVal++js_DistanceModelTypeLinear :: JSString+js_DistanceModelTypeLinear = "linear"+js_DistanceModelTypeInverse :: JSString+js_DistanceModelTypeInverse = "inverse"+js_DistanceModelTypeExponential :: JSString+js_DistanceModelTypeExponential = "exponential"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DocumentReadyState> (html)+data DocumentReadyState = DocumentReadyStateLoading+    | DocumentReadyStateInteractive+    | DocumentReadyStateComplete+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DocumentReadyState where+  pToJSVal x = pToJSVal (case x of+    DocumentReadyStateLoading -> js_DocumentReadyStateLoading+    DocumentReadyStateInteractive -> js_DocumentReadyStateInteractive+    DocumentReadyStateComplete -> js_DocumentReadyStateComplete+    )++instance ToJSVal DocumentReadyState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal DocumentReadyState where+  pFromJSVal x = P.maybe (P.error "Unexpected DocumentReadyState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DocumentReadyStateLoading, DocumentReadyStateLoading), (js_DocumentReadyStateInteractive, DocumentReadyStateInteractive), (js_DocumentReadyStateComplete, DocumentReadyStateComplete)]++instance FromJSVal DocumentReadyState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DocumentReadyStateLoading, DocumentReadyStateLoading), (js_DocumentReadyStateInteractive, DocumentReadyStateInteractive), (js_DocumentReadyStateComplete, DocumentReadyStateComplete)]+  fromJSValUnchecked = P.return . pFromJSVal++js_DocumentReadyStateLoading :: JSString+js_DocumentReadyStateLoading = "loading"+js_DocumentReadyStateInteractive :: JSString+js_DocumentReadyStateInteractive = "interactive"+js_DocumentReadyStateComplete :: JSString+js_DocumentReadyStateComplete = "complete"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DocumentVisibilityState> (html)+data DocumentVisibilityState = DocumentVisibilityStateVisible+    | DocumentVisibilityStateHidden+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DocumentVisibilityState where+  pToJSVal x = pToJSVal (case x of+    DocumentVisibilityStateVisible -> js_DocumentVisibilityStateVisible+    DocumentVisibilityStateHidden -> js_DocumentVisibilityStateHidden+    )++instance ToJSVal DocumentVisibilityState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal DocumentVisibilityState where+  pFromJSVal x = P.maybe (P.error "Unexpected DocumentVisibilityState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DocumentVisibilityStateVisible, DocumentVisibilityStateVisible), (js_DocumentVisibilityStateHidden, DocumentVisibilityStateHidden)]++instance FromJSVal DocumentVisibilityState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_DocumentVisibilityStateVisible, DocumentVisibilityStateVisible), (js_DocumentVisibilityStateHidden, DocumentVisibilityStateHidden)]+  fromJSValUnchecked = P.return . pFromJSVal++js_DocumentVisibilityStateVisible :: JSString+js_DocumentVisibilityStateVisible = "visible"+js_DocumentVisibilityStateHidden :: JSString+js_DocumentVisibilityStateHidden = "hidden"++-- | <https://developer.mozilla.org/en-US/docs/Web/API EncodedAudioChunkType> (webcodecs)+data EncodedAudioChunkType = EncodedAudioChunkTypeKey+    | EncodedAudioChunkTypeDelta+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal EncodedAudioChunkType where+  pToJSVal x = pToJSVal (case x of+    EncodedAudioChunkTypeKey -> js_EncodedAudioChunkTypeKey+    EncodedAudioChunkTypeDelta -> js_EncodedAudioChunkTypeDelta+    )++instance ToJSVal EncodedAudioChunkType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal EncodedAudioChunkType where+  pFromJSVal x = P.maybe (P.error "Unexpected EncodedAudioChunkType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_EncodedAudioChunkTypeKey, EncodedAudioChunkTypeKey), (js_EncodedAudioChunkTypeDelta, EncodedAudioChunkTypeDelta)]++instance FromJSVal EncodedAudioChunkType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_EncodedAudioChunkTypeKey, EncodedAudioChunkTypeKey), (js_EncodedAudioChunkTypeDelta, EncodedAudioChunkTypeDelta)]+  fromJSValUnchecked = P.return . pFromJSVal++js_EncodedAudioChunkTypeKey :: JSString+js_EncodedAudioChunkTypeKey = "key"+js_EncodedAudioChunkTypeDelta :: JSString+js_EncodedAudioChunkTypeDelta = "delta"++-- | <https://developer.mozilla.org/en-US/docs/Web/API EncodedVideoChunkType> (webcodecs)+data EncodedVideoChunkType = EncodedVideoChunkTypeKey+    | EncodedVideoChunkTypeDelta+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal EncodedVideoChunkType where+  pToJSVal x = pToJSVal (case x of+    EncodedVideoChunkTypeKey -> js_EncodedVideoChunkTypeKey+    EncodedVideoChunkTypeDelta -> js_EncodedVideoChunkTypeDelta+    )++instance ToJSVal EncodedVideoChunkType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal EncodedVideoChunkType where+  pFromJSVal x = P.maybe (P.error "Unexpected EncodedVideoChunkType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_EncodedVideoChunkTypeKey, EncodedVideoChunkTypeKey), (js_EncodedVideoChunkTypeDelta, EncodedVideoChunkTypeDelta)]++instance FromJSVal EncodedVideoChunkType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_EncodedVideoChunkTypeKey, EncodedVideoChunkTypeKey), (js_EncodedVideoChunkTypeDelta, EncodedVideoChunkTypeDelta)]+  fromJSValUnchecked = P.return . pFromJSVal++js_EncodedVideoChunkTypeKey :: JSString+js_EncodedVideoChunkTypeKey = "key"+js_EncodedVideoChunkTypeDelta :: JSString+js_EncodedVideoChunkTypeDelta = "delta"++-- | <https://developer.mozilla.org/en-US/docs/Web/API EndOfStreamError> (media-source-2)+data EndOfStreamError = EndOfStreamErrorNetwork+    | EndOfStreamErrorDecode+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal EndOfStreamError where+  pToJSVal x = pToJSVal (case x of+    EndOfStreamErrorNetwork -> js_EndOfStreamErrorNetwork+    EndOfStreamErrorDecode -> js_EndOfStreamErrorDecode+    )++instance ToJSVal EndOfStreamError where+  toJSVal = P.return . pToJSVal++instance PFromJSVal EndOfStreamError where+  pFromJSVal x = P.maybe (P.error "Unexpected EndOfStreamError value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_EndOfStreamErrorNetwork, EndOfStreamErrorNetwork), (js_EndOfStreamErrorDecode, EndOfStreamErrorDecode)]++instance FromJSVal EndOfStreamError where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_EndOfStreamErrorNetwork, EndOfStreamErrorNetwork), (js_EndOfStreamErrorDecode, EndOfStreamErrorDecode)]+  fromJSValUnchecked = P.return . pFromJSVal++js_EndOfStreamErrorNetwork :: JSString+js_EndOfStreamErrorNetwork = "network"+js_EndOfStreamErrorDecode :: JSString+js_EndOfStreamErrorDecode = "decode"++-- | <https://developer.mozilla.org/en-US/docs/Web/API EndingType> (FileAPI)+data EndingType = EndingTypeTransparent+    | EndingTypeNative+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal EndingType where+  pToJSVal x = pToJSVal (case x of+    EndingTypeTransparent -> js_EndingTypeTransparent+    EndingTypeNative -> js_EndingTypeNative+    )++instance ToJSVal EndingType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal EndingType where+  pFromJSVal x = P.maybe (P.error "Unexpected EndingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_EndingTypeTransparent, EndingTypeTransparent), (js_EndingTypeNative, EndingTypeNative)]++instance FromJSVal EndingType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_EndingTypeTransparent, EndingTypeTransparent), (js_EndingTypeNative, EndingTypeNative)]+  fromJSValUnchecked = P.return . pFromJSVal++js_EndingTypeTransparent :: JSString+js_EndingTypeTransparent = "transparent"+js_EndingTypeNative :: JSString+js_EndingTypeNative = "native"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FileSystemHandleKind> (fs)+data FileSystemHandleKind = FileSystemHandleKindFile+    | FileSystemHandleKindDirectory+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FileSystemHandleKind where+  pToJSVal x = pToJSVal (case x of+    FileSystemHandleKindFile -> js_FileSystemHandleKindFile+    FileSystemHandleKindDirectory -> js_FileSystemHandleKindDirectory+    )++instance ToJSVal FileSystemHandleKind where+  toJSVal = P.return . pToJSVal++instance PFromJSVal FileSystemHandleKind where+  pFromJSVal x = P.maybe (P.error "Unexpected FileSystemHandleKind value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FileSystemHandleKindFile, FileSystemHandleKindFile), (js_FileSystemHandleKindDirectory, FileSystemHandleKindDirectory)]++instance FromJSVal FileSystemHandleKind where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FileSystemHandleKindFile, FileSystemHandleKindFile), (js_FileSystemHandleKindDirectory, FileSystemHandleKindDirectory)]+  fromJSValUnchecked = P.return . pFromJSVal++js_FileSystemHandleKindFile :: JSString+js_FileSystemHandleKindFile = "file"+js_FileSystemHandleKindDirectory :: JSString+js_FileSystemHandleKindDirectory = "directory"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FillLightMode> (image-capture)+data FillLightMode = FillLightModeAuto+    | FillLightModeOff+    | FillLightModeFlash+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FillLightMode where+  pToJSVal x = pToJSVal (case x of+    FillLightModeAuto -> js_FillLightModeAuto+    FillLightModeOff -> js_FillLightModeOff+    FillLightModeFlash -> js_FillLightModeFlash+    )++instance ToJSVal FillLightMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal FillLightMode where+  pFromJSVal x = P.maybe (P.error "Unexpected FillLightMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FillLightModeAuto, FillLightModeAuto), (js_FillLightModeOff, FillLightModeOff), (js_FillLightModeFlash, FillLightModeFlash)]++instance FromJSVal FillLightMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FillLightModeAuto, FillLightModeAuto), (js_FillLightModeOff, FillLightModeOff), (js_FillLightModeFlash, FillLightModeFlash)]+  fromJSValUnchecked = P.return . pFromJSVal++js_FillLightModeAuto :: JSString+js_FillLightModeAuto = "auto"+js_FillLightModeOff :: JSString+js_FillLightModeOff = "off"+js_FillLightModeFlash :: JSString+js_FillLightModeFlash = "flash"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FillMode> (web-animations-1)+data FillMode = FillModeNone+    | FillModeForwards+    | FillModeBackwards+    | FillModeBoth+    | FillModeAuto+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FillMode where+  pToJSVal x = pToJSVal (case x of+    FillModeNone -> js_FillModeNone+    FillModeForwards -> js_FillModeForwards+    FillModeBackwards -> js_FillModeBackwards+    FillModeBoth -> js_FillModeBoth+    FillModeAuto -> js_FillModeAuto+    )++instance ToJSVal FillMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal FillMode where+  pFromJSVal x = P.maybe (P.error "Unexpected FillMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FillModeNone, FillModeNone), (js_FillModeForwards, FillModeForwards), (js_FillModeBackwards, FillModeBackwards), (js_FillModeBoth, FillModeBoth), (js_FillModeAuto, FillModeAuto)]++instance FromJSVal FillMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FillModeNone, FillModeNone), (js_FillModeForwards, FillModeForwards), (js_FillModeBackwards, FillModeBackwards), (js_FillModeBoth, FillModeBoth), (js_FillModeAuto, FillModeAuto)]+  fromJSValUnchecked = P.return . pFromJSVal++js_FillModeNone :: JSString+js_FillModeNone = "none"+js_FillModeForwards :: JSString+js_FillModeForwards = "forwards"+js_FillModeBackwards :: JSString+js_FillModeBackwards = "backwards"+js_FillModeBoth :: JSString+js_FillModeBoth = "both"+js_FillModeAuto :: JSString+js_FillModeAuto = "auto"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FlowControlType> (serial)+data FlowControlType = FlowControlTypeNone+    | FlowControlTypeHardware+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FlowControlType where+  pToJSVal x = pToJSVal (case x of+    FlowControlTypeNone -> js_FlowControlTypeNone+    FlowControlTypeHardware -> js_FlowControlTypeHardware+    )++instance ToJSVal FlowControlType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal FlowControlType where+  pFromJSVal x = P.maybe (P.error "Unexpected FlowControlType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FlowControlTypeNone, FlowControlTypeNone), (js_FlowControlTypeHardware, FlowControlTypeHardware)]++instance FromJSVal FlowControlType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FlowControlTypeNone, FlowControlTypeNone), (js_FlowControlTypeHardware, FlowControlTypeHardware)]+  fromJSValUnchecked = P.return . pFromJSVal++js_FlowControlTypeNone :: JSString+js_FlowControlTypeNone = "none"+js_FlowControlTypeHardware :: JSString+js_FlowControlTypeHardware = "hardware"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FontFaceLoadStatus> (css-font-loading-3)+data FontFaceLoadStatus = FontFaceLoadStatusUnloaded+    | FontFaceLoadStatusLoading+    | FontFaceLoadStatusLoaded+    | FontFaceLoadStatusError+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FontFaceLoadStatus where+  pToJSVal x = pToJSVal (case x of+    FontFaceLoadStatusUnloaded -> js_FontFaceLoadStatusUnloaded+    FontFaceLoadStatusLoading -> js_FontFaceLoadStatusLoading+    FontFaceLoadStatusLoaded -> js_FontFaceLoadStatusLoaded+    FontFaceLoadStatusError -> js_FontFaceLoadStatusError+    )++instance ToJSVal FontFaceLoadStatus where+  toJSVal = P.return . pToJSVal++instance PFromJSVal FontFaceLoadStatus where+  pFromJSVal x = P.maybe (P.error "Unexpected FontFaceLoadStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FontFaceLoadStatusUnloaded, FontFaceLoadStatusUnloaded), (js_FontFaceLoadStatusLoading, FontFaceLoadStatusLoading), (js_FontFaceLoadStatusLoaded, FontFaceLoadStatusLoaded), (js_FontFaceLoadStatusError, FontFaceLoadStatusError)]++instance FromJSVal FontFaceLoadStatus where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FontFaceLoadStatusUnloaded, FontFaceLoadStatusUnloaded), (js_FontFaceLoadStatusLoading, FontFaceLoadStatusLoading), (js_FontFaceLoadStatusLoaded, FontFaceLoadStatusLoaded), (js_FontFaceLoadStatusError, FontFaceLoadStatusError)]+  fromJSValUnchecked = P.return . pFromJSVal++js_FontFaceLoadStatusUnloaded :: JSString+js_FontFaceLoadStatusUnloaded = "unloaded"+js_FontFaceLoadStatusLoading :: JSString+js_FontFaceLoadStatusLoading = "loading"+js_FontFaceLoadStatusLoaded :: JSString+js_FontFaceLoadStatusLoaded = "loaded"+js_FontFaceLoadStatusError :: JSString+js_FontFaceLoadStatusError = "error"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FontFaceSetLoadStatus> (css-font-loading-3)+data FontFaceSetLoadStatus = FontFaceSetLoadStatusLoading+    | FontFaceSetLoadStatusLoaded+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FontFaceSetLoadStatus where+  pToJSVal x = pToJSVal (case x of+    FontFaceSetLoadStatusLoading -> js_FontFaceSetLoadStatusLoading+    FontFaceSetLoadStatusLoaded -> js_FontFaceSetLoadStatusLoaded+    )++instance ToJSVal FontFaceSetLoadStatus where+  toJSVal = P.return . pToJSVal++instance PFromJSVal FontFaceSetLoadStatus where+  pFromJSVal x = P.maybe (P.error "Unexpected FontFaceSetLoadStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FontFaceSetLoadStatusLoading, FontFaceSetLoadStatusLoading), (js_FontFaceSetLoadStatusLoaded, FontFaceSetLoadStatusLoaded)]++instance FromJSVal FontFaceSetLoadStatus where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FontFaceSetLoadStatusLoading, FontFaceSetLoadStatusLoading), (js_FontFaceSetLoadStatusLoaded, FontFaceSetLoadStatusLoaded)]+  fromJSValUnchecked = P.return . pFromJSVal++js_FontFaceSetLoadStatusLoading :: JSString+js_FontFaceSetLoadStatusLoading = "loading"+js_FontFaceSetLoadStatusLoaded :: JSString+js_FontFaceSetLoadStatusLoaded = "loaded"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FrameType> (service-workers)+data FrameType = FrameTypeAuxiliary+    | FrameTypeTopLevel+    | FrameTypeNested+    | FrameTypeNone+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FrameType where+  pToJSVal x = pToJSVal (case x of+    FrameTypeAuxiliary -> js_FrameTypeAuxiliary+    FrameTypeTopLevel -> js_FrameTypeTopLevel+    FrameTypeNested -> js_FrameTypeNested+    FrameTypeNone -> js_FrameTypeNone+    )++instance ToJSVal FrameType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal FrameType where+  pFromJSVal x = P.maybe (P.error "Unexpected FrameType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FrameTypeAuxiliary, FrameTypeAuxiliary), (js_FrameTypeTopLevel, FrameTypeTopLevel), (js_FrameTypeNested, FrameTypeNested), (js_FrameTypeNone, FrameTypeNone)]++instance FromJSVal FrameType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FrameTypeAuxiliary, FrameTypeAuxiliary), (js_FrameTypeTopLevel, FrameTypeTopLevel), (js_FrameTypeNested, FrameTypeNested), (js_FrameTypeNone, FrameTypeNone)]+  fromJSValUnchecked = P.return . pFromJSVal++js_FrameTypeAuxiliary :: JSString+js_FrameTypeAuxiliary = "auxiliary"+js_FrameTypeTopLevel :: JSString+js_FrameTypeTopLevel = "top-level"+js_FrameTypeNested :: JSString+js_FrameTypeNested = "nested"+js_FrameTypeNone :: JSString+js_FrameTypeNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FullscreenKeyboardLock> (fullscreen)+data FullscreenKeyboardLock = FullscreenKeyboardLockBrowser+    | FullscreenKeyboardLockNone+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FullscreenKeyboardLock where+  pToJSVal x = pToJSVal (case x of+    FullscreenKeyboardLockBrowser -> js_FullscreenKeyboardLockBrowser+    FullscreenKeyboardLockNone -> js_FullscreenKeyboardLockNone+    )++instance ToJSVal FullscreenKeyboardLock where+  toJSVal = P.return . pToJSVal++instance PFromJSVal FullscreenKeyboardLock where+  pFromJSVal x = P.maybe (P.error "Unexpected FullscreenKeyboardLock value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FullscreenKeyboardLockBrowser, FullscreenKeyboardLockBrowser), (js_FullscreenKeyboardLockNone, FullscreenKeyboardLockNone)]++instance FromJSVal FullscreenKeyboardLock where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FullscreenKeyboardLockBrowser, FullscreenKeyboardLockBrowser), (js_FullscreenKeyboardLockNone, FullscreenKeyboardLockNone)]+  fromJSValUnchecked = P.return . pFromJSVal++js_FullscreenKeyboardLockBrowser :: JSString+js_FullscreenKeyboardLockBrowser = "browser"+js_FullscreenKeyboardLockNone :: JSString+js_FullscreenKeyboardLockNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FullscreenNavigationUI> (fullscreen)+data FullscreenNavigationUI = FullscreenNavigationUIAuto+    | FullscreenNavigationUIShow+    | FullscreenNavigationUIHide+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FullscreenNavigationUI where+  pToJSVal x = pToJSVal (case x of+    FullscreenNavigationUIAuto -> js_FullscreenNavigationUIAuto+    FullscreenNavigationUIShow -> js_FullscreenNavigationUIShow+    FullscreenNavigationUIHide -> js_FullscreenNavigationUIHide+    )++instance ToJSVal FullscreenNavigationUI where+  toJSVal = P.return . pToJSVal++instance PFromJSVal FullscreenNavigationUI where+  pFromJSVal x = P.maybe (P.error "Unexpected FullscreenNavigationUI value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FullscreenNavigationUIAuto, FullscreenNavigationUIAuto), (js_FullscreenNavigationUIShow, FullscreenNavigationUIShow), (js_FullscreenNavigationUIHide, FullscreenNavigationUIHide)]++instance FromJSVal FullscreenNavigationUI where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_FullscreenNavigationUIAuto, FullscreenNavigationUIAuto), (js_FullscreenNavigationUIShow, FullscreenNavigationUIShow), (js_FullscreenNavigationUIHide, FullscreenNavigationUIHide)]+  fromJSValUnchecked = P.return . pFromJSVal++js_FullscreenNavigationUIAuto :: JSString+js_FullscreenNavigationUIAuto = "auto"+js_FullscreenNavigationUIShow :: JSString+js_FullscreenNavigationUIShow = "show"+js_FullscreenNavigationUIHide :: JSString+js_FullscreenNavigationUIHide = "hide"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUAddressMode> (webgpu)+data GPUAddressMode = GPUAddressModeClampToEdge+    | GPUAddressModeRepeat+    | GPUAddressModeMirrorRepeat+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUAddressMode where+  pToJSVal x = pToJSVal (case x of+    GPUAddressModeClampToEdge -> js_GPUAddressModeClampToEdge+    GPUAddressModeRepeat -> js_GPUAddressModeRepeat+    GPUAddressModeMirrorRepeat -> js_GPUAddressModeMirrorRepeat+    )++instance ToJSVal GPUAddressMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUAddressMode where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUAddressMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUAddressModeClampToEdge, GPUAddressModeClampToEdge), (js_GPUAddressModeRepeat, GPUAddressModeRepeat), (js_GPUAddressModeMirrorRepeat, GPUAddressModeMirrorRepeat)]++instance FromJSVal GPUAddressMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUAddressModeClampToEdge, GPUAddressModeClampToEdge), (js_GPUAddressModeRepeat, GPUAddressModeRepeat), (js_GPUAddressModeMirrorRepeat, GPUAddressModeMirrorRepeat)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUAddressModeClampToEdge :: JSString+js_GPUAddressModeClampToEdge = "clamp-to-edge"+js_GPUAddressModeRepeat :: JSString+js_GPUAddressModeRepeat = "repeat"+js_GPUAddressModeMirrorRepeat :: JSString+js_GPUAddressModeMirrorRepeat = "mirror-repeat"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUAutoLayoutMode> (webgpu)+data GPUAutoLayoutMode = GPUAutoLayoutModeAuto+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUAutoLayoutMode where+  pToJSVal x = pToJSVal (case x of+    GPUAutoLayoutModeAuto -> js_GPUAutoLayoutModeAuto+    )++instance ToJSVal GPUAutoLayoutMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUAutoLayoutMode where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUAutoLayoutMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUAutoLayoutModeAuto, GPUAutoLayoutModeAuto)]++instance FromJSVal GPUAutoLayoutMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUAutoLayoutModeAuto, GPUAutoLayoutModeAuto)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUAutoLayoutModeAuto :: JSString+js_GPUAutoLayoutModeAuto = "auto"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUBlendFactor> (webgpu)+data GPUBlendFactor = GPUBlendFactorZero+    | GPUBlendFactorOne+    | GPUBlendFactorSrc+    | GPUBlendFactorOneMinusSrc+    | GPUBlendFactorSrcAlpha+    | GPUBlendFactorOneMinusSrcAlpha+    | GPUBlendFactorDst+    | GPUBlendFactorOneMinusDst+    | GPUBlendFactorDstAlpha+    | GPUBlendFactorOneMinusDstAlpha+    | GPUBlendFactorSrcAlphaSaturated+    | GPUBlendFactorConstant+    | GPUBlendFactorOneMinusConstant+    | GPUBlendFactorSrc1+    | GPUBlendFactorOneMinusSrc1+    | GPUBlendFactorSrc1Alpha+    | GPUBlendFactorOneMinusSrc1Alpha+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUBlendFactor where+  pToJSVal x = pToJSVal (case x of+    GPUBlendFactorZero -> js_GPUBlendFactorZero+    GPUBlendFactorOne -> js_GPUBlendFactorOne+    GPUBlendFactorSrc -> js_GPUBlendFactorSrc+    GPUBlendFactorOneMinusSrc -> js_GPUBlendFactorOneMinusSrc+    GPUBlendFactorSrcAlpha -> js_GPUBlendFactorSrcAlpha+    GPUBlendFactorOneMinusSrcAlpha -> js_GPUBlendFactorOneMinusSrcAlpha+    GPUBlendFactorDst -> js_GPUBlendFactorDst+    GPUBlendFactorOneMinusDst -> js_GPUBlendFactorOneMinusDst+    GPUBlendFactorDstAlpha -> js_GPUBlendFactorDstAlpha+    GPUBlendFactorOneMinusDstAlpha -> js_GPUBlendFactorOneMinusDstAlpha+    GPUBlendFactorSrcAlphaSaturated -> js_GPUBlendFactorSrcAlphaSaturated+    GPUBlendFactorConstant -> js_GPUBlendFactorConstant+    GPUBlendFactorOneMinusConstant -> js_GPUBlendFactorOneMinusConstant+    GPUBlendFactorSrc1 -> js_GPUBlendFactorSrc1+    GPUBlendFactorOneMinusSrc1 -> js_GPUBlendFactorOneMinusSrc1+    GPUBlendFactorSrc1Alpha -> js_GPUBlendFactorSrc1Alpha+    GPUBlendFactorOneMinusSrc1Alpha -> js_GPUBlendFactorOneMinusSrc1Alpha+    )++instance ToJSVal GPUBlendFactor where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUBlendFactor where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUBlendFactor value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUBlendFactorZero, GPUBlendFactorZero), (js_GPUBlendFactorOne, GPUBlendFactorOne), (js_GPUBlendFactorSrc, GPUBlendFactorSrc), (js_GPUBlendFactorOneMinusSrc, GPUBlendFactorOneMinusSrc), (js_GPUBlendFactorSrcAlpha, GPUBlendFactorSrcAlpha), (js_GPUBlendFactorOneMinusSrcAlpha, GPUBlendFactorOneMinusSrcAlpha), (js_GPUBlendFactorDst, GPUBlendFactorDst), (js_GPUBlendFactorOneMinusDst, GPUBlendFactorOneMinusDst), (js_GPUBlendFactorDstAlpha, GPUBlendFactorDstAlpha), (js_GPUBlendFactorOneMinusDstAlpha, GPUBlendFactorOneMinusDstAlpha), (js_GPUBlendFactorSrcAlphaSaturated, GPUBlendFactorSrcAlphaSaturated), (js_GPUBlendFactorConstant, GPUBlendFactorConstant), (js_GPUBlendFactorOneMinusConstant, GPUBlendFactorOneMinusConstant), (js_GPUBlendFactorSrc1, GPUBlendFactorSrc1), (js_GPUBlendFactorOneMinusSrc1, GPUBlendFactorOneMinusSrc1), (js_GPUBlendFactorSrc1Alpha, GPUBlendFactorSrc1Alpha), (js_GPUBlendFactorOneMinusSrc1Alpha, GPUBlendFactorOneMinusSrc1Alpha)]++instance FromJSVal GPUBlendFactor where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUBlendFactorZero, GPUBlendFactorZero), (js_GPUBlendFactorOne, GPUBlendFactorOne), (js_GPUBlendFactorSrc, GPUBlendFactorSrc), (js_GPUBlendFactorOneMinusSrc, GPUBlendFactorOneMinusSrc), (js_GPUBlendFactorSrcAlpha, GPUBlendFactorSrcAlpha), (js_GPUBlendFactorOneMinusSrcAlpha, GPUBlendFactorOneMinusSrcAlpha), (js_GPUBlendFactorDst, GPUBlendFactorDst), (js_GPUBlendFactorOneMinusDst, GPUBlendFactorOneMinusDst), (js_GPUBlendFactorDstAlpha, GPUBlendFactorDstAlpha), (js_GPUBlendFactorOneMinusDstAlpha, GPUBlendFactorOneMinusDstAlpha), (js_GPUBlendFactorSrcAlphaSaturated, GPUBlendFactorSrcAlphaSaturated), (js_GPUBlendFactorConstant, GPUBlendFactorConstant), (js_GPUBlendFactorOneMinusConstant, GPUBlendFactorOneMinusConstant), (js_GPUBlendFactorSrc1, GPUBlendFactorSrc1), (js_GPUBlendFactorOneMinusSrc1, GPUBlendFactorOneMinusSrc1), (js_GPUBlendFactorSrc1Alpha, GPUBlendFactorSrc1Alpha), (js_GPUBlendFactorOneMinusSrc1Alpha, GPUBlendFactorOneMinusSrc1Alpha)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUBlendFactorZero :: JSString+js_GPUBlendFactorZero = "zero"+js_GPUBlendFactorOne :: JSString+js_GPUBlendFactorOne = "one"+js_GPUBlendFactorSrc :: JSString+js_GPUBlendFactorSrc = "src"+js_GPUBlendFactorOneMinusSrc :: JSString+js_GPUBlendFactorOneMinusSrc = "one-minus-src"+js_GPUBlendFactorSrcAlpha :: JSString+js_GPUBlendFactorSrcAlpha = "src-alpha"+js_GPUBlendFactorOneMinusSrcAlpha :: JSString+js_GPUBlendFactorOneMinusSrcAlpha = "one-minus-src-alpha"+js_GPUBlendFactorDst :: JSString+js_GPUBlendFactorDst = "dst"+js_GPUBlendFactorOneMinusDst :: JSString+js_GPUBlendFactorOneMinusDst = "one-minus-dst"+js_GPUBlendFactorDstAlpha :: JSString+js_GPUBlendFactorDstAlpha = "dst-alpha"+js_GPUBlendFactorOneMinusDstAlpha :: JSString+js_GPUBlendFactorOneMinusDstAlpha = "one-minus-dst-alpha"+js_GPUBlendFactorSrcAlphaSaturated :: JSString+js_GPUBlendFactorSrcAlphaSaturated = "src-alpha-saturated"+js_GPUBlendFactorConstant :: JSString+js_GPUBlendFactorConstant = "constant"+js_GPUBlendFactorOneMinusConstant :: JSString+js_GPUBlendFactorOneMinusConstant = "one-minus-constant"+js_GPUBlendFactorSrc1 :: JSString+js_GPUBlendFactorSrc1 = "src1"+js_GPUBlendFactorOneMinusSrc1 :: JSString+js_GPUBlendFactorOneMinusSrc1 = "one-minus-src1"+js_GPUBlendFactorSrc1Alpha :: JSString+js_GPUBlendFactorSrc1Alpha = "src1-alpha"+js_GPUBlendFactorOneMinusSrc1Alpha :: JSString+js_GPUBlendFactorOneMinusSrc1Alpha = "one-minus-src1-alpha"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUBlendOperation> (webgpu)+data GPUBlendOperation = GPUBlendOperationAdd+    | GPUBlendOperationSubtract+    | GPUBlendOperationReverseSubtract+    | GPUBlendOperationMin+    | GPUBlendOperationMax+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUBlendOperation where+  pToJSVal x = pToJSVal (case x of+    GPUBlendOperationAdd -> js_GPUBlendOperationAdd+    GPUBlendOperationSubtract -> js_GPUBlendOperationSubtract+    GPUBlendOperationReverseSubtract -> js_GPUBlendOperationReverseSubtract+    GPUBlendOperationMin -> js_GPUBlendOperationMin+    GPUBlendOperationMax -> js_GPUBlendOperationMax+    )++instance ToJSVal GPUBlendOperation where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUBlendOperation where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUBlendOperation value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUBlendOperationAdd, GPUBlendOperationAdd), (js_GPUBlendOperationSubtract, GPUBlendOperationSubtract), (js_GPUBlendOperationReverseSubtract, GPUBlendOperationReverseSubtract), (js_GPUBlendOperationMin, GPUBlendOperationMin), (js_GPUBlendOperationMax, GPUBlendOperationMax)]++instance FromJSVal GPUBlendOperation where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUBlendOperationAdd, GPUBlendOperationAdd), (js_GPUBlendOperationSubtract, GPUBlendOperationSubtract), (js_GPUBlendOperationReverseSubtract, GPUBlendOperationReverseSubtract), (js_GPUBlendOperationMin, GPUBlendOperationMin), (js_GPUBlendOperationMax, GPUBlendOperationMax)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUBlendOperationAdd :: JSString+js_GPUBlendOperationAdd = "add"+js_GPUBlendOperationSubtract :: JSString+js_GPUBlendOperationSubtract = "subtract"+js_GPUBlendOperationReverseSubtract :: JSString+js_GPUBlendOperationReverseSubtract = "reverse-subtract"+js_GPUBlendOperationMin :: JSString+js_GPUBlendOperationMin = "min"+js_GPUBlendOperationMax :: JSString+js_GPUBlendOperationMax = "max"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUBufferBindingType> (webgpu)+data GPUBufferBindingType = GPUBufferBindingTypeUniform+    | GPUBufferBindingTypeStorage+    | GPUBufferBindingTypeReadOnlyStorage+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUBufferBindingType where+  pToJSVal x = pToJSVal (case x of+    GPUBufferBindingTypeUniform -> js_GPUBufferBindingTypeUniform+    GPUBufferBindingTypeStorage -> js_GPUBufferBindingTypeStorage+    GPUBufferBindingTypeReadOnlyStorage -> js_GPUBufferBindingTypeReadOnlyStorage+    )++instance ToJSVal GPUBufferBindingType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUBufferBindingType where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUBufferBindingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUBufferBindingTypeUniform, GPUBufferBindingTypeUniform), (js_GPUBufferBindingTypeStorage, GPUBufferBindingTypeStorage), (js_GPUBufferBindingTypeReadOnlyStorage, GPUBufferBindingTypeReadOnlyStorage)]++instance FromJSVal GPUBufferBindingType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUBufferBindingTypeUniform, GPUBufferBindingTypeUniform), (js_GPUBufferBindingTypeStorage, GPUBufferBindingTypeStorage), (js_GPUBufferBindingTypeReadOnlyStorage, GPUBufferBindingTypeReadOnlyStorage)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUBufferBindingTypeUniform :: JSString+js_GPUBufferBindingTypeUniform = "uniform"+js_GPUBufferBindingTypeStorage :: JSString+js_GPUBufferBindingTypeStorage = "storage"+js_GPUBufferBindingTypeReadOnlyStorage :: JSString+js_GPUBufferBindingTypeReadOnlyStorage = "read-only-storage"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUBufferMapState> (webgpu)+data GPUBufferMapState = GPUBufferMapStateUnmapped+    | GPUBufferMapStatePending+    | GPUBufferMapStateMapped+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUBufferMapState where+  pToJSVal x = pToJSVal (case x of+    GPUBufferMapStateUnmapped -> js_GPUBufferMapStateUnmapped+    GPUBufferMapStatePending -> js_GPUBufferMapStatePending+    GPUBufferMapStateMapped -> js_GPUBufferMapStateMapped+    )++instance ToJSVal GPUBufferMapState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUBufferMapState where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUBufferMapState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUBufferMapStateUnmapped, GPUBufferMapStateUnmapped), (js_GPUBufferMapStatePending, GPUBufferMapStatePending), (js_GPUBufferMapStateMapped, GPUBufferMapStateMapped)]++instance FromJSVal GPUBufferMapState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUBufferMapStateUnmapped, GPUBufferMapStateUnmapped), (js_GPUBufferMapStatePending, GPUBufferMapStatePending), (js_GPUBufferMapStateMapped, GPUBufferMapStateMapped)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUBufferMapStateUnmapped :: JSString+js_GPUBufferMapStateUnmapped = "unmapped"+js_GPUBufferMapStatePending :: JSString+js_GPUBufferMapStatePending = "pending"+js_GPUBufferMapStateMapped :: JSString+js_GPUBufferMapStateMapped = "mapped"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUCanvasAlphaMode> (webgpu)+data GPUCanvasAlphaMode = GPUCanvasAlphaModeOpaque+    | GPUCanvasAlphaModePremultiplied+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUCanvasAlphaMode where+  pToJSVal x = pToJSVal (case x of+    GPUCanvasAlphaModeOpaque -> js_GPUCanvasAlphaModeOpaque+    GPUCanvasAlphaModePremultiplied -> js_GPUCanvasAlphaModePremultiplied+    )++instance ToJSVal GPUCanvasAlphaMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUCanvasAlphaMode where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUCanvasAlphaMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUCanvasAlphaModeOpaque, GPUCanvasAlphaModeOpaque), (js_GPUCanvasAlphaModePremultiplied, GPUCanvasAlphaModePremultiplied)]++instance FromJSVal GPUCanvasAlphaMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUCanvasAlphaModeOpaque, GPUCanvasAlphaModeOpaque), (js_GPUCanvasAlphaModePremultiplied, GPUCanvasAlphaModePremultiplied)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUCanvasAlphaModeOpaque :: JSString+js_GPUCanvasAlphaModeOpaque = "opaque"+js_GPUCanvasAlphaModePremultiplied :: JSString+js_GPUCanvasAlphaModePremultiplied = "premultiplied"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUCanvasToneMappingMode> (webgpu)+data GPUCanvasToneMappingMode = GPUCanvasToneMappingModeStandard+    | GPUCanvasToneMappingModeExtended+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUCanvasToneMappingMode where+  pToJSVal x = pToJSVal (case x of+    GPUCanvasToneMappingModeStandard -> js_GPUCanvasToneMappingModeStandard+    GPUCanvasToneMappingModeExtended -> js_GPUCanvasToneMappingModeExtended+    )++instance ToJSVal GPUCanvasToneMappingMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUCanvasToneMappingMode where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUCanvasToneMappingMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUCanvasToneMappingModeStandard, GPUCanvasToneMappingModeStandard), (js_GPUCanvasToneMappingModeExtended, GPUCanvasToneMappingModeExtended)]++instance FromJSVal GPUCanvasToneMappingMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUCanvasToneMappingModeStandard, GPUCanvasToneMappingModeStandard), (js_GPUCanvasToneMappingModeExtended, GPUCanvasToneMappingModeExtended)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUCanvasToneMappingModeStandard :: JSString+js_GPUCanvasToneMappingModeStandard = "standard"+js_GPUCanvasToneMappingModeExtended :: JSString+js_GPUCanvasToneMappingModeExtended = "extended"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUCompareFunction> (webgpu)+data GPUCompareFunction = GPUCompareFunctionNever+    | GPUCompareFunctionLess+    | GPUCompareFunctionEqual+    | GPUCompareFunctionLessEqual+    | GPUCompareFunctionGreater+    | GPUCompareFunctionNotEqual+    | GPUCompareFunctionGreaterEqual+    | GPUCompareFunctionAlways+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUCompareFunction where+  pToJSVal x = pToJSVal (case x of+    GPUCompareFunctionNever -> js_GPUCompareFunctionNever+    GPUCompareFunctionLess -> js_GPUCompareFunctionLess+    GPUCompareFunctionEqual -> js_GPUCompareFunctionEqual+    GPUCompareFunctionLessEqual -> js_GPUCompareFunctionLessEqual+    GPUCompareFunctionGreater -> js_GPUCompareFunctionGreater+    GPUCompareFunctionNotEqual -> js_GPUCompareFunctionNotEqual+    GPUCompareFunctionGreaterEqual -> js_GPUCompareFunctionGreaterEqual+    GPUCompareFunctionAlways -> js_GPUCompareFunctionAlways+    )++instance ToJSVal GPUCompareFunction where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUCompareFunction where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUCompareFunction value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUCompareFunctionNever, GPUCompareFunctionNever), (js_GPUCompareFunctionLess, GPUCompareFunctionLess), (js_GPUCompareFunctionEqual, GPUCompareFunctionEqual), (js_GPUCompareFunctionLessEqual, GPUCompareFunctionLessEqual), (js_GPUCompareFunctionGreater, GPUCompareFunctionGreater), (js_GPUCompareFunctionNotEqual, GPUCompareFunctionNotEqual), (js_GPUCompareFunctionGreaterEqual, GPUCompareFunctionGreaterEqual), (js_GPUCompareFunctionAlways, GPUCompareFunctionAlways)]++instance FromJSVal GPUCompareFunction where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUCompareFunctionNever, GPUCompareFunctionNever), (js_GPUCompareFunctionLess, GPUCompareFunctionLess), (js_GPUCompareFunctionEqual, GPUCompareFunctionEqual), (js_GPUCompareFunctionLessEqual, GPUCompareFunctionLessEqual), (js_GPUCompareFunctionGreater, GPUCompareFunctionGreater), (js_GPUCompareFunctionNotEqual, GPUCompareFunctionNotEqual), (js_GPUCompareFunctionGreaterEqual, GPUCompareFunctionGreaterEqual), (js_GPUCompareFunctionAlways, GPUCompareFunctionAlways)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUCompareFunctionNever :: JSString+js_GPUCompareFunctionNever = "never"+js_GPUCompareFunctionLess :: JSString+js_GPUCompareFunctionLess = "less"+js_GPUCompareFunctionEqual :: JSString+js_GPUCompareFunctionEqual = "equal"+js_GPUCompareFunctionLessEqual :: JSString+js_GPUCompareFunctionLessEqual = "less-equal"+js_GPUCompareFunctionGreater :: JSString+js_GPUCompareFunctionGreater = "greater"+js_GPUCompareFunctionNotEqual :: JSString+js_GPUCompareFunctionNotEqual = "not-equal"+js_GPUCompareFunctionGreaterEqual :: JSString+js_GPUCompareFunctionGreaterEqual = "greater-equal"+js_GPUCompareFunctionAlways :: JSString+js_GPUCompareFunctionAlways = "always"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUCompilationMessageType> (webgpu)+data GPUCompilationMessageType = GPUCompilationMessageTypeError+    | GPUCompilationMessageTypeWarning+    | GPUCompilationMessageTypeInfo+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUCompilationMessageType where+  pToJSVal x = pToJSVal (case x of+    GPUCompilationMessageTypeError -> js_GPUCompilationMessageTypeError+    GPUCompilationMessageTypeWarning -> js_GPUCompilationMessageTypeWarning+    GPUCompilationMessageTypeInfo -> js_GPUCompilationMessageTypeInfo+    )++instance ToJSVal GPUCompilationMessageType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUCompilationMessageType where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUCompilationMessageType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUCompilationMessageTypeError, GPUCompilationMessageTypeError), (js_GPUCompilationMessageTypeWarning, GPUCompilationMessageTypeWarning), (js_GPUCompilationMessageTypeInfo, GPUCompilationMessageTypeInfo)]++instance FromJSVal GPUCompilationMessageType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUCompilationMessageTypeError, GPUCompilationMessageTypeError), (js_GPUCompilationMessageTypeWarning, GPUCompilationMessageTypeWarning), (js_GPUCompilationMessageTypeInfo, GPUCompilationMessageTypeInfo)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUCompilationMessageTypeError :: JSString+js_GPUCompilationMessageTypeError = "error"+js_GPUCompilationMessageTypeWarning :: JSString+js_GPUCompilationMessageTypeWarning = "warning"+js_GPUCompilationMessageTypeInfo :: JSString+js_GPUCompilationMessageTypeInfo = "info"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUCullMode> (webgpu)+data GPUCullMode = GPUCullModeNone+    | GPUCullModeFront+    | GPUCullModeBack+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUCullMode where+  pToJSVal x = pToJSVal (case x of+    GPUCullModeNone -> js_GPUCullModeNone+    GPUCullModeFront -> js_GPUCullModeFront+    GPUCullModeBack -> js_GPUCullModeBack+    )++instance ToJSVal GPUCullMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUCullMode where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUCullMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUCullModeNone, GPUCullModeNone), (js_GPUCullModeFront, GPUCullModeFront), (js_GPUCullModeBack, GPUCullModeBack)]++instance FromJSVal GPUCullMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUCullModeNone, GPUCullModeNone), (js_GPUCullModeFront, GPUCullModeFront), (js_GPUCullModeBack, GPUCullModeBack)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUCullModeNone :: JSString+js_GPUCullModeNone = "none"+js_GPUCullModeFront :: JSString+js_GPUCullModeFront = "front"+js_GPUCullModeBack :: JSString+js_GPUCullModeBack = "back"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUDeviceLostReason> (webgpu)+data GPUDeviceLostReason = GPUDeviceLostReasonUnknown+    | GPUDeviceLostReasonDestroyed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUDeviceLostReason where+  pToJSVal x = pToJSVal (case x of+    GPUDeviceLostReasonUnknown -> js_GPUDeviceLostReasonUnknown+    GPUDeviceLostReasonDestroyed -> js_GPUDeviceLostReasonDestroyed+    )++instance ToJSVal GPUDeviceLostReason where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUDeviceLostReason where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUDeviceLostReason value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUDeviceLostReasonUnknown, GPUDeviceLostReasonUnknown), (js_GPUDeviceLostReasonDestroyed, GPUDeviceLostReasonDestroyed)]++instance FromJSVal GPUDeviceLostReason where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUDeviceLostReasonUnknown, GPUDeviceLostReasonUnknown), (js_GPUDeviceLostReasonDestroyed, GPUDeviceLostReasonDestroyed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUDeviceLostReasonUnknown :: JSString+js_GPUDeviceLostReasonUnknown = "unknown"+js_GPUDeviceLostReasonDestroyed :: JSString+js_GPUDeviceLostReasonDestroyed = "destroyed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUErrorFilter> (webgpu)+data GPUErrorFilter = GPUErrorFilterValidation+    | GPUErrorFilterOutOfMemory+    | GPUErrorFilterInternal+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUErrorFilter where+  pToJSVal x = pToJSVal (case x of+    GPUErrorFilterValidation -> js_GPUErrorFilterValidation+    GPUErrorFilterOutOfMemory -> js_GPUErrorFilterOutOfMemory+    GPUErrorFilterInternal -> js_GPUErrorFilterInternal+    )++instance ToJSVal GPUErrorFilter where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUErrorFilter where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUErrorFilter value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUErrorFilterValidation, GPUErrorFilterValidation), (js_GPUErrorFilterOutOfMemory, GPUErrorFilterOutOfMemory), (js_GPUErrorFilterInternal, GPUErrorFilterInternal)]++instance FromJSVal GPUErrorFilter where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUErrorFilterValidation, GPUErrorFilterValidation), (js_GPUErrorFilterOutOfMemory, GPUErrorFilterOutOfMemory), (js_GPUErrorFilterInternal, GPUErrorFilterInternal)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUErrorFilterValidation :: JSString+js_GPUErrorFilterValidation = "validation"+js_GPUErrorFilterOutOfMemory :: JSString+js_GPUErrorFilterOutOfMemory = "out-of-memory"+js_GPUErrorFilterInternal :: JSString+js_GPUErrorFilterInternal = "internal"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUFeatureName> (webgpu)+data GPUFeatureName = GPUFeatureNameCoreFeaturesAndLimits+    | GPUFeatureNameDepthClipControl+    | GPUFeatureNameDepth32floatStencil8+    | GPUFeatureNameTextureCompressionBc+    | GPUFeatureNameTextureCompressionBcSliced3d+    | GPUFeatureNameTextureCompressionEtc2+    | GPUFeatureNameTextureCompressionAstc+    | GPUFeatureNameTextureCompressionAstcSliced3d+    | GPUFeatureNameTimestampQuery+    | GPUFeatureNameIndirectFirstInstance+    | GPUFeatureNameShaderF16+    | GPUFeatureNameRg11b10ufloatRenderable+    | GPUFeatureNameBgra8unormStorage+    | GPUFeatureNameFloat32Filterable+    | GPUFeatureNameFloat32Blendable+    | GPUFeatureNameClipDistances+    | GPUFeatureNameDualSourceBlending+    | GPUFeatureNameSubgroups+    | GPUFeatureNameTextureFormatsTier1+    | GPUFeatureNameTextureFormatsTier2+    | GPUFeatureNamePrimitiveIndex+    | GPUFeatureNameTextureComponentSwizzle+    | GPUFeatureNameSubgroupSizeControl+    | GPUFeatureNameTextureCompressionUnaligned+    | GPUFeatureNameAtomicVec2uMinMax+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUFeatureName where+  pToJSVal x = pToJSVal (case x of+    GPUFeatureNameCoreFeaturesAndLimits -> js_GPUFeatureNameCoreFeaturesAndLimits+    GPUFeatureNameDepthClipControl -> js_GPUFeatureNameDepthClipControl+    GPUFeatureNameDepth32floatStencil8 -> js_GPUFeatureNameDepth32floatStencil8+    GPUFeatureNameTextureCompressionBc -> js_GPUFeatureNameTextureCompressionBc+    GPUFeatureNameTextureCompressionBcSliced3d -> js_GPUFeatureNameTextureCompressionBcSliced3d+    GPUFeatureNameTextureCompressionEtc2 -> js_GPUFeatureNameTextureCompressionEtc2+    GPUFeatureNameTextureCompressionAstc -> js_GPUFeatureNameTextureCompressionAstc+    GPUFeatureNameTextureCompressionAstcSliced3d -> js_GPUFeatureNameTextureCompressionAstcSliced3d+    GPUFeatureNameTimestampQuery -> js_GPUFeatureNameTimestampQuery+    GPUFeatureNameIndirectFirstInstance -> js_GPUFeatureNameIndirectFirstInstance+    GPUFeatureNameShaderF16 -> js_GPUFeatureNameShaderF16+    GPUFeatureNameRg11b10ufloatRenderable -> js_GPUFeatureNameRg11b10ufloatRenderable+    GPUFeatureNameBgra8unormStorage -> js_GPUFeatureNameBgra8unormStorage+    GPUFeatureNameFloat32Filterable -> js_GPUFeatureNameFloat32Filterable+    GPUFeatureNameFloat32Blendable -> js_GPUFeatureNameFloat32Blendable+    GPUFeatureNameClipDistances -> js_GPUFeatureNameClipDistances+    GPUFeatureNameDualSourceBlending -> js_GPUFeatureNameDualSourceBlending+    GPUFeatureNameSubgroups -> js_GPUFeatureNameSubgroups+    GPUFeatureNameTextureFormatsTier1 -> js_GPUFeatureNameTextureFormatsTier1+    GPUFeatureNameTextureFormatsTier2 -> js_GPUFeatureNameTextureFormatsTier2+    GPUFeatureNamePrimitiveIndex -> js_GPUFeatureNamePrimitiveIndex+    GPUFeatureNameTextureComponentSwizzle -> js_GPUFeatureNameTextureComponentSwizzle+    GPUFeatureNameSubgroupSizeControl -> js_GPUFeatureNameSubgroupSizeControl+    GPUFeatureNameTextureCompressionUnaligned -> js_GPUFeatureNameTextureCompressionUnaligned+    GPUFeatureNameAtomicVec2uMinMax -> js_GPUFeatureNameAtomicVec2uMinMax+    )++instance ToJSVal GPUFeatureName where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUFeatureName where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUFeatureName value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUFeatureNameCoreFeaturesAndLimits, GPUFeatureNameCoreFeaturesAndLimits), (js_GPUFeatureNameDepthClipControl, GPUFeatureNameDepthClipControl), (js_GPUFeatureNameDepth32floatStencil8, GPUFeatureNameDepth32floatStencil8), (js_GPUFeatureNameTextureCompressionBc, GPUFeatureNameTextureCompressionBc), (js_GPUFeatureNameTextureCompressionBcSliced3d, GPUFeatureNameTextureCompressionBcSliced3d), (js_GPUFeatureNameTextureCompressionEtc2, GPUFeatureNameTextureCompressionEtc2), (js_GPUFeatureNameTextureCompressionAstc, GPUFeatureNameTextureCompressionAstc), (js_GPUFeatureNameTextureCompressionAstcSliced3d, GPUFeatureNameTextureCompressionAstcSliced3d), (js_GPUFeatureNameTimestampQuery, GPUFeatureNameTimestampQuery), (js_GPUFeatureNameIndirectFirstInstance, GPUFeatureNameIndirectFirstInstance), (js_GPUFeatureNameShaderF16, GPUFeatureNameShaderF16), (js_GPUFeatureNameRg11b10ufloatRenderable, GPUFeatureNameRg11b10ufloatRenderable), (js_GPUFeatureNameBgra8unormStorage, GPUFeatureNameBgra8unormStorage), (js_GPUFeatureNameFloat32Filterable, GPUFeatureNameFloat32Filterable), (js_GPUFeatureNameFloat32Blendable, GPUFeatureNameFloat32Blendable), (js_GPUFeatureNameClipDistances, GPUFeatureNameClipDistances), (js_GPUFeatureNameDualSourceBlending, GPUFeatureNameDualSourceBlending), (js_GPUFeatureNameSubgroups, GPUFeatureNameSubgroups), (js_GPUFeatureNameTextureFormatsTier1, GPUFeatureNameTextureFormatsTier1), (js_GPUFeatureNameTextureFormatsTier2, GPUFeatureNameTextureFormatsTier2), (js_GPUFeatureNamePrimitiveIndex, GPUFeatureNamePrimitiveIndex), (js_GPUFeatureNameTextureComponentSwizzle, GPUFeatureNameTextureComponentSwizzle), (js_GPUFeatureNameSubgroupSizeControl, GPUFeatureNameSubgroupSizeControl), (js_GPUFeatureNameTextureCompressionUnaligned, GPUFeatureNameTextureCompressionUnaligned), (js_GPUFeatureNameAtomicVec2uMinMax, GPUFeatureNameAtomicVec2uMinMax)]++instance FromJSVal GPUFeatureName where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUFeatureNameCoreFeaturesAndLimits, GPUFeatureNameCoreFeaturesAndLimits), (js_GPUFeatureNameDepthClipControl, GPUFeatureNameDepthClipControl), (js_GPUFeatureNameDepth32floatStencil8, GPUFeatureNameDepth32floatStencil8), (js_GPUFeatureNameTextureCompressionBc, GPUFeatureNameTextureCompressionBc), (js_GPUFeatureNameTextureCompressionBcSliced3d, GPUFeatureNameTextureCompressionBcSliced3d), (js_GPUFeatureNameTextureCompressionEtc2, GPUFeatureNameTextureCompressionEtc2), (js_GPUFeatureNameTextureCompressionAstc, GPUFeatureNameTextureCompressionAstc), (js_GPUFeatureNameTextureCompressionAstcSliced3d, GPUFeatureNameTextureCompressionAstcSliced3d), (js_GPUFeatureNameTimestampQuery, GPUFeatureNameTimestampQuery), (js_GPUFeatureNameIndirectFirstInstance, GPUFeatureNameIndirectFirstInstance), (js_GPUFeatureNameShaderF16, GPUFeatureNameShaderF16), (js_GPUFeatureNameRg11b10ufloatRenderable, GPUFeatureNameRg11b10ufloatRenderable), (js_GPUFeatureNameBgra8unormStorage, GPUFeatureNameBgra8unormStorage), (js_GPUFeatureNameFloat32Filterable, GPUFeatureNameFloat32Filterable), (js_GPUFeatureNameFloat32Blendable, GPUFeatureNameFloat32Blendable), (js_GPUFeatureNameClipDistances, GPUFeatureNameClipDistances), (js_GPUFeatureNameDualSourceBlending, GPUFeatureNameDualSourceBlending), (js_GPUFeatureNameSubgroups, GPUFeatureNameSubgroups), (js_GPUFeatureNameTextureFormatsTier1, GPUFeatureNameTextureFormatsTier1), (js_GPUFeatureNameTextureFormatsTier2, GPUFeatureNameTextureFormatsTier2), (js_GPUFeatureNamePrimitiveIndex, GPUFeatureNamePrimitiveIndex), (js_GPUFeatureNameTextureComponentSwizzle, GPUFeatureNameTextureComponentSwizzle), (js_GPUFeatureNameSubgroupSizeControl, GPUFeatureNameSubgroupSizeControl), (js_GPUFeatureNameTextureCompressionUnaligned, GPUFeatureNameTextureCompressionUnaligned), (js_GPUFeatureNameAtomicVec2uMinMax, GPUFeatureNameAtomicVec2uMinMax)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUFeatureNameCoreFeaturesAndLimits :: JSString+js_GPUFeatureNameCoreFeaturesAndLimits = "core-features-and-limits"+js_GPUFeatureNameDepthClipControl :: JSString+js_GPUFeatureNameDepthClipControl = "depth-clip-control"+js_GPUFeatureNameDepth32floatStencil8 :: JSString+js_GPUFeatureNameDepth32floatStencil8 = "depth32float-stencil8"+js_GPUFeatureNameTextureCompressionBc :: JSString+js_GPUFeatureNameTextureCompressionBc = "texture-compression-bc"+js_GPUFeatureNameTextureCompressionBcSliced3d :: JSString+js_GPUFeatureNameTextureCompressionBcSliced3d = "texture-compression-bc-sliced-3d"+js_GPUFeatureNameTextureCompressionEtc2 :: JSString+js_GPUFeatureNameTextureCompressionEtc2 = "texture-compression-etc2"+js_GPUFeatureNameTextureCompressionAstc :: JSString+js_GPUFeatureNameTextureCompressionAstc = "texture-compression-astc"+js_GPUFeatureNameTextureCompressionAstcSliced3d :: JSString+js_GPUFeatureNameTextureCompressionAstcSliced3d = "texture-compression-astc-sliced-3d"+js_GPUFeatureNameTimestampQuery :: JSString+js_GPUFeatureNameTimestampQuery = "timestamp-query"+js_GPUFeatureNameIndirectFirstInstance :: JSString+js_GPUFeatureNameIndirectFirstInstance = "indirect-first-instance"+js_GPUFeatureNameShaderF16 :: JSString+js_GPUFeatureNameShaderF16 = "shader-f16"+js_GPUFeatureNameRg11b10ufloatRenderable :: JSString+js_GPUFeatureNameRg11b10ufloatRenderable = "rg11b10ufloat-renderable"+js_GPUFeatureNameBgra8unormStorage :: JSString+js_GPUFeatureNameBgra8unormStorage = "bgra8unorm-storage"+js_GPUFeatureNameFloat32Filterable :: JSString+js_GPUFeatureNameFloat32Filterable = "float32-filterable"+js_GPUFeatureNameFloat32Blendable :: JSString+js_GPUFeatureNameFloat32Blendable = "float32-blendable"+js_GPUFeatureNameClipDistances :: JSString+js_GPUFeatureNameClipDistances = "clip-distances"+js_GPUFeatureNameDualSourceBlending :: JSString+js_GPUFeatureNameDualSourceBlending = "dual-source-blending"+js_GPUFeatureNameSubgroups :: JSString+js_GPUFeatureNameSubgroups = "subgroups"+js_GPUFeatureNameTextureFormatsTier1 :: JSString+js_GPUFeatureNameTextureFormatsTier1 = "texture-formats-tier1"+js_GPUFeatureNameTextureFormatsTier2 :: JSString+js_GPUFeatureNameTextureFormatsTier2 = "texture-formats-tier2"+js_GPUFeatureNamePrimitiveIndex :: JSString+js_GPUFeatureNamePrimitiveIndex = "primitive-index"+js_GPUFeatureNameTextureComponentSwizzle :: JSString+js_GPUFeatureNameTextureComponentSwizzle = "texture-component-swizzle"+js_GPUFeatureNameSubgroupSizeControl :: JSString+js_GPUFeatureNameSubgroupSizeControl = "subgroup-size-control"+js_GPUFeatureNameTextureCompressionUnaligned :: JSString+js_GPUFeatureNameTextureCompressionUnaligned = "texture-compression-unaligned"+js_GPUFeatureNameAtomicVec2uMinMax :: JSString+js_GPUFeatureNameAtomicVec2uMinMax = "atomic-vec2u-min-max"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUFilterMode> (webgpu)+data GPUFilterMode = GPUFilterModeNearest+    | GPUFilterModeLinear+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUFilterMode where+  pToJSVal x = pToJSVal (case x of+    GPUFilterModeNearest -> js_GPUFilterModeNearest+    GPUFilterModeLinear -> js_GPUFilterModeLinear+    )++instance ToJSVal GPUFilterMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUFilterMode where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUFilterMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUFilterModeNearest, GPUFilterModeNearest), (js_GPUFilterModeLinear, GPUFilterModeLinear)]++instance FromJSVal GPUFilterMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUFilterModeNearest, GPUFilterModeNearest), (js_GPUFilterModeLinear, GPUFilterModeLinear)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUFilterModeNearest :: JSString+js_GPUFilterModeNearest = "nearest"+js_GPUFilterModeLinear :: JSString+js_GPUFilterModeLinear = "linear"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUFrontFace> (webgpu)+data GPUFrontFace = GPUFrontFaceCcw+    | GPUFrontFaceCw+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUFrontFace where+  pToJSVal x = pToJSVal (case x of+    GPUFrontFaceCcw -> js_GPUFrontFaceCcw+    GPUFrontFaceCw -> js_GPUFrontFaceCw+    )++instance ToJSVal GPUFrontFace where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUFrontFace where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUFrontFace value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUFrontFaceCcw, GPUFrontFaceCcw), (js_GPUFrontFaceCw, GPUFrontFaceCw)]++instance FromJSVal GPUFrontFace where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUFrontFaceCcw, GPUFrontFaceCcw), (js_GPUFrontFaceCw, GPUFrontFaceCw)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUFrontFaceCcw :: JSString+js_GPUFrontFaceCcw = "ccw"+js_GPUFrontFaceCw :: JSString+js_GPUFrontFaceCw = "cw"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUIndexFormat> (webgpu)+data GPUIndexFormat = GPUIndexFormatUint16+    | GPUIndexFormatUint32+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUIndexFormat where+  pToJSVal x = pToJSVal (case x of+    GPUIndexFormatUint16 -> js_GPUIndexFormatUint16+    GPUIndexFormatUint32 -> js_GPUIndexFormatUint32+    )++instance ToJSVal GPUIndexFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUIndexFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUIndexFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUIndexFormatUint16, GPUIndexFormatUint16), (js_GPUIndexFormatUint32, GPUIndexFormatUint32)]++instance FromJSVal GPUIndexFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUIndexFormatUint16, GPUIndexFormatUint16), (js_GPUIndexFormatUint32, GPUIndexFormatUint32)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUIndexFormatUint16 :: JSString+js_GPUIndexFormatUint16 = "uint16"+js_GPUIndexFormatUint32 :: JSString+js_GPUIndexFormatUint32 = "uint32"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPULoadOp> (webgpu)+data GPULoadOp = GPULoadOpLoad+    | GPULoadOpClear+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPULoadOp where+  pToJSVal x = pToJSVal (case x of+    GPULoadOpLoad -> js_GPULoadOpLoad+    GPULoadOpClear -> js_GPULoadOpClear+    )++instance ToJSVal GPULoadOp where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPULoadOp where+  pFromJSVal x = P.maybe (P.error "Unexpected GPULoadOp value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPULoadOpLoad, GPULoadOpLoad), (js_GPULoadOpClear, GPULoadOpClear)]++instance FromJSVal GPULoadOp where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPULoadOpLoad, GPULoadOpLoad), (js_GPULoadOpClear, GPULoadOpClear)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPULoadOpLoad :: JSString+js_GPULoadOpLoad = "load"+js_GPULoadOpClear :: JSString+js_GPULoadOpClear = "clear"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUMipmapFilterMode> (webgpu)+data GPUMipmapFilterMode = GPUMipmapFilterModeNearest+    | GPUMipmapFilterModeLinear+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUMipmapFilterMode where+  pToJSVal x = pToJSVal (case x of+    GPUMipmapFilterModeNearest -> js_GPUMipmapFilterModeNearest+    GPUMipmapFilterModeLinear -> js_GPUMipmapFilterModeLinear+    )++instance ToJSVal GPUMipmapFilterMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUMipmapFilterMode where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUMipmapFilterMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUMipmapFilterModeNearest, GPUMipmapFilterModeNearest), (js_GPUMipmapFilterModeLinear, GPUMipmapFilterModeLinear)]++instance FromJSVal GPUMipmapFilterMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUMipmapFilterModeNearest, GPUMipmapFilterModeNearest), (js_GPUMipmapFilterModeLinear, GPUMipmapFilterModeLinear)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUMipmapFilterModeNearest :: JSString+js_GPUMipmapFilterModeNearest = "nearest"+js_GPUMipmapFilterModeLinear :: JSString+js_GPUMipmapFilterModeLinear = "linear"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUPipelineErrorReason> (webgpu)+data GPUPipelineErrorReason = GPUPipelineErrorReasonValidation+    | GPUPipelineErrorReasonInternal+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUPipelineErrorReason where+  pToJSVal x = pToJSVal (case x of+    GPUPipelineErrorReasonValidation -> js_GPUPipelineErrorReasonValidation+    GPUPipelineErrorReasonInternal -> js_GPUPipelineErrorReasonInternal+    )++instance ToJSVal GPUPipelineErrorReason where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUPipelineErrorReason where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUPipelineErrorReason value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUPipelineErrorReasonValidation, GPUPipelineErrorReasonValidation), (js_GPUPipelineErrorReasonInternal, GPUPipelineErrorReasonInternal)]++instance FromJSVal GPUPipelineErrorReason where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUPipelineErrorReasonValidation, GPUPipelineErrorReasonValidation), (js_GPUPipelineErrorReasonInternal, GPUPipelineErrorReasonInternal)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUPipelineErrorReasonValidation :: JSString+js_GPUPipelineErrorReasonValidation = "validation"+js_GPUPipelineErrorReasonInternal :: JSString+js_GPUPipelineErrorReasonInternal = "internal"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUPowerPreference> (webgpu)+data GPUPowerPreference = GPUPowerPreferenceLowPower+    | GPUPowerPreferenceHighPerformance+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUPowerPreference where+  pToJSVal x = pToJSVal (case x of+    GPUPowerPreferenceLowPower -> js_GPUPowerPreferenceLowPower+    GPUPowerPreferenceHighPerformance -> js_GPUPowerPreferenceHighPerformance+    )++instance ToJSVal GPUPowerPreference where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUPowerPreference where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUPowerPreference value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUPowerPreferenceLowPower, GPUPowerPreferenceLowPower), (js_GPUPowerPreferenceHighPerformance, GPUPowerPreferenceHighPerformance)]++instance FromJSVal GPUPowerPreference where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUPowerPreferenceLowPower, GPUPowerPreferenceLowPower), (js_GPUPowerPreferenceHighPerformance, GPUPowerPreferenceHighPerformance)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUPowerPreferenceLowPower :: JSString+js_GPUPowerPreferenceLowPower = "low-power"+js_GPUPowerPreferenceHighPerformance :: JSString+js_GPUPowerPreferenceHighPerformance = "high-performance"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUPrimitiveTopology> (webgpu)+data GPUPrimitiveTopology = GPUPrimitiveTopologyPointList+    | GPUPrimitiveTopologyLineList+    | GPUPrimitiveTopologyLineStrip+    | GPUPrimitiveTopologyTriangleList+    | GPUPrimitiveTopologyTriangleStrip+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUPrimitiveTopology where+  pToJSVal x = pToJSVal (case x of+    GPUPrimitiveTopologyPointList -> js_GPUPrimitiveTopologyPointList+    GPUPrimitiveTopologyLineList -> js_GPUPrimitiveTopologyLineList+    GPUPrimitiveTopologyLineStrip -> js_GPUPrimitiveTopologyLineStrip+    GPUPrimitiveTopologyTriangleList -> js_GPUPrimitiveTopologyTriangleList+    GPUPrimitiveTopologyTriangleStrip -> js_GPUPrimitiveTopologyTriangleStrip+    )++instance ToJSVal GPUPrimitiveTopology where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUPrimitiveTopology where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUPrimitiveTopology value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUPrimitiveTopologyPointList, GPUPrimitiveTopologyPointList), (js_GPUPrimitiveTopologyLineList, GPUPrimitiveTopologyLineList), (js_GPUPrimitiveTopologyLineStrip, GPUPrimitiveTopologyLineStrip), (js_GPUPrimitiveTopologyTriangleList, GPUPrimitiveTopologyTriangleList), (js_GPUPrimitiveTopologyTriangleStrip, GPUPrimitiveTopologyTriangleStrip)]++instance FromJSVal GPUPrimitiveTopology where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUPrimitiveTopologyPointList, GPUPrimitiveTopologyPointList), (js_GPUPrimitiveTopologyLineList, GPUPrimitiveTopologyLineList), (js_GPUPrimitiveTopologyLineStrip, GPUPrimitiveTopologyLineStrip), (js_GPUPrimitiveTopologyTriangleList, GPUPrimitiveTopologyTriangleList), (js_GPUPrimitiveTopologyTriangleStrip, GPUPrimitiveTopologyTriangleStrip)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUPrimitiveTopologyPointList :: JSString+js_GPUPrimitiveTopologyPointList = "point-list"+js_GPUPrimitiveTopologyLineList :: JSString+js_GPUPrimitiveTopologyLineList = "line-list"+js_GPUPrimitiveTopologyLineStrip :: JSString+js_GPUPrimitiveTopologyLineStrip = "line-strip"+js_GPUPrimitiveTopologyTriangleList :: JSString+js_GPUPrimitiveTopologyTriangleList = "triangle-list"+js_GPUPrimitiveTopologyTriangleStrip :: JSString+js_GPUPrimitiveTopologyTriangleStrip = "triangle-strip"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUQueryType> (webgpu)+data GPUQueryType = GPUQueryTypeOcclusion+    | GPUQueryTypeTimestamp+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUQueryType where+  pToJSVal x = pToJSVal (case x of+    GPUQueryTypeOcclusion -> js_GPUQueryTypeOcclusion+    GPUQueryTypeTimestamp -> js_GPUQueryTypeTimestamp+    )++instance ToJSVal GPUQueryType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUQueryType where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUQueryType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUQueryTypeOcclusion, GPUQueryTypeOcclusion), (js_GPUQueryTypeTimestamp, GPUQueryTypeTimestamp)]++instance FromJSVal GPUQueryType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUQueryTypeOcclusion, GPUQueryTypeOcclusion), (js_GPUQueryTypeTimestamp, GPUQueryTypeTimestamp)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUQueryTypeOcclusion :: JSString+js_GPUQueryTypeOcclusion = "occlusion"+js_GPUQueryTypeTimestamp :: JSString+js_GPUQueryTypeTimestamp = "timestamp"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUSamplerBindingType> (webgpu)+data GPUSamplerBindingType = GPUSamplerBindingTypeFiltering+    | GPUSamplerBindingTypeNonFiltering+    | GPUSamplerBindingTypeComparison+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUSamplerBindingType where+  pToJSVal x = pToJSVal (case x of+    GPUSamplerBindingTypeFiltering -> js_GPUSamplerBindingTypeFiltering+    GPUSamplerBindingTypeNonFiltering -> js_GPUSamplerBindingTypeNonFiltering+    GPUSamplerBindingTypeComparison -> js_GPUSamplerBindingTypeComparison+    )++instance ToJSVal GPUSamplerBindingType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUSamplerBindingType where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUSamplerBindingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUSamplerBindingTypeFiltering, GPUSamplerBindingTypeFiltering), (js_GPUSamplerBindingTypeNonFiltering, GPUSamplerBindingTypeNonFiltering), (js_GPUSamplerBindingTypeComparison, GPUSamplerBindingTypeComparison)]++instance FromJSVal GPUSamplerBindingType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUSamplerBindingTypeFiltering, GPUSamplerBindingTypeFiltering), (js_GPUSamplerBindingTypeNonFiltering, GPUSamplerBindingTypeNonFiltering), (js_GPUSamplerBindingTypeComparison, GPUSamplerBindingTypeComparison)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUSamplerBindingTypeFiltering :: JSString+js_GPUSamplerBindingTypeFiltering = "filtering"+js_GPUSamplerBindingTypeNonFiltering :: JSString+js_GPUSamplerBindingTypeNonFiltering = "non-filtering"+js_GPUSamplerBindingTypeComparison :: JSString+js_GPUSamplerBindingTypeComparison = "comparison"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUStencilOperation> (webgpu)+data GPUStencilOperation = GPUStencilOperationKeep+    | GPUStencilOperationZero+    | GPUStencilOperationReplace+    | GPUStencilOperationInvert+    | GPUStencilOperationIncrementClamp+    | GPUStencilOperationDecrementClamp+    | GPUStencilOperationIncrementWrap+    | GPUStencilOperationDecrementWrap+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUStencilOperation where+  pToJSVal x = pToJSVal (case x of+    GPUStencilOperationKeep -> js_GPUStencilOperationKeep+    GPUStencilOperationZero -> js_GPUStencilOperationZero+    GPUStencilOperationReplace -> js_GPUStencilOperationReplace+    GPUStencilOperationInvert -> js_GPUStencilOperationInvert+    GPUStencilOperationIncrementClamp -> js_GPUStencilOperationIncrementClamp+    GPUStencilOperationDecrementClamp -> js_GPUStencilOperationDecrementClamp+    GPUStencilOperationIncrementWrap -> js_GPUStencilOperationIncrementWrap+    GPUStencilOperationDecrementWrap -> js_GPUStencilOperationDecrementWrap+    )++instance ToJSVal GPUStencilOperation where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUStencilOperation where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUStencilOperation value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUStencilOperationKeep, GPUStencilOperationKeep), (js_GPUStencilOperationZero, GPUStencilOperationZero), (js_GPUStencilOperationReplace, GPUStencilOperationReplace), (js_GPUStencilOperationInvert, GPUStencilOperationInvert), (js_GPUStencilOperationIncrementClamp, GPUStencilOperationIncrementClamp), (js_GPUStencilOperationDecrementClamp, GPUStencilOperationDecrementClamp), (js_GPUStencilOperationIncrementWrap, GPUStencilOperationIncrementWrap), (js_GPUStencilOperationDecrementWrap, GPUStencilOperationDecrementWrap)]++instance FromJSVal GPUStencilOperation where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUStencilOperationKeep, GPUStencilOperationKeep), (js_GPUStencilOperationZero, GPUStencilOperationZero), (js_GPUStencilOperationReplace, GPUStencilOperationReplace), (js_GPUStencilOperationInvert, GPUStencilOperationInvert), (js_GPUStencilOperationIncrementClamp, GPUStencilOperationIncrementClamp), (js_GPUStencilOperationDecrementClamp, GPUStencilOperationDecrementClamp), (js_GPUStencilOperationIncrementWrap, GPUStencilOperationIncrementWrap), (js_GPUStencilOperationDecrementWrap, GPUStencilOperationDecrementWrap)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUStencilOperationKeep :: JSString+js_GPUStencilOperationKeep = "keep"+js_GPUStencilOperationZero :: JSString+js_GPUStencilOperationZero = "zero"+js_GPUStencilOperationReplace :: JSString+js_GPUStencilOperationReplace = "replace"+js_GPUStencilOperationInvert :: JSString+js_GPUStencilOperationInvert = "invert"+js_GPUStencilOperationIncrementClamp :: JSString+js_GPUStencilOperationIncrementClamp = "increment-clamp"+js_GPUStencilOperationDecrementClamp :: JSString+js_GPUStencilOperationDecrementClamp = "decrement-clamp"+js_GPUStencilOperationIncrementWrap :: JSString+js_GPUStencilOperationIncrementWrap = "increment-wrap"+js_GPUStencilOperationDecrementWrap :: JSString+js_GPUStencilOperationDecrementWrap = "decrement-wrap"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUStorageTextureAccess> (webgpu)+data GPUStorageTextureAccess = GPUStorageTextureAccessWriteOnly+    | GPUStorageTextureAccessReadOnly+    | GPUStorageTextureAccessReadWrite+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUStorageTextureAccess where+  pToJSVal x = pToJSVal (case x of+    GPUStorageTextureAccessWriteOnly -> js_GPUStorageTextureAccessWriteOnly+    GPUStorageTextureAccessReadOnly -> js_GPUStorageTextureAccessReadOnly+    GPUStorageTextureAccessReadWrite -> js_GPUStorageTextureAccessReadWrite+    )++instance ToJSVal GPUStorageTextureAccess where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUStorageTextureAccess where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUStorageTextureAccess value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUStorageTextureAccessWriteOnly, GPUStorageTextureAccessWriteOnly), (js_GPUStorageTextureAccessReadOnly, GPUStorageTextureAccessReadOnly), (js_GPUStorageTextureAccessReadWrite, GPUStorageTextureAccessReadWrite)]++instance FromJSVal GPUStorageTextureAccess where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUStorageTextureAccessWriteOnly, GPUStorageTextureAccessWriteOnly), (js_GPUStorageTextureAccessReadOnly, GPUStorageTextureAccessReadOnly), (js_GPUStorageTextureAccessReadWrite, GPUStorageTextureAccessReadWrite)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUStorageTextureAccessWriteOnly :: JSString+js_GPUStorageTextureAccessWriteOnly = "write-only"+js_GPUStorageTextureAccessReadOnly :: JSString+js_GPUStorageTextureAccessReadOnly = "read-only"+js_GPUStorageTextureAccessReadWrite :: JSString+js_GPUStorageTextureAccessReadWrite = "read-write"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUStoreOp> (webgpu)+data GPUStoreOp = GPUStoreOpStore+    | GPUStoreOpDiscard+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUStoreOp where+  pToJSVal x = pToJSVal (case x of+    GPUStoreOpStore -> js_GPUStoreOpStore+    GPUStoreOpDiscard -> js_GPUStoreOpDiscard+    )++instance ToJSVal GPUStoreOp where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUStoreOp where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUStoreOp value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUStoreOpStore, GPUStoreOpStore), (js_GPUStoreOpDiscard, GPUStoreOpDiscard)]++instance FromJSVal GPUStoreOp where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUStoreOpStore, GPUStoreOpStore), (js_GPUStoreOpDiscard, GPUStoreOpDiscard)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUStoreOpStore :: JSString+js_GPUStoreOpStore = "store"+js_GPUStoreOpDiscard :: JSString+js_GPUStoreOpDiscard = "discard"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUTextureAspect> (webgpu)+data GPUTextureAspect = GPUTextureAspectAll+    | GPUTextureAspectStencilOnly+    | GPUTextureAspectDepthOnly+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUTextureAspect where+  pToJSVal x = pToJSVal (case x of+    GPUTextureAspectAll -> js_GPUTextureAspectAll+    GPUTextureAspectStencilOnly -> js_GPUTextureAspectStencilOnly+    GPUTextureAspectDepthOnly -> js_GPUTextureAspectDepthOnly+    )++instance ToJSVal GPUTextureAspect where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUTextureAspect where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUTextureAspect value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUTextureAspectAll, GPUTextureAspectAll), (js_GPUTextureAspectStencilOnly, GPUTextureAspectStencilOnly), (js_GPUTextureAspectDepthOnly, GPUTextureAspectDepthOnly)]++instance FromJSVal GPUTextureAspect where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUTextureAspectAll, GPUTextureAspectAll), (js_GPUTextureAspectStencilOnly, GPUTextureAspectStencilOnly), (js_GPUTextureAspectDepthOnly, GPUTextureAspectDepthOnly)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUTextureAspectAll :: JSString+js_GPUTextureAspectAll = "all"+js_GPUTextureAspectStencilOnly :: JSString+js_GPUTextureAspectStencilOnly = "stencil-only"+js_GPUTextureAspectDepthOnly :: JSString+js_GPUTextureAspectDepthOnly = "depth-only"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUTextureDimension> (webgpu)+data GPUTextureDimension = GPUTextureDimension1d+    | GPUTextureDimension2d+    | GPUTextureDimension3d+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUTextureDimension where+  pToJSVal x = pToJSVal (case x of+    GPUTextureDimension1d -> js_GPUTextureDimension1d+    GPUTextureDimension2d -> js_GPUTextureDimension2d+    GPUTextureDimension3d -> js_GPUTextureDimension3d+    )++instance ToJSVal GPUTextureDimension where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUTextureDimension where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUTextureDimension value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUTextureDimension1d, GPUTextureDimension1d), (js_GPUTextureDimension2d, GPUTextureDimension2d), (js_GPUTextureDimension3d, GPUTextureDimension3d)]++instance FromJSVal GPUTextureDimension where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUTextureDimension1d, GPUTextureDimension1d), (js_GPUTextureDimension2d, GPUTextureDimension2d), (js_GPUTextureDimension3d, GPUTextureDimension3d)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUTextureDimension1d :: JSString+js_GPUTextureDimension1d = "1d"+js_GPUTextureDimension2d :: JSString+js_GPUTextureDimension2d = "2d"+js_GPUTextureDimension3d :: JSString+js_GPUTextureDimension3d = "3d"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUTextureFormat> (webgpu)+data GPUTextureFormat = GPUTextureFormatR8unorm+    | GPUTextureFormatR8snorm+    | GPUTextureFormatR8uint+    | GPUTextureFormatR8sint+    | GPUTextureFormatR16unorm+    | GPUTextureFormatR16snorm+    | GPUTextureFormatR16uint+    | GPUTextureFormatR16sint+    | GPUTextureFormatR16float+    | GPUTextureFormatRg8unorm+    | GPUTextureFormatRg8snorm+    | GPUTextureFormatRg8uint+    | GPUTextureFormatRg8sint+    | GPUTextureFormatR32uint+    | GPUTextureFormatR32sint+    | GPUTextureFormatR32float+    | GPUTextureFormatRg16unorm+    | GPUTextureFormatRg16snorm+    | GPUTextureFormatRg16uint+    | GPUTextureFormatRg16sint+    | GPUTextureFormatRg16float+    | GPUTextureFormatRgba8unorm+    | GPUTextureFormatRgba8unormSrgb+    | GPUTextureFormatRgba8snorm+    | GPUTextureFormatRgba8uint+    | GPUTextureFormatRgba8sint+    | GPUTextureFormatBgra8unorm+    | GPUTextureFormatBgra8unormSrgb+    | GPUTextureFormatRgb9e5ufloat+    | GPUTextureFormatRgb10a2uint+    | GPUTextureFormatRgb10a2unorm+    | GPUTextureFormatRg11b10ufloat+    | GPUTextureFormatRg32uint+    | GPUTextureFormatRg32sint+    | GPUTextureFormatRg32float+    | GPUTextureFormatRgba16unorm+    | GPUTextureFormatRgba16snorm+    | GPUTextureFormatRgba16uint+    | GPUTextureFormatRgba16sint+    | GPUTextureFormatRgba16float+    | GPUTextureFormatRgba32uint+    | GPUTextureFormatRgba32sint+    | GPUTextureFormatRgba32float+    | GPUTextureFormatStencil8+    | GPUTextureFormatDepth16unorm+    | GPUTextureFormatDepth24plus+    | GPUTextureFormatDepth24plusStencil8+    | GPUTextureFormatDepth32float+    | GPUTextureFormatDepth32floatStencil8+    | GPUTextureFormatBc1RgbaUnorm+    | GPUTextureFormatBc1RgbaUnormSrgb+    | GPUTextureFormatBc2RgbaUnorm+    | GPUTextureFormatBc2RgbaUnormSrgb+    | GPUTextureFormatBc3RgbaUnorm+    | GPUTextureFormatBc3RgbaUnormSrgb+    | GPUTextureFormatBc4RUnorm+    | GPUTextureFormatBc4RSnorm+    | GPUTextureFormatBc5RgUnorm+    | GPUTextureFormatBc5RgSnorm+    | GPUTextureFormatBc6hRgbUfloat+    | GPUTextureFormatBc6hRgbFloat+    | GPUTextureFormatBc7RgbaUnorm+    | GPUTextureFormatBc7RgbaUnormSrgb+    | GPUTextureFormatEtc2Rgb8unorm+    | GPUTextureFormatEtc2Rgb8unormSrgb+    | GPUTextureFormatEtc2Rgb8a1unorm+    | GPUTextureFormatEtc2Rgb8a1unormSrgb+    | GPUTextureFormatEtc2Rgba8unorm+    | GPUTextureFormatEtc2Rgba8unormSrgb+    | GPUTextureFormatEacR11unorm+    | GPUTextureFormatEacR11snorm+    | GPUTextureFormatEacRg11unorm+    | GPUTextureFormatEacRg11snorm+    | GPUTextureFormatAstc4x4Unorm+    | GPUTextureFormatAstc4x4UnormSrgb+    | GPUTextureFormatAstc5x4Unorm+    | GPUTextureFormatAstc5x4UnormSrgb+    | GPUTextureFormatAstc5x5Unorm+    | GPUTextureFormatAstc5x5UnormSrgb+    | GPUTextureFormatAstc6x5Unorm+    | GPUTextureFormatAstc6x5UnormSrgb+    | GPUTextureFormatAstc6x6Unorm+    | GPUTextureFormatAstc6x6UnormSrgb+    | GPUTextureFormatAstc8x5Unorm+    | GPUTextureFormatAstc8x5UnormSrgb+    | GPUTextureFormatAstc8x6Unorm+    | GPUTextureFormatAstc8x6UnormSrgb+    | GPUTextureFormatAstc8x8Unorm+    | GPUTextureFormatAstc8x8UnormSrgb+    | GPUTextureFormatAstc10x5Unorm+    | GPUTextureFormatAstc10x5UnormSrgb+    | GPUTextureFormatAstc10x6Unorm+    | GPUTextureFormatAstc10x6UnormSrgb+    | GPUTextureFormatAstc10x8Unorm+    | GPUTextureFormatAstc10x8UnormSrgb+    | GPUTextureFormatAstc10x10Unorm+    | GPUTextureFormatAstc10x10UnormSrgb+    | GPUTextureFormatAstc12x10Unorm+    | GPUTextureFormatAstc12x10UnormSrgb+    | GPUTextureFormatAstc12x12Unorm+    | GPUTextureFormatAstc12x12UnormSrgb+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUTextureFormat where+  pToJSVal x = pToJSVal (case x of+    GPUTextureFormatR8unorm -> js_GPUTextureFormatR8unorm+    GPUTextureFormatR8snorm -> js_GPUTextureFormatR8snorm+    GPUTextureFormatR8uint -> js_GPUTextureFormatR8uint+    GPUTextureFormatR8sint -> js_GPUTextureFormatR8sint+    GPUTextureFormatR16unorm -> js_GPUTextureFormatR16unorm+    GPUTextureFormatR16snorm -> js_GPUTextureFormatR16snorm+    GPUTextureFormatR16uint -> js_GPUTextureFormatR16uint+    GPUTextureFormatR16sint -> js_GPUTextureFormatR16sint+    GPUTextureFormatR16float -> js_GPUTextureFormatR16float+    GPUTextureFormatRg8unorm -> js_GPUTextureFormatRg8unorm+    GPUTextureFormatRg8snorm -> js_GPUTextureFormatRg8snorm+    GPUTextureFormatRg8uint -> js_GPUTextureFormatRg8uint+    GPUTextureFormatRg8sint -> js_GPUTextureFormatRg8sint+    GPUTextureFormatR32uint -> js_GPUTextureFormatR32uint+    GPUTextureFormatR32sint -> js_GPUTextureFormatR32sint+    GPUTextureFormatR32float -> js_GPUTextureFormatR32float+    GPUTextureFormatRg16unorm -> js_GPUTextureFormatRg16unorm+    GPUTextureFormatRg16snorm -> js_GPUTextureFormatRg16snorm+    GPUTextureFormatRg16uint -> js_GPUTextureFormatRg16uint+    GPUTextureFormatRg16sint -> js_GPUTextureFormatRg16sint+    GPUTextureFormatRg16float -> js_GPUTextureFormatRg16float+    GPUTextureFormatRgba8unorm -> js_GPUTextureFormatRgba8unorm+    GPUTextureFormatRgba8unormSrgb -> js_GPUTextureFormatRgba8unormSrgb+    GPUTextureFormatRgba8snorm -> js_GPUTextureFormatRgba8snorm+    GPUTextureFormatRgba8uint -> js_GPUTextureFormatRgba8uint+    GPUTextureFormatRgba8sint -> js_GPUTextureFormatRgba8sint+    GPUTextureFormatBgra8unorm -> js_GPUTextureFormatBgra8unorm+    GPUTextureFormatBgra8unormSrgb -> js_GPUTextureFormatBgra8unormSrgb+    GPUTextureFormatRgb9e5ufloat -> js_GPUTextureFormatRgb9e5ufloat+    GPUTextureFormatRgb10a2uint -> js_GPUTextureFormatRgb10a2uint+    GPUTextureFormatRgb10a2unorm -> js_GPUTextureFormatRgb10a2unorm+    GPUTextureFormatRg11b10ufloat -> js_GPUTextureFormatRg11b10ufloat+    GPUTextureFormatRg32uint -> js_GPUTextureFormatRg32uint+    GPUTextureFormatRg32sint -> js_GPUTextureFormatRg32sint+    GPUTextureFormatRg32float -> js_GPUTextureFormatRg32float+    GPUTextureFormatRgba16unorm -> js_GPUTextureFormatRgba16unorm+    GPUTextureFormatRgba16snorm -> js_GPUTextureFormatRgba16snorm+    GPUTextureFormatRgba16uint -> js_GPUTextureFormatRgba16uint+    GPUTextureFormatRgba16sint -> js_GPUTextureFormatRgba16sint+    GPUTextureFormatRgba16float -> js_GPUTextureFormatRgba16float+    GPUTextureFormatRgba32uint -> js_GPUTextureFormatRgba32uint+    GPUTextureFormatRgba32sint -> js_GPUTextureFormatRgba32sint+    GPUTextureFormatRgba32float -> js_GPUTextureFormatRgba32float+    GPUTextureFormatStencil8 -> js_GPUTextureFormatStencil8+    GPUTextureFormatDepth16unorm -> js_GPUTextureFormatDepth16unorm+    GPUTextureFormatDepth24plus -> js_GPUTextureFormatDepth24plus+    GPUTextureFormatDepth24plusStencil8 -> js_GPUTextureFormatDepth24plusStencil8+    GPUTextureFormatDepth32float -> js_GPUTextureFormatDepth32float+    GPUTextureFormatDepth32floatStencil8 -> js_GPUTextureFormatDepth32floatStencil8+    GPUTextureFormatBc1RgbaUnorm -> js_GPUTextureFormatBc1RgbaUnorm+    GPUTextureFormatBc1RgbaUnormSrgb -> js_GPUTextureFormatBc1RgbaUnormSrgb+    GPUTextureFormatBc2RgbaUnorm -> js_GPUTextureFormatBc2RgbaUnorm+    GPUTextureFormatBc2RgbaUnormSrgb -> js_GPUTextureFormatBc2RgbaUnormSrgb+    GPUTextureFormatBc3RgbaUnorm -> js_GPUTextureFormatBc3RgbaUnorm+    GPUTextureFormatBc3RgbaUnormSrgb -> js_GPUTextureFormatBc3RgbaUnormSrgb+    GPUTextureFormatBc4RUnorm -> js_GPUTextureFormatBc4RUnorm+    GPUTextureFormatBc4RSnorm -> js_GPUTextureFormatBc4RSnorm+    GPUTextureFormatBc5RgUnorm -> js_GPUTextureFormatBc5RgUnorm+    GPUTextureFormatBc5RgSnorm -> js_GPUTextureFormatBc5RgSnorm+    GPUTextureFormatBc6hRgbUfloat -> js_GPUTextureFormatBc6hRgbUfloat+    GPUTextureFormatBc6hRgbFloat -> js_GPUTextureFormatBc6hRgbFloat+    GPUTextureFormatBc7RgbaUnorm -> js_GPUTextureFormatBc7RgbaUnorm+    GPUTextureFormatBc7RgbaUnormSrgb -> js_GPUTextureFormatBc7RgbaUnormSrgb+    GPUTextureFormatEtc2Rgb8unorm -> js_GPUTextureFormatEtc2Rgb8unorm+    GPUTextureFormatEtc2Rgb8unormSrgb -> js_GPUTextureFormatEtc2Rgb8unormSrgb+    GPUTextureFormatEtc2Rgb8a1unorm -> js_GPUTextureFormatEtc2Rgb8a1unorm+    GPUTextureFormatEtc2Rgb8a1unormSrgb -> js_GPUTextureFormatEtc2Rgb8a1unormSrgb+    GPUTextureFormatEtc2Rgba8unorm -> js_GPUTextureFormatEtc2Rgba8unorm+    GPUTextureFormatEtc2Rgba8unormSrgb -> js_GPUTextureFormatEtc2Rgba8unormSrgb+    GPUTextureFormatEacR11unorm -> js_GPUTextureFormatEacR11unorm+    GPUTextureFormatEacR11snorm -> js_GPUTextureFormatEacR11snorm+    GPUTextureFormatEacRg11unorm -> js_GPUTextureFormatEacRg11unorm+    GPUTextureFormatEacRg11snorm -> js_GPUTextureFormatEacRg11snorm+    GPUTextureFormatAstc4x4Unorm -> js_GPUTextureFormatAstc4x4Unorm+    GPUTextureFormatAstc4x4UnormSrgb -> js_GPUTextureFormatAstc4x4UnormSrgb+    GPUTextureFormatAstc5x4Unorm -> js_GPUTextureFormatAstc5x4Unorm+    GPUTextureFormatAstc5x4UnormSrgb -> js_GPUTextureFormatAstc5x4UnormSrgb+    GPUTextureFormatAstc5x5Unorm -> js_GPUTextureFormatAstc5x5Unorm+    GPUTextureFormatAstc5x5UnormSrgb -> js_GPUTextureFormatAstc5x5UnormSrgb+    GPUTextureFormatAstc6x5Unorm -> js_GPUTextureFormatAstc6x5Unorm+    GPUTextureFormatAstc6x5UnormSrgb -> js_GPUTextureFormatAstc6x5UnormSrgb+    GPUTextureFormatAstc6x6Unorm -> js_GPUTextureFormatAstc6x6Unorm+    GPUTextureFormatAstc6x6UnormSrgb -> js_GPUTextureFormatAstc6x6UnormSrgb+    GPUTextureFormatAstc8x5Unorm -> js_GPUTextureFormatAstc8x5Unorm+    GPUTextureFormatAstc8x5UnormSrgb -> js_GPUTextureFormatAstc8x5UnormSrgb+    GPUTextureFormatAstc8x6Unorm -> js_GPUTextureFormatAstc8x6Unorm+    GPUTextureFormatAstc8x6UnormSrgb -> js_GPUTextureFormatAstc8x6UnormSrgb+    GPUTextureFormatAstc8x8Unorm -> js_GPUTextureFormatAstc8x8Unorm+    GPUTextureFormatAstc8x8UnormSrgb -> js_GPUTextureFormatAstc8x8UnormSrgb+    GPUTextureFormatAstc10x5Unorm -> js_GPUTextureFormatAstc10x5Unorm+    GPUTextureFormatAstc10x5UnormSrgb -> js_GPUTextureFormatAstc10x5UnormSrgb+    GPUTextureFormatAstc10x6Unorm -> js_GPUTextureFormatAstc10x6Unorm+    GPUTextureFormatAstc10x6UnormSrgb -> js_GPUTextureFormatAstc10x6UnormSrgb+    GPUTextureFormatAstc10x8Unorm -> js_GPUTextureFormatAstc10x8Unorm+    GPUTextureFormatAstc10x8UnormSrgb -> js_GPUTextureFormatAstc10x8UnormSrgb+    GPUTextureFormatAstc10x10Unorm -> js_GPUTextureFormatAstc10x10Unorm+    GPUTextureFormatAstc10x10UnormSrgb -> js_GPUTextureFormatAstc10x10UnormSrgb+    GPUTextureFormatAstc12x10Unorm -> js_GPUTextureFormatAstc12x10Unorm+    GPUTextureFormatAstc12x10UnormSrgb -> js_GPUTextureFormatAstc12x10UnormSrgb+    GPUTextureFormatAstc12x12Unorm -> js_GPUTextureFormatAstc12x12Unorm+    GPUTextureFormatAstc12x12UnormSrgb -> js_GPUTextureFormatAstc12x12UnormSrgb+    )++instance ToJSVal GPUTextureFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUTextureFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUTextureFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUTextureFormatR8unorm, GPUTextureFormatR8unorm), (js_GPUTextureFormatR8snorm, GPUTextureFormatR8snorm), (js_GPUTextureFormatR8uint, GPUTextureFormatR8uint), (js_GPUTextureFormatR8sint, GPUTextureFormatR8sint), (js_GPUTextureFormatR16unorm, GPUTextureFormatR16unorm), (js_GPUTextureFormatR16snorm, GPUTextureFormatR16snorm), (js_GPUTextureFormatR16uint, GPUTextureFormatR16uint), (js_GPUTextureFormatR16sint, GPUTextureFormatR16sint), (js_GPUTextureFormatR16float, GPUTextureFormatR16float), (js_GPUTextureFormatRg8unorm, GPUTextureFormatRg8unorm), (js_GPUTextureFormatRg8snorm, GPUTextureFormatRg8snorm), (js_GPUTextureFormatRg8uint, GPUTextureFormatRg8uint), (js_GPUTextureFormatRg8sint, GPUTextureFormatRg8sint), (js_GPUTextureFormatR32uint, GPUTextureFormatR32uint), (js_GPUTextureFormatR32sint, GPUTextureFormatR32sint), (js_GPUTextureFormatR32float, GPUTextureFormatR32float), (js_GPUTextureFormatRg16unorm, GPUTextureFormatRg16unorm), (js_GPUTextureFormatRg16snorm, GPUTextureFormatRg16snorm), (js_GPUTextureFormatRg16uint, GPUTextureFormatRg16uint), (js_GPUTextureFormatRg16sint, GPUTextureFormatRg16sint), (js_GPUTextureFormatRg16float, GPUTextureFormatRg16float), (js_GPUTextureFormatRgba8unorm, GPUTextureFormatRgba8unorm), (js_GPUTextureFormatRgba8unormSrgb, GPUTextureFormatRgba8unormSrgb), (js_GPUTextureFormatRgba8snorm, GPUTextureFormatRgba8snorm), (js_GPUTextureFormatRgba8uint, GPUTextureFormatRgba8uint), (js_GPUTextureFormatRgba8sint, GPUTextureFormatRgba8sint), (js_GPUTextureFormatBgra8unorm, GPUTextureFormatBgra8unorm), (js_GPUTextureFormatBgra8unormSrgb, GPUTextureFormatBgra8unormSrgb), (js_GPUTextureFormatRgb9e5ufloat, GPUTextureFormatRgb9e5ufloat), (js_GPUTextureFormatRgb10a2uint, GPUTextureFormatRgb10a2uint), (js_GPUTextureFormatRgb10a2unorm, GPUTextureFormatRgb10a2unorm), (js_GPUTextureFormatRg11b10ufloat, GPUTextureFormatRg11b10ufloat), (js_GPUTextureFormatRg32uint, GPUTextureFormatRg32uint), (js_GPUTextureFormatRg32sint, GPUTextureFormatRg32sint), (js_GPUTextureFormatRg32float, GPUTextureFormatRg32float), (js_GPUTextureFormatRgba16unorm, GPUTextureFormatRgba16unorm), (js_GPUTextureFormatRgba16snorm, GPUTextureFormatRgba16snorm), (js_GPUTextureFormatRgba16uint, GPUTextureFormatRgba16uint), (js_GPUTextureFormatRgba16sint, GPUTextureFormatRgba16sint), (js_GPUTextureFormatRgba16float, GPUTextureFormatRgba16float), (js_GPUTextureFormatRgba32uint, GPUTextureFormatRgba32uint), (js_GPUTextureFormatRgba32sint, GPUTextureFormatRgba32sint), (js_GPUTextureFormatRgba32float, GPUTextureFormatRgba32float), (js_GPUTextureFormatStencil8, GPUTextureFormatStencil8), (js_GPUTextureFormatDepth16unorm, GPUTextureFormatDepth16unorm), (js_GPUTextureFormatDepth24plus, GPUTextureFormatDepth24plus), (js_GPUTextureFormatDepth24plusStencil8, GPUTextureFormatDepth24plusStencil8), (js_GPUTextureFormatDepth32float, GPUTextureFormatDepth32float), (js_GPUTextureFormatDepth32floatStencil8, GPUTextureFormatDepth32floatStencil8), (js_GPUTextureFormatBc1RgbaUnorm, GPUTextureFormatBc1RgbaUnorm), (js_GPUTextureFormatBc1RgbaUnormSrgb, GPUTextureFormatBc1RgbaUnormSrgb), (js_GPUTextureFormatBc2RgbaUnorm, GPUTextureFormatBc2RgbaUnorm), (js_GPUTextureFormatBc2RgbaUnormSrgb, GPUTextureFormatBc2RgbaUnormSrgb), (js_GPUTextureFormatBc3RgbaUnorm, GPUTextureFormatBc3RgbaUnorm), (js_GPUTextureFormatBc3RgbaUnormSrgb, GPUTextureFormatBc3RgbaUnormSrgb), (js_GPUTextureFormatBc4RUnorm, GPUTextureFormatBc4RUnorm), (js_GPUTextureFormatBc4RSnorm, GPUTextureFormatBc4RSnorm), (js_GPUTextureFormatBc5RgUnorm, GPUTextureFormatBc5RgUnorm), (js_GPUTextureFormatBc5RgSnorm, GPUTextureFormatBc5RgSnorm), (js_GPUTextureFormatBc6hRgbUfloat, GPUTextureFormatBc6hRgbUfloat), (js_GPUTextureFormatBc6hRgbFloat, GPUTextureFormatBc6hRgbFloat), (js_GPUTextureFormatBc7RgbaUnorm, GPUTextureFormatBc7RgbaUnorm), (js_GPUTextureFormatBc7RgbaUnormSrgb, GPUTextureFormatBc7RgbaUnormSrgb), (js_GPUTextureFormatEtc2Rgb8unorm, GPUTextureFormatEtc2Rgb8unorm), (js_GPUTextureFormatEtc2Rgb8unormSrgb, GPUTextureFormatEtc2Rgb8unormSrgb), (js_GPUTextureFormatEtc2Rgb8a1unorm, GPUTextureFormatEtc2Rgb8a1unorm), (js_GPUTextureFormatEtc2Rgb8a1unormSrgb, GPUTextureFormatEtc2Rgb8a1unormSrgb), (js_GPUTextureFormatEtc2Rgba8unorm, GPUTextureFormatEtc2Rgba8unorm), (js_GPUTextureFormatEtc2Rgba8unormSrgb, GPUTextureFormatEtc2Rgba8unormSrgb), (js_GPUTextureFormatEacR11unorm, GPUTextureFormatEacR11unorm), (js_GPUTextureFormatEacR11snorm, GPUTextureFormatEacR11snorm), (js_GPUTextureFormatEacRg11unorm, GPUTextureFormatEacRg11unorm), (js_GPUTextureFormatEacRg11snorm, GPUTextureFormatEacRg11snorm), (js_GPUTextureFormatAstc4x4Unorm, GPUTextureFormatAstc4x4Unorm), (js_GPUTextureFormatAstc4x4UnormSrgb, GPUTextureFormatAstc4x4UnormSrgb), (js_GPUTextureFormatAstc5x4Unorm, GPUTextureFormatAstc5x4Unorm), (js_GPUTextureFormatAstc5x4UnormSrgb, GPUTextureFormatAstc5x4UnormSrgb), (js_GPUTextureFormatAstc5x5Unorm, GPUTextureFormatAstc5x5Unorm), (js_GPUTextureFormatAstc5x5UnormSrgb, GPUTextureFormatAstc5x5UnormSrgb), (js_GPUTextureFormatAstc6x5Unorm, GPUTextureFormatAstc6x5Unorm), (js_GPUTextureFormatAstc6x5UnormSrgb, GPUTextureFormatAstc6x5UnormSrgb), (js_GPUTextureFormatAstc6x6Unorm, GPUTextureFormatAstc6x6Unorm), (js_GPUTextureFormatAstc6x6UnormSrgb, GPUTextureFormatAstc6x6UnormSrgb), (js_GPUTextureFormatAstc8x5Unorm, GPUTextureFormatAstc8x5Unorm), (js_GPUTextureFormatAstc8x5UnormSrgb, GPUTextureFormatAstc8x5UnormSrgb), (js_GPUTextureFormatAstc8x6Unorm, GPUTextureFormatAstc8x6Unorm), (js_GPUTextureFormatAstc8x6UnormSrgb, GPUTextureFormatAstc8x6UnormSrgb), (js_GPUTextureFormatAstc8x8Unorm, GPUTextureFormatAstc8x8Unorm), (js_GPUTextureFormatAstc8x8UnormSrgb, GPUTextureFormatAstc8x8UnormSrgb), (js_GPUTextureFormatAstc10x5Unorm, GPUTextureFormatAstc10x5Unorm), (js_GPUTextureFormatAstc10x5UnormSrgb, GPUTextureFormatAstc10x5UnormSrgb), (js_GPUTextureFormatAstc10x6Unorm, GPUTextureFormatAstc10x6Unorm), (js_GPUTextureFormatAstc10x6UnormSrgb, GPUTextureFormatAstc10x6UnormSrgb), (js_GPUTextureFormatAstc10x8Unorm, GPUTextureFormatAstc10x8Unorm), (js_GPUTextureFormatAstc10x8UnormSrgb, GPUTextureFormatAstc10x8UnormSrgb), (js_GPUTextureFormatAstc10x10Unorm, GPUTextureFormatAstc10x10Unorm), (js_GPUTextureFormatAstc10x10UnormSrgb, GPUTextureFormatAstc10x10UnormSrgb), (js_GPUTextureFormatAstc12x10Unorm, GPUTextureFormatAstc12x10Unorm), (js_GPUTextureFormatAstc12x10UnormSrgb, GPUTextureFormatAstc12x10UnormSrgb), (js_GPUTextureFormatAstc12x12Unorm, GPUTextureFormatAstc12x12Unorm), (js_GPUTextureFormatAstc12x12UnormSrgb, GPUTextureFormatAstc12x12UnormSrgb)]++instance FromJSVal GPUTextureFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUTextureFormatR8unorm, GPUTextureFormatR8unorm), (js_GPUTextureFormatR8snorm, GPUTextureFormatR8snorm), (js_GPUTextureFormatR8uint, GPUTextureFormatR8uint), (js_GPUTextureFormatR8sint, GPUTextureFormatR8sint), (js_GPUTextureFormatR16unorm, GPUTextureFormatR16unorm), (js_GPUTextureFormatR16snorm, GPUTextureFormatR16snorm), (js_GPUTextureFormatR16uint, GPUTextureFormatR16uint), (js_GPUTextureFormatR16sint, GPUTextureFormatR16sint), (js_GPUTextureFormatR16float, GPUTextureFormatR16float), (js_GPUTextureFormatRg8unorm, GPUTextureFormatRg8unorm), (js_GPUTextureFormatRg8snorm, GPUTextureFormatRg8snorm), (js_GPUTextureFormatRg8uint, GPUTextureFormatRg8uint), (js_GPUTextureFormatRg8sint, GPUTextureFormatRg8sint), (js_GPUTextureFormatR32uint, GPUTextureFormatR32uint), (js_GPUTextureFormatR32sint, GPUTextureFormatR32sint), (js_GPUTextureFormatR32float, GPUTextureFormatR32float), (js_GPUTextureFormatRg16unorm, GPUTextureFormatRg16unorm), (js_GPUTextureFormatRg16snorm, GPUTextureFormatRg16snorm), (js_GPUTextureFormatRg16uint, GPUTextureFormatRg16uint), (js_GPUTextureFormatRg16sint, GPUTextureFormatRg16sint), (js_GPUTextureFormatRg16float, GPUTextureFormatRg16float), (js_GPUTextureFormatRgba8unorm, GPUTextureFormatRgba8unorm), (js_GPUTextureFormatRgba8unormSrgb, GPUTextureFormatRgba8unormSrgb), (js_GPUTextureFormatRgba8snorm, GPUTextureFormatRgba8snorm), (js_GPUTextureFormatRgba8uint, GPUTextureFormatRgba8uint), (js_GPUTextureFormatRgba8sint, GPUTextureFormatRgba8sint), (js_GPUTextureFormatBgra8unorm, GPUTextureFormatBgra8unorm), (js_GPUTextureFormatBgra8unormSrgb, GPUTextureFormatBgra8unormSrgb), (js_GPUTextureFormatRgb9e5ufloat, GPUTextureFormatRgb9e5ufloat), (js_GPUTextureFormatRgb10a2uint, GPUTextureFormatRgb10a2uint), (js_GPUTextureFormatRgb10a2unorm, GPUTextureFormatRgb10a2unorm), (js_GPUTextureFormatRg11b10ufloat, GPUTextureFormatRg11b10ufloat), (js_GPUTextureFormatRg32uint, GPUTextureFormatRg32uint), (js_GPUTextureFormatRg32sint, GPUTextureFormatRg32sint), (js_GPUTextureFormatRg32float, GPUTextureFormatRg32float), (js_GPUTextureFormatRgba16unorm, GPUTextureFormatRgba16unorm), (js_GPUTextureFormatRgba16snorm, GPUTextureFormatRgba16snorm), (js_GPUTextureFormatRgba16uint, GPUTextureFormatRgba16uint), (js_GPUTextureFormatRgba16sint, GPUTextureFormatRgba16sint), (js_GPUTextureFormatRgba16float, GPUTextureFormatRgba16float), (js_GPUTextureFormatRgba32uint, GPUTextureFormatRgba32uint), (js_GPUTextureFormatRgba32sint, GPUTextureFormatRgba32sint), (js_GPUTextureFormatRgba32float, GPUTextureFormatRgba32float), (js_GPUTextureFormatStencil8, GPUTextureFormatStencil8), (js_GPUTextureFormatDepth16unorm, GPUTextureFormatDepth16unorm), (js_GPUTextureFormatDepth24plus, GPUTextureFormatDepth24plus), (js_GPUTextureFormatDepth24plusStencil8, GPUTextureFormatDepth24plusStencil8), (js_GPUTextureFormatDepth32float, GPUTextureFormatDepth32float), (js_GPUTextureFormatDepth32floatStencil8, GPUTextureFormatDepth32floatStencil8), (js_GPUTextureFormatBc1RgbaUnorm, GPUTextureFormatBc1RgbaUnorm), (js_GPUTextureFormatBc1RgbaUnormSrgb, GPUTextureFormatBc1RgbaUnormSrgb), (js_GPUTextureFormatBc2RgbaUnorm, GPUTextureFormatBc2RgbaUnorm), (js_GPUTextureFormatBc2RgbaUnormSrgb, GPUTextureFormatBc2RgbaUnormSrgb), (js_GPUTextureFormatBc3RgbaUnorm, GPUTextureFormatBc3RgbaUnorm), (js_GPUTextureFormatBc3RgbaUnormSrgb, GPUTextureFormatBc3RgbaUnormSrgb), (js_GPUTextureFormatBc4RUnorm, GPUTextureFormatBc4RUnorm), (js_GPUTextureFormatBc4RSnorm, GPUTextureFormatBc4RSnorm), (js_GPUTextureFormatBc5RgUnorm, GPUTextureFormatBc5RgUnorm), (js_GPUTextureFormatBc5RgSnorm, GPUTextureFormatBc5RgSnorm), (js_GPUTextureFormatBc6hRgbUfloat, GPUTextureFormatBc6hRgbUfloat), (js_GPUTextureFormatBc6hRgbFloat, GPUTextureFormatBc6hRgbFloat), (js_GPUTextureFormatBc7RgbaUnorm, GPUTextureFormatBc7RgbaUnorm), (js_GPUTextureFormatBc7RgbaUnormSrgb, GPUTextureFormatBc7RgbaUnormSrgb), (js_GPUTextureFormatEtc2Rgb8unorm, GPUTextureFormatEtc2Rgb8unorm), (js_GPUTextureFormatEtc2Rgb8unormSrgb, GPUTextureFormatEtc2Rgb8unormSrgb), (js_GPUTextureFormatEtc2Rgb8a1unorm, GPUTextureFormatEtc2Rgb8a1unorm), (js_GPUTextureFormatEtc2Rgb8a1unormSrgb, GPUTextureFormatEtc2Rgb8a1unormSrgb), (js_GPUTextureFormatEtc2Rgba8unorm, GPUTextureFormatEtc2Rgba8unorm), (js_GPUTextureFormatEtc2Rgba8unormSrgb, GPUTextureFormatEtc2Rgba8unormSrgb), (js_GPUTextureFormatEacR11unorm, GPUTextureFormatEacR11unorm), (js_GPUTextureFormatEacR11snorm, GPUTextureFormatEacR11snorm), (js_GPUTextureFormatEacRg11unorm, GPUTextureFormatEacRg11unorm), (js_GPUTextureFormatEacRg11snorm, GPUTextureFormatEacRg11snorm), (js_GPUTextureFormatAstc4x4Unorm, GPUTextureFormatAstc4x4Unorm), (js_GPUTextureFormatAstc4x4UnormSrgb, GPUTextureFormatAstc4x4UnormSrgb), (js_GPUTextureFormatAstc5x4Unorm, GPUTextureFormatAstc5x4Unorm), (js_GPUTextureFormatAstc5x4UnormSrgb, GPUTextureFormatAstc5x4UnormSrgb), (js_GPUTextureFormatAstc5x5Unorm, GPUTextureFormatAstc5x5Unorm), (js_GPUTextureFormatAstc5x5UnormSrgb, GPUTextureFormatAstc5x5UnormSrgb), (js_GPUTextureFormatAstc6x5Unorm, GPUTextureFormatAstc6x5Unorm), (js_GPUTextureFormatAstc6x5UnormSrgb, GPUTextureFormatAstc6x5UnormSrgb), (js_GPUTextureFormatAstc6x6Unorm, GPUTextureFormatAstc6x6Unorm), (js_GPUTextureFormatAstc6x6UnormSrgb, GPUTextureFormatAstc6x6UnormSrgb), (js_GPUTextureFormatAstc8x5Unorm, GPUTextureFormatAstc8x5Unorm), (js_GPUTextureFormatAstc8x5UnormSrgb, GPUTextureFormatAstc8x5UnormSrgb), (js_GPUTextureFormatAstc8x6Unorm, GPUTextureFormatAstc8x6Unorm), (js_GPUTextureFormatAstc8x6UnormSrgb, GPUTextureFormatAstc8x6UnormSrgb), (js_GPUTextureFormatAstc8x8Unorm, GPUTextureFormatAstc8x8Unorm), (js_GPUTextureFormatAstc8x8UnormSrgb, GPUTextureFormatAstc8x8UnormSrgb), (js_GPUTextureFormatAstc10x5Unorm, GPUTextureFormatAstc10x5Unorm), (js_GPUTextureFormatAstc10x5UnormSrgb, GPUTextureFormatAstc10x5UnormSrgb), (js_GPUTextureFormatAstc10x6Unorm, GPUTextureFormatAstc10x6Unorm), (js_GPUTextureFormatAstc10x6UnormSrgb, GPUTextureFormatAstc10x6UnormSrgb), (js_GPUTextureFormatAstc10x8Unorm, GPUTextureFormatAstc10x8Unorm), (js_GPUTextureFormatAstc10x8UnormSrgb, GPUTextureFormatAstc10x8UnormSrgb), (js_GPUTextureFormatAstc10x10Unorm, GPUTextureFormatAstc10x10Unorm), (js_GPUTextureFormatAstc10x10UnormSrgb, GPUTextureFormatAstc10x10UnormSrgb), (js_GPUTextureFormatAstc12x10Unorm, GPUTextureFormatAstc12x10Unorm), (js_GPUTextureFormatAstc12x10UnormSrgb, GPUTextureFormatAstc12x10UnormSrgb), (js_GPUTextureFormatAstc12x12Unorm, GPUTextureFormatAstc12x12Unorm), (js_GPUTextureFormatAstc12x12UnormSrgb, GPUTextureFormatAstc12x12UnormSrgb)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUTextureFormatR8unorm :: JSString+js_GPUTextureFormatR8unorm = "r8unorm"+js_GPUTextureFormatR8snorm :: JSString+js_GPUTextureFormatR8snorm = "r8snorm"+js_GPUTextureFormatR8uint :: JSString+js_GPUTextureFormatR8uint = "r8uint"+js_GPUTextureFormatR8sint :: JSString+js_GPUTextureFormatR8sint = "r8sint"+js_GPUTextureFormatR16unorm :: JSString+js_GPUTextureFormatR16unorm = "r16unorm"+js_GPUTextureFormatR16snorm :: JSString+js_GPUTextureFormatR16snorm = "r16snorm"+js_GPUTextureFormatR16uint :: JSString+js_GPUTextureFormatR16uint = "r16uint"+js_GPUTextureFormatR16sint :: JSString+js_GPUTextureFormatR16sint = "r16sint"+js_GPUTextureFormatR16float :: JSString+js_GPUTextureFormatR16float = "r16float"+js_GPUTextureFormatRg8unorm :: JSString+js_GPUTextureFormatRg8unorm = "rg8unorm"+js_GPUTextureFormatRg8snorm :: JSString+js_GPUTextureFormatRg8snorm = "rg8snorm"+js_GPUTextureFormatRg8uint :: JSString+js_GPUTextureFormatRg8uint = "rg8uint"+js_GPUTextureFormatRg8sint :: JSString+js_GPUTextureFormatRg8sint = "rg8sint"+js_GPUTextureFormatR32uint :: JSString+js_GPUTextureFormatR32uint = "r32uint"+js_GPUTextureFormatR32sint :: JSString+js_GPUTextureFormatR32sint = "r32sint"+js_GPUTextureFormatR32float :: JSString+js_GPUTextureFormatR32float = "r32float"+js_GPUTextureFormatRg16unorm :: JSString+js_GPUTextureFormatRg16unorm = "rg16unorm"+js_GPUTextureFormatRg16snorm :: JSString+js_GPUTextureFormatRg16snorm = "rg16snorm"+js_GPUTextureFormatRg16uint :: JSString+js_GPUTextureFormatRg16uint = "rg16uint"+js_GPUTextureFormatRg16sint :: JSString+js_GPUTextureFormatRg16sint = "rg16sint"+js_GPUTextureFormatRg16float :: JSString+js_GPUTextureFormatRg16float = "rg16float"+js_GPUTextureFormatRgba8unorm :: JSString+js_GPUTextureFormatRgba8unorm = "rgba8unorm"+js_GPUTextureFormatRgba8unormSrgb :: JSString+js_GPUTextureFormatRgba8unormSrgb = "rgba8unorm-srgb"+js_GPUTextureFormatRgba8snorm :: JSString+js_GPUTextureFormatRgba8snorm = "rgba8snorm"+js_GPUTextureFormatRgba8uint :: JSString+js_GPUTextureFormatRgba8uint = "rgba8uint"+js_GPUTextureFormatRgba8sint :: JSString+js_GPUTextureFormatRgba8sint = "rgba8sint"+js_GPUTextureFormatBgra8unorm :: JSString+js_GPUTextureFormatBgra8unorm = "bgra8unorm"+js_GPUTextureFormatBgra8unormSrgb :: JSString+js_GPUTextureFormatBgra8unormSrgb = "bgra8unorm-srgb"+js_GPUTextureFormatRgb9e5ufloat :: JSString+js_GPUTextureFormatRgb9e5ufloat = "rgb9e5ufloat"+js_GPUTextureFormatRgb10a2uint :: JSString+js_GPUTextureFormatRgb10a2uint = "rgb10a2uint"+js_GPUTextureFormatRgb10a2unorm :: JSString+js_GPUTextureFormatRgb10a2unorm = "rgb10a2unorm"+js_GPUTextureFormatRg11b10ufloat :: JSString+js_GPUTextureFormatRg11b10ufloat = "rg11b10ufloat"+js_GPUTextureFormatRg32uint :: JSString+js_GPUTextureFormatRg32uint = "rg32uint"+js_GPUTextureFormatRg32sint :: JSString+js_GPUTextureFormatRg32sint = "rg32sint"+js_GPUTextureFormatRg32float :: JSString+js_GPUTextureFormatRg32float = "rg32float"+js_GPUTextureFormatRgba16unorm :: JSString+js_GPUTextureFormatRgba16unorm = "rgba16unorm"+js_GPUTextureFormatRgba16snorm :: JSString+js_GPUTextureFormatRgba16snorm = "rgba16snorm"+js_GPUTextureFormatRgba16uint :: JSString+js_GPUTextureFormatRgba16uint = "rgba16uint"+js_GPUTextureFormatRgba16sint :: JSString+js_GPUTextureFormatRgba16sint = "rgba16sint"+js_GPUTextureFormatRgba16float :: JSString+js_GPUTextureFormatRgba16float = "rgba16float"+js_GPUTextureFormatRgba32uint :: JSString+js_GPUTextureFormatRgba32uint = "rgba32uint"+js_GPUTextureFormatRgba32sint :: JSString+js_GPUTextureFormatRgba32sint = "rgba32sint"+js_GPUTextureFormatRgba32float :: JSString+js_GPUTextureFormatRgba32float = "rgba32float"+js_GPUTextureFormatStencil8 :: JSString+js_GPUTextureFormatStencil8 = "stencil8"+js_GPUTextureFormatDepth16unorm :: JSString+js_GPUTextureFormatDepth16unorm = "depth16unorm"+js_GPUTextureFormatDepth24plus :: JSString+js_GPUTextureFormatDepth24plus = "depth24plus"+js_GPUTextureFormatDepth24plusStencil8 :: JSString+js_GPUTextureFormatDepth24plusStencil8 = "depth24plus-stencil8"+js_GPUTextureFormatDepth32float :: JSString+js_GPUTextureFormatDepth32float = "depth32float"+js_GPUTextureFormatDepth32floatStencil8 :: JSString+js_GPUTextureFormatDepth32floatStencil8 = "depth32float-stencil8"+js_GPUTextureFormatBc1RgbaUnorm :: JSString+js_GPUTextureFormatBc1RgbaUnorm = "bc1-rgba-unorm"+js_GPUTextureFormatBc1RgbaUnormSrgb :: JSString+js_GPUTextureFormatBc1RgbaUnormSrgb = "bc1-rgba-unorm-srgb"+js_GPUTextureFormatBc2RgbaUnorm :: JSString+js_GPUTextureFormatBc2RgbaUnorm = "bc2-rgba-unorm"+js_GPUTextureFormatBc2RgbaUnormSrgb :: JSString+js_GPUTextureFormatBc2RgbaUnormSrgb = "bc2-rgba-unorm-srgb"+js_GPUTextureFormatBc3RgbaUnorm :: JSString+js_GPUTextureFormatBc3RgbaUnorm = "bc3-rgba-unorm"+js_GPUTextureFormatBc3RgbaUnormSrgb :: JSString+js_GPUTextureFormatBc3RgbaUnormSrgb = "bc3-rgba-unorm-srgb"+js_GPUTextureFormatBc4RUnorm :: JSString+js_GPUTextureFormatBc4RUnorm = "bc4-r-unorm"+js_GPUTextureFormatBc4RSnorm :: JSString+js_GPUTextureFormatBc4RSnorm = "bc4-r-snorm"+js_GPUTextureFormatBc5RgUnorm :: JSString+js_GPUTextureFormatBc5RgUnorm = "bc5-rg-unorm"+js_GPUTextureFormatBc5RgSnorm :: JSString+js_GPUTextureFormatBc5RgSnorm = "bc5-rg-snorm"+js_GPUTextureFormatBc6hRgbUfloat :: JSString+js_GPUTextureFormatBc6hRgbUfloat = "bc6h-rgb-ufloat"+js_GPUTextureFormatBc6hRgbFloat :: JSString+js_GPUTextureFormatBc6hRgbFloat = "bc6h-rgb-float"+js_GPUTextureFormatBc7RgbaUnorm :: JSString+js_GPUTextureFormatBc7RgbaUnorm = "bc7-rgba-unorm"+js_GPUTextureFormatBc7RgbaUnormSrgb :: JSString+js_GPUTextureFormatBc7RgbaUnormSrgb = "bc7-rgba-unorm-srgb"+js_GPUTextureFormatEtc2Rgb8unorm :: JSString+js_GPUTextureFormatEtc2Rgb8unorm = "etc2-rgb8unorm"+js_GPUTextureFormatEtc2Rgb8unormSrgb :: JSString+js_GPUTextureFormatEtc2Rgb8unormSrgb = "etc2-rgb8unorm-srgb"+js_GPUTextureFormatEtc2Rgb8a1unorm :: JSString+js_GPUTextureFormatEtc2Rgb8a1unorm = "etc2-rgb8a1unorm"+js_GPUTextureFormatEtc2Rgb8a1unormSrgb :: JSString+js_GPUTextureFormatEtc2Rgb8a1unormSrgb = "etc2-rgb8a1unorm-srgb"+js_GPUTextureFormatEtc2Rgba8unorm :: JSString+js_GPUTextureFormatEtc2Rgba8unorm = "etc2-rgba8unorm"+js_GPUTextureFormatEtc2Rgba8unormSrgb :: JSString+js_GPUTextureFormatEtc2Rgba8unormSrgb = "etc2-rgba8unorm-srgb"+js_GPUTextureFormatEacR11unorm :: JSString+js_GPUTextureFormatEacR11unorm = "eac-r11unorm"+js_GPUTextureFormatEacR11snorm :: JSString+js_GPUTextureFormatEacR11snorm = "eac-r11snorm"+js_GPUTextureFormatEacRg11unorm :: JSString+js_GPUTextureFormatEacRg11unorm = "eac-rg11unorm"+js_GPUTextureFormatEacRg11snorm :: JSString+js_GPUTextureFormatEacRg11snorm = "eac-rg11snorm"+js_GPUTextureFormatAstc4x4Unorm :: JSString+js_GPUTextureFormatAstc4x4Unorm = "astc-4x4-unorm"+js_GPUTextureFormatAstc4x4UnormSrgb :: JSString+js_GPUTextureFormatAstc4x4UnormSrgb = "astc-4x4-unorm-srgb"+js_GPUTextureFormatAstc5x4Unorm :: JSString+js_GPUTextureFormatAstc5x4Unorm = "astc-5x4-unorm"+js_GPUTextureFormatAstc5x4UnormSrgb :: JSString+js_GPUTextureFormatAstc5x4UnormSrgb = "astc-5x4-unorm-srgb"+js_GPUTextureFormatAstc5x5Unorm :: JSString+js_GPUTextureFormatAstc5x5Unorm = "astc-5x5-unorm"+js_GPUTextureFormatAstc5x5UnormSrgb :: JSString+js_GPUTextureFormatAstc5x5UnormSrgb = "astc-5x5-unorm-srgb"+js_GPUTextureFormatAstc6x5Unorm :: JSString+js_GPUTextureFormatAstc6x5Unorm = "astc-6x5-unorm"+js_GPUTextureFormatAstc6x5UnormSrgb :: JSString+js_GPUTextureFormatAstc6x5UnormSrgb = "astc-6x5-unorm-srgb"+js_GPUTextureFormatAstc6x6Unorm :: JSString+js_GPUTextureFormatAstc6x6Unorm = "astc-6x6-unorm"+js_GPUTextureFormatAstc6x6UnormSrgb :: JSString+js_GPUTextureFormatAstc6x6UnormSrgb = "astc-6x6-unorm-srgb"+js_GPUTextureFormatAstc8x5Unorm :: JSString+js_GPUTextureFormatAstc8x5Unorm = "astc-8x5-unorm"+js_GPUTextureFormatAstc8x5UnormSrgb :: JSString+js_GPUTextureFormatAstc8x5UnormSrgb = "astc-8x5-unorm-srgb"+js_GPUTextureFormatAstc8x6Unorm :: JSString+js_GPUTextureFormatAstc8x6Unorm = "astc-8x6-unorm"+js_GPUTextureFormatAstc8x6UnormSrgb :: JSString+js_GPUTextureFormatAstc8x6UnormSrgb = "astc-8x6-unorm-srgb"+js_GPUTextureFormatAstc8x8Unorm :: JSString+js_GPUTextureFormatAstc8x8Unorm = "astc-8x8-unorm"+js_GPUTextureFormatAstc8x8UnormSrgb :: JSString+js_GPUTextureFormatAstc8x8UnormSrgb = "astc-8x8-unorm-srgb"+js_GPUTextureFormatAstc10x5Unorm :: JSString+js_GPUTextureFormatAstc10x5Unorm = "astc-10x5-unorm"+js_GPUTextureFormatAstc10x5UnormSrgb :: JSString+js_GPUTextureFormatAstc10x5UnormSrgb = "astc-10x5-unorm-srgb"+js_GPUTextureFormatAstc10x6Unorm :: JSString+js_GPUTextureFormatAstc10x6Unorm = "astc-10x6-unorm"+js_GPUTextureFormatAstc10x6UnormSrgb :: JSString+js_GPUTextureFormatAstc10x6UnormSrgb = "astc-10x6-unorm-srgb"+js_GPUTextureFormatAstc10x8Unorm :: JSString+js_GPUTextureFormatAstc10x8Unorm = "astc-10x8-unorm"+js_GPUTextureFormatAstc10x8UnormSrgb :: JSString+js_GPUTextureFormatAstc10x8UnormSrgb = "astc-10x8-unorm-srgb"+js_GPUTextureFormatAstc10x10Unorm :: JSString+js_GPUTextureFormatAstc10x10Unorm = "astc-10x10-unorm"+js_GPUTextureFormatAstc10x10UnormSrgb :: JSString+js_GPUTextureFormatAstc10x10UnormSrgb = "astc-10x10-unorm-srgb"+js_GPUTextureFormatAstc12x10Unorm :: JSString+js_GPUTextureFormatAstc12x10Unorm = "astc-12x10-unorm"+js_GPUTextureFormatAstc12x10UnormSrgb :: JSString+js_GPUTextureFormatAstc12x10UnormSrgb = "astc-12x10-unorm-srgb"+js_GPUTextureFormatAstc12x12Unorm :: JSString+js_GPUTextureFormatAstc12x12Unorm = "astc-12x12-unorm"+js_GPUTextureFormatAstc12x12UnormSrgb :: JSString+js_GPUTextureFormatAstc12x12UnormSrgb = "astc-12x12-unorm-srgb"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUTextureSampleType> (webgpu)+data GPUTextureSampleType = GPUTextureSampleTypeFloat+    | GPUTextureSampleTypeUnfilterableFloat+    | GPUTextureSampleTypeDepth+    | GPUTextureSampleTypeSint+    | GPUTextureSampleTypeUint+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUTextureSampleType where+  pToJSVal x = pToJSVal (case x of+    GPUTextureSampleTypeFloat -> js_GPUTextureSampleTypeFloat+    GPUTextureSampleTypeUnfilterableFloat -> js_GPUTextureSampleTypeUnfilterableFloat+    GPUTextureSampleTypeDepth -> js_GPUTextureSampleTypeDepth+    GPUTextureSampleTypeSint -> js_GPUTextureSampleTypeSint+    GPUTextureSampleTypeUint -> js_GPUTextureSampleTypeUint+    )++instance ToJSVal GPUTextureSampleType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUTextureSampleType where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUTextureSampleType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUTextureSampleTypeFloat, GPUTextureSampleTypeFloat), (js_GPUTextureSampleTypeUnfilterableFloat, GPUTextureSampleTypeUnfilterableFloat), (js_GPUTextureSampleTypeDepth, GPUTextureSampleTypeDepth), (js_GPUTextureSampleTypeSint, GPUTextureSampleTypeSint), (js_GPUTextureSampleTypeUint, GPUTextureSampleTypeUint)]++instance FromJSVal GPUTextureSampleType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUTextureSampleTypeFloat, GPUTextureSampleTypeFloat), (js_GPUTextureSampleTypeUnfilterableFloat, GPUTextureSampleTypeUnfilterableFloat), (js_GPUTextureSampleTypeDepth, GPUTextureSampleTypeDepth), (js_GPUTextureSampleTypeSint, GPUTextureSampleTypeSint), (js_GPUTextureSampleTypeUint, GPUTextureSampleTypeUint)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUTextureSampleTypeFloat :: JSString+js_GPUTextureSampleTypeFloat = "float"+js_GPUTextureSampleTypeUnfilterableFloat :: JSString+js_GPUTextureSampleTypeUnfilterableFloat = "unfilterable-float"+js_GPUTextureSampleTypeDepth :: JSString+js_GPUTextureSampleTypeDepth = "depth"+js_GPUTextureSampleTypeSint :: JSString+js_GPUTextureSampleTypeSint = "sint"+js_GPUTextureSampleTypeUint :: JSString+js_GPUTextureSampleTypeUint = "uint"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUTextureViewDimension> (webgpu)+data GPUTextureViewDimension = GPUTextureViewDimension1d+    | GPUTextureViewDimension2d+    | GPUTextureViewDimension2dArray+    | GPUTextureViewDimensionCube+    | GPUTextureViewDimensionCubeArray+    | GPUTextureViewDimension3d+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUTextureViewDimension where+  pToJSVal x = pToJSVal (case x of+    GPUTextureViewDimension1d -> js_GPUTextureViewDimension1d+    GPUTextureViewDimension2d -> js_GPUTextureViewDimension2d+    GPUTextureViewDimension2dArray -> js_GPUTextureViewDimension2dArray+    GPUTextureViewDimensionCube -> js_GPUTextureViewDimensionCube+    GPUTextureViewDimensionCubeArray -> js_GPUTextureViewDimensionCubeArray+    GPUTextureViewDimension3d -> js_GPUTextureViewDimension3d+    )++instance ToJSVal GPUTextureViewDimension where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUTextureViewDimension where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUTextureViewDimension value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUTextureViewDimension1d, GPUTextureViewDimension1d), (js_GPUTextureViewDimension2d, GPUTextureViewDimension2d), (js_GPUTextureViewDimension2dArray, GPUTextureViewDimension2dArray), (js_GPUTextureViewDimensionCube, GPUTextureViewDimensionCube), (js_GPUTextureViewDimensionCubeArray, GPUTextureViewDimensionCubeArray), (js_GPUTextureViewDimension3d, GPUTextureViewDimension3d)]++instance FromJSVal GPUTextureViewDimension where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUTextureViewDimension1d, GPUTextureViewDimension1d), (js_GPUTextureViewDimension2d, GPUTextureViewDimension2d), (js_GPUTextureViewDimension2dArray, GPUTextureViewDimension2dArray), (js_GPUTextureViewDimensionCube, GPUTextureViewDimensionCube), (js_GPUTextureViewDimensionCubeArray, GPUTextureViewDimensionCubeArray), (js_GPUTextureViewDimension3d, GPUTextureViewDimension3d)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUTextureViewDimension1d :: JSString+js_GPUTextureViewDimension1d = "1d"+js_GPUTextureViewDimension2d :: JSString+js_GPUTextureViewDimension2d = "2d"+js_GPUTextureViewDimension2dArray :: JSString+js_GPUTextureViewDimension2dArray = "2d-array"+js_GPUTextureViewDimensionCube :: JSString+js_GPUTextureViewDimensionCube = "cube"+js_GPUTextureViewDimensionCubeArray :: JSString+js_GPUTextureViewDimensionCubeArray = "cube-array"+js_GPUTextureViewDimension3d :: JSString+js_GPUTextureViewDimension3d = "3d"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUVertexFormat> (webgpu)+data GPUVertexFormat = GPUVertexFormatUint8+    | GPUVertexFormatUint8x2+    | GPUVertexFormatUint8x4+    | GPUVertexFormatSint8+    | GPUVertexFormatSint8x2+    | GPUVertexFormatSint8x4+    | GPUVertexFormatUnorm8+    | GPUVertexFormatUnorm8x2+    | GPUVertexFormatUnorm8x4+    | GPUVertexFormatSnorm8+    | GPUVertexFormatSnorm8x2+    | GPUVertexFormatSnorm8x4+    | GPUVertexFormatUint16+    | GPUVertexFormatUint16x2+    | GPUVertexFormatUint16x4+    | GPUVertexFormatSint16+    | GPUVertexFormatSint16x2+    | GPUVertexFormatSint16x4+    | GPUVertexFormatUnorm16+    | GPUVertexFormatUnorm16x2+    | GPUVertexFormatUnorm16x4+    | GPUVertexFormatSnorm16+    | GPUVertexFormatSnorm16x2+    | GPUVertexFormatSnorm16x4+    | GPUVertexFormatFloat16+    | GPUVertexFormatFloat16x2+    | GPUVertexFormatFloat16x4+    | GPUVertexFormatFloat32+    | GPUVertexFormatFloat32x2+    | GPUVertexFormatFloat32x3+    | GPUVertexFormatFloat32x4+    | GPUVertexFormatUint32+    | GPUVertexFormatUint32x2+    | GPUVertexFormatUint32x3+    | GPUVertexFormatUint32x4+    | GPUVertexFormatSint32+    | GPUVertexFormatSint32x2+    | GPUVertexFormatSint32x3+    | GPUVertexFormatSint32x4+    | GPUVertexFormatUnorm1010102+    | GPUVertexFormatUnorm8x4Bgra+    | GPUVertexFormatSnorm1010102+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUVertexFormat where+  pToJSVal x = pToJSVal (case x of+    GPUVertexFormatUint8 -> js_GPUVertexFormatUint8+    GPUVertexFormatUint8x2 -> js_GPUVertexFormatUint8x2+    GPUVertexFormatUint8x4 -> js_GPUVertexFormatUint8x4+    GPUVertexFormatSint8 -> js_GPUVertexFormatSint8+    GPUVertexFormatSint8x2 -> js_GPUVertexFormatSint8x2+    GPUVertexFormatSint8x4 -> js_GPUVertexFormatSint8x4+    GPUVertexFormatUnorm8 -> js_GPUVertexFormatUnorm8+    GPUVertexFormatUnorm8x2 -> js_GPUVertexFormatUnorm8x2+    GPUVertexFormatUnorm8x4 -> js_GPUVertexFormatUnorm8x4+    GPUVertexFormatSnorm8 -> js_GPUVertexFormatSnorm8+    GPUVertexFormatSnorm8x2 -> js_GPUVertexFormatSnorm8x2+    GPUVertexFormatSnorm8x4 -> js_GPUVertexFormatSnorm8x4+    GPUVertexFormatUint16 -> js_GPUVertexFormatUint16+    GPUVertexFormatUint16x2 -> js_GPUVertexFormatUint16x2+    GPUVertexFormatUint16x4 -> js_GPUVertexFormatUint16x4+    GPUVertexFormatSint16 -> js_GPUVertexFormatSint16+    GPUVertexFormatSint16x2 -> js_GPUVertexFormatSint16x2+    GPUVertexFormatSint16x4 -> js_GPUVertexFormatSint16x4+    GPUVertexFormatUnorm16 -> js_GPUVertexFormatUnorm16+    GPUVertexFormatUnorm16x2 -> js_GPUVertexFormatUnorm16x2+    GPUVertexFormatUnorm16x4 -> js_GPUVertexFormatUnorm16x4+    GPUVertexFormatSnorm16 -> js_GPUVertexFormatSnorm16+    GPUVertexFormatSnorm16x2 -> js_GPUVertexFormatSnorm16x2+    GPUVertexFormatSnorm16x4 -> js_GPUVertexFormatSnorm16x4+    GPUVertexFormatFloat16 -> js_GPUVertexFormatFloat16+    GPUVertexFormatFloat16x2 -> js_GPUVertexFormatFloat16x2+    GPUVertexFormatFloat16x4 -> js_GPUVertexFormatFloat16x4+    GPUVertexFormatFloat32 -> js_GPUVertexFormatFloat32+    GPUVertexFormatFloat32x2 -> js_GPUVertexFormatFloat32x2+    GPUVertexFormatFloat32x3 -> js_GPUVertexFormatFloat32x3+    GPUVertexFormatFloat32x4 -> js_GPUVertexFormatFloat32x4+    GPUVertexFormatUint32 -> js_GPUVertexFormatUint32+    GPUVertexFormatUint32x2 -> js_GPUVertexFormatUint32x2+    GPUVertexFormatUint32x3 -> js_GPUVertexFormatUint32x3+    GPUVertexFormatUint32x4 -> js_GPUVertexFormatUint32x4+    GPUVertexFormatSint32 -> js_GPUVertexFormatSint32+    GPUVertexFormatSint32x2 -> js_GPUVertexFormatSint32x2+    GPUVertexFormatSint32x3 -> js_GPUVertexFormatSint32x3+    GPUVertexFormatSint32x4 -> js_GPUVertexFormatSint32x4+    GPUVertexFormatUnorm1010102 -> js_GPUVertexFormatUnorm1010102+    GPUVertexFormatUnorm8x4Bgra -> js_GPUVertexFormatUnorm8x4Bgra+    GPUVertexFormatSnorm1010102 -> js_GPUVertexFormatSnorm1010102+    )++instance ToJSVal GPUVertexFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUVertexFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUVertexFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUVertexFormatUint8, GPUVertexFormatUint8), (js_GPUVertexFormatUint8x2, GPUVertexFormatUint8x2), (js_GPUVertexFormatUint8x4, GPUVertexFormatUint8x4), (js_GPUVertexFormatSint8, GPUVertexFormatSint8), (js_GPUVertexFormatSint8x2, GPUVertexFormatSint8x2), (js_GPUVertexFormatSint8x4, GPUVertexFormatSint8x4), (js_GPUVertexFormatUnorm8, GPUVertexFormatUnorm8), (js_GPUVertexFormatUnorm8x2, GPUVertexFormatUnorm8x2), (js_GPUVertexFormatUnorm8x4, GPUVertexFormatUnorm8x4), (js_GPUVertexFormatSnorm8, GPUVertexFormatSnorm8), (js_GPUVertexFormatSnorm8x2, GPUVertexFormatSnorm8x2), (js_GPUVertexFormatSnorm8x4, GPUVertexFormatSnorm8x4), (js_GPUVertexFormatUint16, GPUVertexFormatUint16), (js_GPUVertexFormatUint16x2, GPUVertexFormatUint16x2), (js_GPUVertexFormatUint16x4, GPUVertexFormatUint16x4), (js_GPUVertexFormatSint16, GPUVertexFormatSint16), (js_GPUVertexFormatSint16x2, GPUVertexFormatSint16x2), (js_GPUVertexFormatSint16x4, GPUVertexFormatSint16x4), (js_GPUVertexFormatUnorm16, GPUVertexFormatUnorm16), (js_GPUVertexFormatUnorm16x2, GPUVertexFormatUnorm16x2), (js_GPUVertexFormatUnorm16x4, GPUVertexFormatUnorm16x4), (js_GPUVertexFormatSnorm16, GPUVertexFormatSnorm16), (js_GPUVertexFormatSnorm16x2, GPUVertexFormatSnorm16x2), (js_GPUVertexFormatSnorm16x4, GPUVertexFormatSnorm16x4), (js_GPUVertexFormatFloat16, GPUVertexFormatFloat16), (js_GPUVertexFormatFloat16x2, GPUVertexFormatFloat16x2), (js_GPUVertexFormatFloat16x4, GPUVertexFormatFloat16x4), (js_GPUVertexFormatFloat32, GPUVertexFormatFloat32), (js_GPUVertexFormatFloat32x2, GPUVertexFormatFloat32x2), (js_GPUVertexFormatFloat32x3, GPUVertexFormatFloat32x3), (js_GPUVertexFormatFloat32x4, GPUVertexFormatFloat32x4), (js_GPUVertexFormatUint32, GPUVertexFormatUint32), (js_GPUVertexFormatUint32x2, GPUVertexFormatUint32x2), (js_GPUVertexFormatUint32x3, GPUVertexFormatUint32x3), (js_GPUVertexFormatUint32x4, GPUVertexFormatUint32x4), (js_GPUVertexFormatSint32, GPUVertexFormatSint32), (js_GPUVertexFormatSint32x2, GPUVertexFormatSint32x2), (js_GPUVertexFormatSint32x3, GPUVertexFormatSint32x3), (js_GPUVertexFormatSint32x4, GPUVertexFormatSint32x4), (js_GPUVertexFormatUnorm1010102, GPUVertexFormatUnorm1010102), (js_GPUVertexFormatUnorm8x4Bgra, GPUVertexFormatUnorm8x4Bgra), (js_GPUVertexFormatSnorm1010102, GPUVertexFormatSnorm1010102)]++instance FromJSVal GPUVertexFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUVertexFormatUint8, GPUVertexFormatUint8), (js_GPUVertexFormatUint8x2, GPUVertexFormatUint8x2), (js_GPUVertexFormatUint8x4, GPUVertexFormatUint8x4), (js_GPUVertexFormatSint8, GPUVertexFormatSint8), (js_GPUVertexFormatSint8x2, GPUVertexFormatSint8x2), (js_GPUVertexFormatSint8x4, GPUVertexFormatSint8x4), (js_GPUVertexFormatUnorm8, GPUVertexFormatUnorm8), (js_GPUVertexFormatUnorm8x2, GPUVertexFormatUnorm8x2), (js_GPUVertexFormatUnorm8x4, GPUVertexFormatUnorm8x4), (js_GPUVertexFormatSnorm8, GPUVertexFormatSnorm8), (js_GPUVertexFormatSnorm8x2, GPUVertexFormatSnorm8x2), (js_GPUVertexFormatSnorm8x4, GPUVertexFormatSnorm8x4), (js_GPUVertexFormatUint16, GPUVertexFormatUint16), (js_GPUVertexFormatUint16x2, GPUVertexFormatUint16x2), (js_GPUVertexFormatUint16x4, GPUVertexFormatUint16x4), (js_GPUVertexFormatSint16, GPUVertexFormatSint16), (js_GPUVertexFormatSint16x2, GPUVertexFormatSint16x2), (js_GPUVertexFormatSint16x4, GPUVertexFormatSint16x4), (js_GPUVertexFormatUnorm16, GPUVertexFormatUnorm16), (js_GPUVertexFormatUnorm16x2, GPUVertexFormatUnorm16x2), (js_GPUVertexFormatUnorm16x4, GPUVertexFormatUnorm16x4), (js_GPUVertexFormatSnorm16, GPUVertexFormatSnorm16), (js_GPUVertexFormatSnorm16x2, GPUVertexFormatSnorm16x2), (js_GPUVertexFormatSnorm16x4, GPUVertexFormatSnorm16x4), (js_GPUVertexFormatFloat16, GPUVertexFormatFloat16), (js_GPUVertexFormatFloat16x2, GPUVertexFormatFloat16x2), (js_GPUVertexFormatFloat16x4, GPUVertexFormatFloat16x4), (js_GPUVertexFormatFloat32, GPUVertexFormatFloat32), (js_GPUVertexFormatFloat32x2, GPUVertexFormatFloat32x2), (js_GPUVertexFormatFloat32x3, GPUVertexFormatFloat32x3), (js_GPUVertexFormatFloat32x4, GPUVertexFormatFloat32x4), (js_GPUVertexFormatUint32, GPUVertexFormatUint32), (js_GPUVertexFormatUint32x2, GPUVertexFormatUint32x2), (js_GPUVertexFormatUint32x3, GPUVertexFormatUint32x3), (js_GPUVertexFormatUint32x4, GPUVertexFormatUint32x4), (js_GPUVertexFormatSint32, GPUVertexFormatSint32), (js_GPUVertexFormatSint32x2, GPUVertexFormatSint32x2), (js_GPUVertexFormatSint32x3, GPUVertexFormatSint32x3), (js_GPUVertexFormatSint32x4, GPUVertexFormatSint32x4), (js_GPUVertexFormatUnorm1010102, GPUVertexFormatUnorm1010102), (js_GPUVertexFormatUnorm8x4Bgra, GPUVertexFormatUnorm8x4Bgra), (js_GPUVertexFormatSnorm1010102, GPUVertexFormatSnorm1010102)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUVertexFormatUint8 :: JSString+js_GPUVertexFormatUint8 = "uint8"+js_GPUVertexFormatUint8x2 :: JSString+js_GPUVertexFormatUint8x2 = "uint8x2"+js_GPUVertexFormatUint8x4 :: JSString+js_GPUVertexFormatUint8x4 = "uint8x4"+js_GPUVertexFormatSint8 :: JSString+js_GPUVertexFormatSint8 = "sint8"+js_GPUVertexFormatSint8x2 :: JSString+js_GPUVertexFormatSint8x2 = "sint8x2"+js_GPUVertexFormatSint8x4 :: JSString+js_GPUVertexFormatSint8x4 = "sint8x4"+js_GPUVertexFormatUnorm8 :: JSString+js_GPUVertexFormatUnorm8 = "unorm8"+js_GPUVertexFormatUnorm8x2 :: JSString+js_GPUVertexFormatUnorm8x2 = "unorm8x2"+js_GPUVertexFormatUnorm8x4 :: JSString+js_GPUVertexFormatUnorm8x4 = "unorm8x4"+js_GPUVertexFormatSnorm8 :: JSString+js_GPUVertexFormatSnorm8 = "snorm8"+js_GPUVertexFormatSnorm8x2 :: JSString+js_GPUVertexFormatSnorm8x2 = "snorm8x2"+js_GPUVertexFormatSnorm8x4 :: JSString+js_GPUVertexFormatSnorm8x4 = "snorm8x4"+js_GPUVertexFormatUint16 :: JSString+js_GPUVertexFormatUint16 = "uint16"+js_GPUVertexFormatUint16x2 :: JSString+js_GPUVertexFormatUint16x2 = "uint16x2"+js_GPUVertexFormatUint16x4 :: JSString+js_GPUVertexFormatUint16x4 = "uint16x4"+js_GPUVertexFormatSint16 :: JSString+js_GPUVertexFormatSint16 = "sint16"+js_GPUVertexFormatSint16x2 :: JSString+js_GPUVertexFormatSint16x2 = "sint16x2"+js_GPUVertexFormatSint16x4 :: JSString+js_GPUVertexFormatSint16x4 = "sint16x4"+js_GPUVertexFormatUnorm16 :: JSString+js_GPUVertexFormatUnorm16 = "unorm16"+js_GPUVertexFormatUnorm16x2 :: JSString+js_GPUVertexFormatUnorm16x2 = "unorm16x2"+js_GPUVertexFormatUnorm16x4 :: JSString+js_GPUVertexFormatUnorm16x4 = "unorm16x4"+js_GPUVertexFormatSnorm16 :: JSString+js_GPUVertexFormatSnorm16 = "snorm16"+js_GPUVertexFormatSnorm16x2 :: JSString+js_GPUVertexFormatSnorm16x2 = "snorm16x2"+js_GPUVertexFormatSnorm16x4 :: JSString+js_GPUVertexFormatSnorm16x4 = "snorm16x4"+js_GPUVertexFormatFloat16 :: JSString+js_GPUVertexFormatFloat16 = "float16"+js_GPUVertexFormatFloat16x2 :: JSString+js_GPUVertexFormatFloat16x2 = "float16x2"+js_GPUVertexFormatFloat16x4 :: JSString+js_GPUVertexFormatFloat16x4 = "float16x4"+js_GPUVertexFormatFloat32 :: JSString+js_GPUVertexFormatFloat32 = "float32"+js_GPUVertexFormatFloat32x2 :: JSString+js_GPUVertexFormatFloat32x2 = "float32x2"+js_GPUVertexFormatFloat32x3 :: JSString+js_GPUVertexFormatFloat32x3 = "float32x3"+js_GPUVertexFormatFloat32x4 :: JSString+js_GPUVertexFormatFloat32x4 = "float32x4"+js_GPUVertexFormatUint32 :: JSString+js_GPUVertexFormatUint32 = "uint32"+js_GPUVertexFormatUint32x2 :: JSString+js_GPUVertexFormatUint32x2 = "uint32x2"+js_GPUVertexFormatUint32x3 :: JSString+js_GPUVertexFormatUint32x3 = "uint32x3"+js_GPUVertexFormatUint32x4 :: JSString+js_GPUVertexFormatUint32x4 = "uint32x4"+js_GPUVertexFormatSint32 :: JSString+js_GPUVertexFormatSint32 = "sint32"+js_GPUVertexFormatSint32x2 :: JSString+js_GPUVertexFormatSint32x2 = "sint32x2"+js_GPUVertexFormatSint32x3 :: JSString+js_GPUVertexFormatSint32x3 = "sint32x3"+js_GPUVertexFormatSint32x4 :: JSString+js_GPUVertexFormatSint32x4 = "sint32x4"+js_GPUVertexFormatUnorm1010102 :: JSString+js_GPUVertexFormatUnorm1010102 = "unorm10-10-10-2"+js_GPUVertexFormatUnorm8x4Bgra :: JSString+js_GPUVertexFormatUnorm8x4Bgra = "unorm8x4-bgra"+js_GPUVertexFormatSnorm1010102 :: JSString+js_GPUVertexFormatSnorm1010102 = "snorm10-10-10-2"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUVertexStepMode> (webgpu)+data GPUVertexStepMode = GPUVertexStepModeVertex+    | GPUVertexStepModeInstance+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUVertexStepMode where+  pToJSVal x = pToJSVal (case x of+    GPUVertexStepModeVertex -> js_GPUVertexStepModeVertex+    GPUVertexStepModeInstance -> js_GPUVertexStepModeInstance+    )++instance ToJSVal GPUVertexStepMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GPUVertexStepMode where+  pFromJSVal x = P.maybe (P.error "Unexpected GPUVertexStepMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUVertexStepModeVertex, GPUVertexStepModeVertex), (js_GPUVertexStepModeInstance, GPUVertexStepModeInstance)]++instance FromJSVal GPUVertexStepMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GPUVertexStepModeVertex, GPUVertexStepModeVertex), (js_GPUVertexStepModeInstance, GPUVertexStepModeInstance)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GPUVertexStepModeVertex :: JSString+js_GPUVertexStepModeVertex = "vertex"+js_GPUVertexStepModeInstance :: JSString+js_GPUVertexStepModeInstance = "instance"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GamepadHapticEffectType> (gamepad)+data GamepadHapticEffectType = GamepadHapticEffectTypeDualRumble+    | GamepadHapticEffectTypeTriggerRumble+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GamepadHapticEffectType where+  pToJSVal x = pToJSVal (case x of+    GamepadHapticEffectTypeDualRumble -> js_GamepadHapticEffectTypeDualRumble+    GamepadHapticEffectTypeTriggerRumble -> js_GamepadHapticEffectTypeTriggerRumble+    )++instance ToJSVal GamepadHapticEffectType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GamepadHapticEffectType where+  pFromJSVal x = P.maybe (P.error "Unexpected GamepadHapticEffectType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GamepadHapticEffectTypeDualRumble, GamepadHapticEffectTypeDualRumble), (js_GamepadHapticEffectTypeTriggerRumble, GamepadHapticEffectTypeTriggerRumble)]++instance FromJSVal GamepadHapticEffectType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GamepadHapticEffectTypeDualRumble, GamepadHapticEffectTypeDualRumble), (js_GamepadHapticEffectTypeTriggerRumble, GamepadHapticEffectTypeTriggerRumble)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GamepadHapticEffectTypeDualRumble :: JSString+js_GamepadHapticEffectTypeDualRumble = "dual-rumble"+js_GamepadHapticEffectTypeTriggerRumble :: JSString+js_GamepadHapticEffectTypeTriggerRumble = "trigger-rumble"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GamepadHapticsResult> (gamepad)+data GamepadHapticsResult = GamepadHapticsResultComplete+    | GamepadHapticsResultPreempted+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GamepadHapticsResult where+  pToJSVal x = pToJSVal (case x of+    GamepadHapticsResultComplete -> js_GamepadHapticsResultComplete+    GamepadHapticsResultPreempted -> js_GamepadHapticsResultPreempted+    )++instance ToJSVal GamepadHapticsResult where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GamepadHapticsResult where+  pFromJSVal x = P.maybe (P.error "Unexpected GamepadHapticsResult value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GamepadHapticsResultComplete, GamepadHapticsResultComplete), (js_GamepadHapticsResultPreempted, GamepadHapticsResultPreempted)]++instance FromJSVal GamepadHapticsResult where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GamepadHapticsResultComplete, GamepadHapticsResultComplete), (js_GamepadHapticsResultPreempted, GamepadHapticsResultPreempted)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GamepadHapticsResultComplete :: JSString+js_GamepadHapticsResultComplete = "complete"+js_GamepadHapticsResultPreempted :: JSString+js_GamepadHapticsResultPreempted = "preempted"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GamepadMappingType> (gamepad)+data GamepadMappingType = GamepadMappingType+    | GamepadMappingTypeStandard+    | GamepadMappingTypeXrStandard+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GamepadMappingType where+  pToJSVal x = pToJSVal (case x of+    GamepadMappingType -> js_GamepadMappingType+    GamepadMappingTypeStandard -> js_GamepadMappingTypeStandard+    GamepadMappingTypeXrStandard -> js_GamepadMappingTypeXrStandard+    )++instance ToJSVal GamepadMappingType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GamepadMappingType where+  pFromJSVal x = P.maybe (P.error "Unexpected GamepadMappingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GamepadMappingType, GamepadMappingType), (js_GamepadMappingTypeStandard, GamepadMappingTypeStandard), (js_GamepadMappingTypeXrStandard, GamepadMappingTypeXrStandard)]++instance FromJSVal GamepadMappingType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GamepadMappingType, GamepadMappingType), (js_GamepadMappingTypeStandard, GamepadMappingTypeStandard), (js_GamepadMappingTypeXrStandard, GamepadMappingTypeXrStandard)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GamepadMappingType :: JSString+js_GamepadMappingType = ""+js_GamepadMappingTypeStandard :: JSString+js_GamepadMappingTypeStandard = "standard"+js_GamepadMappingTypeXrStandard :: JSString+js_GamepadMappingTypeXrStandard = "xr-standard"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GetUserMediaSemantics> (mediacapture-extensions)+data GetUserMediaSemantics = GetUserMediaSemanticsBrowserChooses+    | GetUserMediaSemanticsUserChooses+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GetUserMediaSemantics where+  pToJSVal x = pToJSVal (case x of+    GetUserMediaSemanticsBrowserChooses -> js_GetUserMediaSemanticsBrowserChooses+    GetUserMediaSemanticsUserChooses -> js_GetUserMediaSemanticsUserChooses+    )++instance ToJSVal GetUserMediaSemantics where+  toJSVal = P.return . pToJSVal++instance PFromJSVal GetUserMediaSemantics where+  pFromJSVal x = P.maybe (P.error "Unexpected GetUserMediaSemantics value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GetUserMediaSemanticsBrowserChooses, GetUserMediaSemanticsBrowserChooses), (js_GetUserMediaSemanticsUserChooses, GetUserMediaSemanticsUserChooses)]++instance FromJSVal GetUserMediaSemantics where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_GetUserMediaSemanticsBrowserChooses, GetUserMediaSemanticsBrowserChooses), (js_GetUserMediaSemanticsUserChooses, GetUserMediaSemanticsUserChooses)]+  fromJSValUnchecked = P.return . pFromJSVal++js_GetUserMediaSemanticsBrowserChooses :: JSString+js_GetUserMediaSemanticsBrowserChooses = "browser-chooses"+js_GetUserMediaSemanticsUserChooses :: JSString+js_GetUserMediaSemanticsUserChooses = "user-chooses"++-- | <https://developer.mozilla.org/en-US/docs/Web/API HardwareAcceleration> (webcodecs)+data HardwareAcceleration = HardwareAccelerationNoPreference+    | HardwareAccelerationPreferHardware+    | HardwareAccelerationPreferSoftware+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal HardwareAcceleration where+  pToJSVal x = pToJSVal (case x of+    HardwareAccelerationNoPreference -> js_HardwareAccelerationNoPreference+    HardwareAccelerationPreferHardware -> js_HardwareAccelerationPreferHardware+    HardwareAccelerationPreferSoftware -> js_HardwareAccelerationPreferSoftware+    )++instance ToJSVal HardwareAcceleration where+  toJSVal = P.return . pToJSVal++instance PFromJSVal HardwareAcceleration where+  pFromJSVal x = P.maybe (P.error "Unexpected HardwareAcceleration value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_HardwareAccelerationNoPreference, HardwareAccelerationNoPreference), (js_HardwareAccelerationPreferHardware, HardwareAccelerationPreferHardware), (js_HardwareAccelerationPreferSoftware, HardwareAccelerationPreferSoftware)]++instance FromJSVal HardwareAcceleration where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_HardwareAccelerationNoPreference, HardwareAccelerationNoPreference), (js_HardwareAccelerationPreferHardware, HardwareAccelerationPreferHardware), (js_HardwareAccelerationPreferSoftware, HardwareAccelerationPreferSoftware)]+  fromJSValUnchecked = P.return . pFromJSVal++js_HardwareAccelerationNoPreference :: JSString+js_HardwareAccelerationNoPreference = "no-preference"+js_HardwareAccelerationPreferHardware :: JSString+js_HardwareAccelerationPreferHardware = "prefer-hardware"+js_HardwareAccelerationPreferSoftware :: JSString+js_HardwareAccelerationPreferSoftware = "prefer-software"++-- | <https://developer.mozilla.org/en-US/docs/Web/API HdrMetadataType> (media-capabilities)+data HdrMetadataType = HdrMetadataTypeSmpteSt2086+    | HdrMetadataTypeSmpteSt209410+    | HdrMetadataTypeSmpteSt209440+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal HdrMetadataType where+  pToJSVal x = pToJSVal (case x of+    HdrMetadataTypeSmpteSt2086 -> js_HdrMetadataTypeSmpteSt2086+    HdrMetadataTypeSmpteSt209410 -> js_HdrMetadataTypeSmpteSt209410+    HdrMetadataTypeSmpteSt209440 -> js_HdrMetadataTypeSmpteSt209440+    )++instance ToJSVal HdrMetadataType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal HdrMetadataType where+  pFromJSVal x = P.maybe (P.error "Unexpected HdrMetadataType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_HdrMetadataTypeSmpteSt2086, HdrMetadataTypeSmpteSt2086), (js_HdrMetadataTypeSmpteSt209410, HdrMetadataTypeSmpteSt209410), (js_HdrMetadataTypeSmpteSt209440, HdrMetadataTypeSmpteSt209440)]++instance FromJSVal HdrMetadataType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_HdrMetadataTypeSmpteSt2086, HdrMetadataTypeSmpteSt2086), (js_HdrMetadataTypeSmpteSt209410, HdrMetadataTypeSmpteSt209410), (js_HdrMetadataTypeSmpteSt209440, HdrMetadataTypeSmpteSt209440)]+  fromJSValUnchecked = P.return . pFromJSVal++js_HdrMetadataTypeSmpteSt2086 :: JSString+js_HdrMetadataTypeSmpteSt2086 = "smpteSt2086"+js_HdrMetadataTypeSmpteSt209410 :: JSString+js_HdrMetadataTypeSmpteSt209410 = "smpteSt2094-10"+js_HdrMetadataTypeSmpteSt209440 :: JSString+js_HdrMetadataTypeSmpteSt209440 = "smpteSt2094-40"++-- | <https://developer.mozilla.org/en-US/docs/Web/API HevcBitstreamFormat> (webcodecs-hevc-codec-registration)+data HevcBitstreamFormat = HevcBitstreamFormatAnnexb+    | HevcBitstreamFormatHevc+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal HevcBitstreamFormat where+  pToJSVal x = pToJSVal (case x of+    HevcBitstreamFormatAnnexb -> js_HevcBitstreamFormatAnnexb+    HevcBitstreamFormatHevc -> js_HevcBitstreamFormatHevc+    )++instance ToJSVal HevcBitstreamFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal HevcBitstreamFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected HevcBitstreamFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_HevcBitstreamFormatAnnexb, HevcBitstreamFormatAnnexb), (js_HevcBitstreamFormatHevc, HevcBitstreamFormatHevc)]++instance FromJSVal HevcBitstreamFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_HevcBitstreamFormatAnnexb, HevcBitstreamFormatAnnexb), (js_HevcBitstreamFormatHevc, HevcBitstreamFormatHevc)]+  fromJSValUnchecked = P.return . pFromJSVal++js_HevcBitstreamFormatAnnexb :: JSString+js_HevcBitstreamFormatAnnexb = "annexb"+js_HevcBitstreamFormatHevc :: JSString+js_HevcBitstreamFormatHevc = "hevc"++-- | <https://developer.mozilla.org/en-US/docs/Web/API HighlightType> (css-highlight-api-1)+data HighlightType = HighlightTypeHighlight+    | HighlightTypeSpellingError+    | HighlightTypeGrammarError+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal HighlightType where+  pToJSVal x = pToJSVal (case x of+    HighlightTypeHighlight -> js_HighlightTypeHighlight+    HighlightTypeSpellingError -> js_HighlightTypeSpellingError+    HighlightTypeGrammarError -> js_HighlightTypeGrammarError+    )++instance ToJSVal HighlightType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal HighlightType where+  pFromJSVal x = P.maybe (P.error "Unexpected HighlightType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_HighlightTypeHighlight, HighlightTypeHighlight), (js_HighlightTypeSpellingError, HighlightTypeSpellingError), (js_HighlightTypeGrammarError, HighlightTypeGrammarError)]++instance FromJSVal HighlightType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_HighlightTypeHighlight, HighlightTypeHighlight), (js_HighlightTypeSpellingError, HighlightTypeSpellingError), (js_HighlightTypeGrammarError, HighlightTypeGrammarError)]+  fromJSValUnchecked = P.return . pFromJSVal++js_HighlightTypeHighlight :: JSString+js_HighlightTypeHighlight = "highlight"+js_HighlightTypeSpellingError :: JSString+js_HighlightTypeSpellingError = "spelling-error"+js_HighlightTypeGrammarError :: JSString+js_HighlightTypeGrammarError = "grammar-error"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IDBCursorDirection> (IndexedDB-3)+data IDBCursorDirection = IDBCursorDirectionNext+    | IDBCursorDirectionNextunique+    | IDBCursorDirectionPrev+    | IDBCursorDirectionPrevunique+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IDBCursorDirection where+  pToJSVal x = pToJSVal (case x of+    IDBCursorDirectionNext -> js_IDBCursorDirectionNext+    IDBCursorDirectionNextunique -> js_IDBCursorDirectionNextunique+    IDBCursorDirectionPrev -> js_IDBCursorDirectionPrev+    IDBCursorDirectionPrevunique -> js_IDBCursorDirectionPrevunique+    )++instance ToJSVal IDBCursorDirection where+  toJSVal = P.return . pToJSVal++instance PFromJSVal IDBCursorDirection where+  pFromJSVal x = P.maybe (P.error "Unexpected IDBCursorDirection value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IDBCursorDirectionNext, IDBCursorDirectionNext), (js_IDBCursorDirectionNextunique, IDBCursorDirectionNextunique), (js_IDBCursorDirectionPrev, IDBCursorDirectionPrev), (js_IDBCursorDirectionPrevunique, IDBCursorDirectionPrevunique)]++instance FromJSVal IDBCursorDirection where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IDBCursorDirectionNext, IDBCursorDirectionNext), (js_IDBCursorDirectionNextunique, IDBCursorDirectionNextunique), (js_IDBCursorDirectionPrev, IDBCursorDirectionPrev), (js_IDBCursorDirectionPrevunique, IDBCursorDirectionPrevunique)]+  fromJSValUnchecked = P.return . pFromJSVal++js_IDBCursorDirectionNext :: JSString+js_IDBCursorDirectionNext = "next"+js_IDBCursorDirectionNextunique :: JSString+js_IDBCursorDirectionNextunique = "nextunique"+js_IDBCursorDirectionPrev :: JSString+js_IDBCursorDirectionPrev = "prev"+js_IDBCursorDirectionPrevunique :: JSString+js_IDBCursorDirectionPrevunique = "prevunique"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IDBRequestReadyState> (IndexedDB-3)+data IDBRequestReadyState = IDBRequestReadyStatePending+    | IDBRequestReadyStateDone+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IDBRequestReadyState where+  pToJSVal x = pToJSVal (case x of+    IDBRequestReadyStatePending -> js_IDBRequestReadyStatePending+    IDBRequestReadyStateDone -> js_IDBRequestReadyStateDone+    )++instance ToJSVal IDBRequestReadyState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal IDBRequestReadyState where+  pFromJSVal x = P.maybe (P.error "Unexpected IDBRequestReadyState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IDBRequestReadyStatePending, IDBRequestReadyStatePending), (js_IDBRequestReadyStateDone, IDBRequestReadyStateDone)]++instance FromJSVal IDBRequestReadyState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IDBRequestReadyStatePending, IDBRequestReadyStatePending), (js_IDBRequestReadyStateDone, IDBRequestReadyStateDone)]+  fromJSValUnchecked = P.return . pFromJSVal++js_IDBRequestReadyStatePending :: JSString+js_IDBRequestReadyStatePending = "pending"+js_IDBRequestReadyStateDone :: JSString+js_IDBRequestReadyStateDone = "done"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IDBTransactionDurability> (IndexedDB-3)+data IDBTransactionDurability = IDBTransactionDurabilityDefault+    | IDBTransactionDurabilityStrict+    | IDBTransactionDurabilityRelaxed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IDBTransactionDurability where+  pToJSVal x = pToJSVal (case x of+    IDBTransactionDurabilityDefault -> js_IDBTransactionDurabilityDefault+    IDBTransactionDurabilityStrict -> js_IDBTransactionDurabilityStrict+    IDBTransactionDurabilityRelaxed -> js_IDBTransactionDurabilityRelaxed+    )++instance ToJSVal IDBTransactionDurability where+  toJSVal = P.return . pToJSVal++instance PFromJSVal IDBTransactionDurability where+  pFromJSVal x = P.maybe (P.error "Unexpected IDBTransactionDurability value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IDBTransactionDurabilityDefault, IDBTransactionDurabilityDefault), (js_IDBTransactionDurabilityStrict, IDBTransactionDurabilityStrict), (js_IDBTransactionDurabilityRelaxed, IDBTransactionDurabilityRelaxed)]++instance FromJSVal IDBTransactionDurability where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IDBTransactionDurabilityDefault, IDBTransactionDurabilityDefault), (js_IDBTransactionDurabilityStrict, IDBTransactionDurabilityStrict), (js_IDBTransactionDurabilityRelaxed, IDBTransactionDurabilityRelaxed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_IDBTransactionDurabilityDefault :: JSString+js_IDBTransactionDurabilityDefault = "default"+js_IDBTransactionDurabilityStrict :: JSString+js_IDBTransactionDurabilityStrict = "strict"+js_IDBTransactionDurabilityRelaxed :: JSString+js_IDBTransactionDurabilityRelaxed = "relaxed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IDBTransactionMode> (IndexedDB-3)+data IDBTransactionMode = IDBTransactionModeReadonly+    | IDBTransactionModeReadwrite+    | IDBTransactionModeVersionchange+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IDBTransactionMode where+  pToJSVal x = pToJSVal (case x of+    IDBTransactionModeReadonly -> js_IDBTransactionModeReadonly+    IDBTransactionModeReadwrite -> js_IDBTransactionModeReadwrite+    IDBTransactionModeVersionchange -> js_IDBTransactionModeVersionchange+    )++instance ToJSVal IDBTransactionMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal IDBTransactionMode where+  pFromJSVal x = P.maybe (P.error "Unexpected IDBTransactionMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IDBTransactionModeReadonly, IDBTransactionModeReadonly), (js_IDBTransactionModeReadwrite, IDBTransactionModeReadwrite), (js_IDBTransactionModeVersionchange, IDBTransactionModeVersionchange)]++instance FromJSVal IDBTransactionMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IDBTransactionModeReadonly, IDBTransactionModeReadonly), (js_IDBTransactionModeReadwrite, IDBTransactionModeReadwrite), (js_IDBTransactionModeVersionchange, IDBTransactionModeVersionchange)]+  fromJSValUnchecked = P.return . pFromJSVal++js_IDBTransactionModeReadonly :: JSString+js_IDBTransactionModeReadonly = "readonly"+js_IDBTransactionModeReadwrite :: JSString+js_IDBTransactionModeReadwrite = "readwrite"+js_IDBTransactionModeVersionchange :: JSString+js_IDBTransactionModeVersionchange = "versionchange"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IPAddressSpace> (local-network-access)+data IPAddressSpace = IPAddressSpacePublic+    | IPAddressSpaceLocal+    | IPAddressSpaceLoopback+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IPAddressSpace where+  pToJSVal x = pToJSVal (case x of+    IPAddressSpacePublic -> js_IPAddressSpacePublic+    IPAddressSpaceLocal -> js_IPAddressSpaceLocal+    IPAddressSpaceLoopback -> js_IPAddressSpaceLoopback+    )++instance ToJSVal IPAddressSpace where+  toJSVal = P.return . pToJSVal++instance PFromJSVal IPAddressSpace where+  pFromJSVal x = P.maybe (P.error "Unexpected IPAddressSpace value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IPAddressSpacePublic, IPAddressSpacePublic), (js_IPAddressSpaceLocal, IPAddressSpaceLocal), (js_IPAddressSpaceLoopback, IPAddressSpaceLoopback)]++instance FromJSVal IPAddressSpace where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IPAddressSpacePublic, IPAddressSpacePublic), (js_IPAddressSpaceLocal, IPAddressSpaceLocal), (js_IPAddressSpaceLoopback, IPAddressSpaceLoopback)]+  fromJSValUnchecked = P.return . pFromJSVal++js_IPAddressSpacePublic :: JSString+js_IPAddressSpacePublic = "public"+js_IPAddressSpaceLocal :: JSString+js_IPAddressSpaceLocal = "local"+js_IPAddressSpaceLoopback :: JSString+js_IPAddressSpaceLoopback = "loopback"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IdentityCredentialRequestOptionsContext> (fedcm-1)+data IdentityCredentialRequestOptionsContext = IdentityCredentialRequestOptionsContextSignin+    | IdentityCredentialRequestOptionsContextSignup+    | IdentityCredentialRequestOptionsContextUse+    | IdentityCredentialRequestOptionsContextContinue+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IdentityCredentialRequestOptionsContext where+  pToJSVal x = pToJSVal (case x of+    IdentityCredentialRequestOptionsContextSignin -> js_IdentityCredentialRequestOptionsContextSignin+    IdentityCredentialRequestOptionsContextSignup -> js_IdentityCredentialRequestOptionsContextSignup+    IdentityCredentialRequestOptionsContextUse -> js_IdentityCredentialRequestOptionsContextUse+    IdentityCredentialRequestOptionsContextContinue -> js_IdentityCredentialRequestOptionsContextContinue+    )++instance ToJSVal IdentityCredentialRequestOptionsContext where+  toJSVal = P.return . pToJSVal++instance PFromJSVal IdentityCredentialRequestOptionsContext where+  pFromJSVal x = P.maybe (P.error "Unexpected IdentityCredentialRequestOptionsContext value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IdentityCredentialRequestOptionsContextSignin, IdentityCredentialRequestOptionsContextSignin), (js_IdentityCredentialRequestOptionsContextSignup, IdentityCredentialRequestOptionsContextSignup), (js_IdentityCredentialRequestOptionsContextUse, IdentityCredentialRequestOptionsContextUse), (js_IdentityCredentialRequestOptionsContextContinue, IdentityCredentialRequestOptionsContextContinue)]++instance FromJSVal IdentityCredentialRequestOptionsContext where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IdentityCredentialRequestOptionsContextSignin, IdentityCredentialRequestOptionsContextSignin), (js_IdentityCredentialRequestOptionsContextSignup, IdentityCredentialRequestOptionsContextSignup), (js_IdentityCredentialRequestOptionsContextUse, IdentityCredentialRequestOptionsContextUse), (js_IdentityCredentialRequestOptionsContextContinue, IdentityCredentialRequestOptionsContextContinue)]+  fromJSValUnchecked = P.return . pFromJSVal++js_IdentityCredentialRequestOptionsContextSignin :: JSString+js_IdentityCredentialRequestOptionsContextSignin = "signin"+js_IdentityCredentialRequestOptionsContextSignup :: JSString+js_IdentityCredentialRequestOptionsContextSignup = "signup"+js_IdentityCredentialRequestOptionsContextUse :: JSString+js_IdentityCredentialRequestOptionsContextUse = "use"+js_IdentityCredentialRequestOptionsContextContinue :: JSString+js_IdentityCredentialRequestOptionsContextContinue = "continue"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IdentityCredentialRequestOptionsMode> (fedcm-1)+data IdentityCredentialRequestOptionsMode = IdentityCredentialRequestOptionsModeActive+    | IdentityCredentialRequestOptionsModePassive+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IdentityCredentialRequestOptionsMode where+  pToJSVal x = pToJSVal (case x of+    IdentityCredentialRequestOptionsModeActive -> js_IdentityCredentialRequestOptionsModeActive+    IdentityCredentialRequestOptionsModePassive -> js_IdentityCredentialRequestOptionsModePassive+    )++instance ToJSVal IdentityCredentialRequestOptionsMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal IdentityCredentialRequestOptionsMode where+  pFromJSVal x = P.maybe (P.error "Unexpected IdentityCredentialRequestOptionsMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IdentityCredentialRequestOptionsModeActive, IdentityCredentialRequestOptionsModeActive), (js_IdentityCredentialRequestOptionsModePassive, IdentityCredentialRequestOptionsModePassive)]++instance FromJSVal IdentityCredentialRequestOptionsMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IdentityCredentialRequestOptionsModeActive, IdentityCredentialRequestOptionsModeActive), (js_IdentityCredentialRequestOptionsModePassive, IdentityCredentialRequestOptionsModePassive)]+  fromJSValUnchecked = P.return . pFromJSVal++js_IdentityCredentialRequestOptionsModeActive :: JSString+js_IdentityCredentialRequestOptionsModeActive = "active"+js_IdentityCredentialRequestOptionsModePassive :: JSString+js_IdentityCredentialRequestOptionsModePassive = "passive"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ImageDataPixelFormat> (html)+data ImageDataPixelFormat = ImageDataPixelFormatRgbaUnorm8+    | ImageDataPixelFormatRgbaFloat16+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ImageDataPixelFormat where+  pToJSVal x = pToJSVal (case x of+    ImageDataPixelFormatRgbaUnorm8 -> js_ImageDataPixelFormatRgbaUnorm8+    ImageDataPixelFormatRgbaFloat16 -> js_ImageDataPixelFormatRgbaFloat16+    )++instance ToJSVal ImageDataPixelFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ImageDataPixelFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected ImageDataPixelFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ImageDataPixelFormatRgbaUnorm8, ImageDataPixelFormatRgbaUnorm8), (js_ImageDataPixelFormatRgbaFloat16, ImageDataPixelFormatRgbaFloat16)]++instance FromJSVal ImageDataPixelFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ImageDataPixelFormatRgbaUnorm8, ImageDataPixelFormatRgbaUnorm8), (js_ImageDataPixelFormatRgbaFloat16, ImageDataPixelFormatRgbaFloat16)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ImageDataPixelFormatRgbaUnorm8 :: JSString+js_ImageDataPixelFormatRgbaUnorm8 = "rgba-unorm8"+js_ImageDataPixelFormatRgbaFloat16 :: JSString+js_ImageDataPixelFormatRgbaFloat16 = "rgba-float16"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ImageSmoothingQuality> (html)+data ImageSmoothingQuality = ImageSmoothingQualityLow+    | ImageSmoothingQualityMedium+    | ImageSmoothingQualityHigh+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ImageSmoothingQuality where+  pToJSVal x = pToJSVal (case x of+    ImageSmoothingQualityLow -> js_ImageSmoothingQualityLow+    ImageSmoothingQualityMedium -> js_ImageSmoothingQualityMedium+    ImageSmoothingQualityHigh -> js_ImageSmoothingQualityHigh+    )++instance ToJSVal ImageSmoothingQuality where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ImageSmoothingQuality where+  pFromJSVal x = P.maybe (P.error "Unexpected ImageSmoothingQuality value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ImageSmoothingQualityLow, ImageSmoothingQualityLow), (js_ImageSmoothingQualityMedium, ImageSmoothingQualityMedium), (js_ImageSmoothingQualityHigh, ImageSmoothingQualityHigh)]++instance FromJSVal ImageSmoothingQuality where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ImageSmoothingQualityLow, ImageSmoothingQualityLow), (js_ImageSmoothingQualityMedium, ImageSmoothingQualityMedium), (js_ImageSmoothingQualityHigh, ImageSmoothingQualityHigh)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ImageSmoothingQualityLow :: JSString+js_ImageSmoothingQualityLow = "low"+js_ImageSmoothingQualityMedium :: JSString+js_ImageSmoothingQualityMedium = "medium"+js_ImageSmoothingQualityHigh :: JSString+js_ImageSmoothingQualityHigh = "high"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IterationCompositeOperation> (web-animations-2)+data IterationCompositeOperation = IterationCompositeOperationReplace+    | IterationCompositeOperationAccumulate+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IterationCompositeOperation where+  pToJSVal x = pToJSVal (case x of+    IterationCompositeOperationReplace -> js_IterationCompositeOperationReplace+    IterationCompositeOperationAccumulate -> js_IterationCompositeOperationAccumulate+    )++instance ToJSVal IterationCompositeOperation where+  toJSVal = P.return . pToJSVal++instance PFromJSVal IterationCompositeOperation where+  pFromJSVal x = P.maybe (P.error "Unexpected IterationCompositeOperation value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IterationCompositeOperationReplace, IterationCompositeOperationReplace), (js_IterationCompositeOperationAccumulate, IterationCompositeOperationAccumulate)]++instance FromJSVal IterationCompositeOperation where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_IterationCompositeOperationReplace, IterationCompositeOperationReplace), (js_IterationCompositeOperationAccumulate, IterationCompositeOperationAccumulate)]+  fromJSValUnchecked = P.return . pFromJSVal++js_IterationCompositeOperationReplace :: JSString+js_IterationCompositeOperationReplace = "replace"+js_IterationCompositeOperationAccumulate :: JSString+js_IterationCompositeOperationAccumulate = "accumulate"++-- | <https://developer.mozilla.org/en-US/docs/Web/API KeyFormat> (webcrypto-modern-algos)+data KeyFormat = KeyFormatRawPublic+    | KeyFormatRawPrivate+    | KeyFormatRawSeed+    | KeyFormatRawSecret+    | KeyFormatRaw+    | KeyFormatSpki+    | KeyFormatPkcs8+    | KeyFormatJwk+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal KeyFormat where+  pToJSVal x = pToJSVal (case x of+    KeyFormatRawPublic -> js_KeyFormatRawPublic+    KeyFormatRawPrivate -> js_KeyFormatRawPrivate+    KeyFormatRawSeed -> js_KeyFormatRawSeed+    KeyFormatRawSecret -> js_KeyFormatRawSecret+    KeyFormatRaw -> js_KeyFormatRaw+    KeyFormatSpki -> js_KeyFormatSpki+    KeyFormatPkcs8 -> js_KeyFormatPkcs8+    KeyFormatJwk -> js_KeyFormatJwk+    )++instance ToJSVal KeyFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal KeyFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected KeyFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_KeyFormatRawPublic, KeyFormatRawPublic), (js_KeyFormatRawPrivate, KeyFormatRawPrivate), (js_KeyFormatRawSeed, KeyFormatRawSeed), (js_KeyFormatRawSecret, KeyFormatRawSecret), (js_KeyFormatRaw, KeyFormatRaw), (js_KeyFormatSpki, KeyFormatSpki), (js_KeyFormatPkcs8, KeyFormatPkcs8), (js_KeyFormatJwk, KeyFormatJwk)]++instance FromJSVal KeyFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_KeyFormatRawPublic, KeyFormatRawPublic), (js_KeyFormatRawPrivate, KeyFormatRawPrivate), (js_KeyFormatRawSeed, KeyFormatRawSeed), (js_KeyFormatRawSecret, KeyFormatRawSecret), (js_KeyFormatRaw, KeyFormatRaw), (js_KeyFormatSpki, KeyFormatSpki), (js_KeyFormatPkcs8, KeyFormatPkcs8), (js_KeyFormatJwk, KeyFormatJwk)]+  fromJSValUnchecked = P.return . pFromJSVal++js_KeyFormatRawPublic :: JSString+js_KeyFormatRawPublic = "raw-public"+js_KeyFormatRawPrivate :: JSString+js_KeyFormatRawPrivate = "raw-private"+js_KeyFormatRawSeed :: JSString+js_KeyFormatRawSeed = "raw-seed"+js_KeyFormatRawSecret :: JSString+js_KeyFormatRawSecret = "raw-secret"+js_KeyFormatRaw :: JSString+js_KeyFormatRaw = "raw"+js_KeyFormatSpki :: JSString+js_KeyFormatSpki = "spki"+js_KeyFormatPkcs8 :: JSString+js_KeyFormatPkcs8 = "pkcs8"+js_KeyFormatJwk :: JSString+js_KeyFormatJwk = "jwk"++-- | <https://developer.mozilla.org/en-US/docs/Web/API KeyType> (webcrypto-2)+data KeyType = KeyTypePublic+    | KeyTypePrivate+    | KeyTypeSecret+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal KeyType where+  pToJSVal x = pToJSVal (case x of+    KeyTypePublic -> js_KeyTypePublic+    KeyTypePrivate -> js_KeyTypePrivate+    KeyTypeSecret -> js_KeyTypeSecret+    )++instance ToJSVal KeyType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal KeyType where+  pFromJSVal x = P.maybe (P.error "Unexpected KeyType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_KeyTypePublic, KeyTypePublic), (js_KeyTypePrivate, KeyTypePrivate), (js_KeyTypeSecret, KeyTypeSecret)]++instance FromJSVal KeyType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_KeyTypePublic, KeyTypePublic), (js_KeyTypePrivate, KeyTypePrivate), (js_KeyTypeSecret, KeyTypeSecret)]+  fromJSValUnchecked = P.return . pFromJSVal++js_KeyTypePublic :: JSString+js_KeyTypePublic = "public"+js_KeyTypePrivate :: JSString+js_KeyTypePrivate = "private"+js_KeyTypeSecret :: JSString+js_KeyTypeSecret = "secret"++-- | <https://developer.mozilla.org/en-US/docs/Web/API KeyUsage> (webcrypto-modern-algos)+data KeyUsage = KeyUsageEncrypt+    | KeyUsageDecrypt+    | KeyUsageSign+    | KeyUsageVerify+    | KeyUsageDeriveKey+    | KeyUsageDeriveBits+    | KeyUsageWrapKey+    | KeyUsageUnwrapKey+    | KeyUsageEncapsulateKey+    | KeyUsageEncapsulateBits+    | KeyUsageDecapsulateKey+    | KeyUsageDecapsulateBits+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal KeyUsage where+  pToJSVal x = pToJSVal (case x of+    KeyUsageEncrypt -> js_KeyUsageEncrypt+    KeyUsageDecrypt -> js_KeyUsageDecrypt+    KeyUsageSign -> js_KeyUsageSign+    KeyUsageVerify -> js_KeyUsageVerify+    KeyUsageDeriveKey -> js_KeyUsageDeriveKey+    KeyUsageDeriveBits -> js_KeyUsageDeriveBits+    KeyUsageWrapKey -> js_KeyUsageWrapKey+    KeyUsageUnwrapKey -> js_KeyUsageUnwrapKey+    KeyUsageEncapsulateKey -> js_KeyUsageEncapsulateKey+    KeyUsageEncapsulateBits -> js_KeyUsageEncapsulateBits+    KeyUsageDecapsulateKey -> js_KeyUsageDecapsulateKey+    KeyUsageDecapsulateBits -> js_KeyUsageDecapsulateBits+    )++instance ToJSVal KeyUsage where+  toJSVal = P.return . pToJSVal++instance PFromJSVal KeyUsage where+  pFromJSVal x = P.maybe (P.error "Unexpected KeyUsage value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_KeyUsageEncrypt, KeyUsageEncrypt), (js_KeyUsageDecrypt, KeyUsageDecrypt), (js_KeyUsageSign, KeyUsageSign), (js_KeyUsageVerify, KeyUsageVerify), (js_KeyUsageDeriveKey, KeyUsageDeriveKey), (js_KeyUsageDeriveBits, KeyUsageDeriveBits), (js_KeyUsageWrapKey, KeyUsageWrapKey), (js_KeyUsageUnwrapKey, KeyUsageUnwrapKey), (js_KeyUsageEncapsulateKey, KeyUsageEncapsulateKey), (js_KeyUsageEncapsulateBits, KeyUsageEncapsulateBits), (js_KeyUsageDecapsulateKey, KeyUsageDecapsulateKey), (js_KeyUsageDecapsulateBits, KeyUsageDecapsulateBits)]++instance FromJSVal KeyUsage where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_KeyUsageEncrypt, KeyUsageEncrypt), (js_KeyUsageDecrypt, KeyUsageDecrypt), (js_KeyUsageSign, KeyUsageSign), (js_KeyUsageVerify, KeyUsageVerify), (js_KeyUsageDeriveKey, KeyUsageDeriveKey), (js_KeyUsageDeriveBits, KeyUsageDeriveBits), (js_KeyUsageWrapKey, KeyUsageWrapKey), (js_KeyUsageUnwrapKey, KeyUsageUnwrapKey), (js_KeyUsageEncapsulateKey, KeyUsageEncapsulateKey), (js_KeyUsageEncapsulateBits, KeyUsageEncapsulateBits), (js_KeyUsageDecapsulateKey, KeyUsageDecapsulateKey), (js_KeyUsageDecapsulateBits, KeyUsageDecapsulateBits)]+  fromJSValUnchecked = P.return . pFromJSVal++js_KeyUsageEncrypt :: JSString+js_KeyUsageEncrypt = "encrypt"+js_KeyUsageDecrypt :: JSString+js_KeyUsageDecrypt = "decrypt"+js_KeyUsageSign :: JSString+js_KeyUsageSign = "sign"+js_KeyUsageVerify :: JSString+js_KeyUsageVerify = "verify"+js_KeyUsageDeriveKey :: JSString+js_KeyUsageDeriveKey = "deriveKey"+js_KeyUsageDeriveBits :: JSString+js_KeyUsageDeriveBits = "deriveBits"+js_KeyUsageWrapKey :: JSString+js_KeyUsageWrapKey = "wrapKey"+js_KeyUsageUnwrapKey :: JSString+js_KeyUsageUnwrapKey = "unwrapKey"+js_KeyUsageEncapsulateKey :: JSString+js_KeyUsageEncapsulateKey = "encapsulateKey"+js_KeyUsageEncapsulateBits :: JSString+js_KeyUsageEncapsulateBits = "encapsulateBits"+js_KeyUsageDecapsulateKey :: JSString+js_KeyUsageDecapsulateKey = "decapsulateKey"+js_KeyUsageDecapsulateBits :: JSString+js_KeyUsageDecapsulateBits = "decapsulateBits"++-- | <https://developer.mozilla.org/en-US/docs/Web/API LatencyMode> (webcodecs)+data LatencyMode = LatencyModeQuality+    | LatencyModeRealtime+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal LatencyMode where+  pToJSVal x = pToJSVal (case x of+    LatencyModeQuality -> js_LatencyModeQuality+    LatencyModeRealtime -> js_LatencyModeRealtime+    )++instance ToJSVal LatencyMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal LatencyMode where+  pFromJSVal x = P.maybe (P.error "Unexpected LatencyMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_LatencyModeQuality, LatencyModeQuality), (js_LatencyModeRealtime, LatencyModeRealtime)]++instance FromJSVal LatencyMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_LatencyModeQuality, LatencyModeQuality), (js_LatencyModeRealtime, LatencyModeRealtime)]+  fromJSValUnchecked = P.return . pFromJSVal++js_LatencyModeQuality :: JSString+js_LatencyModeQuality = "quality"+js_LatencyModeRealtime :: JSString+js_LatencyModeRealtime = "realtime"++-- | <https://developer.mozilla.org/en-US/docs/Web/API LineAlignSetting> (webvtt1)+data LineAlignSetting = LineAlignSettingStart+    | LineAlignSettingCenter+    | LineAlignSettingEnd+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal LineAlignSetting where+  pToJSVal x = pToJSVal (case x of+    LineAlignSettingStart -> js_LineAlignSettingStart+    LineAlignSettingCenter -> js_LineAlignSettingCenter+    LineAlignSettingEnd -> js_LineAlignSettingEnd+    )++instance ToJSVal LineAlignSetting where+  toJSVal = P.return . pToJSVal++instance PFromJSVal LineAlignSetting where+  pFromJSVal x = P.maybe (P.error "Unexpected LineAlignSetting value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_LineAlignSettingStart, LineAlignSettingStart), (js_LineAlignSettingCenter, LineAlignSettingCenter), (js_LineAlignSettingEnd, LineAlignSettingEnd)]++instance FromJSVal LineAlignSetting where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_LineAlignSettingStart, LineAlignSettingStart), (js_LineAlignSettingCenter, LineAlignSettingCenter), (js_LineAlignSettingEnd, LineAlignSettingEnd)]+  fromJSValUnchecked = P.return . pFromJSVal++js_LineAlignSettingStart :: JSString+js_LineAlignSettingStart = "start"+js_LineAlignSettingCenter :: JSString+js_LineAlignSettingCenter = "center"+js_LineAlignSettingEnd :: JSString+js_LineAlignSettingEnd = "end"++-- | <https://developer.mozilla.org/en-US/docs/Web/API LockMode> (web-locks)+data LockMode = LockModeShared+    | LockModeExclusive+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal LockMode where+  pToJSVal x = pToJSVal (case x of+    LockModeShared -> js_LockModeShared+    LockModeExclusive -> js_LockModeExclusive+    )++instance ToJSVal LockMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal LockMode where+  pFromJSVal x = P.maybe (P.error "Unexpected LockMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_LockModeShared, LockModeShared), (js_LockModeExclusive, LockModeExclusive)]++instance FromJSVal LockMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_LockModeShared, LockModeShared), (js_LockModeExclusive, LockModeExclusive)]+  fromJSValUnchecked = P.return . pFromJSVal++js_LockModeShared :: JSString+js_LockModeShared = "shared"+js_LockModeExclusive :: JSString+js_LockModeExclusive = "exclusive"++-- | <https://developer.mozilla.org/en-US/docs/Web/API LoginStatus> (login-status)+data LoginStatus = LoginStatusLoggedIn+    | LoginStatusLoggedOut+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal LoginStatus where+  pToJSVal x = pToJSVal (case x of+    LoginStatusLoggedIn -> js_LoginStatusLoggedIn+    LoginStatusLoggedOut -> js_LoginStatusLoggedOut+    )++instance ToJSVal LoginStatus where+  toJSVal = P.return . pToJSVal++instance PFromJSVal LoginStatus where+  pFromJSVal x = P.maybe (P.error "Unexpected LoginStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_LoginStatusLoggedIn, LoginStatusLoggedIn), (js_LoginStatusLoggedOut, LoginStatusLoggedOut)]++instance FromJSVal LoginStatus where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_LoginStatusLoggedIn, LoginStatusLoggedIn), (js_LoginStatusLoggedOut, LoginStatusLoggedOut)]+  fromJSValUnchecked = P.return . pFromJSVal++js_LoginStatusLoggedIn :: JSString+js_LoginStatusLoggedIn = "logged-in"+js_LoginStatusLoggedOut :: JSString+js_LoginStatusLoggedOut = "logged-out"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MIDIPortConnectionState> (webmidi)+data MIDIPortConnectionState = MIDIPortConnectionStateOpen+    | MIDIPortConnectionStateClosed+    | MIDIPortConnectionStatePending+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MIDIPortConnectionState where+  pToJSVal x = pToJSVal (case x of+    MIDIPortConnectionStateOpen -> js_MIDIPortConnectionStateOpen+    MIDIPortConnectionStateClosed -> js_MIDIPortConnectionStateClosed+    MIDIPortConnectionStatePending -> js_MIDIPortConnectionStatePending+    )++instance ToJSVal MIDIPortConnectionState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MIDIPortConnectionState where+  pFromJSVal x = P.maybe (P.error "Unexpected MIDIPortConnectionState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MIDIPortConnectionStateOpen, MIDIPortConnectionStateOpen), (js_MIDIPortConnectionStateClosed, MIDIPortConnectionStateClosed), (js_MIDIPortConnectionStatePending, MIDIPortConnectionStatePending)]++instance FromJSVal MIDIPortConnectionState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MIDIPortConnectionStateOpen, MIDIPortConnectionStateOpen), (js_MIDIPortConnectionStateClosed, MIDIPortConnectionStateClosed), (js_MIDIPortConnectionStatePending, MIDIPortConnectionStatePending)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MIDIPortConnectionStateOpen :: JSString+js_MIDIPortConnectionStateOpen = "open"+js_MIDIPortConnectionStateClosed :: JSString+js_MIDIPortConnectionStateClosed = "closed"+js_MIDIPortConnectionStatePending :: JSString+js_MIDIPortConnectionStatePending = "pending"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MIDIPortDeviceState> (webmidi)+data MIDIPortDeviceState = MIDIPortDeviceStateDisconnected+    | MIDIPortDeviceStateConnected+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MIDIPortDeviceState where+  pToJSVal x = pToJSVal (case x of+    MIDIPortDeviceStateDisconnected -> js_MIDIPortDeviceStateDisconnected+    MIDIPortDeviceStateConnected -> js_MIDIPortDeviceStateConnected+    )++instance ToJSVal MIDIPortDeviceState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MIDIPortDeviceState where+  pFromJSVal x = P.maybe (P.error "Unexpected MIDIPortDeviceState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MIDIPortDeviceStateDisconnected, MIDIPortDeviceStateDisconnected), (js_MIDIPortDeviceStateConnected, MIDIPortDeviceStateConnected)]++instance FromJSVal MIDIPortDeviceState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MIDIPortDeviceStateDisconnected, MIDIPortDeviceStateDisconnected), (js_MIDIPortDeviceStateConnected, MIDIPortDeviceStateConnected)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MIDIPortDeviceStateDisconnected :: JSString+js_MIDIPortDeviceStateDisconnected = "disconnected"+js_MIDIPortDeviceStateConnected :: JSString+js_MIDIPortDeviceStateConnected = "connected"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MIDIPortType> (webmidi)+data MIDIPortType = MIDIPortTypeInput+    | MIDIPortTypeOutput+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MIDIPortType where+  pToJSVal x = pToJSVal (case x of+    MIDIPortTypeInput -> js_MIDIPortTypeInput+    MIDIPortTypeOutput -> js_MIDIPortTypeOutput+    )++instance ToJSVal MIDIPortType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MIDIPortType where+  pFromJSVal x = P.maybe (P.error "Unexpected MIDIPortType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MIDIPortTypeInput, MIDIPortTypeInput), (js_MIDIPortTypeOutput, MIDIPortTypeOutput)]++instance FromJSVal MIDIPortType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MIDIPortTypeInput, MIDIPortTypeInput), (js_MIDIPortTypeOutput, MIDIPortTypeOutput)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MIDIPortTypeInput :: JSString+js_MIDIPortTypeInput = "input"+js_MIDIPortTypeOutput :: JSString+js_MIDIPortTypeOutput = "output"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaDecodingType> (media-capabilities)+data MediaDecodingType = MediaDecodingTypeFile+    | MediaDecodingTypeMediaSource+    | MediaDecodingTypeWebrtc+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaDecodingType where+  pToJSVal x = pToJSVal (case x of+    MediaDecodingTypeFile -> js_MediaDecodingTypeFile+    MediaDecodingTypeMediaSource -> js_MediaDecodingTypeMediaSource+    MediaDecodingTypeWebrtc -> js_MediaDecodingTypeWebrtc+    )++instance ToJSVal MediaDecodingType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaDecodingType where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaDecodingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaDecodingTypeFile, MediaDecodingTypeFile), (js_MediaDecodingTypeMediaSource, MediaDecodingTypeMediaSource), (js_MediaDecodingTypeWebrtc, MediaDecodingTypeWebrtc)]++instance FromJSVal MediaDecodingType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaDecodingTypeFile, MediaDecodingTypeFile), (js_MediaDecodingTypeMediaSource, MediaDecodingTypeMediaSource), (js_MediaDecodingTypeWebrtc, MediaDecodingTypeWebrtc)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaDecodingTypeFile :: JSString+js_MediaDecodingTypeFile = "file"+js_MediaDecodingTypeMediaSource :: JSString+js_MediaDecodingTypeMediaSource = "media-source"+js_MediaDecodingTypeWebrtc :: JSString+js_MediaDecodingTypeWebrtc = "webrtc"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaDeviceKind> (mediacapture-streams)+data MediaDeviceKind = MediaDeviceKindAudioinput+    | MediaDeviceKindAudiooutput+    | MediaDeviceKindVideoinput+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaDeviceKind where+  pToJSVal x = pToJSVal (case x of+    MediaDeviceKindAudioinput -> js_MediaDeviceKindAudioinput+    MediaDeviceKindAudiooutput -> js_MediaDeviceKindAudiooutput+    MediaDeviceKindVideoinput -> js_MediaDeviceKindVideoinput+    )++instance ToJSVal MediaDeviceKind where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaDeviceKind where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaDeviceKind value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaDeviceKindAudioinput, MediaDeviceKindAudioinput), (js_MediaDeviceKindAudiooutput, MediaDeviceKindAudiooutput), (js_MediaDeviceKindVideoinput, MediaDeviceKindVideoinput)]++instance FromJSVal MediaDeviceKind where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaDeviceKindAudioinput, MediaDeviceKindAudioinput), (js_MediaDeviceKindAudiooutput, MediaDeviceKindAudiooutput), (js_MediaDeviceKindVideoinput, MediaDeviceKindVideoinput)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaDeviceKindAudioinput :: JSString+js_MediaDeviceKindAudioinput = "audioinput"+js_MediaDeviceKindAudiooutput :: JSString+js_MediaDeviceKindAudiooutput = "audiooutput"+js_MediaDeviceKindVideoinput :: JSString+js_MediaDeviceKindVideoinput = "videoinput"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaEncodingType> (media-capabilities)+data MediaEncodingType = MediaEncodingTypeRecord+    | MediaEncodingTypeWebrtc+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaEncodingType where+  pToJSVal x = pToJSVal (case x of+    MediaEncodingTypeRecord -> js_MediaEncodingTypeRecord+    MediaEncodingTypeWebrtc -> js_MediaEncodingTypeWebrtc+    )++instance ToJSVal MediaEncodingType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaEncodingType where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaEncodingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaEncodingTypeRecord, MediaEncodingTypeRecord), (js_MediaEncodingTypeWebrtc, MediaEncodingTypeWebrtc)]++instance FromJSVal MediaEncodingType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaEncodingTypeRecord, MediaEncodingTypeRecord), (js_MediaEncodingTypeWebrtc, MediaEncodingTypeWebrtc)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaEncodingTypeRecord :: JSString+js_MediaEncodingTypeRecord = "record"+js_MediaEncodingTypeWebrtc :: JSString+js_MediaEncodingTypeWebrtc = "webrtc"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaKeyMessageType> (encrypted-media-2)+data MediaKeyMessageType = MediaKeyMessageTypeLicenseRequest+    | MediaKeyMessageTypeLicenseRenewal+    | MediaKeyMessageTypeLicenseRelease+    | MediaKeyMessageTypeIndividualizationRequest+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaKeyMessageType where+  pToJSVal x = pToJSVal (case x of+    MediaKeyMessageTypeLicenseRequest -> js_MediaKeyMessageTypeLicenseRequest+    MediaKeyMessageTypeLicenseRenewal -> js_MediaKeyMessageTypeLicenseRenewal+    MediaKeyMessageTypeLicenseRelease -> js_MediaKeyMessageTypeLicenseRelease+    MediaKeyMessageTypeIndividualizationRequest -> js_MediaKeyMessageTypeIndividualizationRequest+    )++instance ToJSVal MediaKeyMessageType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaKeyMessageType where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaKeyMessageType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaKeyMessageTypeLicenseRequest, MediaKeyMessageTypeLicenseRequest), (js_MediaKeyMessageTypeLicenseRenewal, MediaKeyMessageTypeLicenseRenewal), (js_MediaKeyMessageTypeLicenseRelease, MediaKeyMessageTypeLicenseRelease), (js_MediaKeyMessageTypeIndividualizationRequest, MediaKeyMessageTypeIndividualizationRequest)]++instance FromJSVal MediaKeyMessageType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaKeyMessageTypeLicenseRequest, MediaKeyMessageTypeLicenseRequest), (js_MediaKeyMessageTypeLicenseRenewal, MediaKeyMessageTypeLicenseRenewal), (js_MediaKeyMessageTypeLicenseRelease, MediaKeyMessageTypeLicenseRelease), (js_MediaKeyMessageTypeIndividualizationRequest, MediaKeyMessageTypeIndividualizationRequest)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaKeyMessageTypeLicenseRequest :: JSString+js_MediaKeyMessageTypeLicenseRequest = "license-request"+js_MediaKeyMessageTypeLicenseRenewal :: JSString+js_MediaKeyMessageTypeLicenseRenewal = "license-renewal"+js_MediaKeyMessageTypeLicenseRelease :: JSString+js_MediaKeyMessageTypeLicenseRelease = "license-release"+js_MediaKeyMessageTypeIndividualizationRequest :: JSString+js_MediaKeyMessageTypeIndividualizationRequest = "individualization-request"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaKeySessionClosedReason> (encrypted-media-2)+data MediaKeySessionClosedReason = MediaKeySessionClosedReasonInternalError+    | MediaKeySessionClosedReasonClosedByApplication+    | MediaKeySessionClosedReasonReleaseAcknowledged+    | MediaKeySessionClosedReasonHardwareContextReset+    | MediaKeySessionClosedReasonResourceEvicted+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaKeySessionClosedReason where+  pToJSVal x = pToJSVal (case x of+    MediaKeySessionClosedReasonInternalError -> js_MediaKeySessionClosedReasonInternalError+    MediaKeySessionClosedReasonClosedByApplication -> js_MediaKeySessionClosedReasonClosedByApplication+    MediaKeySessionClosedReasonReleaseAcknowledged -> js_MediaKeySessionClosedReasonReleaseAcknowledged+    MediaKeySessionClosedReasonHardwareContextReset -> js_MediaKeySessionClosedReasonHardwareContextReset+    MediaKeySessionClosedReasonResourceEvicted -> js_MediaKeySessionClosedReasonResourceEvicted+    )++instance ToJSVal MediaKeySessionClosedReason where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaKeySessionClosedReason where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaKeySessionClosedReason value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaKeySessionClosedReasonInternalError, MediaKeySessionClosedReasonInternalError), (js_MediaKeySessionClosedReasonClosedByApplication, MediaKeySessionClosedReasonClosedByApplication), (js_MediaKeySessionClosedReasonReleaseAcknowledged, MediaKeySessionClosedReasonReleaseAcknowledged), (js_MediaKeySessionClosedReasonHardwareContextReset, MediaKeySessionClosedReasonHardwareContextReset), (js_MediaKeySessionClosedReasonResourceEvicted, MediaKeySessionClosedReasonResourceEvicted)]++instance FromJSVal MediaKeySessionClosedReason where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaKeySessionClosedReasonInternalError, MediaKeySessionClosedReasonInternalError), (js_MediaKeySessionClosedReasonClosedByApplication, MediaKeySessionClosedReasonClosedByApplication), (js_MediaKeySessionClosedReasonReleaseAcknowledged, MediaKeySessionClosedReasonReleaseAcknowledged), (js_MediaKeySessionClosedReasonHardwareContextReset, MediaKeySessionClosedReasonHardwareContextReset), (js_MediaKeySessionClosedReasonResourceEvicted, MediaKeySessionClosedReasonResourceEvicted)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaKeySessionClosedReasonInternalError :: JSString+js_MediaKeySessionClosedReasonInternalError = "internal-error"+js_MediaKeySessionClosedReasonClosedByApplication :: JSString+js_MediaKeySessionClosedReasonClosedByApplication = "closed-by-application"+js_MediaKeySessionClosedReasonReleaseAcknowledged :: JSString+js_MediaKeySessionClosedReasonReleaseAcknowledged = "release-acknowledged"+js_MediaKeySessionClosedReasonHardwareContextReset :: JSString+js_MediaKeySessionClosedReasonHardwareContextReset = "hardware-context-reset"+js_MediaKeySessionClosedReasonResourceEvicted :: JSString+js_MediaKeySessionClosedReasonResourceEvicted = "resource-evicted"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaKeySessionType> (encrypted-media-2)+data MediaKeySessionType = MediaKeySessionTypeTemporary+    | MediaKeySessionTypePersistentLicense+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaKeySessionType where+  pToJSVal x = pToJSVal (case x of+    MediaKeySessionTypeTemporary -> js_MediaKeySessionTypeTemporary+    MediaKeySessionTypePersistentLicense -> js_MediaKeySessionTypePersistentLicense+    )++instance ToJSVal MediaKeySessionType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaKeySessionType where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaKeySessionType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaKeySessionTypeTemporary, MediaKeySessionTypeTemporary), (js_MediaKeySessionTypePersistentLicense, MediaKeySessionTypePersistentLicense)]++instance FromJSVal MediaKeySessionType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaKeySessionTypeTemporary, MediaKeySessionTypeTemporary), (js_MediaKeySessionTypePersistentLicense, MediaKeySessionTypePersistentLicense)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaKeySessionTypeTemporary :: JSString+js_MediaKeySessionTypeTemporary = "temporary"+js_MediaKeySessionTypePersistentLicense :: JSString+js_MediaKeySessionTypePersistentLicense = "persistent-license"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaKeyStatus> (encrypted-media-2)+data MediaKeyStatus = MediaKeyStatusUsable+    | MediaKeyStatusExpired+    | MediaKeyStatusReleased+    | MediaKeyStatusOutputRestricted+    | MediaKeyStatusOutputDownscaled+    | MediaKeyStatusUsableInFuture+    | MediaKeyStatusStatusPending+    | MediaKeyStatusInternalError+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaKeyStatus where+  pToJSVal x = pToJSVal (case x of+    MediaKeyStatusUsable -> js_MediaKeyStatusUsable+    MediaKeyStatusExpired -> js_MediaKeyStatusExpired+    MediaKeyStatusReleased -> js_MediaKeyStatusReleased+    MediaKeyStatusOutputRestricted -> js_MediaKeyStatusOutputRestricted+    MediaKeyStatusOutputDownscaled -> js_MediaKeyStatusOutputDownscaled+    MediaKeyStatusUsableInFuture -> js_MediaKeyStatusUsableInFuture+    MediaKeyStatusStatusPending -> js_MediaKeyStatusStatusPending+    MediaKeyStatusInternalError -> js_MediaKeyStatusInternalError+    )++instance ToJSVal MediaKeyStatus where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaKeyStatus where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaKeyStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaKeyStatusUsable, MediaKeyStatusUsable), (js_MediaKeyStatusExpired, MediaKeyStatusExpired), (js_MediaKeyStatusReleased, MediaKeyStatusReleased), (js_MediaKeyStatusOutputRestricted, MediaKeyStatusOutputRestricted), (js_MediaKeyStatusOutputDownscaled, MediaKeyStatusOutputDownscaled), (js_MediaKeyStatusUsableInFuture, MediaKeyStatusUsableInFuture), (js_MediaKeyStatusStatusPending, MediaKeyStatusStatusPending), (js_MediaKeyStatusInternalError, MediaKeyStatusInternalError)]++instance FromJSVal MediaKeyStatus where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaKeyStatusUsable, MediaKeyStatusUsable), (js_MediaKeyStatusExpired, MediaKeyStatusExpired), (js_MediaKeyStatusReleased, MediaKeyStatusReleased), (js_MediaKeyStatusOutputRestricted, MediaKeyStatusOutputRestricted), (js_MediaKeyStatusOutputDownscaled, MediaKeyStatusOutputDownscaled), (js_MediaKeyStatusUsableInFuture, MediaKeyStatusUsableInFuture), (js_MediaKeyStatusStatusPending, MediaKeyStatusStatusPending), (js_MediaKeyStatusInternalError, MediaKeyStatusInternalError)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaKeyStatusUsable :: JSString+js_MediaKeyStatusUsable = "usable"+js_MediaKeyStatusExpired :: JSString+js_MediaKeyStatusExpired = "expired"+js_MediaKeyStatusReleased :: JSString+js_MediaKeyStatusReleased = "released"+js_MediaKeyStatusOutputRestricted :: JSString+js_MediaKeyStatusOutputRestricted = "output-restricted"+js_MediaKeyStatusOutputDownscaled :: JSString+js_MediaKeyStatusOutputDownscaled = "output-downscaled"+js_MediaKeyStatusUsableInFuture :: JSString+js_MediaKeyStatusUsableInFuture = "usable-in-future"+js_MediaKeyStatusStatusPending :: JSString+js_MediaKeyStatusStatusPending = "status-pending"+js_MediaKeyStatusInternalError :: JSString+js_MediaKeyStatusInternalError = "internal-error"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaKeysRequirement> (encrypted-media-2)+data MediaKeysRequirement = MediaKeysRequirementRequired+    | MediaKeysRequirementOptional+    | MediaKeysRequirementNotAllowed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaKeysRequirement where+  pToJSVal x = pToJSVal (case x of+    MediaKeysRequirementRequired -> js_MediaKeysRequirementRequired+    MediaKeysRequirementOptional -> js_MediaKeysRequirementOptional+    MediaKeysRequirementNotAllowed -> js_MediaKeysRequirementNotAllowed+    )++instance ToJSVal MediaKeysRequirement where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaKeysRequirement where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaKeysRequirement value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaKeysRequirementRequired, MediaKeysRequirementRequired), (js_MediaKeysRequirementOptional, MediaKeysRequirementOptional), (js_MediaKeysRequirementNotAllowed, MediaKeysRequirementNotAllowed)]++instance FromJSVal MediaKeysRequirement where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaKeysRequirementRequired, MediaKeysRequirementRequired), (js_MediaKeysRequirementOptional, MediaKeysRequirementOptional), (js_MediaKeysRequirementNotAllowed, MediaKeysRequirementNotAllowed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaKeysRequirementRequired :: JSString+js_MediaKeysRequirementRequired = "required"+js_MediaKeysRequirementOptional :: JSString+js_MediaKeysRequirementOptional = "optional"+js_MediaKeysRequirementNotAllowed :: JSString+js_MediaKeysRequirementNotAllowed = "not-allowed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaSessionAction> (mediasession)+data MediaSessionAction = MediaSessionActionPlay+    | MediaSessionActionPause+    | MediaSessionActionSeekbackward+    | MediaSessionActionSeekforward+    | MediaSessionActionPrevioustrack+    | MediaSessionActionNexttrack+    | MediaSessionActionSkipad+    | MediaSessionActionStop+    | MediaSessionActionSeekto+    | MediaSessionActionTogglemicrophone+    | MediaSessionActionTogglecamera+    | MediaSessionActionTogglescreenshare+    | MediaSessionActionHangup+    | MediaSessionActionPreviousslide+    | MediaSessionActionNextslide+    | MediaSessionActionEnterpictureinpicture+    | MediaSessionActionVoiceactivity+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaSessionAction where+  pToJSVal x = pToJSVal (case x of+    MediaSessionActionPlay -> js_MediaSessionActionPlay+    MediaSessionActionPause -> js_MediaSessionActionPause+    MediaSessionActionSeekbackward -> js_MediaSessionActionSeekbackward+    MediaSessionActionSeekforward -> js_MediaSessionActionSeekforward+    MediaSessionActionPrevioustrack -> js_MediaSessionActionPrevioustrack+    MediaSessionActionNexttrack -> js_MediaSessionActionNexttrack+    MediaSessionActionSkipad -> js_MediaSessionActionSkipad+    MediaSessionActionStop -> js_MediaSessionActionStop+    MediaSessionActionSeekto -> js_MediaSessionActionSeekto+    MediaSessionActionTogglemicrophone -> js_MediaSessionActionTogglemicrophone+    MediaSessionActionTogglecamera -> js_MediaSessionActionTogglecamera+    MediaSessionActionTogglescreenshare -> js_MediaSessionActionTogglescreenshare+    MediaSessionActionHangup -> js_MediaSessionActionHangup+    MediaSessionActionPreviousslide -> js_MediaSessionActionPreviousslide+    MediaSessionActionNextslide -> js_MediaSessionActionNextslide+    MediaSessionActionEnterpictureinpicture -> js_MediaSessionActionEnterpictureinpicture+    MediaSessionActionVoiceactivity -> js_MediaSessionActionVoiceactivity+    )++instance ToJSVal MediaSessionAction where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaSessionAction where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaSessionAction value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaSessionActionPlay, MediaSessionActionPlay), (js_MediaSessionActionPause, MediaSessionActionPause), (js_MediaSessionActionSeekbackward, MediaSessionActionSeekbackward), (js_MediaSessionActionSeekforward, MediaSessionActionSeekforward), (js_MediaSessionActionPrevioustrack, MediaSessionActionPrevioustrack), (js_MediaSessionActionNexttrack, MediaSessionActionNexttrack), (js_MediaSessionActionSkipad, MediaSessionActionSkipad), (js_MediaSessionActionStop, MediaSessionActionStop), (js_MediaSessionActionSeekto, MediaSessionActionSeekto), (js_MediaSessionActionTogglemicrophone, MediaSessionActionTogglemicrophone), (js_MediaSessionActionTogglecamera, MediaSessionActionTogglecamera), (js_MediaSessionActionTogglescreenshare, MediaSessionActionTogglescreenshare), (js_MediaSessionActionHangup, MediaSessionActionHangup), (js_MediaSessionActionPreviousslide, MediaSessionActionPreviousslide), (js_MediaSessionActionNextslide, MediaSessionActionNextslide), (js_MediaSessionActionEnterpictureinpicture, MediaSessionActionEnterpictureinpicture), (js_MediaSessionActionVoiceactivity, MediaSessionActionVoiceactivity)]++instance FromJSVal MediaSessionAction where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaSessionActionPlay, MediaSessionActionPlay), (js_MediaSessionActionPause, MediaSessionActionPause), (js_MediaSessionActionSeekbackward, MediaSessionActionSeekbackward), (js_MediaSessionActionSeekforward, MediaSessionActionSeekforward), (js_MediaSessionActionPrevioustrack, MediaSessionActionPrevioustrack), (js_MediaSessionActionNexttrack, MediaSessionActionNexttrack), (js_MediaSessionActionSkipad, MediaSessionActionSkipad), (js_MediaSessionActionStop, MediaSessionActionStop), (js_MediaSessionActionSeekto, MediaSessionActionSeekto), (js_MediaSessionActionTogglemicrophone, MediaSessionActionTogglemicrophone), (js_MediaSessionActionTogglecamera, MediaSessionActionTogglecamera), (js_MediaSessionActionTogglescreenshare, MediaSessionActionTogglescreenshare), (js_MediaSessionActionHangup, MediaSessionActionHangup), (js_MediaSessionActionPreviousslide, MediaSessionActionPreviousslide), (js_MediaSessionActionNextslide, MediaSessionActionNextslide), (js_MediaSessionActionEnterpictureinpicture, MediaSessionActionEnterpictureinpicture), (js_MediaSessionActionVoiceactivity, MediaSessionActionVoiceactivity)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaSessionActionPlay :: JSString+js_MediaSessionActionPlay = "play"+js_MediaSessionActionPause :: JSString+js_MediaSessionActionPause = "pause"+js_MediaSessionActionSeekbackward :: JSString+js_MediaSessionActionSeekbackward = "seekbackward"+js_MediaSessionActionSeekforward :: JSString+js_MediaSessionActionSeekforward = "seekforward"+js_MediaSessionActionPrevioustrack :: JSString+js_MediaSessionActionPrevioustrack = "previoustrack"+js_MediaSessionActionNexttrack :: JSString+js_MediaSessionActionNexttrack = "nexttrack"+js_MediaSessionActionSkipad :: JSString+js_MediaSessionActionSkipad = "skipad"+js_MediaSessionActionStop :: JSString+js_MediaSessionActionStop = "stop"+js_MediaSessionActionSeekto :: JSString+js_MediaSessionActionSeekto = "seekto"+js_MediaSessionActionTogglemicrophone :: JSString+js_MediaSessionActionTogglemicrophone = "togglemicrophone"+js_MediaSessionActionTogglecamera :: JSString+js_MediaSessionActionTogglecamera = "togglecamera"+js_MediaSessionActionTogglescreenshare :: JSString+js_MediaSessionActionTogglescreenshare = "togglescreenshare"+js_MediaSessionActionHangup :: JSString+js_MediaSessionActionHangup = "hangup"+js_MediaSessionActionPreviousslide :: JSString+js_MediaSessionActionPreviousslide = "previousslide"+js_MediaSessionActionNextslide :: JSString+js_MediaSessionActionNextslide = "nextslide"+js_MediaSessionActionEnterpictureinpicture :: JSString+js_MediaSessionActionEnterpictureinpicture = "enterpictureinpicture"+js_MediaSessionActionVoiceactivity :: JSString+js_MediaSessionActionVoiceactivity = "voiceactivity"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaSessionEnterPictureInPictureReason> (mediasession)+data MediaSessionEnterPictureInPictureReason = MediaSessionEnterPictureInPictureReasonOther+    | MediaSessionEnterPictureInPictureReasonUseraction+    | MediaSessionEnterPictureInPictureReasonContentoccluded+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaSessionEnterPictureInPictureReason where+  pToJSVal x = pToJSVal (case x of+    MediaSessionEnterPictureInPictureReasonOther -> js_MediaSessionEnterPictureInPictureReasonOther+    MediaSessionEnterPictureInPictureReasonUseraction -> js_MediaSessionEnterPictureInPictureReasonUseraction+    MediaSessionEnterPictureInPictureReasonContentoccluded -> js_MediaSessionEnterPictureInPictureReasonContentoccluded+    )++instance ToJSVal MediaSessionEnterPictureInPictureReason where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaSessionEnterPictureInPictureReason where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaSessionEnterPictureInPictureReason value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaSessionEnterPictureInPictureReasonOther, MediaSessionEnterPictureInPictureReasonOther), (js_MediaSessionEnterPictureInPictureReasonUseraction, MediaSessionEnterPictureInPictureReasonUseraction), (js_MediaSessionEnterPictureInPictureReasonContentoccluded, MediaSessionEnterPictureInPictureReasonContentoccluded)]++instance FromJSVal MediaSessionEnterPictureInPictureReason where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaSessionEnterPictureInPictureReasonOther, MediaSessionEnterPictureInPictureReasonOther), (js_MediaSessionEnterPictureInPictureReasonUseraction, MediaSessionEnterPictureInPictureReasonUseraction), (js_MediaSessionEnterPictureInPictureReasonContentoccluded, MediaSessionEnterPictureInPictureReasonContentoccluded)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaSessionEnterPictureInPictureReasonOther :: JSString+js_MediaSessionEnterPictureInPictureReasonOther = "other"+js_MediaSessionEnterPictureInPictureReasonUseraction :: JSString+js_MediaSessionEnterPictureInPictureReasonUseraction = "useraction"+js_MediaSessionEnterPictureInPictureReasonContentoccluded :: JSString+js_MediaSessionEnterPictureInPictureReasonContentoccluded = "contentoccluded"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaSessionPlaybackState> (mediasession)+data MediaSessionPlaybackState = MediaSessionPlaybackStateNone+    | MediaSessionPlaybackStatePaused+    | MediaSessionPlaybackStatePlaying+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaSessionPlaybackState where+  pToJSVal x = pToJSVal (case x of+    MediaSessionPlaybackStateNone -> js_MediaSessionPlaybackStateNone+    MediaSessionPlaybackStatePaused -> js_MediaSessionPlaybackStatePaused+    MediaSessionPlaybackStatePlaying -> js_MediaSessionPlaybackStatePlaying+    )++instance ToJSVal MediaSessionPlaybackState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaSessionPlaybackState where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaSessionPlaybackState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaSessionPlaybackStateNone, MediaSessionPlaybackStateNone), (js_MediaSessionPlaybackStatePaused, MediaSessionPlaybackStatePaused), (js_MediaSessionPlaybackStatePlaying, MediaSessionPlaybackStatePlaying)]++instance FromJSVal MediaSessionPlaybackState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaSessionPlaybackStateNone, MediaSessionPlaybackStateNone), (js_MediaSessionPlaybackStatePaused, MediaSessionPlaybackStatePaused), (js_MediaSessionPlaybackStatePlaying, MediaSessionPlaybackStatePlaying)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaSessionPlaybackStateNone :: JSString+js_MediaSessionPlaybackStateNone = "none"+js_MediaSessionPlaybackStatePaused :: JSString+js_MediaSessionPlaybackStatePaused = "paused"+js_MediaSessionPlaybackStatePlaying :: JSString+js_MediaSessionPlaybackStatePlaying = "playing"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaStreamTrackState> (mediacapture-streams)+data MediaStreamTrackState = MediaStreamTrackStateLive+    | MediaStreamTrackStateEnded+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaStreamTrackState where+  pToJSVal x = pToJSVal (case x of+    MediaStreamTrackStateLive -> js_MediaStreamTrackStateLive+    MediaStreamTrackStateEnded -> js_MediaStreamTrackStateEnded+    )++instance ToJSVal MediaStreamTrackState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MediaStreamTrackState where+  pFromJSVal x = P.maybe (P.error "Unexpected MediaStreamTrackState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaStreamTrackStateLive, MediaStreamTrackStateLive), (js_MediaStreamTrackStateEnded, MediaStreamTrackStateEnded)]++instance FromJSVal MediaStreamTrackState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MediaStreamTrackStateLive, MediaStreamTrackStateLive), (js_MediaStreamTrackStateEnded, MediaStreamTrackStateEnded)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MediaStreamTrackStateLive :: JSString+js_MediaStreamTrackStateLive = "live"+js_MediaStreamTrackStateEnded :: JSString+js_MediaStreamTrackStateEnded = "ended"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MonitorTypeSurfacesEnum> (screen-capture)+data MonitorTypeSurfacesEnum = MonitorTypeSurfacesEnumInclude+    | MonitorTypeSurfacesEnumExclude+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MonitorTypeSurfacesEnum where+  pToJSVal x = pToJSVal (case x of+    MonitorTypeSurfacesEnumInclude -> js_MonitorTypeSurfacesEnumInclude+    MonitorTypeSurfacesEnumExclude -> js_MonitorTypeSurfacesEnumExclude+    )++instance ToJSVal MonitorTypeSurfacesEnum where+  toJSVal = P.return . pToJSVal++instance PFromJSVal MonitorTypeSurfacesEnum where+  pFromJSVal x = P.maybe (P.error "Unexpected MonitorTypeSurfacesEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MonitorTypeSurfacesEnumInclude, MonitorTypeSurfacesEnumInclude), (js_MonitorTypeSurfacesEnumExclude, MonitorTypeSurfacesEnumExclude)]++instance FromJSVal MonitorTypeSurfacesEnum where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_MonitorTypeSurfacesEnumInclude, MonitorTypeSurfacesEnumInclude), (js_MonitorTypeSurfacesEnumExclude, MonitorTypeSurfacesEnumExclude)]+  fromJSValUnchecked = P.return . pFromJSVal++js_MonitorTypeSurfacesEnumInclude :: JSString+js_MonitorTypeSurfacesEnumInclude = "include"+js_MonitorTypeSurfacesEnumExclude :: JSString+js_MonitorTypeSurfacesEnumExclude = "exclude"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NavigationFocusReset> (html)+data NavigationFocusReset = NavigationFocusResetAfterTransition+    | NavigationFocusResetManual+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NavigationFocusReset where+  pToJSVal x = pToJSVal (case x of+    NavigationFocusResetAfterTransition -> js_NavigationFocusResetAfterTransition+    NavigationFocusResetManual -> js_NavigationFocusResetManual+    )++instance ToJSVal NavigationFocusReset where+  toJSVal = P.return . pToJSVal++instance PFromJSVal NavigationFocusReset where+  pFromJSVal x = P.maybe (P.error "Unexpected NavigationFocusReset value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NavigationFocusResetAfterTransition, NavigationFocusResetAfterTransition), (js_NavigationFocusResetManual, NavigationFocusResetManual)]++instance FromJSVal NavigationFocusReset where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NavigationFocusResetAfterTransition, NavigationFocusResetAfterTransition), (js_NavigationFocusResetManual, NavigationFocusResetManual)]+  fromJSValUnchecked = P.return . pFromJSVal++js_NavigationFocusResetAfterTransition :: JSString+js_NavigationFocusResetAfterTransition = "after-transition"+js_NavigationFocusResetManual :: JSString+js_NavigationFocusResetManual = "manual"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NavigationHistoryBehavior> (html)+data NavigationHistoryBehavior = NavigationHistoryBehaviorAuto+    | NavigationHistoryBehaviorPush+    | NavigationHistoryBehaviorReplace+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NavigationHistoryBehavior where+  pToJSVal x = pToJSVal (case x of+    NavigationHistoryBehaviorAuto -> js_NavigationHistoryBehaviorAuto+    NavigationHistoryBehaviorPush -> js_NavigationHistoryBehaviorPush+    NavigationHistoryBehaviorReplace -> js_NavigationHistoryBehaviorReplace+    )++instance ToJSVal NavigationHistoryBehavior where+  toJSVal = P.return . pToJSVal++instance PFromJSVal NavigationHistoryBehavior where+  pFromJSVal x = P.maybe (P.error "Unexpected NavigationHistoryBehavior value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NavigationHistoryBehaviorAuto, NavigationHistoryBehaviorAuto), (js_NavigationHistoryBehaviorPush, NavigationHistoryBehaviorPush), (js_NavigationHistoryBehaviorReplace, NavigationHistoryBehaviorReplace)]++instance FromJSVal NavigationHistoryBehavior where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NavigationHistoryBehaviorAuto, NavigationHistoryBehaviorAuto), (js_NavigationHistoryBehaviorPush, NavigationHistoryBehaviorPush), (js_NavigationHistoryBehaviorReplace, NavigationHistoryBehaviorReplace)]+  fromJSValUnchecked = P.return . pFromJSVal++js_NavigationHistoryBehaviorAuto :: JSString+js_NavigationHistoryBehaviorAuto = "auto"+js_NavigationHistoryBehaviorPush :: JSString+js_NavigationHistoryBehaviorPush = "push"+js_NavigationHistoryBehaviorReplace :: JSString+js_NavigationHistoryBehaviorReplace = "replace"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NavigationScrollBehavior> (html)+data NavigationScrollBehavior = NavigationScrollBehaviorAfterTransition+    | NavigationScrollBehaviorManual+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NavigationScrollBehavior where+  pToJSVal x = pToJSVal (case x of+    NavigationScrollBehaviorAfterTransition -> js_NavigationScrollBehaviorAfterTransition+    NavigationScrollBehaviorManual -> js_NavigationScrollBehaviorManual+    )++instance ToJSVal NavigationScrollBehavior where+  toJSVal = P.return . pToJSVal++instance PFromJSVal NavigationScrollBehavior where+  pFromJSVal x = P.maybe (P.error "Unexpected NavigationScrollBehavior value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NavigationScrollBehaviorAfterTransition, NavigationScrollBehaviorAfterTransition), (js_NavigationScrollBehaviorManual, NavigationScrollBehaviorManual)]++instance FromJSVal NavigationScrollBehavior where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NavigationScrollBehaviorAfterTransition, NavigationScrollBehaviorAfterTransition), (js_NavigationScrollBehaviorManual, NavigationScrollBehaviorManual)]+  fromJSValUnchecked = P.return . pFromJSVal++js_NavigationScrollBehaviorAfterTransition :: JSString+js_NavigationScrollBehaviorAfterTransition = "after-transition"+js_NavigationScrollBehaviorManual :: JSString+js_NavigationScrollBehaviorManual = "manual"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NavigationTimingType> (navigation-timing-2)+data NavigationTimingType = NavigationTimingTypeNavigate+    | NavigationTimingTypeReload+    | NavigationTimingTypeBackForward+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NavigationTimingType where+  pToJSVal x = pToJSVal (case x of+    NavigationTimingTypeNavigate -> js_NavigationTimingTypeNavigate+    NavigationTimingTypeReload -> js_NavigationTimingTypeReload+    NavigationTimingTypeBackForward -> js_NavigationTimingTypeBackForward+    )++instance ToJSVal NavigationTimingType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal NavigationTimingType where+  pFromJSVal x = P.maybe (P.error "Unexpected NavigationTimingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NavigationTimingTypeNavigate, NavigationTimingTypeNavigate), (js_NavigationTimingTypeReload, NavigationTimingTypeReload), (js_NavigationTimingTypeBackForward, NavigationTimingTypeBackForward)]++instance FromJSVal NavigationTimingType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NavigationTimingTypeNavigate, NavigationTimingTypeNavigate), (js_NavigationTimingTypeReload, NavigationTimingTypeReload), (js_NavigationTimingTypeBackForward, NavigationTimingTypeBackForward)]+  fromJSValUnchecked = P.return . pFromJSVal++js_NavigationTimingTypeNavigate :: JSString+js_NavigationTimingTypeNavigate = "navigate"+js_NavigationTimingTypeReload :: JSString+js_NavigationTimingTypeReload = "reload"+js_NavigationTimingTypeBackForward :: JSString+js_NavigationTimingTypeBackForward = "back_forward"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NavigationType> (html)+data NavigationType = NavigationTypePush+    | NavigationTypeReplace+    | NavigationTypeReload+    | NavigationTypeTraverse+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NavigationType where+  pToJSVal x = pToJSVal (case x of+    NavigationTypePush -> js_NavigationTypePush+    NavigationTypeReplace -> js_NavigationTypeReplace+    NavigationTypeReload -> js_NavigationTypeReload+    NavigationTypeTraverse -> js_NavigationTypeTraverse+    )++instance ToJSVal NavigationType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal NavigationType where+  pFromJSVal x = P.maybe (P.error "Unexpected NavigationType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NavigationTypePush, NavigationTypePush), (js_NavigationTypeReplace, NavigationTypeReplace), (js_NavigationTypeReload, NavigationTypeReload), (js_NavigationTypeTraverse, NavigationTypeTraverse)]++instance FromJSVal NavigationType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NavigationTypePush, NavigationTypePush), (js_NavigationTypeReplace, NavigationTypeReplace), (js_NavigationTypeReload, NavigationTypeReload), (js_NavigationTypeTraverse, NavigationTypeTraverse)]+  fromJSValUnchecked = P.return . pFromJSVal++js_NavigationTypePush :: JSString+js_NavigationTypePush = "push"+js_NavigationTypeReplace :: JSString+js_NavigationTypeReplace = "replace"+js_NavigationTypeReload :: JSString+js_NavigationTypeReload = "reload"+js_NavigationTypeTraverse :: JSString+js_NavigationTypeTraverse = "traverse"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NotificationDirection> (notifications)+data NotificationDirection = NotificationDirectionAuto+    | NotificationDirectionLtr+    | NotificationDirectionRtl+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NotificationDirection where+  pToJSVal x = pToJSVal (case x of+    NotificationDirectionAuto -> js_NotificationDirectionAuto+    NotificationDirectionLtr -> js_NotificationDirectionLtr+    NotificationDirectionRtl -> js_NotificationDirectionRtl+    )++instance ToJSVal NotificationDirection where+  toJSVal = P.return . pToJSVal++instance PFromJSVal NotificationDirection where+  pFromJSVal x = P.maybe (P.error "Unexpected NotificationDirection value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NotificationDirectionAuto, NotificationDirectionAuto), (js_NotificationDirectionLtr, NotificationDirectionLtr), (js_NotificationDirectionRtl, NotificationDirectionRtl)]++instance FromJSVal NotificationDirection where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NotificationDirectionAuto, NotificationDirectionAuto), (js_NotificationDirectionLtr, NotificationDirectionLtr), (js_NotificationDirectionRtl, NotificationDirectionRtl)]+  fromJSValUnchecked = P.return . pFromJSVal++js_NotificationDirectionAuto :: JSString+js_NotificationDirectionAuto = "auto"+js_NotificationDirectionLtr :: JSString+js_NotificationDirectionLtr = "ltr"+js_NotificationDirectionRtl :: JSString+js_NotificationDirectionRtl = "rtl"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NotificationPermission> (notifications)+data NotificationPermission = NotificationPermissionDefault+    | NotificationPermissionDenied+    | NotificationPermissionGranted+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NotificationPermission where+  pToJSVal x = pToJSVal (case x of+    NotificationPermissionDefault -> js_NotificationPermissionDefault+    NotificationPermissionDenied -> js_NotificationPermissionDenied+    NotificationPermissionGranted -> js_NotificationPermissionGranted+    )++instance ToJSVal NotificationPermission where+  toJSVal = P.return . pToJSVal++instance PFromJSVal NotificationPermission where+  pFromJSVal x = P.maybe (P.error "Unexpected NotificationPermission value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NotificationPermissionDefault, NotificationPermissionDefault), (js_NotificationPermissionDenied, NotificationPermissionDenied), (js_NotificationPermissionGranted, NotificationPermissionGranted)]++instance FromJSVal NotificationPermission where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_NotificationPermissionDefault, NotificationPermissionDefault), (js_NotificationPermissionDenied, NotificationPermissionDenied), (js_NotificationPermissionGranted, NotificationPermissionGranted)]+  fromJSValUnchecked = P.return . pFromJSVal++js_NotificationPermissionDefault :: JSString+js_NotificationPermissionDefault = "default"+js_NotificationPermissionDenied :: JSString+js_NotificationPermissionDenied = "denied"+js_NotificationPermissionGranted :: JSString+js_NotificationPermissionGranted = "granted"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OTPCredentialTransportType> (web-otp)+data OTPCredentialTransportType = OTPCredentialTransportTypeSms+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OTPCredentialTransportType where+  pToJSVal x = pToJSVal (case x of+    OTPCredentialTransportTypeSms -> js_OTPCredentialTransportTypeSms+    )++instance ToJSVal OTPCredentialTransportType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal OTPCredentialTransportType where+  pFromJSVal x = P.maybe (P.error "Unexpected OTPCredentialTransportType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OTPCredentialTransportTypeSms, OTPCredentialTransportTypeSms)]++instance FromJSVal OTPCredentialTransportType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OTPCredentialTransportTypeSms, OTPCredentialTransportTypeSms)]+  fromJSValUnchecked = P.return . pFromJSVal++js_OTPCredentialTransportTypeSms :: JSString+js_OTPCredentialTransportTypeSms = "sms"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OffscreenRenderingContextId> (html)+data OffscreenRenderingContextId = OffscreenRenderingContextId2d+    | OffscreenRenderingContextIdBitmaprenderer+    | OffscreenRenderingContextIdWebgl+    | OffscreenRenderingContextIdWebgl2+    | OffscreenRenderingContextIdWebgpu+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OffscreenRenderingContextId where+  pToJSVal x = pToJSVal (case x of+    OffscreenRenderingContextId2d -> js_OffscreenRenderingContextId2d+    OffscreenRenderingContextIdBitmaprenderer -> js_OffscreenRenderingContextIdBitmaprenderer+    OffscreenRenderingContextIdWebgl -> js_OffscreenRenderingContextIdWebgl+    OffscreenRenderingContextIdWebgl2 -> js_OffscreenRenderingContextIdWebgl2+    OffscreenRenderingContextIdWebgpu -> js_OffscreenRenderingContextIdWebgpu+    )++instance ToJSVal OffscreenRenderingContextId where+  toJSVal = P.return . pToJSVal++instance PFromJSVal OffscreenRenderingContextId where+  pFromJSVal x = P.maybe (P.error "Unexpected OffscreenRenderingContextId value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OffscreenRenderingContextId2d, OffscreenRenderingContextId2d), (js_OffscreenRenderingContextIdBitmaprenderer, OffscreenRenderingContextIdBitmaprenderer), (js_OffscreenRenderingContextIdWebgl, OffscreenRenderingContextIdWebgl), (js_OffscreenRenderingContextIdWebgl2, OffscreenRenderingContextIdWebgl2), (js_OffscreenRenderingContextIdWebgpu, OffscreenRenderingContextIdWebgpu)]++instance FromJSVal OffscreenRenderingContextId where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OffscreenRenderingContextId2d, OffscreenRenderingContextId2d), (js_OffscreenRenderingContextIdBitmaprenderer, OffscreenRenderingContextIdBitmaprenderer), (js_OffscreenRenderingContextIdWebgl, OffscreenRenderingContextIdWebgl), (js_OffscreenRenderingContextIdWebgl2, OffscreenRenderingContextIdWebgl2), (js_OffscreenRenderingContextIdWebgpu, OffscreenRenderingContextIdWebgpu)]+  fromJSValUnchecked = P.return . pFromJSVal++js_OffscreenRenderingContextId2d :: JSString+js_OffscreenRenderingContextId2d = "2d"+js_OffscreenRenderingContextIdBitmaprenderer :: JSString+js_OffscreenRenderingContextIdBitmaprenderer = "bitmaprenderer"+js_OffscreenRenderingContextIdWebgl :: JSString+js_OffscreenRenderingContextIdWebgl = "webgl"+js_OffscreenRenderingContextIdWebgl2 :: JSString+js_OffscreenRenderingContextIdWebgl2 = "webgl2"+js_OffscreenRenderingContextIdWebgpu :: JSString+js_OffscreenRenderingContextIdWebgpu = "webgpu"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OperationType> (trust-token-api)+data OperationType = OperationTypeTokenRequest+    | OperationTypeSendRedemptionRecord+    | OperationTypeTokenRedemption+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OperationType where+  pToJSVal x = pToJSVal (case x of+    OperationTypeTokenRequest -> js_OperationTypeTokenRequest+    OperationTypeSendRedemptionRecord -> js_OperationTypeSendRedemptionRecord+    OperationTypeTokenRedemption -> js_OperationTypeTokenRedemption+    )++instance ToJSVal OperationType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal OperationType where+  pFromJSVal x = P.maybe (P.error "Unexpected OperationType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OperationTypeTokenRequest, OperationTypeTokenRequest), (js_OperationTypeSendRedemptionRecord, OperationTypeSendRedemptionRecord), (js_OperationTypeTokenRedemption, OperationTypeTokenRedemption)]++instance FromJSVal OperationType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OperationTypeTokenRequest, OperationTypeTokenRequest), (js_OperationTypeSendRedemptionRecord, OperationTypeSendRedemptionRecord), (js_OperationTypeTokenRedemption, OperationTypeTokenRedemption)]+  fromJSValUnchecked = P.return . pFromJSVal++js_OperationTypeTokenRequest :: JSString+js_OperationTypeTokenRequest = "token-request"+js_OperationTypeSendRedemptionRecord :: JSString+js_OperationTypeSendRedemptionRecord = "send-redemption-record"+js_OperationTypeTokenRedemption :: JSString+js_OperationTypeTokenRedemption = "token-redemption"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OpusApplication> (webcodecs-opus-codec-registration)+data OpusApplication = OpusApplicationVoip+    | OpusApplicationAudio+    | OpusApplicationLowdelay+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OpusApplication where+  pToJSVal x = pToJSVal (case x of+    OpusApplicationVoip -> js_OpusApplicationVoip+    OpusApplicationAudio -> js_OpusApplicationAudio+    OpusApplicationLowdelay -> js_OpusApplicationLowdelay+    )++instance ToJSVal OpusApplication where+  toJSVal = P.return . pToJSVal++instance PFromJSVal OpusApplication where+  pFromJSVal x = P.maybe (P.error "Unexpected OpusApplication value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OpusApplicationVoip, OpusApplicationVoip), (js_OpusApplicationAudio, OpusApplicationAudio), (js_OpusApplicationLowdelay, OpusApplicationLowdelay)]++instance FromJSVal OpusApplication where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OpusApplicationVoip, OpusApplicationVoip), (js_OpusApplicationAudio, OpusApplicationAudio), (js_OpusApplicationLowdelay, OpusApplicationLowdelay)]+  fromJSValUnchecked = P.return . pFromJSVal++js_OpusApplicationVoip :: JSString+js_OpusApplicationVoip = "voip"+js_OpusApplicationAudio :: JSString+js_OpusApplicationAudio = "audio"+js_OpusApplicationLowdelay :: JSString+js_OpusApplicationLowdelay = "lowdelay"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OpusBitstreamFormat> (webcodecs-opus-codec-registration)+data OpusBitstreamFormat = OpusBitstreamFormatOpus+    | OpusBitstreamFormatOgg+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OpusBitstreamFormat where+  pToJSVal x = pToJSVal (case x of+    OpusBitstreamFormatOpus -> js_OpusBitstreamFormatOpus+    OpusBitstreamFormatOgg -> js_OpusBitstreamFormatOgg+    )++instance ToJSVal OpusBitstreamFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal OpusBitstreamFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected OpusBitstreamFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OpusBitstreamFormatOpus, OpusBitstreamFormatOpus), (js_OpusBitstreamFormatOgg, OpusBitstreamFormatOgg)]++instance FromJSVal OpusBitstreamFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OpusBitstreamFormatOpus, OpusBitstreamFormatOpus), (js_OpusBitstreamFormatOgg, OpusBitstreamFormatOgg)]+  fromJSValUnchecked = P.return . pFromJSVal++js_OpusBitstreamFormatOpus :: JSString+js_OpusBitstreamFormatOpus = "opus"+js_OpusBitstreamFormatOgg :: JSString+js_OpusBitstreamFormatOgg = "ogg"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OpusSignal> (webcodecs-opus-codec-registration)+data OpusSignal = OpusSignalAuto+    | OpusSignalMusic+    | OpusSignalVoice+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OpusSignal where+  pToJSVal x = pToJSVal (case x of+    OpusSignalAuto -> js_OpusSignalAuto+    OpusSignalMusic -> js_OpusSignalMusic+    OpusSignalVoice -> js_OpusSignalVoice+    )++instance ToJSVal OpusSignal where+  toJSVal = P.return . pToJSVal++instance PFromJSVal OpusSignal where+  pFromJSVal x = P.maybe (P.error "Unexpected OpusSignal value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OpusSignalAuto, OpusSignalAuto), (js_OpusSignalMusic, OpusSignalMusic), (js_OpusSignalVoice, OpusSignalVoice)]++instance FromJSVal OpusSignal where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OpusSignalAuto, OpusSignalAuto), (js_OpusSignalMusic, OpusSignalMusic), (js_OpusSignalVoice, OpusSignalVoice)]+  fromJSValUnchecked = P.return . pFromJSVal++js_OpusSignalAuto :: JSString+js_OpusSignalAuto = "auto"+js_OpusSignalMusic :: JSString+js_OpusSignalMusic = "music"+js_OpusSignalVoice :: JSString+js_OpusSignalVoice = "voice"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OrientationLockType> (screen-orientation)+data OrientationLockType = OrientationLockTypeAny+    | OrientationLockTypeNatural+    | OrientationLockTypeLandscape+    | OrientationLockTypePortrait+    | OrientationLockTypePortraitPrimary+    | OrientationLockTypePortraitSecondary+    | OrientationLockTypeLandscapePrimary+    | OrientationLockTypeLandscapeSecondary+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OrientationLockType where+  pToJSVal x = pToJSVal (case x of+    OrientationLockTypeAny -> js_OrientationLockTypeAny+    OrientationLockTypeNatural -> js_OrientationLockTypeNatural+    OrientationLockTypeLandscape -> js_OrientationLockTypeLandscape+    OrientationLockTypePortrait -> js_OrientationLockTypePortrait+    OrientationLockTypePortraitPrimary -> js_OrientationLockTypePortraitPrimary+    OrientationLockTypePortraitSecondary -> js_OrientationLockTypePortraitSecondary+    OrientationLockTypeLandscapePrimary -> js_OrientationLockTypeLandscapePrimary+    OrientationLockTypeLandscapeSecondary -> js_OrientationLockTypeLandscapeSecondary+    )++instance ToJSVal OrientationLockType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal OrientationLockType where+  pFromJSVal x = P.maybe (P.error "Unexpected OrientationLockType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OrientationLockTypeAny, OrientationLockTypeAny), (js_OrientationLockTypeNatural, OrientationLockTypeNatural), (js_OrientationLockTypeLandscape, OrientationLockTypeLandscape), (js_OrientationLockTypePortrait, OrientationLockTypePortrait), (js_OrientationLockTypePortraitPrimary, OrientationLockTypePortraitPrimary), (js_OrientationLockTypePortraitSecondary, OrientationLockTypePortraitSecondary), (js_OrientationLockTypeLandscapePrimary, OrientationLockTypeLandscapePrimary), (js_OrientationLockTypeLandscapeSecondary, OrientationLockTypeLandscapeSecondary)]++instance FromJSVal OrientationLockType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OrientationLockTypeAny, OrientationLockTypeAny), (js_OrientationLockTypeNatural, OrientationLockTypeNatural), (js_OrientationLockTypeLandscape, OrientationLockTypeLandscape), (js_OrientationLockTypePortrait, OrientationLockTypePortrait), (js_OrientationLockTypePortraitPrimary, OrientationLockTypePortraitPrimary), (js_OrientationLockTypePortraitSecondary, OrientationLockTypePortraitSecondary), (js_OrientationLockTypeLandscapePrimary, OrientationLockTypeLandscapePrimary), (js_OrientationLockTypeLandscapeSecondary, OrientationLockTypeLandscapeSecondary)]+  fromJSValUnchecked = P.return . pFromJSVal++js_OrientationLockTypeAny :: JSString+js_OrientationLockTypeAny = "any"+js_OrientationLockTypeNatural :: JSString+js_OrientationLockTypeNatural = "natural"+js_OrientationLockTypeLandscape :: JSString+js_OrientationLockTypeLandscape = "landscape"+js_OrientationLockTypePortrait :: JSString+js_OrientationLockTypePortrait = "portrait"+js_OrientationLockTypePortraitPrimary :: JSString+js_OrientationLockTypePortraitPrimary = "portrait-primary"+js_OrientationLockTypePortraitSecondary :: JSString+js_OrientationLockTypePortraitSecondary = "portrait-secondary"+js_OrientationLockTypeLandscapePrimary :: JSString+js_OrientationLockTypeLandscapePrimary = "landscape-primary"+js_OrientationLockTypeLandscapeSecondary :: JSString+js_OrientationLockTypeLandscapeSecondary = "landscape-secondary"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OrientationType> (screen-orientation)+data OrientationType = OrientationTypePortraitPrimary+    | OrientationTypePortraitSecondary+    | OrientationTypeLandscapePrimary+    | OrientationTypeLandscapeSecondary+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OrientationType where+  pToJSVal x = pToJSVal (case x of+    OrientationTypePortraitPrimary -> js_OrientationTypePortraitPrimary+    OrientationTypePortraitSecondary -> js_OrientationTypePortraitSecondary+    OrientationTypeLandscapePrimary -> js_OrientationTypeLandscapePrimary+    OrientationTypeLandscapeSecondary -> js_OrientationTypeLandscapeSecondary+    )++instance ToJSVal OrientationType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal OrientationType where+  pFromJSVal x = P.maybe (P.error "Unexpected OrientationType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OrientationTypePortraitPrimary, OrientationTypePortraitPrimary), (js_OrientationTypePortraitSecondary, OrientationTypePortraitSecondary), (js_OrientationTypeLandscapePrimary, OrientationTypeLandscapePrimary), (js_OrientationTypeLandscapeSecondary, OrientationTypeLandscapeSecondary)]++instance FromJSVal OrientationType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OrientationTypePortraitPrimary, OrientationTypePortraitPrimary), (js_OrientationTypePortraitSecondary, OrientationTypePortraitSecondary), (js_OrientationTypeLandscapePrimary, OrientationTypeLandscapePrimary), (js_OrientationTypeLandscapeSecondary, OrientationTypeLandscapeSecondary)]+  fromJSValUnchecked = P.return . pFromJSVal++js_OrientationTypePortraitPrimary :: JSString+js_OrientationTypePortraitPrimary = "portrait-primary"+js_OrientationTypePortraitSecondary :: JSString+js_OrientationTypePortraitSecondary = "portrait-secondary"+js_OrientationTypeLandscapePrimary :: JSString+js_OrientationTypeLandscapePrimary = "landscape-primary"+js_OrientationTypeLandscapeSecondary :: JSString+js_OrientationTypeLandscapeSecondary = "landscape-secondary"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OscillatorType> (webaudio-1.1)+data OscillatorType = OscillatorTypeSine+    | OscillatorTypeSquare+    | OscillatorTypeSawtooth+    | OscillatorTypeTriangle+    | OscillatorTypeCustom+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OscillatorType where+  pToJSVal x = pToJSVal (case x of+    OscillatorTypeSine -> js_OscillatorTypeSine+    OscillatorTypeSquare -> js_OscillatorTypeSquare+    OscillatorTypeSawtooth -> js_OscillatorTypeSawtooth+    OscillatorTypeTriangle -> js_OscillatorTypeTriangle+    OscillatorTypeCustom -> js_OscillatorTypeCustom+    )++instance ToJSVal OscillatorType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal OscillatorType where+  pFromJSVal x = P.maybe (P.error "Unexpected OscillatorType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OscillatorTypeSine, OscillatorTypeSine), (js_OscillatorTypeSquare, OscillatorTypeSquare), (js_OscillatorTypeSawtooth, OscillatorTypeSawtooth), (js_OscillatorTypeTriangle, OscillatorTypeTriangle), (js_OscillatorTypeCustom, OscillatorTypeCustom)]++instance FromJSVal OscillatorType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OscillatorTypeSine, OscillatorTypeSine), (js_OscillatorTypeSquare, OscillatorTypeSquare), (js_OscillatorTypeSawtooth, OscillatorTypeSawtooth), (js_OscillatorTypeTriangle, OscillatorTypeTriangle), (js_OscillatorTypeCustom, OscillatorTypeCustom)]+  fromJSValUnchecked = P.return . pFromJSVal++js_OscillatorTypeSine :: JSString+js_OscillatorTypeSine = "sine"+js_OscillatorTypeSquare :: JSString+js_OscillatorTypeSquare = "square"+js_OscillatorTypeSawtooth :: JSString+js_OscillatorTypeSawtooth = "sawtooth"+js_OscillatorTypeTriangle :: JSString+js_OscillatorTypeTriangle = "triangle"+js_OscillatorTypeCustom :: JSString+js_OscillatorTypeCustom = "custom"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OverSampleType> (webaudio-1.1)+data OverSampleType = OverSampleTypeNone+    | OverSampleType2x+    | OverSampleType4x+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OverSampleType where+  pToJSVal x = pToJSVal (case x of+    OverSampleTypeNone -> js_OverSampleTypeNone+    OverSampleType2x -> js_OverSampleType2x+    OverSampleType4x -> js_OverSampleType4x+    )++instance ToJSVal OverSampleType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal OverSampleType where+  pFromJSVal x = P.maybe (P.error "Unexpected OverSampleType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OverSampleTypeNone, OverSampleTypeNone), (js_OverSampleType2x, OverSampleType2x), (js_OverSampleType4x, OverSampleType4x)]++instance FromJSVal OverSampleType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_OverSampleTypeNone, OverSampleTypeNone), (js_OverSampleType2x, OverSampleType2x), (js_OverSampleType4x, OverSampleType4x)]+  fromJSValUnchecked = P.return . pFromJSVal++js_OverSampleTypeNone :: JSString+js_OverSampleTypeNone = "none"+js_OverSampleType2x :: JSString+js_OverSampleType2x = "2x"+js_OverSampleType4x :: JSString+js_OverSampleType4x = "4x"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PanningModelType> (webaudio-1.1)+data PanningModelType = PanningModelTypeEqualpower+    | PanningModelTypeHRTF+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PanningModelType where+  pToJSVal x = pToJSVal (case x of+    PanningModelTypeEqualpower -> js_PanningModelTypeEqualpower+    PanningModelTypeHRTF -> js_PanningModelTypeHRTF+    )++instance ToJSVal PanningModelType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal PanningModelType where+  pFromJSVal x = P.maybe (P.error "Unexpected PanningModelType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PanningModelTypeEqualpower, PanningModelTypeEqualpower), (js_PanningModelTypeHRTF, PanningModelTypeHRTF)]++instance FromJSVal PanningModelType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PanningModelTypeEqualpower, PanningModelTypeEqualpower), (js_PanningModelTypeHRTF, PanningModelTypeHRTF)]+  fromJSValUnchecked = P.return . pFromJSVal++js_PanningModelTypeEqualpower :: JSString+js_PanningModelTypeEqualpower = "equalpower"+js_PanningModelTypeHRTF :: JSString+js_PanningModelTypeHRTF = "HRTF"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ParityType> (serial)+data ParityType = ParityTypeNone+    | ParityTypeEven+    | ParityTypeOdd+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ParityType where+  pToJSVal x = pToJSVal (case x of+    ParityTypeNone -> js_ParityTypeNone+    ParityTypeEven -> js_ParityTypeEven+    ParityTypeOdd -> js_ParityTypeOdd+    )++instance ToJSVal ParityType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ParityType where+  pFromJSVal x = P.maybe (P.error "Unexpected ParityType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ParityTypeNone, ParityTypeNone), (js_ParityTypeEven, ParityTypeEven), (js_ParityTypeOdd, ParityTypeOdd)]++instance FromJSVal ParityType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ParityTypeNone, ParityTypeNone), (js_ParityTypeEven, ParityTypeEven), (js_ParityTypeOdd, ParityTypeOdd)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ParityTypeNone :: JSString+js_ParityTypeNone = "none"+js_ParityTypeEven :: JSString+js_ParityTypeEven = "even"+js_ParityTypeOdd :: JSString+js_ParityTypeOdd = "odd"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PaymentComplete> (payment-request)+data PaymentComplete = PaymentCompleteFail+    | PaymentCompleteSuccess+    | PaymentCompleteUnknown+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PaymentComplete where+  pToJSVal x = pToJSVal (case x of+    PaymentCompleteFail -> js_PaymentCompleteFail+    PaymentCompleteSuccess -> js_PaymentCompleteSuccess+    PaymentCompleteUnknown -> js_PaymentCompleteUnknown+    )++instance ToJSVal PaymentComplete where+  toJSVal = P.return . pToJSVal++instance PFromJSVal PaymentComplete where+  pFromJSVal x = P.maybe (P.error "Unexpected PaymentComplete value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PaymentCompleteFail, PaymentCompleteFail), (js_PaymentCompleteSuccess, PaymentCompleteSuccess), (js_PaymentCompleteUnknown, PaymentCompleteUnknown)]++instance FromJSVal PaymentComplete where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PaymentCompleteFail, PaymentCompleteFail), (js_PaymentCompleteSuccess, PaymentCompleteSuccess), (js_PaymentCompleteUnknown, PaymentCompleteUnknown)]+  fromJSValUnchecked = P.return . pFromJSVal++js_PaymentCompleteFail :: JSString+js_PaymentCompleteFail = "fail"+js_PaymentCompleteSuccess :: JSString+js_PaymentCompleteSuccess = "success"+js_PaymentCompleteUnknown :: JSString+js_PaymentCompleteUnknown = "unknown"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PaymentShippingType> (payment-request)+data PaymentShippingType = PaymentShippingTypeShipping+    | PaymentShippingTypeDelivery+    | PaymentShippingTypePickup+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PaymentShippingType where+  pToJSVal x = pToJSVal (case x of+    PaymentShippingTypeShipping -> js_PaymentShippingTypeShipping+    PaymentShippingTypeDelivery -> js_PaymentShippingTypeDelivery+    PaymentShippingTypePickup -> js_PaymentShippingTypePickup+    )++instance ToJSVal PaymentShippingType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal PaymentShippingType where+  pFromJSVal x = P.maybe (P.error "Unexpected PaymentShippingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PaymentShippingTypeShipping, PaymentShippingTypeShipping), (js_PaymentShippingTypeDelivery, PaymentShippingTypeDelivery), (js_PaymentShippingTypePickup, PaymentShippingTypePickup)]++instance FromJSVal PaymentShippingType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PaymentShippingTypeShipping, PaymentShippingTypeShipping), (js_PaymentShippingTypeDelivery, PaymentShippingTypeDelivery), (js_PaymentShippingTypePickup, PaymentShippingTypePickup)]+  fromJSValUnchecked = P.return . pFromJSVal++js_PaymentShippingTypeShipping :: JSString+js_PaymentShippingTypeShipping = "shipping"+js_PaymentShippingTypeDelivery :: JSString+js_PaymentShippingTypeDelivery = "delivery"+js_PaymentShippingTypePickup :: JSString+js_PaymentShippingTypePickup = "pickup"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PermissionState> (permissions)+data PermissionState = PermissionStateGranted+    | PermissionStateDenied+    | PermissionStatePrompt+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PermissionState where+  pToJSVal x = pToJSVal (case x of+    PermissionStateGranted -> js_PermissionStateGranted+    PermissionStateDenied -> js_PermissionStateDenied+    PermissionStatePrompt -> js_PermissionStatePrompt+    )++instance ToJSVal PermissionState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal PermissionState where+  pFromJSVal x = P.maybe (P.error "Unexpected PermissionState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PermissionStateGranted, PermissionStateGranted), (js_PermissionStateDenied, PermissionStateDenied), (js_PermissionStatePrompt, PermissionStatePrompt)]++instance FromJSVal PermissionState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PermissionStateGranted, PermissionStateGranted), (js_PermissionStateDenied, PermissionStateDenied), (js_PermissionStatePrompt, PermissionStatePrompt)]+  fromJSValUnchecked = P.return . pFromJSVal++js_PermissionStateGranted :: JSString+js_PermissionStateGranted = "granted"+js_PermissionStateDenied :: JSString+js_PermissionStateDenied = "denied"+js_PermissionStatePrompt :: JSString+js_PermissionStatePrompt = "prompt"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PlaybackDirection> (web-animations-1)+data PlaybackDirection = PlaybackDirectionNormal+    | PlaybackDirectionReverse+    | PlaybackDirectionAlternate+    | PlaybackDirectionAlternateReverse+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PlaybackDirection where+  pToJSVal x = pToJSVal (case x of+    PlaybackDirectionNormal -> js_PlaybackDirectionNormal+    PlaybackDirectionReverse -> js_PlaybackDirectionReverse+    PlaybackDirectionAlternate -> js_PlaybackDirectionAlternate+    PlaybackDirectionAlternateReverse -> js_PlaybackDirectionAlternateReverse+    )++instance ToJSVal PlaybackDirection where+  toJSVal = P.return . pToJSVal++instance PFromJSVal PlaybackDirection where+  pFromJSVal x = P.maybe (P.error "Unexpected PlaybackDirection value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PlaybackDirectionNormal, PlaybackDirectionNormal), (js_PlaybackDirectionReverse, PlaybackDirectionReverse), (js_PlaybackDirectionAlternate, PlaybackDirectionAlternate), (js_PlaybackDirectionAlternateReverse, PlaybackDirectionAlternateReverse)]++instance FromJSVal PlaybackDirection where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PlaybackDirectionNormal, PlaybackDirectionNormal), (js_PlaybackDirectionReverse, PlaybackDirectionReverse), (js_PlaybackDirectionAlternate, PlaybackDirectionAlternate), (js_PlaybackDirectionAlternateReverse, PlaybackDirectionAlternateReverse)]+  fromJSValUnchecked = P.return . pFromJSVal++js_PlaybackDirectionNormal :: JSString+js_PlaybackDirectionNormal = "normal"+js_PlaybackDirectionReverse :: JSString+js_PlaybackDirectionReverse = "reverse"+js_PlaybackDirectionAlternate :: JSString+js_PlaybackDirectionAlternate = "alternate"+js_PlaybackDirectionAlternateReverse :: JSString+js_PlaybackDirectionAlternateReverse = "alternate-reverse"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PositionAlignSetting> (webvtt1)+data PositionAlignSetting = PositionAlignSettingLineLeft+    | PositionAlignSettingCenter+    | PositionAlignSettingLineRight+    | PositionAlignSettingAuto+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PositionAlignSetting where+  pToJSVal x = pToJSVal (case x of+    PositionAlignSettingLineLeft -> js_PositionAlignSettingLineLeft+    PositionAlignSettingCenter -> js_PositionAlignSettingCenter+    PositionAlignSettingLineRight -> js_PositionAlignSettingLineRight+    PositionAlignSettingAuto -> js_PositionAlignSettingAuto+    )++instance ToJSVal PositionAlignSetting where+  toJSVal = P.return . pToJSVal++instance PFromJSVal PositionAlignSetting where+  pFromJSVal x = P.maybe (P.error "Unexpected PositionAlignSetting value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PositionAlignSettingLineLeft, PositionAlignSettingLineLeft), (js_PositionAlignSettingCenter, PositionAlignSettingCenter), (js_PositionAlignSettingLineRight, PositionAlignSettingLineRight), (js_PositionAlignSettingAuto, PositionAlignSettingAuto)]++instance FromJSVal PositionAlignSetting where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PositionAlignSettingLineLeft, PositionAlignSettingLineLeft), (js_PositionAlignSettingCenter, PositionAlignSettingCenter), (js_PositionAlignSettingLineRight, PositionAlignSettingLineRight), (js_PositionAlignSettingAuto, PositionAlignSettingAuto)]+  fromJSValUnchecked = P.return . pFromJSVal++js_PositionAlignSettingLineLeft :: JSString+js_PositionAlignSettingLineLeft = "line-left"+js_PositionAlignSettingCenter :: JSString+js_PositionAlignSettingCenter = "center"+js_PositionAlignSettingLineRight :: JSString+js_PositionAlignSettingLineRight = "line-right"+js_PositionAlignSettingAuto :: JSString+js_PositionAlignSettingAuto = "auto"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PredefinedColorSpace> (html)+data PredefinedColorSpace = PredefinedColorSpaceSrgb+    | PredefinedColorSpaceSrgbLinear+    | PredefinedColorSpaceDisplayP3+    | PredefinedColorSpaceDisplayP3Linear+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PredefinedColorSpace where+  pToJSVal x = pToJSVal (case x of+    PredefinedColorSpaceSrgb -> js_PredefinedColorSpaceSrgb+    PredefinedColorSpaceSrgbLinear -> js_PredefinedColorSpaceSrgbLinear+    PredefinedColorSpaceDisplayP3 -> js_PredefinedColorSpaceDisplayP3+    PredefinedColorSpaceDisplayP3Linear -> js_PredefinedColorSpaceDisplayP3Linear+    )++instance ToJSVal PredefinedColorSpace where+  toJSVal = P.return . pToJSVal++instance PFromJSVal PredefinedColorSpace where+  pFromJSVal x = P.maybe (P.error "Unexpected PredefinedColorSpace value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PredefinedColorSpaceSrgb, PredefinedColorSpaceSrgb), (js_PredefinedColorSpaceSrgbLinear, PredefinedColorSpaceSrgbLinear), (js_PredefinedColorSpaceDisplayP3, PredefinedColorSpaceDisplayP3), (js_PredefinedColorSpaceDisplayP3Linear, PredefinedColorSpaceDisplayP3Linear)]++instance FromJSVal PredefinedColorSpace where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PredefinedColorSpaceSrgb, PredefinedColorSpaceSrgb), (js_PredefinedColorSpaceSrgbLinear, PredefinedColorSpaceSrgbLinear), (js_PredefinedColorSpaceDisplayP3, PredefinedColorSpaceDisplayP3), (js_PredefinedColorSpaceDisplayP3Linear, PredefinedColorSpaceDisplayP3Linear)]+  fromJSValUnchecked = P.return . pFromJSVal++js_PredefinedColorSpaceSrgb :: JSString+js_PredefinedColorSpaceSrgb = "srgb"+js_PredefinedColorSpaceSrgbLinear :: JSString+js_PredefinedColorSpaceSrgbLinear = "srgb-linear"+js_PredefinedColorSpaceDisplayP3 :: JSString+js_PredefinedColorSpaceDisplayP3 = "display-p3"+js_PredefinedColorSpaceDisplayP3Linear :: JSString+js_PredefinedColorSpaceDisplayP3Linear = "display-p3-linear"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PresentationStyle> (clipboard-apis)+data PresentationStyle = PresentationStyleUnspecified+    | PresentationStyleInline+    | PresentationStyleAttachment+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PresentationStyle where+  pToJSVal x = pToJSVal (case x of+    PresentationStyleUnspecified -> js_PresentationStyleUnspecified+    PresentationStyleInline -> js_PresentationStyleInline+    PresentationStyleAttachment -> js_PresentationStyleAttachment+    )++instance ToJSVal PresentationStyle where+  toJSVal = P.return . pToJSVal++instance PFromJSVal PresentationStyle where+  pFromJSVal x = P.maybe (P.error "Unexpected PresentationStyle value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PresentationStyleUnspecified, PresentationStyleUnspecified), (js_PresentationStyleInline, PresentationStyleInline), (js_PresentationStyleAttachment, PresentationStyleAttachment)]++instance FromJSVal PresentationStyle where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PresentationStyleUnspecified, PresentationStyleUnspecified), (js_PresentationStyleInline, PresentationStyleInline), (js_PresentationStyleAttachment, PresentationStyleAttachment)]+  fromJSValUnchecked = P.return . pFromJSVal++js_PresentationStyleUnspecified :: JSString+js_PresentationStyleUnspecified = "unspecified"+js_PresentationStyleInline :: JSString+js_PresentationStyleInline = "inline"+js_PresentationStyleAttachment :: JSString+js_PresentationStyleAttachment = "attachment"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PushEncryptionKeyName> (push-api)+data PushEncryptionKeyName = PushEncryptionKeyNameP256dh+    | PushEncryptionKeyNameAuth+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PushEncryptionKeyName where+  pToJSVal x = pToJSVal (case x of+    PushEncryptionKeyNameP256dh -> js_PushEncryptionKeyNameP256dh+    PushEncryptionKeyNameAuth -> js_PushEncryptionKeyNameAuth+    )++instance ToJSVal PushEncryptionKeyName where+  toJSVal = P.return . pToJSVal++instance PFromJSVal PushEncryptionKeyName where+  pFromJSVal x = P.maybe (P.error "Unexpected PushEncryptionKeyName value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PushEncryptionKeyNameP256dh, PushEncryptionKeyNameP256dh), (js_PushEncryptionKeyNameAuth, PushEncryptionKeyNameAuth)]++instance FromJSVal PushEncryptionKeyName where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_PushEncryptionKeyNameP256dh, PushEncryptionKeyNameP256dh), (js_PushEncryptionKeyNameAuth, PushEncryptionKeyNameAuth)]+  fromJSValUnchecked = P.return . pFromJSVal++js_PushEncryptionKeyNameP256dh :: JSString+js_PushEncryptionKeyNameP256dh = "p256dh"+js_PushEncryptionKeyNameAuth :: JSString+js_PushEncryptionKeyNameAuth = "auth"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCBundlePolicy> (webrtc)+data RTCBundlePolicy = RTCBundlePolicyBalanced+    | RTCBundlePolicyMaxCompat+    | RTCBundlePolicyMaxBundle+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCBundlePolicy where+  pToJSVal x = pToJSVal (case x of+    RTCBundlePolicyBalanced -> js_RTCBundlePolicyBalanced+    RTCBundlePolicyMaxCompat -> js_RTCBundlePolicyMaxCompat+    RTCBundlePolicyMaxBundle -> js_RTCBundlePolicyMaxBundle+    )++instance ToJSVal RTCBundlePolicy where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCBundlePolicy where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCBundlePolicy value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCBundlePolicyBalanced, RTCBundlePolicyBalanced), (js_RTCBundlePolicyMaxCompat, RTCBundlePolicyMaxCompat), (js_RTCBundlePolicyMaxBundle, RTCBundlePolicyMaxBundle)]++instance FromJSVal RTCBundlePolicy where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCBundlePolicyBalanced, RTCBundlePolicyBalanced), (js_RTCBundlePolicyMaxCompat, RTCBundlePolicyMaxCompat), (js_RTCBundlePolicyMaxBundle, RTCBundlePolicyMaxBundle)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCBundlePolicyBalanced :: JSString+js_RTCBundlePolicyBalanced = "balanced"+js_RTCBundlePolicyMaxCompat :: JSString+js_RTCBundlePolicyMaxCompat = "max-compat"+js_RTCBundlePolicyMaxBundle :: JSString+js_RTCBundlePolicyMaxBundle = "max-bundle"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCDataChannelState> (webrtc)+data RTCDataChannelState = RTCDataChannelStateConnecting+    | RTCDataChannelStateOpen+    | RTCDataChannelStateClosing+    | RTCDataChannelStateClosed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCDataChannelState where+  pToJSVal x = pToJSVal (case x of+    RTCDataChannelStateConnecting -> js_RTCDataChannelStateConnecting+    RTCDataChannelStateOpen -> js_RTCDataChannelStateOpen+    RTCDataChannelStateClosing -> js_RTCDataChannelStateClosing+    RTCDataChannelStateClosed -> js_RTCDataChannelStateClosed+    )++instance ToJSVal RTCDataChannelState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCDataChannelState where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCDataChannelState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCDataChannelStateConnecting, RTCDataChannelStateConnecting), (js_RTCDataChannelStateOpen, RTCDataChannelStateOpen), (js_RTCDataChannelStateClosing, RTCDataChannelStateClosing), (js_RTCDataChannelStateClosed, RTCDataChannelStateClosed)]++instance FromJSVal RTCDataChannelState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCDataChannelStateConnecting, RTCDataChannelStateConnecting), (js_RTCDataChannelStateOpen, RTCDataChannelStateOpen), (js_RTCDataChannelStateClosing, RTCDataChannelStateClosing), (js_RTCDataChannelStateClosed, RTCDataChannelStateClosed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCDataChannelStateConnecting :: JSString+js_RTCDataChannelStateConnecting = "connecting"+js_RTCDataChannelStateOpen :: JSString+js_RTCDataChannelStateOpen = "open"+js_RTCDataChannelStateClosing :: JSString+js_RTCDataChannelStateClosing = "closing"+js_RTCDataChannelStateClosed :: JSString+js_RTCDataChannelStateClosed = "closed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCDegradationPreference> (mst-content-hint)+data RTCDegradationPreference = RTCDegradationPreferenceMaintainFramerate+    | RTCDegradationPreferenceMaintainResolution+    | RTCDegradationPreferenceBalanced+    | RTCDegradationPreferenceMaintainFramerateAndResolution+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCDegradationPreference where+  pToJSVal x = pToJSVal (case x of+    RTCDegradationPreferenceMaintainFramerate -> js_RTCDegradationPreferenceMaintainFramerate+    RTCDegradationPreferenceMaintainResolution -> js_RTCDegradationPreferenceMaintainResolution+    RTCDegradationPreferenceBalanced -> js_RTCDegradationPreferenceBalanced+    RTCDegradationPreferenceMaintainFramerateAndResolution -> js_RTCDegradationPreferenceMaintainFramerateAndResolution+    )++instance ToJSVal RTCDegradationPreference where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCDegradationPreference where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCDegradationPreference value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCDegradationPreferenceMaintainFramerate, RTCDegradationPreferenceMaintainFramerate), (js_RTCDegradationPreferenceMaintainResolution, RTCDegradationPreferenceMaintainResolution), (js_RTCDegradationPreferenceBalanced, RTCDegradationPreferenceBalanced), (js_RTCDegradationPreferenceMaintainFramerateAndResolution, RTCDegradationPreferenceMaintainFramerateAndResolution)]++instance FromJSVal RTCDegradationPreference where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCDegradationPreferenceMaintainFramerate, RTCDegradationPreferenceMaintainFramerate), (js_RTCDegradationPreferenceMaintainResolution, RTCDegradationPreferenceMaintainResolution), (js_RTCDegradationPreferenceBalanced, RTCDegradationPreferenceBalanced), (js_RTCDegradationPreferenceMaintainFramerateAndResolution, RTCDegradationPreferenceMaintainFramerateAndResolution)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCDegradationPreferenceMaintainFramerate :: JSString+js_RTCDegradationPreferenceMaintainFramerate = "maintain-framerate"+js_RTCDegradationPreferenceMaintainResolution :: JSString+js_RTCDegradationPreferenceMaintainResolution = "maintain-resolution"+js_RTCDegradationPreferenceBalanced :: JSString+js_RTCDegradationPreferenceBalanced = "balanced"+js_RTCDegradationPreferenceMaintainFramerateAndResolution :: JSString+js_RTCDegradationPreferenceMaintainFramerateAndResolution = "maintain-framerate-and-resolution"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCDtlsTransportState> (webrtc)+data RTCDtlsTransportState = RTCDtlsTransportStateNew+    | RTCDtlsTransportStateConnecting+    | RTCDtlsTransportStateConnected+    | RTCDtlsTransportStateClosed+    | RTCDtlsTransportStateFailed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCDtlsTransportState where+  pToJSVal x = pToJSVal (case x of+    RTCDtlsTransportStateNew -> js_RTCDtlsTransportStateNew+    RTCDtlsTransportStateConnecting -> js_RTCDtlsTransportStateConnecting+    RTCDtlsTransportStateConnected -> js_RTCDtlsTransportStateConnected+    RTCDtlsTransportStateClosed -> js_RTCDtlsTransportStateClosed+    RTCDtlsTransportStateFailed -> js_RTCDtlsTransportStateFailed+    )++instance ToJSVal RTCDtlsTransportState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCDtlsTransportState where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCDtlsTransportState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCDtlsTransportStateNew, RTCDtlsTransportStateNew), (js_RTCDtlsTransportStateConnecting, RTCDtlsTransportStateConnecting), (js_RTCDtlsTransportStateConnected, RTCDtlsTransportStateConnected), (js_RTCDtlsTransportStateClosed, RTCDtlsTransportStateClosed), (js_RTCDtlsTransportStateFailed, RTCDtlsTransportStateFailed)]++instance FromJSVal RTCDtlsTransportState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCDtlsTransportStateNew, RTCDtlsTransportStateNew), (js_RTCDtlsTransportStateConnecting, RTCDtlsTransportStateConnecting), (js_RTCDtlsTransportStateConnected, RTCDtlsTransportStateConnected), (js_RTCDtlsTransportStateClosed, RTCDtlsTransportStateClosed), (js_RTCDtlsTransportStateFailed, RTCDtlsTransportStateFailed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCDtlsTransportStateNew :: JSString+js_RTCDtlsTransportStateNew = "new"+js_RTCDtlsTransportStateConnecting :: JSString+js_RTCDtlsTransportStateConnecting = "connecting"+js_RTCDtlsTransportStateConnected :: JSString+js_RTCDtlsTransportStateConnected = "connected"+js_RTCDtlsTransportStateClosed :: JSString+js_RTCDtlsTransportStateClosed = "closed"+js_RTCDtlsTransportStateFailed :: JSString+js_RTCDtlsTransportStateFailed = "failed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCErrorDetailType> (webrtc)+data RTCErrorDetailType = RTCErrorDetailTypeDataChannelFailure+    | RTCErrorDetailTypeDtlsFailure+    | RTCErrorDetailTypeFingerprintFailure+    | RTCErrorDetailTypeSctpFailure+    | RTCErrorDetailTypeSdpSyntaxError+    | RTCErrorDetailTypeHardwareEncoderNotAvailable+    | RTCErrorDetailTypeHardwareEncoderError+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCErrorDetailType where+  pToJSVal x = pToJSVal (case x of+    RTCErrorDetailTypeDataChannelFailure -> js_RTCErrorDetailTypeDataChannelFailure+    RTCErrorDetailTypeDtlsFailure -> js_RTCErrorDetailTypeDtlsFailure+    RTCErrorDetailTypeFingerprintFailure -> js_RTCErrorDetailTypeFingerprintFailure+    RTCErrorDetailTypeSctpFailure -> js_RTCErrorDetailTypeSctpFailure+    RTCErrorDetailTypeSdpSyntaxError -> js_RTCErrorDetailTypeSdpSyntaxError+    RTCErrorDetailTypeHardwareEncoderNotAvailable -> js_RTCErrorDetailTypeHardwareEncoderNotAvailable+    RTCErrorDetailTypeHardwareEncoderError -> js_RTCErrorDetailTypeHardwareEncoderError+    )++instance ToJSVal RTCErrorDetailType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCErrorDetailType where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCErrorDetailType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCErrorDetailTypeDataChannelFailure, RTCErrorDetailTypeDataChannelFailure), (js_RTCErrorDetailTypeDtlsFailure, RTCErrorDetailTypeDtlsFailure), (js_RTCErrorDetailTypeFingerprintFailure, RTCErrorDetailTypeFingerprintFailure), (js_RTCErrorDetailTypeSctpFailure, RTCErrorDetailTypeSctpFailure), (js_RTCErrorDetailTypeSdpSyntaxError, RTCErrorDetailTypeSdpSyntaxError), (js_RTCErrorDetailTypeHardwareEncoderNotAvailable, RTCErrorDetailTypeHardwareEncoderNotAvailable), (js_RTCErrorDetailTypeHardwareEncoderError, RTCErrorDetailTypeHardwareEncoderError)]++instance FromJSVal RTCErrorDetailType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCErrorDetailTypeDataChannelFailure, RTCErrorDetailTypeDataChannelFailure), (js_RTCErrorDetailTypeDtlsFailure, RTCErrorDetailTypeDtlsFailure), (js_RTCErrorDetailTypeFingerprintFailure, RTCErrorDetailTypeFingerprintFailure), (js_RTCErrorDetailTypeSctpFailure, RTCErrorDetailTypeSctpFailure), (js_RTCErrorDetailTypeSdpSyntaxError, RTCErrorDetailTypeSdpSyntaxError), (js_RTCErrorDetailTypeHardwareEncoderNotAvailable, RTCErrorDetailTypeHardwareEncoderNotAvailable), (js_RTCErrorDetailTypeHardwareEncoderError, RTCErrorDetailTypeHardwareEncoderError)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCErrorDetailTypeDataChannelFailure :: JSString+js_RTCErrorDetailTypeDataChannelFailure = "data-channel-failure"+js_RTCErrorDetailTypeDtlsFailure :: JSString+js_RTCErrorDetailTypeDtlsFailure = "dtls-failure"+js_RTCErrorDetailTypeFingerprintFailure :: JSString+js_RTCErrorDetailTypeFingerprintFailure = "fingerprint-failure"+js_RTCErrorDetailTypeSctpFailure :: JSString+js_RTCErrorDetailTypeSctpFailure = "sctp-failure"+js_RTCErrorDetailTypeSdpSyntaxError :: JSString+js_RTCErrorDetailTypeSdpSyntaxError = "sdp-syntax-error"+js_RTCErrorDetailTypeHardwareEncoderNotAvailable :: JSString+js_RTCErrorDetailTypeHardwareEncoderNotAvailable = "hardware-encoder-not-available"+js_RTCErrorDetailTypeHardwareEncoderError :: JSString+js_RTCErrorDetailTypeHardwareEncoderError = "hardware-encoder-error"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceCandidateType> (webrtc)+data RTCIceCandidateType = RTCIceCandidateTypeHost+    | RTCIceCandidateTypeSrflx+    | RTCIceCandidateTypePrflx+    | RTCIceCandidateTypeRelay+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceCandidateType where+  pToJSVal x = pToJSVal (case x of+    RTCIceCandidateTypeHost -> js_RTCIceCandidateTypeHost+    RTCIceCandidateTypeSrflx -> js_RTCIceCandidateTypeSrflx+    RTCIceCandidateTypePrflx -> js_RTCIceCandidateTypePrflx+    RTCIceCandidateTypeRelay -> js_RTCIceCandidateTypeRelay+    )++instance ToJSVal RTCIceCandidateType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceCandidateType where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceCandidateType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceCandidateTypeHost, RTCIceCandidateTypeHost), (js_RTCIceCandidateTypeSrflx, RTCIceCandidateTypeSrflx), (js_RTCIceCandidateTypePrflx, RTCIceCandidateTypePrflx), (js_RTCIceCandidateTypeRelay, RTCIceCandidateTypeRelay)]++instance FromJSVal RTCIceCandidateType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceCandidateTypeHost, RTCIceCandidateTypeHost), (js_RTCIceCandidateTypeSrflx, RTCIceCandidateTypeSrflx), (js_RTCIceCandidateTypePrflx, RTCIceCandidateTypePrflx), (js_RTCIceCandidateTypeRelay, RTCIceCandidateTypeRelay)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceCandidateTypeHost :: JSString+js_RTCIceCandidateTypeHost = "host"+js_RTCIceCandidateTypeSrflx :: JSString+js_RTCIceCandidateTypeSrflx = "srflx"+js_RTCIceCandidateTypePrflx :: JSString+js_RTCIceCandidateTypePrflx = "prflx"+js_RTCIceCandidateTypeRelay :: JSString+js_RTCIceCandidateTypeRelay = "relay"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceComponent> (webrtc)+data RTCIceComponent = RTCIceComponentRtp+    | RTCIceComponentRtcp+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceComponent where+  pToJSVal x = pToJSVal (case x of+    RTCIceComponentRtp -> js_RTCIceComponentRtp+    RTCIceComponentRtcp -> js_RTCIceComponentRtcp+    )++instance ToJSVal RTCIceComponent where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceComponent where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceComponent value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceComponentRtp, RTCIceComponentRtp), (js_RTCIceComponentRtcp, RTCIceComponentRtcp)]++instance FromJSVal RTCIceComponent where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceComponentRtp, RTCIceComponentRtp), (js_RTCIceComponentRtcp, RTCIceComponentRtcp)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceComponentRtp :: JSString+js_RTCIceComponentRtp = "rtp"+js_RTCIceComponentRtcp :: JSString+js_RTCIceComponentRtcp = "rtcp"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceConnectionState> (webrtc)+data RTCIceConnectionState = RTCIceConnectionStateClosed+    | RTCIceConnectionStateFailed+    | RTCIceConnectionStateDisconnected+    | RTCIceConnectionStateNew+    | RTCIceConnectionStateChecking+    | RTCIceConnectionStateCompleted+    | RTCIceConnectionStateConnected+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceConnectionState where+  pToJSVal x = pToJSVal (case x of+    RTCIceConnectionStateClosed -> js_RTCIceConnectionStateClosed+    RTCIceConnectionStateFailed -> js_RTCIceConnectionStateFailed+    RTCIceConnectionStateDisconnected -> js_RTCIceConnectionStateDisconnected+    RTCIceConnectionStateNew -> js_RTCIceConnectionStateNew+    RTCIceConnectionStateChecking -> js_RTCIceConnectionStateChecking+    RTCIceConnectionStateCompleted -> js_RTCIceConnectionStateCompleted+    RTCIceConnectionStateConnected -> js_RTCIceConnectionStateConnected+    )++instance ToJSVal RTCIceConnectionState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceConnectionState where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceConnectionState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceConnectionStateClosed, RTCIceConnectionStateClosed), (js_RTCIceConnectionStateFailed, RTCIceConnectionStateFailed), (js_RTCIceConnectionStateDisconnected, RTCIceConnectionStateDisconnected), (js_RTCIceConnectionStateNew, RTCIceConnectionStateNew), (js_RTCIceConnectionStateChecking, RTCIceConnectionStateChecking), (js_RTCIceConnectionStateCompleted, RTCIceConnectionStateCompleted), (js_RTCIceConnectionStateConnected, RTCIceConnectionStateConnected)]++instance FromJSVal RTCIceConnectionState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceConnectionStateClosed, RTCIceConnectionStateClosed), (js_RTCIceConnectionStateFailed, RTCIceConnectionStateFailed), (js_RTCIceConnectionStateDisconnected, RTCIceConnectionStateDisconnected), (js_RTCIceConnectionStateNew, RTCIceConnectionStateNew), (js_RTCIceConnectionStateChecking, RTCIceConnectionStateChecking), (js_RTCIceConnectionStateCompleted, RTCIceConnectionStateCompleted), (js_RTCIceConnectionStateConnected, RTCIceConnectionStateConnected)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceConnectionStateClosed :: JSString+js_RTCIceConnectionStateClosed = "closed"+js_RTCIceConnectionStateFailed :: JSString+js_RTCIceConnectionStateFailed = "failed"+js_RTCIceConnectionStateDisconnected :: JSString+js_RTCIceConnectionStateDisconnected = "disconnected"+js_RTCIceConnectionStateNew :: JSString+js_RTCIceConnectionStateNew = "new"+js_RTCIceConnectionStateChecking :: JSString+js_RTCIceConnectionStateChecking = "checking"+js_RTCIceConnectionStateCompleted :: JSString+js_RTCIceConnectionStateCompleted = "completed"+js_RTCIceConnectionStateConnected :: JSString+js_RTCIceConnectionStateConnected = "connected"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceGathererState> (webrtc)+data RTCIceGathererState = RTCIceGathererStateNew+    | RTCIceGathererStateGathering+    | RTCIceGathererStateComplete+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceGathererState where+  pToJSVal x = pToJSVal (case x of+    RTCIceGathererStateNew -> js_RTCIceGathererStateNew+    RTCIceGathererStateGathering -> js_RTCIceGathererStateGathering+    RTCIceGathererStateComplete -> js_RTCIceGathererStateComplete+    )++instance ToJSVal RTCIceGathererState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceGathererState where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceGathererState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceGathererStateNew, RTCIceGathererStateNew), (js_RTCIceGathererStateGathering, RTCIceGathererStateGathering), (js_RTCIceGathererStateComplete, RTCIceGathererStateComplete)]++instance FromJSVal RTCIceGathererState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceGathererStateNew, RTCIceGathererStateNew), (js_RTCIceGathererStateGathering, RTCIceGathererStateGathering), (js_RTCIceGathererStateComplete, RTCIceGathererStateComplete)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceGathererStateNew :: JSString+js_RTCIceGathererStateNew = "new"+js_RTCIceGathererStateGathering :: JSString+js_RTCIceGathererStateGathering = "gathering"+js_RTCIceGathererStateComplete :: JSString+js_RTCIceGathererStateComplete = "complete"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceGatheringState> (webrtc)+data RTCIceGatheringState = RTCIceGatheringStateNew+    | RTCIceGatheringStateGathering+    | RTCIceGatheringStateComplete+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceGatheringState where+  pToJSVal x = pToJSVal (case x of+    RTCIceGatheringStateNew -> js_RTCIceGatheringStateNew+    RTCIceGatheringStateGathering -> js_RTCIceGatheringStateGathering+    RTCIceGatheringStateComplete -> js_RTCIceGatheringStateComplete+    )++instance ToJSVal RTCIceGatheringState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceGatheringState where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceGatheringState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceGatheringStateNew, RTCIceGatheringStateNew), (js_RTCIceGatheringStateGathering, RTCIceGatheringStateGathering), (js_RTCIceGatheringStateComplete, RTCIceGatheringStateComplete)]++instance FromJSVal RTCIceGatheringState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceGatheringStateNew, RTCIceGatheringStateNew), (js_RTCIceGatheringStateGathering, RTCIceGatheringStateGathering), (js_RTCIceGatheringStateComplete, RTCIceGatheringStateComplete)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceGatheringStateNew :: JSString+js_RTCIceGatheringStateNew = "new"+js_RTCIceGatheringStateGathering :: JSString+js_RTCIceGatheringStateGathering = "gathering"+js_RTCIceGatheringStateComplete :: JSString+js_RTCIceGatheringStateComplete = "complete"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceProtocol> (webrtc)+data RTCIceProtocol = RTCIceProtocolUdp+    | RTCIceProtocolTcp+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceProtocol where+  pToJSVal x = pToJSVal (case x of+    RTCIceProtocolUdp -> js_RTCIceProtocolUdp+    RTCIceProtocolTcp -> js_RTCIceProtocolTcp+    )++instance ToJSVal RTCIceProtocol where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceProtocol where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceProtocol value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceProtocolUdp, RTCIceProtocolUdp), (js_RTCIceProtocolTcp, RTCIceProtocolTcp)]++instance FromJSVal RTCIceProtocol where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceProtocolUdp, RTCIceProtocolUdp), (js_RTCIceProtocolTcp, RTCIceProtocolTcp)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceProtocolUdp :: JSString+js_RTCIceProtocolUdp = "udp"+js_RTCIceProtocolTcp :: JSString+js_RTCIceProtocolTcp = "tcp"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceRole> (webrtc)+data RTCIceRole = RTCIceRoleUnknown+    | RTCIceRoleControlling+    | RTCIceRoleControlled+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceRole where+  pToJSVal x = pToJSVal (case x of+    RTCIceRoleUnknown -> js_RTCIceRoleUnknown+    RTCIceRoleControlling -> js_RTCIceRoleControlling+    RTCIceRoleControlled -> js_RTCIceRoleControlled+    )++instance ToJSVal RTCIceRole where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceRole where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceRole value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceRoleUnknown, RTCIceRoleUnknown), (js_RTCIceRoleControlling, RTCIceRoleControlling), (js_RTCIceRoleControlled, RTCIceRoleControlled)]++instance FromJSVal RTCIceRole where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceRoleUnknown, RTCIceRoleUnknown), (js_RTCIceRoleControlling, RTCIceRoleControlling), (js_RTCIceRoleControlled, RTCIceRoleControlled)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceRoleUnknown :: JSString+js_RTCIceRoleUnknown = "unknown"+js_RTCIceRoleControlling :: JSString+js_RTCIceRoleControlling = "controlling"+js_RTCIceRoleControlled :: JSString+js_RTCIceRoleControlled = "controlled"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceServerTransportProtocol> (webrtc)+data RTCIceServerTransportProtocol = RTCIceServerTransportProtocolUdp+    | RTCIceServerTransportProtocolTcp+    | RTCIceServerTransportProtocolTls+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceServerTransportProtocol where+  pToJSVal x = pToJSVal (case x of+    RTCIceServerTransportProtocolUdp -> js_RTCIceServerTransportProtocolUdp+    RTCIceServerTransportProtocolTcp -> js_RTCIceServerTransportProtocolTcp+    RTCIceServerTransportProtocolTls -> js_RTCIceServerTransportProtocolTls+    )++instance ToJSVal RTCIceServerTransportProtocol where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceServerTransportProtocol where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceServerTransportProtocol value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceServerTransportProtocolUdp, RTCIceServerTransportProtocolUdp), (js_RTCIceServerTransportProtocolTcp, RTCIceServerTransportProtocolTcp), (js_RTCIceServerTransportProtocolTls, RTCIceServerTransportProtocolTls)]++instance FromJSVal RTCIceServerTransportProtocol where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceServerTransportProtocolUdp, RTCIceServerTransportProtocolUdp), (js_RTCIceServerTransportProtocolTcp, RTCIceServerTransportProtocolTcp), (js_RTCIceServerTransportProtocolTls, RTCIceServerTransportProtocolTls)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceServerTransportProtocolUdp :: JSString+js_RTCIceServerTransportProtocolUdp = "udp"+js_RTCIceServerTransportProtocolTcp :: JSString+js_RTCIceServerTransportProtocolTcp = "tcp"+js_RTCIceServerTransportProtocolTls :: JSString+js_RTCIceServerTransportProtocolTls = "tls"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceTcpCandidateType> (webrtc)+data RTCIceTcpCandidateType = RTCIceTcpCandidateTypeActive+    | RTCIceTcpCandidateTypePassive+    | RTCIceTcpCandidateTypeSo+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceTcpCandidateType where+  pToJSVal x = pToJSVal (case x of+    RTCIceTcpCandidateTypeActive -> js_RTCIceTcpCandidateTypeActive+    RTCIceTcpCandidateTypePassive -> js_RTCIceTcpCandidateTypePassive+    RTCIceTcpCandidateTypeSo -> js_RTCIceTcpCandidateTypeSo+    )++instance ToJSVal RTCIceTcpCandidateType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceTcpCandidateType where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceTcpCandidateType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceTcpCandidateTypeActive, RTCIceTcpCandidateTypeActive), (js_RTCIceTcpCandidateTypePassive, RTCIceTcpCandidateTypePassive), (js_RTCIceTcpCandidateTypeSo, RTCIceTcpCandidateTypeSo)]++instance FromJSVal RTCIceTcpCandidateType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceTcpCandidateTypeActive, RTCIceTcpCandidateTypeActive), (js_RTCIceTcpCandidateTypePassive, RTCIceTcpCandidateTypePassive), (js_RTCIceTcpCandidateTypeSo, RTCIceTcpCandidateTypeSo)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceTcpCandidateTypeActive :: JSString+js_RTCIceTcpCandidateTypeActive = "active"+js_RTCIceTcpCandidateTypePassive :: JSString+js_RTCIceTcpCandidateTypePassive = "passive"+js_RTCIceTcpCandidateTypeSo :: JSString+js_RTCIceTcpCandidateTypeSo = "so"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceTransportPolicy> (webrtc)+data RTCIceTransportPolicy = RTCIceTransportPolicyRelay+    | RTCIceTransportPolicyAll+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceTransportPolicy where+  pToJSVal x = pToJSVal (case x of+    RTCIceTransportPolicyRelay -> js_RTCIceTransportPolicyRelay+    RTCIceTransportPolicyAll -> js_RTCIceTransportPolicyAll+    )++instance ToJSVal RTCIceTransportPolicy where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceTransportPolicy where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceTransportPolicy value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceTransportPolicyRelay, RTCIceTransportPolicyRelay), (js_RTCIceTransportPolicyAll, RTCIceTransportPolicyAll)]++instance FromJSVal RTCIceTransportPolicy where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceTransportPolicyRelay, RTCIceTransportPolicyRelay), (js_RTCIceTransportPolicyAll, RTCIceTransportPolicyAll)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceTransportPolicyRelay :: JSString+js_RTCIceTransportPolicyRelay = "relay"+js_RTCIceTransportPolicyAll :: JSString+js_RTCIceTransportPolicyAll = "all"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceTransportState> (webrtc)+data RTCIceTransportState = RTCIceTransportStateClosed+    | RTCIceTransportStateFailed+    | RTCIceTransportStateDisconnected+    | RTCIceTransportStateNew+    | RTCIceTransportStateChecking+    | RTCIceTransportStateCompleted+    | RTCIceTransportStateConnected+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceTransportState where+  pToJSVal x = pToJSVal (case x of+    RTCIceTransportStateClosed -> js_RTCIceTransportStateClosed+    RTCIceTransportStateFailed -> js_RTCIceTransportStateFailed+    RTCIceTransportStateDisconnected -> js_RTCIceTransportStateDisconnected+    RTCIceTransportStateNew -> js_RTCIceTransportStateNew+    RTCIceTransportStateChecking -> js_RTCIceTransportStateChecking+    RTCIceTransportStateCompleted -> js_RTCIceTransportStateCompleted+    RTCIceTransportStateConnected -> js_RTCIceTransportStateConnected+    )++instance ToJSVal RTCIceTransportState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceTransportState where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCIceTransportState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceTransportStateClosed, RTCIceTransportStateClosed), (js_RTCIceTransportStateFailed, RTCIceTransportStateFailed), (js_RTCIceTransportStateDisconnected, RTCIceTransportStateDisconnected), (js_RTCIceTransportStateNew, RTCIceTransportStateNew), (js_RTCIceTransportStateChecking, RTCIceTransportStateChecking), (js_RTCIceTransportStateCompleted, RTCIceTransportStateCompleted), (js_RTCIceTransportStateConnected, RTCIceTransportStateConnected)]++instance FromJSVal RTCIceTransportState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCIceTransportStateClosed, RTCIceTransportStateClosed), (js_RTCIceTransportStateFailed, RTCIceTransportStateFailed), (js_RTCIceTransportStateDisconnected, RTCIceTransportStateDisconnected), (js_RTCIceTransportStateNew, RTCIceTransportStateNew), (js_RTCIceTransportStateChecking, RTCIceTransportStateChecking), (js_RTCIceTransportStateCompleted, RTCIceTransportStateCompleted), (js_RTCIceTransportStateConnected, RTCIceTransportStateConnected)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceTransportStateClosed :: JSString+js_RTCIceTransportStateClosed = "closed"+js_RTCIceTransportStateFailed :: JSString+js_RTCIceTransportStateFailed = "failed"+js_RTCIceTransportStateDisconnected :: JSString+js_RTCIceTransportStateDisconnected = "disconnected"+js_RTCIceTransportStateNew :: JSString+js_RTCIceTransportStateNew = "new"+js_RTCIceTransportStateChecking :: JSString+js_RTCIceTransportStateChecking = "checking"+js_RTCIceTransportStateCompleted :: JSString+js_RTCIceTransportStateCompleted = "completed"+js_RTCIceTransportStateConnected :: JSString+js_RTCIceTransportStateConnected = "connected"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCPeerConnectionState> (webrtc)+data RTCPeerConnectionState = RTCPeerConnectionStateClosed+    | RTCPeerConnectionStateFailed+    | RTCPeerConnectionStateDisconnected+    | RTCPeerConnectionStateNew+    | RTCPeerConnectionStateConnecting+    | RTCPeerConnectionStateConnected+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCPeerConnectionState where+  pToJSVal x = pToJSVal (case x of+    RTCPeerConnectionStateClosed -> js_RTCPeerConnectionStateClosed+    RTCPeerConnectionStateFailed -> js_RTCPeerConnectionStateFailed+    RTCPeerConnectionStateDisconnected -> js_RTCPeerConnectionStateDisconnected+    RTCPeerConnectionStateNew -> js_RTCPeerConnectionStateNew+    RTCPeerConnectionStateConnecting -> js_RTCPeerConnectionStateConnecting+    RTCPeerConnectionStateConnected -> js_RTCPeerConnectionStateConnected+    )++instance ToJSVal RTCPeerConnectionState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCPeerConnectionState where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCPeerConnectionState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCPeerConnectionStateClosed, RTCPeerConnectionStateClosed), (js_RTCPeerConnectionStateFailed, RTCPeerConnectionStateFailed), (js_RTCPeerConnectionStateDisconnected, RTCPeerConnectionStateDisconnected), (js_RTCPeerConnectionStateNew, RTCPeerConnectionStateNew), (js_RTCPeerConnectionStateConnecting, RTCPeerConnectionStateConnecting), (js_RTCPeerConnectionStateConnected, RTCPeerConnectionStateConnected)]++instance FromJSVal RTCPeerConnectionState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCPeerConnectionStateClosed, RTCPeerConnectionStateClosed), (js_RTCPeerConnectionStateFailed, RTCPeerConnectionStateFailed), (js_RTCPeerConnectionStateDisconnected, RTCPeerConnectionStateDisconnected), (js_RTCPeerConnectionStateNew, RTCPeerConnectionStateNew), (js_RTCPeerConnectionStateConnecting, RTCPeerConnectionStateConnecting), (js_RTCPeerConnectionStateConnected, RTCPeerConnectionStateConnected)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCPeerConnectionStateClosed :: JSString+js_RTCPeerConnectionStateClosed = "closed"+js_RTCPeerConnectionStateFailed :: JSString+js_RTCPeerConnectionStateFailed = "failed"+js_RTCPeerConnectionStateDisconnected :: JSString+js_RTCPeerConnectionStateDisconnected = "disconnected"+js_RTCPeerConnectionStateNew :: JSString+js_RTCPeerConnectionStateNew = "new"+js_RTCPeerConnectionStateConnecting :: JSString+js_RTCPeerConnectionStateConnecting = "connecting"+js_RTCPeerConnectionStateConnected :: JSString+js_RTCPeerConnectionStateConnected = "connected"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCPriorityType> (webrtc-priority)+data RTCPriorityType = RTCPriorityTypeVeryLow+    | RTCPriorityTypeLow+    | RTCPriorityTypeMedium+    | RTCPriorityTypeHigh+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCPriorityType where+  pToJSVal x = pToJSVal (case x of+    RTCPriorityTypeVeryLow -> js_RTCPriorityTypeVeryLow+    RTCPriorityTypeLow -> js_RTCPriorityTypeLow+    RTCPriorityTypeMedium -> js_RTCPriorityTypeMedium+    RTCPriorityTypeHigh -> js_RTCPriorityTypeHigh+    )++instance ToJSVal RTCPriorityType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCPriorityType where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCPriorityType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCPriorityTypeVeryLow, RTCPriorityTypeVeryLow), (js_RTCPriorityTypeLow, RTCPriorityTypeLow), (js_RTCPriorityTypeMedium, RTCPriorityTypeMedium), (js_RTCPriorityTypeHigh, RTCPriorityTypeHigh)]++instance FromJSVal RTCPriorityType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCPriorityTypeVeryLow, RTCPriorityTypeVeryLow), (js_RTCPriorityTypeLow, RTCPriorityTypeLow), (js_RTCPriorityTypeMedium, RTCPriorityTypeMedium), (js_RTCPriorityTypeHigh, RTCPriorityTypeHigh)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCPriorityTypeVeryLow :: JSString+js_RTCPriorityTypeVeryLow = "very-low"+js_RTCPriorityTypeLow :: JSString+js_RTCPriorityTypeLow = "low"+js_RTCPriorityTypeMedium :: JSString+js_RTCPriorityTypeMedium = "medium"+js_RTCPriorityTypeHigh :: JSString+js_RTCPriorityTypeHigh = "high"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCRtcpMuxPolicy> (webrtc)+data RTCRtcpMuxPolicy = RTCRtcpMuxPolicyRequire+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCRtcpMuxPolicy where+  pToJSVal x = pToJSVal (case x of+    RTCRtcpMuxPolicyRequire -> js_RTCRtcpMuxPolicyRequire+    )++instance ToJSVal RTCRtcpMuxPolicy where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCRtcpMuxPolicy where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCRtcpMuxPolicy value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCRtcpMuxPolicyRequire, RTCRtcpMuxPolicyRequire)]++instance FromJSVal RTCRtcpMuxPolicy where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCRtcpMuxPolicyRequire, RTCRtcpMuxPolicyRequire)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCRtcpMuxPolicyRequire :: JSString+js_RTCRtcpMuxPolicyRequire = "require"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCRtpScriptTransformType> (webrtc-encoded-transform)+data RTCRtpScriptTransformType = RTCRtpScriptTransformTypeSframe+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCRtpScriptTransformType where+  pToJSVal x = pToJSVal (case x of+    RTCRtpScriptTransformTypeSframe -> js_RTCRtpScriptTransformTypeSframe+    )++instance ToJSVal RTCRtpScriptTransformType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCRtpScriptTransformType where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCRtpScriptTransformType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCRtpScriptTransformTypeSframe, RTCRtpScriptTransformTypeSframe)]++instance FromJSVal RTCRtpScriptTransformType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCRtpScriptTransformTypeSframe, RTCRtpScriptTransformTypeSframe)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCRtpScriptTransformTypeSframe :: JSString+js_RTCRtpScriptTransformTypeSframe = "sframe"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCRtpTransceiverDirection> (webrtc)+data RTCRtpTransceiverDirection = RTCRtpTransceiverDirectionSendrecv+    | RTCRtpTransceiverDirectionSendonly+    | RTCRtpTransceiverDirectionRecvonly+    | RTCRtpTransceiverDirectionInactive+    | RTCRtpTransceiverDirectionStopped+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCRtpTransceiverDirection where+  pToJSVal x = pToJSVal (case x of+    RTCRtpTransceiverDirectionSendrecv -> js_RTCRtpTransceiverDirectionSendrecv+    RTCRtpTransceiverDirectionSendonly -> js_RTCRtpTransceiverDirectionSendonly+    RTCRtpTransceiverDirectionRecvonly -> js_RTCRtpTransceiverDirectionRecvonly+    RTCRtpTransceiverDirectionInactive -> js_RTCRtpTransceiverDirectionInactive+    RTCRtpTransceiverDirectionStopped -> js_RTCRtpTransceiverDirectionStopped+    )++instance ToJSVal RTCRtpTransceiverDirection where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCRtpTransceiverDirection where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCRtpTransceiverDirection value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCRtpTransceiverDirectionSendrecv, RTCRtpTransceiverDirectionSendrecv), (js_RTCRtpTransceiverDirectionSendonly, RTCRtpTransceiverDirectionSendonly), (js_RTCRtpTransceiverDirectionRecvonly, RTCRtpTransceiverDirectionRecvonly), (js_RTCRtpTransceiverDirectionInactive, RTCRtpTransceiverDirectionInactive), (js_RTCRtpTransceiverDirectionStopped, RTCRtpTransceiverDirectionStopped)]++instance FromJSVal RTCRtpTransceiverDirection where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCRtpTransceiverDirectionSendrecv, RTCRtpTransceiverDirectionSendrecv), (js_RTCRtpTransceiverDirectionSendonly, RTCRtpTransceiverDirectionSendonly), (js_RTCRtpTransceiverDirectionRecvonly, RTCRtpTransceiverDirectionRecvonly), (js_RTCRtpTransceiverDirectionInactive, RTCRtpTransceiverDirectionInactive), (js_RTCRtpTransceiverDirectionStopped, RTCRtpTransceiverDirectionStopped)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCRtpTransceiverDirectionSendrecv :: JSString+js_RTCRtpTransceiverDirectionSendrecv = "sendrecv"+js_RTCRtpTransceiverDirectionSendonly :: JSString+js_RTCRtpTransceiverDirectionSendonly = "sendonly"+js_RTCRtpTransceiverDirectionRecvonly :: JSString+js_RTCRtpTransceiverDirectionRecvonly = "recvonly"+js_RTCRtpTransceiverDirectionInactive :: JSString+js_RTCRtpTransceiverDirectionInactive = "inactive"+js_RTCRtpTransceiverDirectionStopped :: JSString+js_RTCRtpTransceiverDirectionStopped = "stopped"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCSctpTransportState> (webrtc)+data RTCSctpTransportState = RTCSctpTransportStateConnecting+    | RTCSctpTransportStateConnected+    | RTCSctpTransportStateClosed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCSctpTransportState where+  pToJSVal x = pToJSVal (case x of+    RTCSctpTransportStateConnecting -> js_RTCSctpTransportStateConnecting+    RTCSctpTransportStateConnected -> js_RTCSctpTransportStateConnected+    RTCSctpTransportStateClosed -> js_RTCSctpTransportStateClosed+    )++instance ToJSVal RTCSctpTransportState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCSctpTransportState where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCSctpTransportState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCSctpTransportStateConnecting, RTCSctpTransportStateConnecting), (js_RTCSctpTransportStateConnected, RTCSctpTransportStateConnected), (js_RTCSctpTransportStateClosed, RTCSctpTransportStateClosed)]++instance FromJSVal RTCSctpTransportState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCSctpTransportStateConnecting, RTCSctpTransportStateConnecting), (js_RTCSctpTransportStateConnected, RTCSctpTransportStateConnected), (js_RTCSctpTransportStateClosed, RTCSctpTransportStateClosed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCSctpTransportStateConnecting :: JSString+js_RTCSctpTransportStateConnecting = "connecting"+js_RTCSctpTransportStateConnected :: JSString+js_RTCSctpTransportStateConnected = "connected"+js_RTCSctpTransportStateClosed :: JSString+js_RTCSctpTransportStateClosed = "closed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCSdpType> (webrtc)+data RTCSdpType = RTCSdpTypeOffer+    | RTCSdpTypePranswer+    | RTCSdpTypeAnswer+    | RTCSdpTypeRollback+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCSdpType where+  pToJSVal x = pToJSVal (case x of+    RTCSdpTypeOffer -> js_RTCSdpTypeOffer+    RTCSdpTypePranswer -> js_RTCSdpTypePranswer+    RTCSdpTypeAnswer -> js_RTCSdpTypeAnswer+    RTCSdpTypeRollback -> js_RTCSdpTypeRollback+    )++instance ToJSVal RTCSdpType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCSdpType where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCSdpType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCSdpTypeOffer, RTCSdpTypeOffer), (js_RTCSdpTypePranswer, RTCSdpTypePranswer), (js_RTCSdpTypeAnswer, RTCSdpTypeAnswer), (js_RTCSdpTypeRollback, RTCSdpTypeRollback)]++instance FromJSVal RTCSdpType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCSdpTypeOffer, RTCSdpTypeOffer), (js_RTCSdpTypePranswer, RTCSdpTypePranswer), (js_RTCSdpTypeAnswer, RTCSdpTypeAnswer), (js_RTCSdpTypeRollback, RTCSdpTypeRollback)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCSdpTypeOffer :: JSString+js_RTCSdpTypeOffer = "offer"+js_RTCSdpTypePranswer :: JSString+js_RTCSdpTypePranswer = "pranswer"+js_RTCSdpTypeAnswer :: JSString+js_RTCSdpTypeAnswer = "answer"+js_RTCSdpTypeRollback :: JSString+js_RTCSdpTypeRollback = "rollback"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCSignalingState> (webrtc)+data RTCSignalingState = RTCSignalingStateStable+    | RTCSignalingStateHaveLocalOffer+    | RTCSignalingStateHaveRemoteOffer+    | RTCSignalingStateHaveLocalPranswer+    | RTCSignalingStateHaveRemotePranswer+    | RTCSignalingStateClosed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCSignalingState where+  pToJSVal x = pToJSVal (case x of+    RTCSignalingStateStable -> js_RTCSignalingStateStable+    RTCSignalingStateHaveLocalOffer -> js_RTCSignalingStateHaveLocalOffer+    RTCSignalingStateHaveRemoteOffer -> js_RTCSignalingStateHaveRemoteOffer+    RTCSignalingStateHaveLocalPranswer -> js_RTCSignalingStateHaveLocalPranswer+    RTCSignalingStateHaveRemotePranswer -> js_RTCSignalingStateHaveRemotePranswer+    RTCSignalingStateClosed -> js_RTCSignalingStateClosed+    )++instance ToJSVal RTCSignalingState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RTCSignalingState where+  pFromJSVal x = P.maybe (P.error "Unexpected RTCSignalingState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCSignalingStateStable, RTCSignalingStateStable), (js_RTCSignalingStateHaveLocalOffer, RTCSignalingStateHaveLocalOffer), (js_RTCSignalingStateHaveRemoteOffer, RTCSignalingStateHaveRemoteOffer), (js_RTCSignalingStateHaveLocalPranswer, RTCSignalingStateHaveLocalPranswer), (js_RTCSignalingStateHaveRemotePranswer, RTCSignalingStateHaveRemotePranswer), (js_RTCSignalingStateClosed, RTCSignalingStateClosed)]++instance FromJSVal RTCSignalingState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RTCSignalingStateStable, RTCSignalingStateStable), (js_RTCSignalingStateHaveLocalOffer, RTCSignalingStateHaveLocalOffer), (js_RTCSignalingStateHaveRemoteOffer, RTCSignalingStateHaveRemoteOffer), (js_RTCSignalingStateHaveLocalPranswer, RTCSignalingStateHaveLocalPranswer), (js_RTCSignalingStateHaveRemotePranswer, RTCSignalingStateHaveRemotePranswer), (js_RTCSignalingStateClosed, RTCSignalingStateClosed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RTCSignalingStateStable :: JSString+js_RTCSignalingStateStable = "stable"+js_RTCSignalingStateHaveLocalOffer :: JSString+js_RTCSignalingStateHaveLocalOffer = "have-local-offer"+js_RTCSignalingStateHaveRemoteOffer :: JSString+js_RTCSignalingStateHaveRemoteOffer = "have-remote-offer"+js_RTCSignalingStateHaveLocalPranswer :: JSString+js_RTCSignalingStateHaveLocalPranswer = "have-local-pranswer"+js_RTCSignalingStateHaveRemotePranswer :: JSString+js_RTCSignalingStateHaveRemotePranswer = "have-remote-pranswer"+js_RTCSignalingStateClosed :: JSString+js_RTCSignalingStateClosed = "closed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ReadableStreamReaderMode> (streams)+data ReadableStreamReaderMode = ReadableStreamReaderModeByob+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ReadableStreamReaderMode where+  pToJSVal x = pToJSVal (case x of+    ReadableStreamReaderModeByob -> js_ReadableStreamReaderModeByob+    )++instance ToJSVal ReadableStreamReaderMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ReadableStreamReaderMode where+  pFromJSVal x = P.maybe (P.error "Unexpected ReadableStreamReaderMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ReadableStreamReaderModeByob, ReadableStreamReaderModeByob)]++instance FromJSVal ReadableStreamReaderMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ReadableStreamReaderModeByob, ReadableStreamReaderModeByob)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ReadableStreamReaderModeByob :: JSString+js_ReadableStreamReaderModeByob = "byob"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ReadableStreamType> (streams)+data ReadableStreamType = ReadableStreamTypeBytes+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ReadableStreamType where+  pToJSVal x = pToJSVal (case x of+    ReadableStreamTypeBytes -> js_ReadableStreamTypeBytes+    )++instance ToJSVal ReadableStreamType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ReadableStreamType where+  pFromJSVal x = P.maybe (P.error "Unexpected ReadableStreamType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ReadableStreamTypeBytes, ReadableStreamTypeBytes)]++instance FromJSVal ReadableStreamType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ReadableStreamTypeBytes, ReadableStreamTypeBytes)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ReadableStreamTypeBytes :: JSString+js_ReadableStreamTypeBytes = "bytes"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ReadyState> (media-source-2)+data ReadyState = ReadyStateClosed+    | ReadyStateOpen+    | ReadyStateEnded+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ReadyState where+  pToJSVal x = pToJSVal (case x of+    ReadyStateClosed -> js_ReadyStateClosed+    ReadyStateOpen -> js_ReadyStateOpen+    ReadyStateEnded -> js_ReadyStateEnded+    )++instance ToJSVal ReadyState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ReadyState where+  pFromJSVal x = P.maybe (P.error "Unexpected ReadyState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ReadyStateClosed, ReadyStateClosed), (js_ReadyStateOpen, ReadyStateOpen), (js_ReadyStateEnded, ReadyStateEnded)]++instance FromJSVal ReadyState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ReadyStateClosed, ReadyStateClosed), (js_ReadyStateOpen, ReadyStateOpen), (js_ReadyStateEnded, ReadyStateEnded)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ReadyStateClosed :: JSString+js_ReadyStateClosed = "closed"+js_ReadyStateOpen :: JSString+js_ReadyStateOpen = "open"+js_ReadyStateEnded :: JSString+js_ReadyStateEnded = "ended"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RecordingState> (mediastream-recording)+data RecordingState = RecordingStateInactive+    | RecordingStateRecording+    | RecordingStatePaused+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RecordingState where+  pToJSVal x = pToJSVal (case x of+    RecordingStateInactive -> js_RecordingStateInactive+    RecordingStateRecording -> js_RecordingStateRecording+    RecordingStatePaused -> js_RecordingStatePaused+    )++instance ToJSVal RecordingState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RecordingState where+  pFromJSVal x = P.maybe (P.error "Unexpected RecordingState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RecordingStateInactive, RecordingStateInactive), (js_RecordingStateRecording, RecordingStateRecording), (js_RecordingStatePaused, RecordingStatePaused)]++instance FromJSVal RecordingState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RecordingStateInactive, RecordingStateInactive), (js_RecordingStateRecording, RecordingStateRecording), (js_RecordingStatePaused, RecordingStatePaused)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RecordingStateInactive :: JSString+js_RecordingStateInactive = "inactive"+js_RecordingStateRecording :: JSString+js_RecordingStateRecording = "recording"+js_RecordingStatePaused :: JSString+js_RecordingStatePaused = "paused"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RedEyeReduction> (image-capture)+data RedEyeReduction = RedEyeReductionNever+    | RedEyeReductionAlways+    | RedEyeReductionControllable+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RedEyeReduction where+  pToJSVal x = pToJSVal (case x of+    RedEyeReductionNever -> js_RedEyeReductionNever+    RedEyeReductionAlways -> js_RedEyeReductionAlways+    RedEyeReductionControllable -> js_RedEyeReductionControllable+    )++instance ToJSVal RedEyeReduction where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RedEyeReduction where+  pFromJSVal x = P.maybe (P.error "Unexpected RedEyeReduction value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RedEyeReductionNever, RedEyeReductionNever), (js_RedEyeReductionAlways, RedEyeReductionAlways), (js_RedEyeReductionControllable, RedEyeReductionControllable)]++instance FromJSVal RedEyeReduction where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RedEyeReductionNever, RedEyeReductionNever), (js_RedEyeReductionAlways, RedEyeReductionAlways), (js_RedEyeReductionControllable, RedEyeReductionControllable)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RedEyeReductionNever :: JSString+js_RedEyeReductionNever = "never"+js_RedEyeReductionAlways :: JSString+js_RedEyeReductionAlways = "always"+js_RedEyeReductionControllable :: JSString+js_RedEyeReductionControllable = "controllable"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ReferrerPolicy> (referrer-policy)+data ReferrerPolicy = ReferrerPolicy+    | ReferrerPolicyNoReferrer+    | ReferrerPolicyNoReferrerWhenDowngrade+    | ReferrerPolicySameOrigin+    | ReferrerPolicyOrigin+    | ReferrerPolicyStrictOrigin+    | ReferrerPolicyOriginWhenCrossOrigin+    | ReferrerPolicyStrictOriginWhenCrossOrigin+    | ReferrerPolicyUnsafeUrl+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ReferrerPolicy where+  pToJSVal x = pToJSVal (case x of+    ReferrerPolicy -> js_ReferrerPolicy+    ReferrerPolicyNoReferrer -> js_ReferrerPolicyNoReferrer+    ReferrerPolicyNoReferrerWhenDowngrade -> js_ReferrerPolicyNoReferrerWhenDowngrade+    ReferrerPolicySameOrigin -> js_ReferrerPolicySameOrigin+    ReferrerPolicyOrigin -> js_ReferrerPolicyOrigin+    ReferrerPolicyStrictOrigin -> js_ReferrerPolicyStrictOrigin+    ReferrerPolicyOriginWhenCrossOrigin -> js_ReferrerPolicyOriginWhenCrossOrigin+    ReferrerPolicyStrictOriginWhenCrossOrigin -> js_ReferrerPolicyStrictOriginWhenCrossOrigin+    ReferrerPolicyUnsafeUrl -> js_ReferrerPolicyUnsafeUrl+    )++instance ToJSVal ReferrerPolicy where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ReferrerPolicy where+  pFromJSVal x = P.maybe (P.error "Unexpected ReferrerPolicy value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ReferrerPolicy, ReferrerPolicy), (js_ReferrerPolicyNoReferrer, ReferrerPolicyNoReferrer), (js_ReferrerPolicyNoReferrerWhenDowngrade, ReferrerPolicyNoReferrerWhenDowngrade), (js_ReferrerPolicySameOrigin, ReferrerPolicySameOrigin), (js_ReferrerPolicyOrigin, ReferrerPolicyOrigin), (js_ReferrerPolicyStrictOrigin, ReferrerPolicyStrictOrigin), (js_ReferrerPolicyOriginWhenCrossOrigin, ReferrerPolicyOriginWhenCrossOrigin), (js_ReferrerPolicyStrictOriginWhenCrossOrigin, ReferrerPolicyStrictOriginWhenCrossOrigin), (js_ReferrerPolicyUnsafeUrl, ReferrerPolicyUnsafeUrl)]++instance FromJSVal ReferrerPolicy where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ReferrerPolicy, ReferrerPolicy), (js_ReferrerPolicyNoReferrer, ReferrerPolicyNoReferrer), (js_ReferrerPolicyNoReferrerWhenDowngrade, ReferrerPolicyNoReferrerWhenDowngrade), (js_ReferrerPolicySameOrigin, ReferrerPolicySameOrigin), (js_ReferrerPolicyOrigin, ReferrerPolicyOrigin), (js_ReferrerPolicyStrictOrigin, ReferrerPolicyStrictOrigin), (js_ReferrerPolicyOriginWhenCrossOrigin, ReferrerPolicyOriginWhenCrossOrigin), (js_ReferrerPolicyStrictOriginWhenCrossOrigin, ReferrerPolicyStrictOriginWhenCrossOrigin), (js_ReferrerPolicyUnsafeUrl, ReferrerPolicyUnsafeUrl)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ReferrerPolicy :: JSString+js_ReferrerPolicy = ""+js_ReferrerPolicyNoReferrer :: JSString+js_ReferrerPolicyNoReferrer = "no-referrer"+js_ReferrerPolicyNoReferrerWhenDowngrade :: JSString+js_ReferrerPolicyNoReferrerWhenDowngrade = "no-referrer-when-downgrade"+js_ReferrerPolicySameOrigin :: JSString+js_ReferrerPolicySameOrigin = "same-origin"+js_ReferrerPolicyOrigin :: JSString+js_ReferrerPolicyOrigin = "origin"+js_ReferrerPolicyStrictOrigin :: JSString+js_ReferrerPolicyStrictOrigin = "strict-origin"+js_ReferrerPolicyOriginWhenCrossOrigin :: JSString+js_ReferrerPolicyOriginWhenCrossOrigin = "origin-when-cross-origin"+js_ReferrerPolicyStrictOriginWhenCrossOrigin :: JSString+js_ReferrerPolicyStrictOriginWhenCrossOrigin = "strict-origin-when-cross-origin"+js_ReferrerPolicyUnsafeUrl :: JSString+js_ReferrerPolicyUnsafeUrl = "unsafe-url"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RefreshPolicy> (trust-token-api)+data RefreshPolicy = RefreshPolicyNone+    | RefreshPolicyRefresh+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RefreshPolicy where+  pToJSVal x = pToJSVal (case x of+    RefreshPolicyNone -> js_RefreshPolicyNone+    RefreshPolicyRefresh -> js_RefreshPolicyRefresh+    )++instance ToJSVal RefreshPolicy where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RefreshPolicy where+  pFromJSVal x = P.maybe (P.error "Unexpected RefreshPolicy value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RefreshPolicyNone, RefreshPolicyNone), (js_RefreshPolicyRefresh, RefreshPolicyRefresh)]++instance FromJSVal RefreshPolicy where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RefreshPolicyNone, RefreshPolicyNone), (js_RefreshPolicyRefresh, RefreshPolicyRefresh)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RefreshPolicyNone :: JSString+js_RefreshPolicyNone = "none"+js_RefreshPolicyRefresh :: JSString+js_RefreshPolicyRefresh = "refresh"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RemotePlaybackState> (remote-playback)+data RemotePlaybackState = RemotePlaybackStateConnecting+    | RemotePlaybackStateConnected+    | RemotePlaybackStateDisconnected+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RemotePlaybackState where+  pToJSVal x = pToJSVal (case x of+    RemotePlaybackStateConnecting -> js_RemotePlaybackStateConnecting+    RemotePlaybackStateConnected -> js_RemotePlaybackStateConnected+    RemotePlaybackStateDisconnected -> js_RemotePlaybackStateDisconnected+    )++instance ToJSVal RemotePlaybackState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RemotePlaybackState where+  pFromJSVal x = P.maybe (P.error "Unexpected RemotePlaybackState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RemotePlaybackStateConnecting, RemotePlaybackStateConnecting), (js_RemotePlaybackStateConnected, RemotePlaybackStateConnected), (js_RemotePlaybackStateDisconnected, RemotePlaybackStateDisconnected)]++instance FromJSVal RemotePlaybackState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RemotePlaybackStateConnecting, RemotePlaybackStateConnecting), (js_RemotePlaybackStateConnected, RemotePlaybackStateConnected), (js_RemotePlaybackStateDisconnected, RemotePlaybackStateDisconnected)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RemotePlaybackStateConnecting :: JSString+js_RemotePlaybackStateConnecting = "connecting"+js_RemotePlaybackStateConnected :: JSString+js_RemotePlaybackStateConnected = "connected"+js_RemotePlaybackStateDisconnected :: JSString+js_RemotePlaybackStateDisconnected = "disconnected"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestCache> (fetch)+data RequestCache = RequestCacheDefault+    | RequestCacheNoStore+    | RequestCacheReload+    | RequestCacheNoCache+    | RequestCacheForceCache+    | RequestCacheOnlyIfCached+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestCache where+  pToJSVal x = pToJSVal (case x of+    RequestCacheDefault -> js_RequestCacheDefault+    RequestCacheNoStore -> js_RequestCacheNoStore+    RequestCacheReload -> js_RequestCacheReload+    RequestCacheNoCache -> js_RequestCacheNoCache+    RequestCacheForceCache -> js_RequestCacheForceCache+    RequestCacheOnlyIfCached -> js_RequestCacheOnlyIfCached+    )++instance ToJSVal RequestCache where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RequestCache where+  pFromJSVal x = P.maybe (P.error "Unexpected RequestCache value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestCacheDefault, RequestCacheDefault), (js_RequestCacheNoStore, RequestCacheNoStore), (js_RequestCacheReload, RequestCacheReload), (js_RequestCacheNoCache, RequestCacheNoCache), (js_RequestCacheForceCache, RequestCacheForceCache), (js_RequestCacheOnlyIfCached, RequestCacheOnlyIfCached)]++instance FromJSVal RequestCache where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestCacheDefault, RequestCacheDefault), (js_RequestCacheNoStore, RequestCacheNoStore), (js_RequestCacheReload, RequestCacheReload), (js_RequestCacheNoCache, RequestCacheNoCache), (js_RequestCacheForceCache, RequestCacheForceCache), (js_RequestCacheOnlyIfCached, RequestCacheOnlyIfCached)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RequestCacheDefault :: JSString+js_RequestCacheDefault = "default"+js_RequestCacheNoStore :: JSString+js_RequestCacheNoStore = "no-store"+js_RequestCacheReload :: JSString+js_RequestCacheReload = "reload"+js_RequestCacheNoCache :: JSString+js_RequestCacheNoCache = "no-cache"+js_RequestCacheForceCache :: JSString+js_RequestCacheForceCache = "force-cache"+js_RequestCacheOnlyIfCached :: JSString+js_RequestCacheOnlyIfCached = "only-if-cached"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestCredentials> (fetch)+data RequestCredentials = RequestCredentialsOmit+    | RequestCredentialsSameOrigin+    | RequestCredentialsInclude+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestCredentials where+  pToJSVal x = pToJSVal (case x of+    RequestCredentialsOmit -> js_RequestCredentialsOmit+    RequestCredentialsSameOrigin -> js_RequestCredentialsSameOrigin+    RequestCredentialsInclude -> js_RequestCredentialsInclude+    )++instance ToJSVal RequestCredentials where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RequestCredentials where+  pFromJSVal x = P.maybe (P.error "Unexpected RequestCredentials value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestCredentialsOmit, RequestCredentialsOmit), (js_RequestCredentialsSameOrigin, RequestCredentialsSameOrigin), (js_RequestCredentialsInclude, RequestCredentialsInclude)]++instance FromJSVal RequestCredentials where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestCredentialsOmit, RequestCredentialsOmit), (js_RequestCredentialsSameOrigin, RequestCredentialsSameOrigin), (js_RequestCredentialsInclude, RequestCredentialsInclude)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RequestCredentialsOmit :: JSString+js_RequestCredentialsOmit = "omit"+js_RequestCredentialsSameOrigin :: JSString+js_RequestCredentialsSameOrigin = "same-origin"+js_RequestCredentialsInclude :: JSString+js_RequestCredentialsInclude = "include"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestDestination> (fetch)+data RequestDestination = RequestDestination+    | RequestDestinationAudio+    | RequestDestinationAudioworklet+    | RequestDestinationDocument+    | RequestDestinationEmbed+    | RequestDestinationFont+    | RequestDestinationFrame+    | RequestDestinationIframe+    | RequestDestinationImage+    | RequestDestinationJson+    | RequestDestinationManifest+    | RequestDestinationObject+    | RequestDestinationPaintworklet+    | RequestDestinationReport+    | RequestDestinationScript+    | RequestDestinationSharedworker+    | RequestDestinationStyle+    | RequestDestinationText+    | RequestDestinationTrack+    | RequestDestinationVideo+    | RequestDestinationWorker+    | RequestDestinationXslt+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestDestination where+  pToJSVal x = pToJSVal (case x of+    RequestDestination -> js_RequestDestination+    RequestDestinationAudio -> js_RequestDestinationAudio+    RequestDestinationAudioworklet -> js_RequestDestinationAudioworklet+    RequestDestinationDocument -> js_RequestDestinationDocument+    RequestDestinationEmbed -> js_RequestDestinationEmbed+    RequestDestinationFont -> js_RequestDestinationFont+    RequestDestinationFrame -> js_RequestDestinationFrame+    RequestDestinationIframe -> js_RequestDestinationIframe+    RequestDestinationImage -> js_RequestDestinationImage+    RequestDestinationJson -> js_RequestDestinationJson+    RequestDestinationManifest -> js_RequestDestinationManifest+    RequestDestinationObject -> js_RequestDestinationObject+    RequestDestinationPaintworklet -> js_RequestDestinationPaintworklet+    RequestDestinationReport -> js_RequestDestinationReport+    RequestDestinationScript -> js_RequestDestinationScript+    RequestDestinationSharedworker -> js_RequestDestinationSharedworker+    RequestDestinationStyle -> js_RequestDestinationStyle+    RequestDestinationText -> js_RequestDestinationText+    RequestDestinationTrack -> js_RequestDestinationTrack+    RequestDestinationVideo -> js_RequestDestinationVideo+    RequestDestinationWorker -> js_RequestDestinationWorker+    RequestDestinationXslt -> js_RequestDestinationXslt+    )++instance ToJSVal RequestDestination where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RequestDestination where+  pFromJSVal x = P.maybe (P.error "Unexpected RequestDestination value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestDestination, RequestDestination), (js_RequestDestinationAudio, RequestDestinationAudio), (js_RequestDestinationAudioworklet, RequestDestinationAudioworklet), (js_RequestDestinationDocument, RequestDestinationDocument), (js_RequestDestinationEmbed, RequestDestinationEmbed), (js_RequestDestinationFont, RequestDestinationFont), (js_RequestDestinationFrame, RequestDestinationFrame), (js_RequestDestinationIframe, RequestDestinationIframe), (js_RequestDestinationImage, RequestDestinationImage), (js_RequestDestinationJson, RequestDestinationJson), (js_RequestDestinationManifest, RequestDestinationManifest), (js_RequestDestinationObject, RequestDestinationObject), (js_RequestDestinationPaintworklet, RequestDestinationPaintworklet), (js_RequestDestinationReport, RequestDestinationReport), (js_RequestDestinationScript, RequestDestinationScript), (js_RequestDestinationSharedworker, RequestDestinationSharedworker), (js_RequestDestinationStyle, RequestDestinationStyle), (js_RequestDestinationText, RequestDestinationText), (js_RequestDestinationTrack, RequestDestinationTrack), (js_RequestDestinationVideo, RequestDestinationVideo), (js_RequestDestinationWorker, RequestDestinationWorker), (js_RequestDestinationXslt, RequestDestinationXslt)]++instance FromJSVal RequestDestination where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestDestination, RequestDestination), (js_RequestDestinationAudio, RequestDestinationAudio), (js_RequestDestinationAudioworklet, RequestDestinationAudioworklet), (js_RequestDestinationDocument, RequestDestinationDocument), (js_RequestDestinationEmbed, RequestDestinationEmbed), (js_RequestDestinationFont, RequestDestinationFont), (js_RequestDestinationFrame, RequestDestinationFrame), (js_RequestDestinationIframe, RequestDestinationIframe), (js_RequestDestinationImage, RequestDestinationImage), (js_RequestDestinationJson, RequestDestinationJson), (js_RequestDestinationManifest, RequestDestinationManifest), (js_RequestDestinationObject, RequestDestinationObject), (js_RequestDestinationPaintworklet, RequestDestinationPaintworklet), (js_RequestDestinationReport, RequestDestinationReport), (js_RequestDestinationScript, RequestDestinationScript), (js_RequestDestinationSharedworker, RequestDestinationSharedworker), (js_RequestDestinationStyle, RequestDestinationStyle), (js_RequestDestinationText, RequestDestinationText), (js_RequestDestinationTrack, RequestDestinationTrack), (js_RequestDestinationVideo, RequestDestinationVideo), (js_RequestDestinationWorker, RequestDestinationWorker), (js_RequestDestinationXslt, RequestDestinationXslt)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RequestDestination :: JSString+js_RequestDestination = ""+js_RequestDestinationAudio :: JSString+js_RequestDestinationAudio = "audio"+js_RequestDestinationAudioworklet :: JSString+js_RequestDestinationAudioworklet = "audioworklet"+js_RequestDestinationDocument :: JSString+js_RequestDestinationDocument = "document"+js_RequestDestinationEmbed :: JSString+js_RequestDestinationEmbed = "embed"+js_RequestDestinationFont :: JSString+js_RequestDestinationFont = "font"+js_RequestDestinationFrame :: JSString+js_RequestDestinationFrame = "frame"+js_RequestDestinationIframe :: JSString+js_RequestDestinationIframe = "iframe"+js_RequestDestinationImage :: JSString+js_RequestDestinationImage = "image"+js_RequestDestinationJson :: JSString+js_RequestDestinationJson = "json"+js_RequestDestinationManifest :: JSString+js_RequestDestinationManifest = "manifest"+js_RequestDestinationObject :: JSString+js_RequestDestinationObject = "object"+js_RequestDestinationPaintworklet :: JSString+js_RequestDestinationPaintworklet = "paintworklet"+js_RequestDestinationReport :: JSString+js_RequestDestinationReport = "report"+js_RequestDestinationScript :: JSString+js_RequestDestinationScript = "script"+js_RequestDestinationSharedworker :: JSString+js_RequestDestinationSharedworker = "sharedworker"+js_RequestDestinationStyle :: JSString+js_RequestDestinationStyle = "style"+js_RequestDestinationText :: JSString+js_RequestDestinationText = "text"+js_RequestDestinationTrack :: JSString+js_RequestDestinationTrack = "track"+js_RequestDestinationVideo :: JSString+js_RequestDestinationVideo = "video"+js_RequestDestinationWorker :: JSString+js_RequestDestinationWorker = "worker"+js_RequestDestinationXslt :: JSString+js_RequestDestinationXslt = "xslt"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestDuplex> (fetch)+data RequestDuplex = RequestDuplexHalf+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestDuplex where+  pToJSVal x = pToJSVal (case x of+    RequestDuplexHalf -> js_RequestDuplexHalf+    )++instance ToJSVal RequestDuplex where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RequestDuplex where+  pFromJSVal x = P.maybe (P.error "Unexpected RequestDuplex value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestDuplexHalf, RequestDuplexHalf)]++instance FromJSVal RequestDuplex where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestDuplexHalf, RequestDuplexHalf)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RequestDuplexHalf :: JSString+js_RequestDuplexHalf = "half"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestMode> (fetch)+data RequestMode = RequestModeNavigate+    | RequestModeSameOrigin+    | RequestModeNoCors+    | RequestModeCors+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestMode where+  pToJSVal x = pToJSVal (case x of+    RequestModeNavigate -> js_RequestModeNavigate+    RequestModeSameOrigin -> js_RequestModeSameOrigin+    RequestModeNoCors -> js_RequestModeNoCors+    RequestModeCors -> js_RequestModeCors+    )++instance ToJSVal RequestMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RequestMode where+  pFromJSVal x = P.maybe (P.error "Unexpected RequestMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestModeNavigate, RequestModeNavigate), (js_RequestModeSameOrigin, RequestModeSameOrigin), (js_RequestModeNoCors, RequestModeNoCors), (js_RequestModeCors, RequestModeCors)]++instance FromJSVal RequestMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestModeNavigate, RequestModeNavigate), (js_RequestModeSameOrigin, RequestModeSameOrigin), (js_RequestModeNoCors, RequestModeNoCors), (js_RequestModeCors, RequestModeCors)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RequestModeNavigate :: JSString+js_RequestModeNavigate = "navigate"+js_RequestModeSameOrigin :: JSString+js_RequestModeSameOrigin = "same-origin"+js_RequestModeNoCors :: JSString+js_RequestModeNoCors = "no-cors"+js_RequestModeCors :: JSString+js_RequestModeCors = "cors"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestPriority> (fetch)+data RequestPriority = RequestPriorityHigh+    | RequestPriorityLow+    | RequestPriorityAuto+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestPriority where+  pToJSVal x = pToJSVal (case x of+    RequestPriorityHigh -> js_RequestPriorityHigh+    RequestPriorityLow -> js_RequestPriorityLow+    RequestPriorityAuto -> js_RequestPriorityAuto+    )++instance ToJSVal RequestPriority where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RequestPriority where+  pFromJSVal x = P.maybe (P.error "Unexpected RequestPriority value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestPriorityHigh, RequestPriorityHigh), (js_RequestPriorityLow, RequestPriorityLow), (js_RequestPriorityAuto, RequestPriorityAuto)]++instance FromJSVal RequestPriority where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestPriorityHigh, RequestPriorityHigh), (js_RequestPriorityLow, RequestPriorityLow), (js_RequestPriorityAuto, RequestPriorityAuto)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RequestPriorityHigh :: JSString+js_RequestPriorityHigh = "high"+js_RequestPriorityLow :: JSString+js_RequestPriorityLow = "low"+js_RequestPriorityAuto :: JSString+js_RequestPriorityAuto = "auto"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestRedirect> (fetch)+data RequestRedirect = RequestRedirectFollow+    | RequestRedirectError+    | RequestRedirectManual+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestRedirect where+  pToJSVal x = pToJSVal (case x of+    RequestRedirectFollow -> js_RequestRedirectFollow+    RequestRedirectError -> js_RequestRedirectError+    RequestRedirectManual -> js_RequestRedirectManual+    )++instance ToJSVal RequestRedirect where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RequestRedirect where+  pFromJSVal x = P.maybe (P.error "Unexpected RequestRedirect value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestRedirectFollow, RequestRedirectFollow), (js_RequestRedirectError, RequestRedirectError), (js_RequestRedirectManual, RequestRedirectManual)]++instance FromJSVal RequestRedirect where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RequestRedirectFollow, RequestRedirectFollow), (js_RequestRedirectError, RequestRedirectError), (js_RequestRedirectManual, RequestRedirectManual)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RequestRedirectFollow :: JSString+js_RequestRedirectFollow = "follow"+js_RequestRedirectError :: JSString+js_RequestRedirectError = "error"+js_RequestRedirectManual :: JSString+js_RequestRedirectManual = "manual"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ResizeObserverBoxOptions> (resize-observer-1)+data ResizeObserverBoxOptions = ResizeObserverBoxOptionsBorderBox+    | ResizeObserverBoxOptionsContentBox+    | ResizeObserverBoxOptionsDevicePixelContentBox+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ResizeObserverBoxOptions where+  pToJSVal x = pToJSVal (case x of+    ResizeObserverBoxOptionsBorderBox -> js_ResizeObserverBoxOptionsBorderBox+    ResizeObserverBoxOptionsContentBox -> js_ResizeObserverBoxOptionsContentBox+    ResizeObserverBoxOptionsDevicePixelContentBox -> js_ResizeObserverBoxOptionsDevicePixelContentBox+    )++instance ToJSVal ResizeObserverBoxOptions where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ResizeObserverBoxOptions where+  pFromJSVal x = P.maybe (P.error "Unexpected ResizeObserverBoxOptions value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ResizeObserverBoxOptionsBorderBox, ResizeObserverBoxOptionsBorderBox), (js_ResizeObserverBoxOptionsContentBox, ResizeObserverBoxOptionsContentBox), (js_ResizeObserverBoxOptionsDevicePixelContentBox, ResizeObserverBoxOptionsDevicePixelContentBox)]++instance FromJSVal ResizeObserverBoxOptions where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ResizeObserverBoxOptionsBorderBox, ResizeObserverBoxOptionsBorderBox), (js_ResizeObserverBoxOptionsContentBox, ResizeObserverBoxOptionsContentBox), (js_ResizeObserverBoxOptionsDevicePixelContentBox, ResizeObserverBoxOptionsDevicePixelContentBox)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ResizeObserverBoxOptionsBorderBox :: JSString+js_ResizeObserverBoxOptionsBorderBox = "border-box"+js_ResizeObserverBoxOptionsContentBox :: JSString+js_ResizeObserverBoxOptionsContentBox = "content-box"+js_ResizeObserverBoxOptionsDevicePixelContentBox :: JSString+js_ResizeObserverBoxOptionsDevicePixelContentBox = "device-pixel-content-box"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ResponseType> (fetch)+data ResponseType = ResponseTypeBasic+    | ResponseTypeCors+    | ResponseTypeDefault+    | ResponseTypeError+    | ResponseTypeOpaque+    | ResponseTypeOpaqueredirect+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ResponseType where+  pToJSVal x = pToJSVal (case x of+    ResponseTypeBasic -> js_ResponseTypeBasic+    ResponseTypeCors -> js_ResponseTypeCors+    ResponseTypeDefault -> js_ResponseTypeDefault+    ResponseTypeError -> js_ResponseTypeError+    ResponseTypeOpaque -> js_ResponseTypeOpaque+    ResponseTypeOpaqueredirect -> js_ResponseTypeOpaqueredirect+    )++instance ToJSVal ResponseType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ResponseType where+  pFromJSVal x = P.maybe (P.error "Unexpected ResponseType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ResponseTypeBasic, ResponseTypeBasic), (js_ResponseTypeCors, ResponseTypeCors), (js_ResponseTypeDefault, ResponseTypeDefault), (js_ResponseTypeError, ResponseTypeError), (js_ResponseTypeOpaque, ResponseTypeOpaque), (js_ResponseTypeOpaqueredirect, ResponseTypeOpaqueredirect)]++instance FromJSVal ResponseType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ResponseTypeBasic, ResponseTypeBasic), (js_ResponseTypeCors, ResponseTypeCors), (js_ResponseTypeDefault, ResponseTypeDefault), (js_ResponseTypeError, ResponseTypeError), (js_ResponseTypeOpaque, ResponseTypeOpaque), (js_ResponseTypeOpaqueredirect, ResponseTypeOpaqueredirect)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ResponseTypeBasic :: JSString+js_ResponseTypeBasic = "basic"+js_ResponseTypeCors :: JSString+js_ResponseTypeCors = "cors"+js_ResponseTypeDefault :: JSString+js_ResponseTypeDefault = "default"+js_ResponseTypeError :: JSString+js_ResponseTypeError = "error"+js_ResponseTypeOpaque :: JSString+js_ResponseTypeOpaque = "opaque"+js_ResponseTypeOpaqueredirect :: JSString+js_ResponseTypeOpaqueredirect = "opaqueredirect"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RouterSourceEnum> (service-workers)+data RouterSourceEnum = RouterSourceEnumCache+    | RouterSourceEnumFetchEvent+    | RouterSourceEnumNetwork+    | RouterSourceEnumRaceNetworkAndFetchHandler+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RouterSourceEnum where+  pToJSVal x = pToJSVal (case x of+    RouterSourceEnumCache -> js_RouterSourceEnumCache+    RouterSourceEnumFetchEvent -> js_RouterSourceEnumFetchEvent+    RouterSourceEnumNetwork -> js_RouterSourceEnumNetwork+    RouterSourceEnumRaceNetworkAndFetchHandler -> js_RouterSourceEnumRaceNetworkAndFetchHandler+    )++instance ToJSVal RouterSourceEnum where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RouterSourceEnum where+  pFromJSVal x = P.maybe (P.error "Unexpected RouterSourceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RouterSourceEnumCache, RouterSourceEnumCache), (js_RouterSourceEnumFetchEvent, RouterSourceEnumFetchEvent), (js_RouterSourceEnumNetwork, RouterSourceEnumNetwork), (js_RouterSourceEnumRaceNetworkAndFetchHandler, RouterSourceEnumRaceNetworkAndFetchHandler)]++instance FromJSVal RouterSourceEnum where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RouterSourceEnumCache, RouterSourceEnumCache), (js_RouterSourceEnumFetchEvent, RouterSourceEnumFetchEvent), (js_RouterSourceEnumNetwork, RouterSourceEnumNetwork), (js_RouterSourceEnumRaceNetworkAndFetchHandler, RouterSourceEnumRaceNetworkAndFetchHandler)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RouterSourceEnumCache :: JSString+js_RouterSourceEnumCache = "cache"+js_RouterSourceEnumFetchEvent :: JSString+js_RouterSourceEnumFetchEvent = "fetch-event"+js_RouterSourceEnumNetwork :: JSString+js_RouterSourceEnumNetwork = "network"+js_RouterSourceEnumRaceNetworkAndFetchHandler :: JSString+js_RouterSourceEnumRaceNetworkAndFetchHandler = "race-network-and-fetch-handler"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RunningStatus> (service-workers)+data RunningStatus = RunningStatusRunning+    | RunningStatusNotRunning+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RunningStatus where+  pToJSVal x = pToJSVal (case x of+    RunningStatusRunning -> js_RunningStatusRunning+    RunningStatusNotRunning -> js_RunningStatusNotRunning+    )++instance ToJSVal RunningStatus where+  toJSVal = P.return . pToJSVal++instance PFromJSVal RunningStatus where+  pFromJSVal x = P.maybe (P.error "Unexpected RunningStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RunningStatusRunning, RunningStatusRunning), (js_RunningStatusNotRunning, RunningStatusNotRunning)]++instance FromJSVal RunningStatus where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_RunningStatusRunning, RunningStatusRunning), (js_RunningStatusNotRunning, RunningStatusNotRunning)]+  fromJSValUnchecked = P.return . pFromJSVal++js_RunningStatusRunning :: JSString+js_RunningStatusRunning = "running"+js_RunningStatusNotRunning :: JSString+js_RunningStatusNotRunning = "not-running"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SameSiteCookiesType> (saa-non-cookie-storage)+data SameSiteCookiesType = SameSiteCookiesTypeAll+    | SameSiteCookiesTypeNone+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SameSiteCookiesType where+  pToJSVal x = pToJSVal (case x of+    SameSiteCookiesTypeAll -> js_SameSiteCookiesTypeAll+    SameSiteCookiesTypeNone -> js_SameSiteCookiesTypeNone+    )++instance ToJSVal SameSiteCookiesType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SameSiteCookiesType where+  pFromJSVal x = P.maybe (P.error "Unexpected SameSiteCookiesType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SameSiteCookiesTypeAll, SameSiteCookiesTypeAll), (js_SameSiteCookiesTypeNone, SameSiteCookiesTypeNone)]++instance FromJSVal SameSiteCookiesType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SameSiteCookiesTypeAll, SameSiteCookiesTypeAll), (js_SameSiteCookiesTypeNone, SameSiteCookiesTypeNone)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SameSiteCookiesTypeAll :: JSString+js_SameSiteCookiesTypeAll = "all"+js_SameSiteCookiesTypeNone :: JSString+js_SameSiteCookiesTypeNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SanitizerPresets> (html)+data SanitizerPresets = SanitizerPresetsDefault+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SanitizerPresets where+  pToJSVal x = pToJSVal (case x of+    SanitizerPresetsDefault -> js_SanitizerPresetsDefault+    )++instance ToJSVal SanitizerPresets where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SanitizerPresets where+  pFromJSVal x = P.maybe (P.error "Unexpected SanitizerPresets value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SanitizerPresetsDefault, SanitizerPresetsDefault)]++instance FromJSVal SanitizerPresets where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SanitizerPresetsDefault, SanitizerPresetsDefault)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SanitizerPresetsDefault :: JSString+js_SanitizerPresetsDefault = "default"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollAxis> (scroll-animations-1)+data ScrollAxis = ScrollAxisBlock+    | ScrollAxisInline+    | ScrollAxisX+    | ScrollAxisY+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollAxis where+  pToJSVal x = pToJSVal (case x of+    ScrollAxisBlock -> js_ScrollAxisBlock+    ScrollAxisInline -> js_ScrollAxisInline+    ScrollAxisX -> js_ScrollAxisX+    ScrollAxisY -> js_ScrollAxisY+    )++instance ToJSVal ScrollAxis where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollAxis where+  pFromJSVal x = P.maybe (P.error "Unexpected ScrollAxis value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollAxisBlock, ScrollAxisBlock), (js_ScrollAxisInline, ScrollAxisInline), (js_ScrollAxisX, ScrollAxisX), (js_ScrollAxisY, ScrollAxisY)]++instance FromJSVal ScrollAxis where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollAxisBlock, ScrollAxisBlock), (js_ScrollAxisInline, ScrollAxisInline), (js_ScrollAxisX, ScrollAxisX), (js_ScrollAxisY, ScrollAxisY)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ScrollAxisBlock :: JSString+js_ScrollAxisBlock = "block"+js_ScrollAxisInline :: JSString+js_ScrollAxisInline = "inline"+js_ScrollAxisX :: JSString+js_ScrollAxisX = "x"+js_ScrollAxisY :: JSString+js_ScrollAxisY = "y"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollBehavior> (cssom-view-1)+data ScrollBehavior = ScrollBehaviorAuto+    | ScrollBehaviorInstant+    | ScrollBehaviorSmooth+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollBehavior where+  pToJSVal x = pToJSVal (case x of+    ScrollBehaviorAuto -> js_ScrollBehaviorAuto+    ScrollBehaviorInstant -> js_ScrollBehaviorInstant+    ScrollBehaviorSmooth -> js_ScrollBehaviorSmooth+    )++instance ToJSVal ScrollBehavior where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollBehavior where+  pFromJSVal x = P.maybe (P.error "Unexpected ScrollBehavior value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollBehaviorAuto, ScrollBehaviorAuto), (js_ScrollBehaviorInstant, ScrollBehaviorInstant), (js_ScrollBehaviorSmooth, ScrollBehaviorSmooth)]++instance FromJSVal ScrollBehavior where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollBehaviorAuto, ScrollBehaviorAuto), (js_ScrollBehaviorInstant, ScrollBehaviorInstant), (js_ScrollBehaviorSmooth, ScrollBehaviorSmooth)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ScrollBehaviorAuto :: JSString+js_ScrollBehaviorAuto = "auto"+js_ScrollBehaviorInstant :: JSString+js_ScrollBehaviorInstant = "instant"+js_ScrollBehaviorSmooth :: JSString+js_ScrollBehaviorSmooth = "smooth"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollIntoViewContainer> (cssom-view-1)+data ScrollIntoViewContainer = ScrollIntoViewContainerAll+    | ScrollIntoViewContainerNearest+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollIntoViewContainer where+  pToJSVal x = pToJSVal (case x of+    ScrollIntoViewContainerAll -> js_ScrollIntoViewContainerAll+    ScrollIntoViewContainerNearest -> js_ScrollIntoViewContainerNearest+    )++instance ToJSVal ScrollIntoViewContainer where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollIntoViewContainer where+  pFromJSVal x = P.maybe (P.error "Unexpected ScrollIntoViewContainer value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollIntoViewContainerAll, ScrollIntoViewContainerAll), (js_ScrollIntoViewContainerNearest, ScrollIntoViewContainerNearest)]++instance FromJSVal ScrollIntoViewContainer where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollIntoViewContainerAll, ScrollIntoViewContainerAll), (js_ScrollIntoViewContainerNearest, ScrollIntoViewContainerNearest)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ScrollIntoViewContainerAll :: JSString+js_ScrollIntoViewContainerAll = "all"+js_ScrollIntoViewContainerNearest :: JSString+js_ScrollIntoViewContainerNearest = "nearest"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollLogicalPosition> (cssom-view-1)+data ScrollLogicalPosition = ScrollLogicalPositionStart+    | ScrollLogicalPositionCenter+    | ScrollLogicalPositionEnd+    | ScrollLogicalPositionNearest+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollLogicalPosition where+  pToJSVal x = pToJSVal (case x of+    ScrollLogicalPositionStart -> js_ScrollLogicalPositionStart+    ScrollLogicalPositionCenter -> js_ScrollLogicalPositionCenter+    ScrollLogicalPositionEnd -> js_ScrollLogicalPositionEnd+    ScrollLogicalPositionNearest -> js_ScrollLogicalPositionNearest+    )++instance ToJSVal ScrollLogicalPosition where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollLogicalPosition where+  pFromJSVal x = P.maybe (P.error "Unexpected ScrollLogicalPosition value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollLogicalPositionStart, ScrollLogicalPositionStart), (js_ScrollLogicalPositionCenter, ScrollLogicalPositionCenter), (js_ScrollLogicalPositionEnd, ScrollLogicalPositionEnd), (js_ScrollLogicalPositionNearest, ScrollLogicalPositionNearest)]++instance FromJSVal ScrollLogicalPosition where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollLogicalPositionStart, ScrollLogicalPositionStart), (js_ScrollLogicalPositionCenter, ScrollLogicalPositionCenter), (js_ScrollLogicalPositionEnd, ScrollLogicalPositionEnd), (js_ScrollLogicalPositionNearest, ScrollLogicalPositionNearest)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ScrollLogicalPositionStart :: JSString+js_ScrollLogicalPositionStart = "start"+js_ScrollLogicalPositionCenter :: JSString+js_ScrollLogicalPositionCenter = "center"+js_ScrollLogicalPositionEnd :: JSString+js_ScrollLogicalPositionEnd = "end"+js_ScrollLogicalPositionNearest :: JSString+js_ScrollLogicalPositionNearest = "nearest"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollRestoration> (html)+data ScrollRestoration = ScrollRestorationAuto+    | ScrollRestorationManual+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollRestoration where+  pToJSVal x = pToJSVal (case x of+    ScrollRestorationAuto -> js_ScrollRestorationAuto+    ScrollRestorationManual -> js_ScrollRestorationManual+    )++instance ToJSVal ScrollRestoration where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollRestoration where+  pFromJSVal x = P.maybe (P.error "Unexpected ScrollRestoration value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollRestorationAuto, ScrollRestorationAuto), (js_ScrollRestorationManual, ScrollRestorationManual)]++instance FromJSVal ScrollRestoration where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollRestorationAuto, ScrollRestorationAuto), (js_ScrollRestorationManual, ScrollRestorationManual)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ScrollRestorationAuto :: JSString+js_ScrollRestorationAuto = "auto"+js_ScrollRestorationManual :: JSString+js_ScrollRestorationManual = "manual"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollSetting> (webvtt1)+data ScrollSetting = ScrollSetting+    | ScrollSettingUp+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollSetting where+  pToJSVal x = pToJSVal (case x of+    ScrollSetting -> js_ScrollSetting+    ScrollSettingUp -> js_ScrollSettingUp+    )++instance ToJSVal ScrollSetting where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollSetting where+  pFromJSVal x = P.maybe (P.error "Unexpected ScrollSetting value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollSetting, ScrollSetting), (js_ScrollSettingUp, ScrollSettingUp)]++instance FromJSVal ScrollSetting where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ScrollSetting, ScrollSetting), (js_ScrollSettingUp, ScrollSettingUp)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ScrollSetting :: JSString+js_ScrollSetting = ""+js_ScrollSettingUp :: JSString+js_ScrollSettingUp = "up"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SecurityPolicyViolationEventDisposition> (CSP3)+data SecurityPolicyViolationEventDisposition = SecurityPolicyViolationEventDispositionEnforce+    | SecurityPolicyViolationEventDispositionReport+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SecurityPolicyViolationEventDisposition where+  pToJSVal x = pToJSVal (case x of+    SecurityPolicyViolationEventDispositionEnforce -> js_SecurityPolicyViolationEventDispositionEnforce+    SecurityPolicyViolationEventDispositionReport -> js_SecurityPolicyViolationEventDispositionReport+    )++instance ToJSVal SecurityPolicyViolationEventDisposition where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SecurityPolicyViolationEventDisposition where+  pFromJSVal x = P.maybe (P.error "Unexpected SecurityPolicyViolationEventDisposition value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SecurityPolicyViolationEventDispositionEnforce, SecurityPolicyViolationEventDispositionEnforce), (js_SecurityPolicyViolationEventDispositionReport, SecurityPolicyViolationEventDispositionReport)]++instance FromJSVal SecurityPolicyViolationEventDisposition where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SecurityPolicyViolationEventDispositionEnforce, SecurityPolicyViolationEventDispositionEnforce), (js_SecurityPolicyViolationEventDispositionReport, SecurityPolicyViolationEventDispositionReport)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SecurityPolicyViolationEventDispositionEnforce :: JSString+js_SecurityPolicyViolationEventDispositionEnforce = "enforce"+js_SecurityPolicyViolationEventDispositionReport :: JSString+js_SecurityPolicyViolationEventDispositionReport = "report"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SegmentType> (mediacapture-extensions)+data SegmentType = SegmentTypeHumanFace+    | SegmentTypeLeftEye+    | SegmentTypeRightEye+    | SegmentTypeEye+    | SegmentTypeMouth+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SegmentType where+  pToJSVal x = pToJSVal (case x of+    SegmentTypeHumanFace -> js_SegmentTypeHumanFace+    SegmentTypeLeftEye -> js_SegmentTypeLeftEye+    SegmentTypeRightEye -> js_SegmentTypeRightEye+    SegmentTypeEye -> js_SegmentTypeEye+    SegmentTypeMouth -> js_SegmentTypeMouth+    )++instance ToJSVal SegmentType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SegmentType where+  pFromJSVal x = P.maybe (P.error "Unexpected SegmentType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SegmentTypeHumanFace, SegmentTypeHumanFace), (js_SegmentTypeLeftEye, SegmentTypeLeftEye), (js_SegmentTypeRightEye, SegmentTypeRightEye), (js_SegmentTypeEye, SegmentTypeEye), (js_SegmentTypeMouth, SegmentTypeMouth)]++instance FromJSVal SegmentType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SegmentTypeHumanFace, SegmentTypeHumanFace), (js_SegmentTypeLeftEye, SegmentTypeLeftEye), (js_SegmentTypeRightEye, SegmentTypeRightEye), (js_SegmentTypeEye, SegmentTypeEye), (js_SegmentTypeMouth, SegmentTypeMouth)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SegmentTypeHumanFace :: JSString+js_SegmentTypeHumanFace = "human-face"+js_SegmentTypeLeftEye :: JSString+js_SegmentTypeLeftEye = "left-eye"+js_SegmentTypeRightEye :: JSString+js_SegmentTypeRightEye = "right-eye"+js_SegmentTypeEye :: JSString+js_SegmentTypeEye = "eye"+js_SegmentTypeMouth :: JSString+js_SegmentTypeMouth = "mouth"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SelectionMode> (html)+data SelectionMode = SelectionModeSelect+    | SelectionModeStart+    | SelectionModeEnd+    | SelectionModePreserve+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SelectionMode where+  pToJSVal x = pToJSVal (case x of+    SelectionModeSelect -> js_SelectionModeSelect+    SelectionModeStart -> js_SelectionModeStart+    SelectionModeEnd -> js_SelectionModeEnd+    SelectionModePreserve -> js_SelectionModePreserve+    )++instance ToJSVal SelectionMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SelectionMode where+  pFromJSVal x = P.maybe (P.error "Unexpected SelectionMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SelectionModeSelect, SelectionModeSelect), (js_SelectionModeStart, SelectionModeStart), (js_SelectionModeEnd, SelectionModeEnd), (js_SelectionModePreserve, SelectionModePreserve)]++instance FromJSVal SelectionMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SelectionModeSelect, SelectionModeSelect), (js_SelectionModeStart, SelectionModeStart), (js_SelectionModeEnd, SelectionModeEnd), (js_SelectionModePreserve, SelectionModePreserve)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SelectionModeSelect :: JSString+js_SelectionModeSelect = "select"+js_SelectionModeStart :: JSString+js_SelectionModeStart = "start"+js_SelectionModeEnd :: JSString+js_SelectionModeEnd = "end"+js_SelectionModePreserve :: JSString+js_SelectionModePreserve = "preserve"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SelfCapturePreferenceEnum> (screen-capture)+data SelfCapturePreferenceEnum = SelfCapturePreferenceEnumInclude+    | SelfCapturePreferenceEnumExclude+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SelfCapturePreferenceEnum where+  pToJSVal x = pToJSVal (case x of+    SelfCapturePreferenceEnumInclude -> js_SelfCapturePreferenceEnumInclude+    SelfCapturePreferenceEnumExclude -> js_SelfCapturePreferenceEnumExclude+    )++instance ToJSVal SelfCapturePreferenceEnum where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SelfCapturePreferenceEnum where+  pFromJSVal x = P.maybe (P.error "Unexpected SelfCapturePreferenceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SelfCapturePreferenceEnumInclude, SelfCapturePreferenceEnumInclude), (js_SelfCapturePreferenceEnumExclude, SelfCapturePreferenceEnumExclude)]++instance FromJSVal SelfCapturePreferenceEnum where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SelfCapturePreferenceEnumInclude, SelfCapturePreferenceEnumInclude), (js_SelfCapturePreferenceEnumExclude, SelfCapturePreferenceEnumExclude)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SelfCapturePreferenceEnumInclude :: JSString+js_SelfCapturePreferenceEnumInclude = "include"+js_SelfCapturePreferenceEnumExclude :: JSString+js_SelfCapturePreferenceEnumExclude = "exclude"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ServiceWorkerState> (service-workers)+data ServiceWorkerState = ServiceWorkerStateParsed+    | ServiceWorkerStateInstalling+    | ServiceWorkerStateInstalled+    | ServiceWorkerStateActivating+    | ServiceWorkerStateActivated+    | ServiceWorkerStateRedundant+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ServiceWorkerState where+  pToJSVal x = pToJSVal (case x of+    ServiceWorkerStateParsed -> js_ServiceWorkerStateParsed+    ServiceWorkerStateInstalling -> js_ServiceWorkerStateInstalling+    ServiceWorkerStateInstalled -> js_ServiceWorkerStateInstalled+    ServiceWorkerStateActivating -> js_ServiceWorkerStateActivating+    ServiceWorkerStateActivated -> js_ServiceWorkerStateActivated+    ServiceWorkerStateRedundant -> js_ServiceWorkerStateRedundant+    )++instance ToJSVal ServiceWorkerState where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ServiceWorkerState where+  pFromJSVal x = P.maybe (P.error "Unexpected ServiceWorkerState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ServiceWorkerStateParsed, ServiceWorkerStateParsed), (js_ServiceWorkerStateInstalling, ServiceWorkerStateInstalling), (js_ServiceWorkerStateInstalled, ServiceWorkerStateInstalled), (js_ServiceWorkerStateActivating, ServiceWorkerStateActivating), (js_ServiceWorkerStateActivated, ServiceWorkerStateActivated), (js_ServiceWorkerStateRedundant, ServiceWorkerStateRedundant)]++instance FromJSVal ServiceWorkerState where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ServiceWorkerStateParsed, ServiceWorkerStateParsed), (js_ServiceWorkerStateInstalling, ServiceWorkerStateInstalling), (js_ServiceWorkerStateInstalled, ServiceWorkerStateInstalled), (js_ServiceWorkerStateActivating, ServiceWorkerStateActivating), (js_ServiceWorkerStateActivated, ServiceWorkerStateActivated), (js_ServiceWorkerStateRedundant, ServiceWorkerStateRedundant)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ServiceWorkerStateParsed :: JSString+js_ServiceWorkerStateParsed = "parsed"+js_ServiceWorkerStateInstalling :: JSString+js_ServiceWorkerStateInstalling = "installing"+js_ServiceWorkerStateInstalled :: JSString+js_ServiceWorkerStateInstalled = "installed"+js_ServiceWorkerStateActivating :: JSString+js_ServiceWorkerStateActivating = "activating"+js_ServiceWorkerStateActivated :: JSString+js_ServiceWorkerStateActivated = "activated"+js_ServiceWorkerStateRedundant :: JSString+js_ServiceWorkerStateRedundant = "redundant"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ServiceWorkerUpdateViaCache> (service-workers)+data ServiceWorkerUpdateViaCache = ServiceWorkerUpdateViaCacheImports+    | ServiceWorkerUpdateViaCacheAll+    | ServiceWorkerUpdateViaCacheNone+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ServiceWorkerUpdateViaCache where+  pToJSVal x = pToJSVal (case x of+    ServiceWorkerUpdateViaCacheImports -> js_ServiceWorkerUpdateViaCacheImports+    ServiceWorkerUpdateViaCacheAll -> js_ServiceWorkerUpdateViaCacheAll+    ServiceWorkerUpdateViaCacheNone -> js_ServiceWorkerUpdateViaCacheNone+    )++instance ToJSVal ServiceWorkerUpdateViaCache where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ServiceWorkerUpdateViaCache where+  pFromJSVal x = P.maybe (P.error "Unexpected ServiceWorkerUpdateViaCache value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ServiceWorkerUpdateViaCacheImports, ServiceWorkerUpdateViaCacheImports), (js_ServiceWorkerUpdateViaCacheAll, ServiceWorkerUpdateViaCacheAll), (js_ServiceWorkerUpdateViaCacheNone, ServiceWorkerUpdateViaCacheNone)]++instance FromJSVal ServiceWorkerUpdateViaCache where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ServiceWorkerUpdateViaCacheImports, ServiceWorkerUpdateViaCacheImports), (js_ServiceWorkerUpdateViaCacheAll, ServiceWorkerUpdateViaCacheAll), (js_ServiceWorkerUpdateViaCacheNone, ServiceWorkerUpdateViaCacheNone)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ServiceWorkerUpdateViaCacheImports :: JSString+js_ServiceWorkerUpdateViaCacheImports = "imports"+js_ServiceWorkerUpdateViaCacheAll :: JSString+js_ServiceWorkerUpdateViaCacheAll = "all"+js_ServiceWorkerUpdateViaCacheNone :: JSString+js_ServiceWorkerUpdateViaCacheNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ShadowRootMode> (dom)+data ShadowRootMode = ShadowRootModeOpen+    | ShadowRootModeClosed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ShadowRootMode where+  pToJSVal x = pToJSVal (case x of+    ShadowRootModeOpen -> js_ShadowRootModeOpen+    ShadowRootModeClosed -> js_ShadowRootModeClosed+    )++instance ToJSVal ShadowRootMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal ShadowRootMode where+  pFromJSVal x = P.maybe (P.error "Unexpected ShadowRootMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ShadowRootModeOpen, ShadowRootModeOpen), (js_ShadowRootModeClosed, ShadowRootModeClosed)]++instance FromJSVal ShadowRootMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_ShadowRootModeOpen, ShadowRootModeOpen), (js_ShadowRootModeClosed, ShadowRootModeClosed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_ShadowRootModeOpen :: JSString+js_ShadowRootModeOpen = "open"+js_ShadowRootModeClosed :: JSString+js_ShadowRootModeClosed = "closed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SlotAssignmentMode> (dom)+data SlotAssignmentMode = SlotAssignmentModeManual+    | SlotAssignmentModeNamed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SlotAssignmentMode where+  pToJSVal x = pToJSVal (case x of+    SlotAssignmentModeManual -> js_SlotAssignmentModeManual+    SlotAssignmentModeNamed -> js_SlotAssignmentModeNamed+    )++instance ToJSVal SlotAssignmentMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SlotAssignmentMode where+  pFromJSVal x = P.maybe (P.error "Unexpected SlotAssignmentMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SlotAssignmentModeManual, SlotAssignmentModeManual), (js_SlotAssignmentModeNamed, SlotAssignmentModeNamed)]++instance FromJSVal SlotAssignmentMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SlotAssignmentModeManual, SlotAssignmentModeManual), (js_SlotAssignmentModeNamed, SlotAssignmentModeNamed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SlotAssignmentModeManual :: JSString+js_SlotAssignmentModeManual = "manual"+js_SlotAssignmentModeNamed :: JSString+js_SlotAssignmentModeNamed = "named"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SpeechRecognitionAvailabilityStatus> (speech-api)+data SpeechRecognitionAvailabilityStatus = SpeechRecognitionAvailabilityStatusUnavailable+    | SpeechRecognitionAvailabilityStatusDownloadable+    | SpeechRecognitionAvailabilityStatusDownloading+    | SpeechRecognitionAvailabilityStatusAvailable+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SpeechRecognitionAvailabilityStatus where+  pToJSVal x = pToJSVal (case x of+    SpeechRecognitionAvailabilityStatusUnavailable -> js_SpeechRecognitionAvailabilityStatusUnavailable+    SpeechRecognitionAvailabilityStatusDownloadable -> js_SpeechRecognitionAvailabilityStatusDownloadable+    SpeechRecognitionAvailabilityStatusDownloading -> js_SpeechRecognitionAvailabilityStatusDownloading+    SpeechRecognitionAvailabilityStatusAvailable -> js_SpeechRecognitionAvailabilityStatusAvailable+    )++instance ToJSVal SpeechRecognitionAvailabilityStatus where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SpeechRecognitionAvailabilityStatus where+  pFromJSVal x = P.maybe (P.error "Unexpected SpeechRecognitionAvailabilityStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SpeechRecognitionAvailabilityStatusUnavailable, SpeechRecognitionAvailabilityStatusUnavailable), (js_SpeechRecognitionAvailabilityStatusDownloadable, SpeechRecognitionAvailabilityStatusDownloadable), (js_SpeechRecognitionAvailabilityStatusDownloading, SpeechRecognitionAvailabilityStatusDownloading), (js_SpeechRecognitionAvailabilityStatusAvailable, SpeechRecognitionAvailabilityStatusAvailable)]++instance FromJSVal SpeechRecognitionAvailabilityStatus where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SpeechRecognitionAvailabilityStatusUnavailable, SpeechRecognitionAvailabilityStatusUnavailable), (js_SpeechRecognitionAvailabilityStatusDownloadable, SpeechRecognitionAvailabilityStatusDownloadable), (js_SpeechRecognitionAvailabilityStatusDownloading, SpeechRecognitionAvailabilityStatusDownloading), (js_SpeechRecognitionAvailabilityStatusAvailable, SpeechRecognitionAvailabilityStatusAvailable)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SpeechRecognitionAvailabilityStatusUnavailable :: JSString+js_SpeechRecognitionAvailabilityStatusUnavailable = "unavailable"+js_SpeechRecognitionAvailabilityStatusDownloadable :: JSString+js_SpeechRecognitionAvailabilityStatusDownloadable = "downloadable"+js_SpeechRecognitionAvailabilityStatusDownloading :: JSString+js_SpeechRecognitionAvailabilityStatusDownloading = "downloading"+js_SpeechRecognitionAvailabilityStatusAvailable :: JSString+js_SpeechRecognitionAvailabilityStatusAvailable = "available"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SpeechRecognitionErrorCode> (speech-api)+data SpeechRecognitionErrorCode = SpeechRecognitionErrorCodeNoSpeech+    | SpeechRecognitionErrorCodeAborted+    | SpeechRecognitionErrorCodeAudioCapture+    | SpeechRecognitionErrorCodeNetwork+    | SpeechRecognitionErrorCodeNotAllowed+    | SpeechRecognitionErrorCodeServiceNotAllowed+    | SpeechRecognitionErrorCodeLanguageNotSupported+    | SpeechRecognitionErrorCodePhrasesNotSupported+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SpeechRecognitionErrorCode where+  pToJSVal x = pToJSVal (case x of+    SpeechRecognitionErrorCodeNoSpeech -> js_SpeechRecognitionErrorCodeNoSpeech+    SpeechRecognitionErrorCodeAborted -> js_SpeechRecognitionErrorCodeAborted+    SpeechRecognitionErrorCodeAudioCapture -> js_SpeechRecognitionErrorCodeAudioCapture+    SpeechRecognitionErrorCodeNetwork -> js_SpeechRecognitionErrorCodeNetwork+    SpeechRecognitionErrorCodeNotAllowed -> js_SpeechRecognitionErrorCodeNotAllowed+    SpeechRecognitionErrorCodeServiceNotAllowed -> js_SpeechRecognitionErrorCodeServiceNotAllowed+    SpeechRecognitionErrorCodeLanguageNotSupported -> js_SpeechRecognitionErrorCodeLanguageNotSupported+    SpeechRecognitionErrorCodePhrasesNotSupported -> js_SpeechRecognitionErrorCodePhrasesNotSupported+    )++instance ToJSVal SpeechRecognitionErrorCode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SpeechRecognitionErrorCode where+  pFromJSVal x = P.maybe (P.error "Unexpected SpeechRecognitionErrorCode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SpeechRecognitionErrorCodeNoSpeech, SpeechRecognitionErrorCodeNoSpeech), (js_SpeechRecognitionErrorCodeAborted, SpeechRecognitionErrorCodeAborted), (js_SpeechRecognitionErrorCodeAudioCapture, SpeechRecognitionErrorCodeAudioCapture), (js_SpeechRecognitionErrorCodeNetwork, SpeechRecognitionErrorCodeNetwork), (js_SpeechRecognitionErrorCodeNotAllowed, SpeechRecognitionErrorCodeNotAllowed), (js_SpeechRecognitionErrorCodeServiceNotAllowed, SpeechRecognitionErrorCodeServiceNotAllowed), (js_SpeechRecognitionErrorCodeLanguageNotSupported, SpeechRecognitionErrorCodeLanguageNotSupported), (js_SpeechRecognitionErrorCodePhrasesNotSupported, SpeechRecognitionErrorCodePhrasesNotSupported)]++instance FromJSVal SpeechRecognitionErrorCode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SpeechRecognitionErrorCodeNoSpeech, SpeechRecognitionErrorCodeNoSpeech), (js_SpeechRecognitionErrorCodeAborted, SpeechRecognitionErrorCodeAborted), (js_SpeechRecognitionErrorCodeAudioCapture, SpeechRecognitionErrorCodeAudioCapture), (js_SpeechRecognitionErrorCodeNetwork, SpeechRecognitionErrorCodeNetwork), (js_SpeechRecognitionErrorCodeNotAllowed, SpeechRecognitionErrorCodeNotAllowed), (js_SpeechRecognitionErrorCodeServiceNotAllowed, SpeechRecognitionErrorCodeServiceNotAllowed), (js_SpeechRecognitionErrorCodeLanguageNotSupported, SpeechRecognitionErrorCodeLanguageNotSupported), (js_SpeechRecognitionErrorCodePhrasesNotSupported, SpeechRecognitionErrorCodePhrasesNotSupported)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SpeechRecognitionErrorCodeNoSpeech :: JSString+js_SpeechRecognitionErrorCodeNoSpeech = "no-speech"+js_SpeechRecognitionErrorCodeAborted :: JSString+js_SpeechRecognitionErrorCodeAborted = "aborted"+js_SpeechRecognitionErrorCodeAudioCapture :: JSString+js_SpeechRecognitionErrorCodeAudioCapture = "audio-capture"+js_SpeechRecognitionErrorCodeNetwork :: JSString+js_SpeechRecognitionErrorCodeNetwork = "network"+js_SpeechRecognitionErrorCodeNotAllowed :: JSString+js_SpeechRecognitionErrorCodeNotAllowed = "not-allowed"+js_SpeechRecognitionErrorCodeServiceNotAllowed :: JSString+js_SpeechRecognitionErrorCodeServiceNotAllowed = "service-not-allowed"+js_SpeechRecognitionErrorCodeLanguageNotSupported :: JSString+js_SpeechRecognitionErrorCodeLanguageNotSupported = "language-not-supported"+js_SpeechRecognitionErrorCodePhrasesNotSupported :: JSString+js_SpeechRecognitionErrorCodePhrasesNotSupported = "phrases-not-supported"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SpeechRecognitionQuality> (speech-api)+data SpeechRecognitionQuality = SpeechRecognitionQualityCommand+    | SpeechRecognitionQualityDictation+    | SpeechRecognitionQualityConversation+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SpeechRecognitionQuality where+  pToJSVal x = pToJSVal (case x of+    SpeechRecognitionQualityCommand -> js_SpeechRecognitionQualityCommand+    SpeechRecognitionQualityDictation -> js_SpeechRecognitionQualityDictation+    SpeechRecognitionQualityConversation -> js_SpeechRecognitionQualityConversation+    )++instance ToJSVal SpeechRecognitionQuality where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SpeechRecognitionQuality where+  pFromJSVal x = P.maybe (P.error "Unexpected SpeechRecognitionQuality value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SpeechRecognitionQualityCommand, SpeechRecognitionQualityCommand), (js_SpeechRecognitionQualityDictation, SpeechRecognitionQualityDictation), (js_SpeechRecognitionQualityConversation, SpeechRecognitionQualityConversation)]++instance FromJSVal SpeechRecognitionQuality where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SpeechRecognitionQualityCommand, SpeechRecognitionQualityCommand), (js_SpeechRecognitionQualityDictation, SpeechRecognitionQualityDictation), (js_SpeechRecognitionQualityConversation, SpeechRecognitionQualityConversation)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SpeechRecognitionQualityCommand :: JSString+js_SpeechRecognitionQualityCommand = "command"+js_SpeechRecognitionQualityDictation :: JSString+js_SpeechRecognitionQualityDictation = "dictation"+js_SpeechRecognitionQualityConversation :: JSString+js_SpeechRecognitionQualityConversation = "conversation"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SpeechSynthesisErrorCode> (speech-api)+data SpeechSynthesisErrorCode = SpeechSynthesisErrorCodeCanceled+    | SpeechSynthesisErrorCodeInterrupted+    | SpeechSynthesisErrorCodeAudioBusy+    | SpeechSynthesisErrorCodeAudioHardware+    | SpeechSynthesisErrorCodeNetwork+    | SpeechSynthesisErrorCodeSynthesisUnavailable+    | SpeechSynthesisErrorCodeSynthesisFailed+    | SpeechSynthesisErrorCodeLanguageUnavailable+    | SpeechSynthesisErrorCodeVoiceUnavailable+    | SpeechSynthesisErrorCodeTextTooLong+    | SpeechSynthesisErrorCodeInvalidArgument+    | SpeechSynthesisErrorCodeNotAllowed+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SpeechSynthesisErrorCode where+  pToJSVal x = pToJSVal (case x of+    SpeechSynthesisErrorCodeCanceled -> js_SpeechSynthesisErrorCodeCanceled+    SpeechSynthesisErrorCodeInterrupted -> js_SpeechSynthesisErrorCodeInterrupted+    SpeechSynthesisErrorCodeAudioBusy -> js_SpeechSynthesisErrorCodeAudioBusy+    SpeechSynthesisErrorCodeAudioHardware -> js_SpeechSynthesisErrorCodeAudioHardware+    SpeechSynthesisErrorCodeNetwork -> js_SpeechSynthesisErrorCodeNetwork+    SpeechSynthesisErrorCodeSynthesisUnavailable -> js_SpeechSynthesisErrorCodeSynthesisUnavailable+    SpeechSynthesisErrorCodeSynthesisFailed -> js_SpeechSynthesisErrorCodeSynthesisFailed+    SpeechSynthesisErrorCodeLanguageUnavailable -> js_SpeechSynthesisErrorCodeLanguageUnavailable+    SpeechSynthesisErrorCodeVoiceUnavailable -> js_SpeechSynthesisErrorCodeVoiceUnavailable+    SpeechSynthesisErrorCodeTextTooLong -> js_SpeechSynthesisErrorCodeTextTooLong+    SpeechSynthesisErrorCodeInvalidArgument -> js_SpeechSynthesisErrorCodeInvalidArgument+    SpeechSynthesisErrorCodeNotAllowed -> js_SpeechSynthesisErrorCodeNotAllowed+    )++instance ToJSVal SpeechSynthesisErrorCode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SpeechSynthesisErrorCode where+  pFromJSVal x = P.maybe (P.error "Unexpected SpeechSynthesisErrorCode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SpeechSynthesisErrorCodeCanceled, SpeechSynthesisErrorCodeCanceled), (js_SpeechSynthesisErrorCodeInterrupted, SpeechSynthesisErrorCodeInterrupted), (js_SpeechSynthesisErrorCodeAudioBusy, SpeechSynthesisErrorCodeAudioBusy), (js_SpeechSynthesisErrorCodeAudioHardware, SpeechSynthesisErrorCodeAudioHardware), (js_SpeechSynthesisErrorCodeNetwork, SpeechSynthesisErrorCodeNetwork), (js_SpeechSynthesisErrorCodeSynthesisUnavailable, SpeechSynthesisErrorCodeSynthesisUnavailable), (js_SpeechSynthesisErrorCodeSynthesisFailed, SpeechSynthesisErrorCodeSynthesisFailed), (js_SpeechSynthesisErrorCodeLanguageUnavailable, SpeechSynthesisErrorCodeLanguageUnavailable), (js_SpeechSynthesisErrorCodeVoiceUnavailable, SpeechSynthesisErrorCodeVoiceUnavailable), (js_SpeechSynthesisErrorCodeTextTooLong, SpeechSynthesisErrorCodeTextTooLong), (js_SpeechSynthesisErrorCodeInvalidArgument, SpeechSynthesisErrorCodeInvalidArgument), (js_SpeechSynthesisErrorCodeNotAllowed, SpeechSynthesisErrorCodeNotAllowed)]++instance FromJSVal SpeechSynthesisErrorCode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SpeechSynthesisErrorCodeCanceled, SpeechSynthesisErrorCodeCanceled), (js_SpeechSynthesisErrorCodeInterrupted, SpeechSynthesisErrorCodeInterrupted), (js_SpeechSynthesisErrorCodeAudioBusy, SpeechSynthesisErrorCodeAudioBusy), (js_SpeechSynthesisErrorCodeAudioHardware, SpeechSynthesisErrorCodeAudioHardware), (js_SpeechSynthesisErrorCodeNetwork, SpeechSynthesisErrorCodeNetwork), (js_SpeechSynthesisErrorCodeSynthesisUnavailable, SpeechSynthesisErrorCodeSynthesisUnavailable), (js_SpeechSynthesisErrorCodeSynthesisFailed, SpeechSynthesisErrorCodeSynthesisFailed), (js_SpeechSynthesisErrorCodeLanguageUnavailable, SpeechSynthesisErrorCodeLanguageUnavailable), (js_SpeechSynthesisErrorCodeVoiceUnavailable, SpeechSynthesisErrorCodeVoiceUnavailable), (js_SpeechSynthesisErrorCodeTextTooLong, SpeechSynthesisErrorCodeTextTooLong), (js_SpeechSynthesisErrorCodeInvalidArgument, SpeechSynthesisErrorCodeInvalidArgument), (js_SpeechSynthesisErrorCodeNotAllowed, SpeechSynthesisErrorCodeNotAllowed)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SpeechSynthesisErrorCodeCanceled :: JSString+js_SpeechSynthesisErrorCodeCanceled = "canceled"+js_SpeechSynthesisErrorCodeInterrupted :: JSString+js_SpeechSynthesisErrorCodeInterrupted = "interrupted"+js_SpeechSynthesisErrorCodeAudioBusy :: JSString+js_SpeechSynthesisErrorCodeAudioBusy = "audio-busy"+js_SpeechSynthesisErrorCodeAudioHardware :: JSString+js_SpeechSynthesisErrorCodeAudioHardware = "audio-hardware"+js_SpeechSynthesisErrorCodeNetwork :: JSString+js_SpeechSynthesisErrorCodeNetwork = "network"+js_SpeechSynthesisErrorCodeSynthesisUnavailable :: JSString+js_SpeechSynthesisErrorCodeSynthesisUnavailable = "synthesis-unavailable"+js_SpeechSynthesisErrorCodeSynthesisFailed :: JSString+js_SpeechSynthesisErrorCodeSynthesisFailed = "synthesis-failed"+js_SpeechSynthesisErrorCodeLanguageUnavailable :: JSString+js_SpeechSynthesisErrorCodeLanguageUnavailable = "language-unavailable"+js_SpeechSynthesisErrorCodeVoiceUnavailable :: JSString+js_SpeechSynthesisErrorCodeVoiceUnavailable = "voice-unavailable"+js_SpeechSynthesisErrorCodeTextTooLong :: JSString+js_SpeechSynthesisErrorCodeTextTooLong = "text-too-long"+js_SpeechSynthesisErrorCodeInvalidArgument :: JSString+js_SpeechSynthesisErrorCodeInvalidArgument = "invalid-argument"+js_SpeechSynthesisErrorCodeNotAllowed :: JSString+js_SpeechSynthesisErrorCodeNotAllowed = "not-allowed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SurfaceSwitchingPreferenceEnum> (screen-capture)+data SurfaceSwitchingPreferenceEnum = SurfaceSwitchingPreferenceEnumInclude+    | SurfaceSwitchingPreferenceEnumExclude+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SurfaceSwitchingPreferenceEnum where+  pToJSVal x = pToJSVal (case x of+    SurfaceSwitchingPreferenceEnumInclude -> js_SurfaceSwitchingPreferenceEnumInclude+    SurfaceSwitchingPreferenceEnumExclude -> js_SurfaceSwitchingPreferenceEnumExclude+    )++instance ToJSVal SurfaceSwitchingPreferenceEnum where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SurfaceSwitchingPreferenceEnum where+  pFromJSVal x = P.maybe (P.error "Unexpected SurfaceSwitchingPreferenceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SurfaceSwitchingPreferenceEnumInclude, SurfaceSwitchingPreferenceEnumInclude), (js_SurfaceSwitchingPreferenceEnumExclude, SurfaceSwitchingPreferenceEnumExclude)]++instance FromJSVal SurfaceSwitchingPreferenceEnum where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SurfaceSwitchingPreferenceEnumInclude, SurfaceSwitchingPreferenceEnumInclude), (js_SurfaceSwitchingPreferenceEnumExclude, SurfaceSwitchingPreferenceEnumExclude)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SurfaceSwitchingPreferenceEnumInclude :: JSString+js_SurfaceSwitchingPreferenceEnumInclude = "include"+js_SurfaceSwitchingPreferenceEnumExclude :: JSString+js_SurfaceSwitchingPreferenceEnumExclude = "exclude"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SystemAudioPreferenceEnum> (screen-capture)+data SystemAudioPreferenceEnum = SystemAudioPreferenceEnumInclude+    | SystemAudioPreferenceEnumExclude+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SystemAudioPreferenceEnum where+  pToJSVal x = pToJSVal (case x of+    SystemAudioPreferenceEnumInclude -> js_SystemAudioPreferenceEnumInclude+    SystemAudioPreferenceEnumExclude -> js_SystemAudioPreferenceEnumExclude+    )++instance ToJSVal SystemAudioPreferenceEnum where+  toJSVal = P.return . pToJSVal++instance PFromJSVal SystemAudioPreferenceEnum where+  pFromJSVal x = P.maybe (P.error "Unexpected SystemAudioPreferenceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SystemAudioPreferenceEnumInclude, SystemAudioPreferenceEnumInclude), (js_SystemAudioPreferenceEnumExclude, SystemAudioPreferenceEnumExclude)]++instance FromJSVal SystemAudioPreferenceEnum where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_SystemAudioPreferenceEnumInclude, SystemAudioPreferenceEnumInclude), (js_SystemAudioPreferenceEnumExclude, SystemAudioPreferenceEnumExclude)]+  fromJSValUnchecked = P.return . pFromJSVal++js_SystemAudioPreferenceEnumInclude :: JSString+js_SystemAudioPreferenceEnumInclude = "include"+js_SystemAudioPreferenceEnumExclude :: JSString+js_SystemAudioPreferenceEnumExclude = "exclude"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TaskPriority> (scheduling-apis)+data TaskPriority = TaskPriorityUserBlocking+    | TaskPriorityUserVisible+    | TaskPriorityBackground+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TaskPriority where+  pToJSVal x = pToJSVal (case x of+    TaskPriorityUserBlocking -> js_TaskPriorityUserBlocking+    TaskPriorityUserVisible -> js_TaskPriorityUserVisible+    TaskPriorityBackground -> js_TaskPriorityBackground+    )++instance ToJSVal TaskPriority where+  toJSVal = P.return . pToJSVal++instance PFromJSVal TaskPriority where+  pFromJSVal x = P.maybe (P.error "Unexpected TaskPriority value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TaskPriorityUserBlocking, TaskPriorityUserBlocking), (js_TaskPriorityUserVisible, TaskPriorityUserVisible), (js_TaskPriorityBackground, TaskPriorityBackground)]++instance FromJSVal TaskPriority where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TaskPriorityUserBlocking, TaskPriorityUserBlocking), (js_TaskPriorityUserVisible, TaskPriorityUserVisible), (js_TaskPriorityBackground, TaskPriorityBackground)]+  fromJSValUnchecked = P.return . pFromJSVal++js_TaskPriorityUserBlocking :: JSString+js_TaskPriorityUserBlocking = "user-blocking"+js_TaskPriorityUserVisible :: JSString+js_TaskPriorityUserVisible = "user-visible"+js_TaskPriorityBackground :: JSString+js_TaskPriorityBackground = "background"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TextTrackKind> (html)+data TextTrackKind = TextTrackKindSubtitles+    | TextTrackKindCaptions+    | TextTrackKindDescriptions+    | TextTrackKindChapters+    | TextTrackKindMetadata+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TextTrackKind where+  pToJSVal x = pToJSVal (case x of+    TextTrackKindSubtitles -> js_TextTrackKindSubtitles+    TextTrackKindCaptions -> js_TextTrackKindCaptions+    TextTrackKindDescriptions -> js_TextTrackKindDescriptions+    TextTrackKindChapters -> js_TextTrackKindChapters+    TextTrackKindMetadata -> js_TextTrackKindMetadata+    )++instance ToJSVal TextTrackKind where+  toJSVal = P.return . pToJSVal++instance PFromJSVal TextTrackKind where+  pFromJSVal x = P.maybe (P.error "Unexpected TextTrackKind value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TextTrackKindSubtitles, TextTrackKindSubtitles), (js_TextTrackKindCaptions, TextTrackKindCaptions), (js_TextTrackKindDescriptions, TextTrackKindDescriptions), (js_TextTrackKindChapters, TextTrackKindChapters), (js_TextTrackKindMetadata, TextTrackKindMetadata)]++instance FromJSVal TextTrackKind where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TextTrackKindSubtitles, TextTrackKindSubtitles), (js_TextTrackKindCaptions, TextTrackKindCaptions), (js_TextTrackKindDescriptions, TextTrackKindDescriptions), (js_TextTrackKindChapters, TextTrackKindChapters), (js_TextTrackKindMetadata, TextTrackKindMetadata)]+  fromJSValUnchecked = P.return . pFromJSVal++js_TextTrackKindSubtitles :: JSString+js_TextTrackKindSubtitles = "subtitles"+js_TextTrackKindCaptions :: JSString+js_TextTrackKindCaptions = "captions"+js_TextTrackKindDescriptions :: JSString+js_TextTrackKindDescriptions = "descriptions"+js_TextTrackKindChapters :: JSString+js_TextTrackKindChapters = "chapters"+js_TextTrackKindMetadata :: JSString+js_TextTrackKindMetadata = "metadata"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TextTrackMode> (html)+data TextTrackMode = TextTrackModeDisabled+    | TextTrackModeHidden+    | TextTrackModeShowing+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TextTrackMode where+  pToJSVal x = pToJSVal (case x of+    TextTrackModeDisabled -> js_TextTrackModeDisabled+    TextTrackModeHidden -> js_TextTrackModeHidden+    TextTrackModeShowing -> js_TextTrackModeShowing+    )++instance ToJSVal TextTrackMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal TextTrackMode where+  pFromJSVal x = P.maybe (P.error "Unexpected TextTrackMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TextTrackModeDisabled, TextTrackModeDisabled), (js_TextTrackModeHidden, TextTrackModeHidden), (js_TextTrackModeShowing, TextTrackModeShowing)]++instance FromJSVal TextTrackMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TextTrackModeDisabled, TextTrackModeDisabled), (js_TextTrackModeHidden, TextTrackModeHidden), (js_TextTrackModeShowing, TextTrackModeShowing)]+  fromJSValUnchecked = P.return . pFromJSVal++js_TextTrackModeDisabled :: JSString+js_TextTrackModeDisabled = "disabled"+js_TextTrackModeHidden :: JSString+js_TextTrackModeHidden = "hidden"+js_TextTrackModeShowing :: JSString+js_TextTrackModeShowing = "showing"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TokenVersion> (trust-token-api)+data TokenVersion = TokenVersion1+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TokenVersion where+  pToJSVal x = pToJSVal (case x of+    TokenVersion1 -> js_TokenVersion1+    )++instance ToJSVal TokenVersion where+  toJSVal = P.return . pToJSVal++instance PFromJSVal TokenVersion where+  pFromJSVal x = P.maybe (P.error "Unexpected TokenVersion value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TokenVersion1, TokenVersion1)]++instance FromJSVal TokenVersion where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TokenVersion1, TokenVersion1)]+  fromJSValUnchecked = P.return . pFromJSVal++js_TokenVersion1 :: JSString+js_TokenVersion1 = "1"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TouchType> (touch-events)+data TouchType = TouchTypeDirect+    | TouchTypeStylus+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TouchType where+  pToJSVal x = pToJSVal (case x of+    TouchTypeDirect -> js_TouchTypeDirect+    TouchTypeStylus -> js_TouchTypeStylus+    )++instance ToJSVal TouchType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal TouchType where+  pFromJSVal x = P.maybe (P.error "Unexpected TouchType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TouchTypeDirect, TouchTypeDirect), (js_TouchTypeStylus, TouchTypeStylus)]++instance FromJSVal TouchType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TouchTypeDirect, TouchTypeDirect), (js_TouchTypeStylus, TouchTypeStylus)]+  fromJSValUnchecked = P.return . pFromJSVal++js_TouchTypeDirect :: JSString+js_TouchTypeDirect = "direct"+js_TouchTypeStylus :: JSString+js_TouchTypeStylus = "stylus"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TransferFunction> (media-capabilities)+data TransferFunction = TransferFunctionSrgb+    | TransferFunctionPq+    | TransferFunctionHlg+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TransferFunction where+  pToJSVal x = pToJSVal (case x of+    TransferFunctionSrgb -> js_TransferFunctionSrgb+    TransferFunctionPq -> js_TransferFunctionPq+    TransferFunctionHlg -> js_TransferFunctionHlg+    )++instance ToJSVal TransferFunction where+  toJSVal = P.return . pToJSVal++instance PFromJSVal TransferFunction where+  pFromJSVal x = P.maybe (P.error "Unexpected TransferFunction value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TransferFunctionSrgb, TransferFunctionSrgb), (js_TransferFunctionPq, TransferFunctionPq), (js_TransferFunctionHlg, TransferFunctionHlg)]++instance FromJSVal TransferFunction where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_TransferFunctionSrgb, TransferFunctionSrgb), (js_TransferFunctionPq, TransferFunctionPq), (js_TransferFunctionHlg, TransferFunctionHlg)]+  fromJSValUnchecked = P.return . pFromJSVal++js_TransferFunctionSrgb :: JSString+js_TransferFunctionSrgb = "srgb"+js_TransferFunctionPq :: JSString+js_TransferFunctionPq = "pq"+js_TransferFunctionHlg :: JSString+js_TransferFunctionHlg = "hlg"++-- | <https://developer.mozilla.org/en-US/docs/Web/API VideoColorPrimaries> (webcodecs)+data VideoColorPrimaries = VideoColorPrimariesBt709+    | VideoColorPrimariesBt470bg+    | VideoColorPrimariesSmpte170m+    | VideoColorPrimariesBt2020+    | VideoColorPrimariesSmpte432+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal VideoColorPrimaries where+  pToJSVal x = pToJSVal (case x of+    VideoColorPrimariesBt709 -> js_VideoColorPrimariesBt709+    VideoColorPrimariesBt470bg -> js_VideoColorPrimariesBt470bg+    VideoColorPrimariesSmpte170m -> js_VideoColorPrimariesSmpte170m+    VideoColorPrimariesBt2020 -> js_VideoColorPrimariesBt2020+    VideoColorPrimariesSmpte432 -> js_VideoColorPrimariesSmpte432+    )++instance ToJSVal VideoColorPrimaries where+  toJSVal = P.return . pToJSVal++instance PFromJSVal VideoColorPrimaries where+  pFromJSVal x = P.maybe (P.error "Unexpected VideoColorPrimaries value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_VideoColorPrimariesBt709, VideoColorPrimariesBt709), (js_VideoColorPrimariesBt470bg, VideoColorPrimariesBt470bg), (js_VideoColorPrimariesSmpte170m, VideoColorPrimariesSmpte170m), (js_VideoColorPrimariesBt2020, VideoColorPrimariesBt2020), (js_VideoColorPrimariesSmpte432, VideoColorPrimariesSmpte432)]++instance FromJSVal VideoColorPrimaries where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_VideoColorPrimariesBt709, VideoColorPrimariesBt709), (js_VideoColorPrimariesBt470bg, VideoColorPrimariesBt470bg), (js_VideoColorPrimariesSmpte170m, VideoColorPrimariesSmpte170m), (js_VideoColorPrimariesBt2020, VideoColorPrimariesBt2020), (js_VideoColorPrimariesSmpte432, VideoColorPrimariesSmpte432)]+  fromJSValUnchecked = P.return . pFromJSVal++js_VideoColorPrimariesBt709 :: JSString+js_VideoColorPrimariesBt709 = "bt709"+js_VideoColorPrimariesBt470bg :: JSString+js_VideoColorPrimariesBt470bg = "bt470bg"+js_VideoColorPrimariesSmpte170m :: JSString+js_VideoColorPrimariesSmpte170m = "smpte170m"+js_VideoColorPrimariesBt2020 :: JSString+js_VideoColorPrimariesBt2020 = "bt2020"+js_VideoColorPrimariesSmpte432 :: JSString+js_VideoColorPrimariesSmpte432 = "smpte432"++-- | <https://developer.mozilla.org/en-US/docs/Web/API VideoEncoderBitrateMode> (webcodecs)+data VideoEncoderBitrateMode = VideoEncoderBitrateModeConstant+    | VideoEncoderBitrateModeVariable+    | VideoEncoderBitrateModeQuantizer+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal VideoEncoderBitrateMode where+  pToJSVal x = pToJSVal (case x of+    VideoEncoderBitrateModeConstant -> js_VideoEncoderBitrateModeConstant+    VideoEncoderBitrateModeVariable -> js_VideoEncoderBitrateModeVariable+    VideoEncoderBitrateModeQuantizer -> js_VideoEncoderBitrateModeQuantizer+    )++instance ToJSVal VideoEncoderBitrateMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal VideoEncoderBitrateMode where+  pFromJSVal x = P.maybe (P.error "Unexpected VideoEncoderBitrateMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_VideoEncoderBitrateModeConstant, VideoEncoderBitrateModeConstant), (js_VideoEncoderBitrateModeVariable, VideoEncoderBitrateModeVariable), (js_VideoEncoderBitrateModeQuantizer, VideoEncoderBitrateModeQuantizer)]++instance FromJSVal VideoEncoderBitrateMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_VideoEncoderBitrateModeConstant, VideoEncoderBitrateModeConstant), (js_VideoEncoderBitrateModeVariable, VideoEncoderBitrateModeVariable), (js_VideoEncoderBitrateModeQuantizer, VideoEncoderBitrateModeQuantizer)]+  fromJSValUnchecked = P.return . pFromJSVal++js_VideoEncoderBitrateModeConstant :: JSString+js_VideoEncoderBitrateModeConstant = "constant"+js_VideoEncoderBitrateModeVariable :: JSString+js_VideoEncoderBitrateModeVariable = "variable"+js_VideoEncoderBitrateModeQuantizer :: JSString+js_VideoEncoderBitrateModeQuantizer = "quantizer"++-- | <https://developer.mozilla.org/en-US/docs/Web/API VideoMatrixCoefficients> (webcodecs)+data VideoMatrixCoefficients = VideoMatrixCoefficientsRgb+    | VideoMatrixCoefficientsBt709+    | VideoMatrixCoefficientsBt470bg+    | VideoMatrixCoefficientsSmpte170m+    | VideoMatrixCoefficientsBt2020Ncl+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal VideoMatrixCoefficients where+  pToJSVal x = pToJSVal (case x of+    VideoMatrixCoefficientsRgb -> js_VideoMatrixCoefficientsRgb+    VideoMatrixCoefficientsBt709 -> js_VideoMatrixCoefficientsBt709+    VideoMatrixCoefficientsBt470bg -> js_VideoMatrixCoefficientsBt470bg+    VideoMatrixCoefficientsSmpte170m -> js_VideoMatrixCoefficientsSmpte170m+    VideoMatrixCoefficientsBt2020Ncl -> js_VideoMatrixCoefficientsBt2020Ncl+    )++instance ToJSVal VideoMatrixCoefficients where+  toJSVal = P.return . pToJSVal++instance PFromJSVal VideoMatrixCoefficients where+  pFromJSVal x = P.maybe (P.error "Unexpected VideoMatrixCoefficients value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_VideoMatrixCoefficientsRgb, VideoMatrixCoefficientsRgb), (js_VideoMatrixCoefficientsBt709, VideoMatrixCoefficientsBt709), (js_VideoMatrixCoefficientsBt470bg, VideoMatrixCoefficientsBt470bg), (js_VideoMatrixCoefficientsSmpte170m, VideoMatrixCoefficientsSmpte170m), (js_VideoMatrixCoefficientsBt2020Ncl, VideoMatrixCoefficientsBt2020Ncl)]++instance FromJSVal VideoMatrixCoefficients where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_VideoMatrixCoefficientsRgb, VideoMatrixCoefficientsRgb), (js_VideoMatrixCoefficientsBt709, VideoMatrixCoefficientsBt709), (js_VideoMatrixCoefficientsBt470bg, VideoMatrixCoefficientsBt470bg), (js_VideoMatrixCoefficientsSmpte170m, VideoMatrixCoefficientsSmpte170m), (js_VideoMatrixCoefficientsBt2020Ncl, VideoMatrixCoefficientsBt2020Ncl)]+  fromJSValUnchecked = P.return . pFromJSVal++js_VideoMatrixCoefficientsRgb :: JSString+js_VideoMatrixCoefficientsRgb = "rgb"+js_VideoMatrixCoefficientsBt709 :: JSString+js_VideoMatrixCoefficientsBt709 = "bt709"+js_VideoMatrixCoefficientsBt470bg :: JSString+js_VideoMatrixCoefficientsBt470bg = "bt470bg"+js_VideoMatrixCoefficientsSmpte170m :: JSString+js_VideoMatrixCoefficientsSmpte170m = "smpte170m"+js_VideoMatrixCoefficientsBt2020Ncl :: JSString+js_VideoMatrixCoefficientsBt2020Ncl = "bt2020-ncl"++-- | <https://developer.mozilla.org/en-US/docs/Web/API VideoPixelFormat> (webcodecs)+data VideoPixelFormat = VideoPixelFormatI420+    | VideoPixelFormatI420P10+    | VideoPixelFormatI420P12+    | VideoPixelFormatI420A+    | VideoPixelFormatI420AP10+    | VideoPixelFormatI420AP12+    | VideoPixelFormatI422+    | VideoPixelFormatI422P10+    | VideoPixelFormatI422P12+    | VideoPixelFormatI422A+    | VideoPixelFormatI422AP10+    | VideoPixelFormatI422AP12+    | VideoPixelFormatI444+    | VideoPixelFormatI444P10+    | VideoPixelFormatI444P12+    | VideoPixelFormatI444A+    | VideoPixelFormatI444AP10+    | VideoPixelFormatI444AP12+    | VideoPixelFormatNV12+    | VideoPixelFormatRGBA+    | VideoPixelFormatRGBX+    | VideoPixelFormatBGRA+    | VideoPixelFormatBGRX+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal VideoPixelFormat where+  pToJSVal x = pToJSVal (case x of+    VideoPixelFormatI420 -> js_VideoPixelFormatI420+    VideoPixelFormatI420P10 -> js_VideoPixelFormatI420P10+    VideoPixelFormatI420P12 -> js_VideoPixelFormatI420P12+    VideoPixelFormatI420A -> js_VideoPixelFormatI420A+    VideoPixelFormatI420AP10 -> js_VideoPixelFormatI420AP10+    VideoPixelFormatI420AP12 -> js_VideoPixelFormatI420AP12+    VideoPixelFormatI422 -> js_VideoPixelFormatI422+    VideoPixelFormatI422P10 -> js_VideoPixelFormatI422P10+    VideoPixelFormatI422P12 -> js_VideoPixelFormatI422P12+    VideoPixelFormatI422A -> js_VideoPixelFormatI422A+    VideoPixelFormatI422AP10 -> js_VideoPixelFormatI422AP10+    VideoPixelFormatI422AP12 -> js_VideoPixelFormatI422AP12+    VideoPixelFormatI444 -> js_VideoPixelFormatI444+    VideoPixelFormatI444P10 -> js_VideoPixelFormatI444P10+    VideoPixelFormatI444P12 -> js_VideoPixelFormatI444P12+    VideoPixelFormatI444A -> js_VideoPixelFormatI444A+    VideoPixelFormatI444AP10 -> js_VideoPixelFormatI444AP10+    VideoPixelFormatI444AP12 -> js_VideoPixelFormatI444AP12+    VideoPixelFormatNV12 -> js_VideoPixelFormatNV12+    VideoPixelFormatRGBA -> js_VideoPixelFormatRGBA+    VideoPixelFormatRGBX -> js_VideoPixelFormatRGBX+    VideoPixelFormatBGRA -> js_VideoPixelFormatBGRA+    VideoPixelFormatBGRX -> js_VideoPixelFormatBGRX+    )++instance ToJSVal VideoPixelFormat where+  toJSVal = P.return . pToJSVal++instance PFromJSVal VideoPixelFormat where+  pFromJSVal x = P.maybe (P.error "Unexpected VideoPixelFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_VideoPixelFormatI420, VideoPixelFormatI420), (js_VideoPixelFormatI420P10, VideoPixelFormatI420P10), (js_VideoPixelFormatI420P12, VideoPixelFormatI420P12), (js_VideoPixelFormatI420A, VideoPixelFormatI420A), (js_VideoPixelFormatI420AP10, VideoPixelFormatI420AP10), (js_VideoPixelFormatI420AP12, VideoPixelFormatI420AP12), (js_VideoPixelFormatI422, VideoPixelFormatI422), (js_VideoPixelFormatI422P10, VideoPixelFormatI422P10), (js_VideoPixelFormatI422P12, VideoPixelFormatI422P12), (js_VideoPixelFormatI422A, VideoPixelFormatI422A), (js_VideoPixelFormatI422AP10, VideoPixelFormatI422AP10), (js_VideoPixelFormatI422AP12, VideoPixelFormatI422AP12), (js_VideoPixelFormatI444, VideoPixelFormatI444), (js_VideoPixelFormatI444P10, VideoPixelFormatI444P10), (js_VideoPixelFormatI444P12, VideoPixelFormatI444P12), (js_VideoPixelFormatI444A, VideoPixelFormatI444A), (js_VideoPixelFormatI444AP10, VideoPixelFormatI444AP10), (js_VideoPixelFormatI444AP12, VideoPixelFormatI444AP12), (js_VideoPixelFormatNV12, VideoPixelFormatNV12), (js_VideoPixelFormatRGBA, VideoPixelFormatRGBA), (js_VideoPixelFormatRGBX, VideoPixelFormatRGBX), (js_VideoPixelFormatBGRA, VideoPixelFormatBGRA), (js_VideoPixelFormatBGRX, VideoPixelFormatBGRX)]++instance FromJSVal VideoPixelFormat where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_VideoPixelFormatI420, VideoPixelFormatI420), (js_VideoPixelFormatI420P10, VideoPixelFormatI420P10), (js_VideoPixelFormatI420P12, VideoPixelFormatI420P12), (js_VideoPixelFormatI420A, VideoPixelFormatI420A), (js_VideoPixelFormatI420AP10, VideoPixelFormatI420AP10), (js_VideoPixelFormatI420AP12, VideoPixelFormatI420AP12), (js_VideoPixelFormatI422, VideoPixelFormatI422), (js_VideoPixelFormatI422P10, VideoPixelFormatI422P10), (js_VideoPixelFormatI422P12, VideoPixelFormatI422P12), (js_VideoPixelFormatI422A, VideoPixelFormatI422A), (js_VideoPixelFormatI422AP10, VideoPixelFormatI422AP10), (js_VideoPixelFormatI422AP12, VideoPixelFormatI422AP12), (js_VideoPixelFormatI444, VideoPixelFormatI444), (js_VideoPixelFormatI444P10, VideoPixelFormatI444P10), (js_VideoPixelFormatI444P12, VideoPixelFormatI444P12), (js_VideoPixelFormatI444A, VideoPixelFormatI444A), (js_VideoPixelFormatI444AP10, VideoPixelFormatI444AP10), (js_VideoPixelFormatI444AP12, VideoPixelFormatI444AP12), (js_VideoPixelFormatNV12, VideoPixelFormatNV12), (js_VideoPixelFormatRGBA, VideoPixelFormatRGBA), (js_VideoPixelFormatRGBX, VideoPixelFormatRGBX), (js_VideoPixelFormatBGRA, VideoPixelFormatBGRA), (js_VideoPixelFormatBGRX, VideoPixelFormatBGRX)]+  fromJSValUnchecked = P.return . pFromJSVal++js_VideoPixelFormatI420 :: JSString+js_VideoPixelFormatI420 = "I420"+js_VideoPixelFormatI420P10 :: JSString+js_VideoPixelFormatI420P10 = "I420P10"+js_VideoPixelFormatI420P12 :: JSString+js_VideoPixelFormatI420P12 = "I420P12"+js_VideoPixelFormatI420A :: JSString+js_VideoPixelFormatI420A = "I420A"+js_VideoPixelFormatI420AP10 :: JSString+js_VideoPixelFormatI420AP10 = "I420AP10"+js_VideoPixelFormatI420AP12 :: JSString+js_VideoPixelFormatI420AP12 = "I420AP12"+js_VideoPixelFormatI422 :: JSString+js_VideoPixelFormatI422 = "I422"+js_VideoPixelFormatI422P10 :: JSString+js_VideoPixelFormatI422P10 = "I422P10"+js_VideoPixelFormatI422P12 :: JSString+js_VideoPixelFormatI422P12 = "I422P12"+js_VideoPixelFormatI422A :: JSString+js_VideoPixelFormatI422A = "I422A"+js_VideoPixelFormatI422AP10 :: JSString+js_VideoPixelFormatI422AP10 = "I422AP10"+js_VideoPixelFormatI422AP12 :: JSString+js_VideoPixelFormatI422AP12 = "I422AP12"+js_VideoPixelFormatI444 :: JSString+js_VideoPixelFormatI444 = "I444"+js_VideoPixelFormatI444P10 :: JSString+js_VideoPixelFormatI444P10 = "I444P10"+js_VideoPixelFormatI444P12 :: JSString+js_VideoPixelFormatI444P12 = "I444P12"+js_VideoPixelFormatI444A :: JSString+js_VideoPixelFormatI444A = "I444A"+js_VideoPixelFormatI444AP10 :: JSString+js_VideoPixelFormatI444AP10 = "I444AP10"+js_VideoPixelFormatI444AP12 :: JSString+js_VideoPixelFormatI444AP12 = "I444AP12"+js_VideoPixelFormatNV12 :: JSString+js_VideoPixelFormatNV12 = "NV12"+js_VideoPixelFormatRGBA :: JSString+js_VideoPixelFormatRGBA = "RGBA"+js_VideoPixelFormatRGBX :: JSString+js_VideoPixelFormatRGBX = "RGBX"+js_VideoPixelFormatBGRA :: JSString+js_VideoPixelFormatBGRA = "BGRA"+js_VideoPixelFormatBGRX :: JSString+js_VideoPixelFormatBGRX = "BGRX"++-- | <https://developer.mozilla.org/en-US/docs/Web/API VideoTransferCharacteristics> (webcodecs)+data VideoTransferCharacteristics = VideoTransferCharacteristicsBt709+    | VideoTransferCharacteristicsSmpte170m+    | VideoTransferCharacteristicsIec6196621+    | VideoTransferCharacteristicsLinear+    | VideoTransferCharacteristicsPq+    | VideoTransferCharacteristicsHlg+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal VideoTransferCharacteristics where+  pToJSVal x = pToJSVal (case x of+    VideoTransferCharacteristicsBt709 -> js_VideoTransferCharacteristicsBt709+    VideoTransferCharacteristicsSmpte170m -> js_VideoTransferCharacteristicsSmpte170m+    VideoTransferCharacteristicsIec6196621 -> js_VideoTransferCharacteristicsIec6196621+    VideoTransferCharacteristicsLinear -> js_VideoTransferCharacteristicsLinear+    VideoTransferCharacteristicsPq -> js_VideoTransferCharacteristicsPq+    VideoTransferCharacteristicsHlg -> js_VideoTransferCharacteristicsHlg+    )++instance ToJSVal VideoTransferCharacteristics where+  toJSVal = P.return . pToJSVal++instance PFromJSVal VideoTransferCharacteristics where+  pFromJSVal x = P.maybe (P.error "Unexpected VideoTransferCharacteristics value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_VideoTransferCharacteristicsBt709, VideoTransferCharacteristicsBt709), (js_VideoTransferCharacteristicsSmpte170m, VideoTransferCharacteristicsSmpte170m), (js_VideoTransferCharacteristicsIec6196621, VideoTransferCharacteristicsIec6196621), (js_VideoTransferCharacteristicsLinear, VideoTransferCharacteristicsLinear), (js_VideoTransferCharacteristicsPq, VideoTransferCharacteristicsPq), (js_VideoTransferCharacteristicsHlg, VideoTransferCharacteristicsHlg)]++instance FromJSVal VideoTransferCharacteristics where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_VideoTransferCharacteristicsBt709, VideoTransferCharacteristicsBt709), (js_VideoTransferCharacteristicsSmpte170m, VideoTransferCharacteristicsSmpte170m), (js_VideoTransferCharacteristicsIec6196621, VideoTransferCharacteristicsIec6196621), (js_VideoTransferCharacteristicsLinear, VideoTransferCharacteristicsLinear), (js_VideoTransferCharacteristicsPq, VideoTransferCharacteristicsPq), (js_VideoTransferCharacteristicsHlg, VideoTransferCharacteristicsHlg)]+  fromJSValUnchecked = P.return . pFromJSVal++js_VideoTransferCharacteristicsBt709 :: JSString+js_VideoTransferCharacteristicsBt709 = "bt709"+js_VideoTransferCharacteristicsSmpte170m :: JSString+js_VideoTransferCharacteristicsSmpte170m = "smpte170m"+js_VideoTransferCharacteristicsIec6196621 :: JSString+js_VideoTransferCharacteristicsIec6196621 = "iec61966-2-1"+js_VideoTransferCharacteristicsLinear :: JSString+js_VideoTransferCharacteristicsLinear = "linear"+js_VideoTransferCharacteristicsPq :: JSString+js_VideoTransferCharacteristicsPq = "pq"+js_VideoTransferCharacteristicsHlg :: JSString+js_VideoTransferCharacteristicsHlg = "hlg"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WakeLockType> (screen-wake-lock)+data WakeLockType = WakeLockTypeScreen+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WakeLockType where+  pToJSVal x = pToJSVal (case x of+    WakeLockTypeScreen -> js_WakeLockTypeScreen+    )++instance ToJSVal WakeLockType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal WakeLockType where+  pFromJSVal x = P.maybe (P.error "Unexpected WakeLockType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WakeLockTypeScreen, WakeLockTypeScreen)]++instance FromJSVal WakeLockType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WakeLockTypeScreen, WakeLockTypeScreen)]+  fromJSValUnchecked = P.return . pFromJSVal++js_WakeLockTypeScreen :: JSString+js_WakeLockTypeScreen = "screen"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WebGLPowerPreference> (webgl1)+data WebGLPowerPreference = WebGLPowerPreferenceDefault+    | WebGLPowerPreferenceLowPower+    | WebGLPowerPreferenceHighPerformance+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WebGLPowerPreference where+  pToJSVal x = pToJSVal (case x of+    WebGLPowerPreferenceDefault -> js_WebGLPowerPreferenceDefault+    WebGLPowerPreferenceLowPower -> js_WebGLPowerPreferenceLowPower+    WebGLPowerPreferenceHighPerformance -> js_WebGLPowerPreferenceHighPerformance+    )++instance ToJSVal WebGLPowerPreference where+  toJSVal = P.return . pToJSVal++instance PFromJSVal WebGLPowerPreference where+  pFromJSVal x = P.maybe (P.error "Unexpected WebGLPowerPreference value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WebGLPowerPreferenceDefault, WebGLPowerPreferenceDefault), (js_WebGLPowerPreferenceLowPower, WebGLPowerPreferenceLowPower), (js_WebGLPowerPreferenceHighPerformance, WebGLPowerPreferenceHighPerformance)]++instance FromJSVal WebGLPowerPreference where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WebGLPowerPreferenceDefault, WebGLPowerPreferenceDefault), (js_WebGLPowerPreferenceLowPower, WebGLPowerPreferenceLowPower), (js_WebGLPowerPreferenceHighPerformance, WebGLPowerPreferenceHighPerformance)]+  fromJSValUnchecked = P.return . pFromJSVal++js_WebGLPowerPreferenceDefault :: JSString+js_WebGLPowerPreferenceDefault = "default"+js_WebGLPowerPreferenceLowPower :: JSString+js_WebGLPowerPreferenceLowPower = "low-power"+js_WebGLPowerPreferenceHighPerformance :: JSString+js_WebGLPowerPreferenceHighPerformance = "high-performance"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WebTransportCongestionControl> (webtransport)+data WebTransportCongestionControl = WebTransportCongestionControlDefault+    | WebTransportCongestionControlThroughput+    | WebTransportCongestionControlLowLatency+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WebTransportCongestionControl where+  pToJSVal x = pToJSVal (case x of+    WebTransportCongestionControlDefault -> js_WebTransportCongestionControlDefault+    WebTransportCongestionControlThroughput -> js_WebTransportCongestionControlThroughput+    WebTransportCongestionControlLowLatency -> js_WebTransportCongestionControlLowLatency+    )++instance ToJSVal WebTransportCongestionControl where+  toJSVal = P.return . pToJSVal++instance PFromJSVal WebTransportCongestionControl where+  pFromJSVal x = P.maybe (P.error "Unexpected WebTransportCongestionControl value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WebTransportCongestionControlDefault, WebTransportCongestionControlDefault), (js_WebTransportCongestionControlThroughput, WebTransportCongestionControlThroughput), (js_WebTransportCongestionControlLowLatency, WebTransportCongestionControlLowLatency)]++instance FromJSVal WebTransportCongestionControl where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WebTransportCongestionControlDefault, WebTransportCongestionControlDefault), (js_WebTransportCongestionControlThroughput, WebTransportCongestionControlThroughput), (js_WebTransportCongestionControlLowLatency, WebTransportCongestionControlLowLatency)]+  fromJSValUnchecked = P.return . pFromJSVal++js_WebTransportCongestionControlDefault :: JSString+js_WebTransportCongestionControlDefault = "default"+js_WebTransportCongestionControlThroughput :: JSString+js_WebTransportCongestionControlThroughput = "throughput"+js_WebTransportCongestionControlLowLatency :: JSString+js_WebTransportCongestionControlLowLatency = "low-latency"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WebTransportErrorSource> (webtransport)+data WebTransportErrorSource = WebTransportErrorSourceStream+    | WebTransportErrorSourceSession+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WebTransportErrorSource where+  pToJSVal x = pToJSVal (case x of+    WebTransportErrorSourceStream -> js_WebTransportErrorSourceStream+    WebTransportErrorSourceSession -> js_WebTransportErrorSourceSession+    )++instance ToJSVal WebTransportErrorSource where+  toJSVal = P.return . pToJSVal++instance PFromJSVal WebTransportErrorSource where+  pFromJSVal x = P.maybe (P.error "Unexpected WebTransportErrorSource value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WebTransportErrorSourceStream, WebTransportErrorSourceStream), (js_WebTransportErrorSourceSession, WebTransportErrorSourceSession)]++instance FromJSVal WebTransportErrorSource where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WebTransportErrorSourceStream, WebTransportErrorSourceStream), (js_WebTransportErrorSourceSession, WebTransportErrorSourceSession)]+  fromJSValUnchecked = P.return . pFromJSVal++js_WebTransportErrorSourceStream :: JSString+js_WebTransportErrorSourceStream = "stream"+js_WebTransportErrorSourceSession :: JSString+js_WebTransportErrorSourceSession = "session"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WebTransportReliabilityMode> (webtransport)+data WebTransportReliabilityMode = WebTransportReliabilityModePending+    | WebTransportReliabilityModeReliableOnly+    | WebTransportReliabilityModeSupportsUnreliable+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WebTransportReliabilityMode where+  pToJSVal x = pToJSVal (case x of+    WebTransportReliabilityModePending -> js_WebTransportReliabilityModePending+    WebTransportReliabilityModeReliableOnly -> js_WebTransportReliabilityModeReliableOnly+    WebTransportReliabilityModeSupportsUnreliable -> js_WebTransportReliabilityModeSupportsUnreliable+    )++instance ToJSVal WebTransportReliabilityMode where+  toJSVal = P.return . pToJSVal++instance PFromJSVal WebTransportReliabilityMode where+  pFromJSVal x = P.maybe (P.error "Unexpected WebTransportReliabilityMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WebTransportReliabilityModePending, WebTransportReliabilityModePending), (js_WebTransportReliabilityModeReliableOnly, WebTransportReliabilityModeReliableOnly), (js_WebTransportReliabilityModeSupportsUnreliable, WebTransportReliabilityModeSupportsUnreliable)]++instance FromJSVal WebTransportReliabilityMode where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WebTransportReliabilityModePending, WebTransportReliabilityModePending), (js_WebTransportReliabilityModeReliableOnly, WebTransportReliabilityModeReliableOnly), (js_WebTransportReliabilityModeSupportsUnreliable, WebTransportReliabilityModeSupportsUnreliable)]+  fromJSValUnchecked = P.return . pFromJSVal++js_WebTransportReliabilityModePending :: JSString+js_WebTransportReliabilityModePending = "pending"+js_WebTransportReliabilityModeReliableOnly :: JSString+js_WebTransportReliabilityModeReliableOnly = "reliable-only"+js_WebTransportReliabilityModeSupportsUnreliable :: JSString+js_WebTransportReliabilityModeSupportsUnreliable = "supports-unreliable"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WindowAudioPreferenceEnum> (screen-capture)+data WindowAudioPreferenceEnum = WindowAudioPreferenceEnumSystem+    | WindowAudioPreferenceEnumWindow+    | WindowAudioPreferenceEnumExclude+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WindowAudioPreferenceEnum where+  pToJSVal x = pToJSVal (case x of+    WindowAudioPreferenceEnumSystem -> js_WindowAudioPreferenceEnumSystem+    WindowAudioPreferenceEnumWindow -> js_WindowAudioPreferenceEnumWindow+    WindowAudioPreferenceEnumExclude -> js_WindowAudioPreferenceEnumExclude+    )++instance ToJSVal WindowAudioPreferenceEnum where+  toJSVal = P.return . pToJSVal++instance PFromJSVal WindowAudioPreferenceEnum where+  pFromJSVal x = P.maybe (P.error "Unexpected WindowAudioPreferenceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WindowAudioPreferenceEnumSystem, WindowAudioPreferenceEnumSystem), (js_WindowAudioPreferenceEnumWindow, WindowAudioPreferenceEnumWindow), (js_WindowAudioPreferenceEnumExclude, WindowAudioPreferenceEnumExclude)]++instance FromJSVal WindowAudioPreferenceEnum where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WindowAudioPreferenceEnumSystem, WindowAudioPreferenceEnumSystem), (js_WindowAudioPreferenceEnumWindow, WindowAudioPreferenceEnumWindow), (js_WindowAudioPreferenceEnumExclude, WindowAudioPreferenceEnumExclude)]+  fromJSValUnchecked = P.return . pFromJSVal++js_WindowAudioPreferenceEnumSystem :: JSString+js_WindowAudioPreferenceEnumSystem = "system"+js_WindowAudioPreferenceEnumWindow :: JSString+js_WindowAudioPreferenceEnumWindow = "window"+js_WindowAudioPreferenceEnumExclude :: JSString+js_WindowAudioPreferenceEnumExclude = "exclude"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WorkerType> (html)+data WorkerType = WorkerTypeClassic+    | WorkerTypeModule+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WorkerType where+  pToJSVal x = pToJSVal (case x of+    WorkerTypeClassic -> js_WorkerTypeClassic+    WorkerTypeModule -> js_WorkerTypeModule+    )++instance ToJSVal WorkerType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal WorkerType where+  pFromJSVal x = P.maybe (P.error "Unexpected WorkerType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WorkerTypeClassic, WorkerTypeClassic), (js_WorkerTypeModule, WorkerTypeModule)]++instance FromJSVal WorkerType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WorkerTypeClassic, WorkerTypeClassic), (js_WorkerTypeModule, WorkerTypeModule)]+  fromJSValUnchecked = P.return . pFromJSVal++js_WorkerTypeClassic :: JSString+js_WorkerTypeClassic = "classic"+js_WorkerTypeModule :: JSString+js_WorkerTypeModule = "module"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WriteCommandType> (fs)+data WriteCommandType = WriteCommandTypeWrite+    | WriteCommandTypeSeek+    | WriteCommandTypeTruncate+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WriteCommandType where+  pToJSVal x = pToJSVal (case x of+    WriteCommandTypeWrite -> js_WriteCommandTypeWrite+    WriteCommandTypeSeek -> js_WriteCommandTypeSeek+    WriteCommandTypeTruncate -> js_WriteCommandTypeTruncate+    )++instance ToJSVal WriteCommandType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal WriteCommandType where+  pFromJSVal x = P.maybe (P.error "Unexpected WriteCommandType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WriteCommandTypeWrite, WriteCommandTypeWrite), (js_WriteCommandTypeSeek, WriteCommandTypeSeek), (js_WriteCommandTypeTruncate, WriteCommandTypeTruncate)]++instance FromJSVal WriteCommandType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_WriteCommandTypeWrite, WriteCommandTypeWrite), (js_WriteCommandTypeSeek, WriteCommandTypeSeek), (js_WriteCommandTypeTruncate, WriteCommandTypeTruncate)]+  fromJSValUnchecked = P.return . pFromJSVal++js_WriteCommandTypeWrite :: JSString+js_WriteCommandTypeWrite = "write"+js_WriteCommandTypeSeek :: JSString+js_WriteCommandTypeSeek = "seek"+js_WriteCommandTypeTruncate :: JSString+js_WriteCommandTypeTruncate = "truncate"++-- | <https://developer.mozilla.org/en-US/docs/Web/API XMLHttpRequestResponseType> (xhr)+data XMLHttpRequestResponseType = XMLHttpRequestResponseType+    | XMLHttpRequestResponseTypeArraybuffer+    | XMLHttpRequestResponseTypeBlob+    | XMLHttpRequestResponseTypeDocument+    | XMLHttpRequestResponseTypeJson+    | XMLHttpRequestResponseTypeText+    deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal XMLHttpRequestResponseType where+  pToJSVal x = pToJSVal (case x of+    XMLHttpRequestResponseType -> js_XMLHttpRequestResponseType+    XMLHttpRequestResponseTypeArraybuffer -> js_XMLHttpRequestResponseTypeArraybuffer+    XMLHttpRequestResponseTypeBlob -> js_XMLHttpRequestResponseTypeBlob+    XMLHttpRequestResponseTypeDocument -> js_XMLHttpRequestResponseTypeDocument+    XMLHttpRequestResponseTypeJson -> js_XMLHttpRequestResponseTypeJson+    XMLHttpRequestResponseTypeText -> js_XMLHttpRequestResponseTypeText+    )++instance ToJSVal XMLHttpRequestResponseType where+  toJSVal = P.return . pToJSVal++instance PFromJSVal XMLHttpRequestResponseType where+  pFromJSVal x = P.maybe (P.error "Unexpected XMLHttpRequestResponseType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_XMLHttpRequestResponseType, XMLHttpRequestResponseType), (js_XMLHttpRequestResponseTypeArraybuffer, XMLHttpRequestResponseTypeArraybuffer), (js_XMLHttpRequestResponseTypeBlob, XMLHttpRequestResponseTypeBlob), (js_XMLHttpRequestResponseTypeDocument, XMLHttpRequestResponseTypeDocument), (js_XMLHttpRequestResponseTypeJson, XMLHttpRequestResponseTypeJson), (js_XMLHttpRequestResponseTypeText, XMLHttpRequestResponseTypeText)]++instance FromJSVal XMLHttpRequestResponseType where+  fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+    where table = [(js_XMLHttpRequestResponseType, XMLHttpRequestResponseType), (js_XMLHttpRequestResponseTypeArraybuffer, XMLHttpRequestResponseTypeArraybuffer), (js_XMLHttpRequestResponseTypeBlob, XMLHttpRequestResponseTypeBlob), (js_XMLHttpRequestResponseTypeDocument, XMLHttpRequestResponseTypeDocument), (js_XMLHttpRequestResponseTypeJson, XMLHttpRequestResponseTypeJson), (js_XMLHttpRequestResponseTypeText, XMLHttpRequestResponseTypeText)]+  fromJSValUnchecked = P.return . pFromJSVal++js_XMLHttpRequestResponseType :: JSString+js_XMLHttpRequestResponseType = ""+js_XMLHttpRequestResponseTypeArraybuffer :: JSString+js_XMLHttpRequestResponseTypeArraybuffer = "arraybuffer"+js_XMLHttpRequestResponseTypeBlob :: JSString+js_XMLHttpRequestResponseTypeBlob = "blob"+js_XMLHttpRequestResponseTypeDocument :: JSString+js_XMLHttpRequestResponseTypeDocument = "document"+js_XMLHttpRequestResponseTypeJson :: JSString+js_XMLHttpRequestResponseTypeJson = "json"+js_XMLHttpRequestResponseTypeText :: JSString+js_XMLHttpRequestResponseTypeText = "text"+
+ src/GHCJS/DOM/JSFFI/Generated/ErrorCallback.hs view
@@ -0,0 +1,29 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from entries-api (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ErrorCallback+       (newErrorCallback, newErrorCallbackSync, newErrorCallbackAsync, ErrorCallback)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import Data.Coerce (coerce)+import GHC.JS.Foreign.Callback (OnBlocked(..), syncCallback1, asyncCallback1)+import GHCJS.DOM.Types+import GHCJS.DOM.JSFFI.Generated.Enums++newErrorCallback :: (MonadDOM m) => (DOMException -> IO ()) -> m ErrorCallback+newErrorCallback callback = liftDOM ((ErrorCallback . coerce) <$> syncCallback1 ContinueAsync (\ err -> do+          err' <- fromJSValUnchecked err+          callback err'))++newErrorCallbackSync :: (MonadDOM m) => (DOMException -> IO ()) -> m ErrorCallback+newErrorCallbackSync callback = liftDOM ((ErrorCallback . coerce) <$> syncCallback1 ThrowWouldBlock (\ err -> do+          err' <- fromJSValUnchecked err+          callback err'))++newErrorCallbackAsync :: (MonadDOM m) => (DOMException -> IO ()) -> m ErrorCallback+newErrorCallbackAsync callback = liftDOM ((ErrorCallback . coerce) <$> asyncCallback1 (\ err -> do+          err' <- fromJSValUnchecked err+          callback err'))
src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs view
@@ -1,78 +1,53 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.ErrorEvent-       (js_newErrorEvent, newErrorEvent, js_getMessage, getMessage,-        js_getFilename, getFilename, js_getLineno, getLineno, js_getColno,-        getColno, js_getError, getError, ErrorEvent(..), gTypeErrorEvent)+       (js_newErrorEvent, js_getMessage, js_getFilename, js_getLineno, js_getColno, js_getError, newErrorEvent, getMessage, getFilename, getLineno, getColno, getError, ErrorEvent(..), gTypeErrorEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2) => { return new window[\"ErrorEvent\"]($1, $2); })" js_newErrorEvent ::-        JSString -> Optional ErrorEventInit -> IO ErrorEvent --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent Mozilla ErrorEvent documentation> -newErrorEvent ::-              (MonadIO m, ToJSString type') =>-                type' -> Maybe ErrorEventInit -> m ErrorEvent-newErrorEvent type' eventInitDict-  = liftIO-      (js_newErrorEvent (toJSString type')-         (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" js_getMessage ::-        ErrorEvent -> IO JSString+foreign import javascript safe "(($1, $2) => { return new globalThis[\"ErrorEvent\"]($1, $2); })"+        js_newErrorEvent :: JSString -> JSVal -> IO ErrorEvent+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/ErrorEvent MDN ErrorEvent. documentation>+newErrorEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe ErrorEventInit -> m ErrorEvent+newErrorEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newErrorEvent (toJSString type') a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.message Mozilla ErrorEvent.message documentation> -getMessage ::-           (MonadIO m, FromJSString result) => ErrorEvent -> m result-getMessage self = liftIO (fromJSString <$> (js_getMessage self))- -foreign import javascript unsafe "(($1) => { return $1[\"filename\"]; })" js_getFilename-        :: ErrorEvent -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })"+        js_getMessage :: ErrorEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/message MDN ErrorEvent.message documentation>+getMessage :: (MonadDOM m, FromJSString result) => ErrorEvent -> m result+getMessage self = liftDOM ((fromJSString <$> (js_getMessage (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.filename Mozilla ErrorEvent.filename documentation> -getFilename ::-            (MonadIO m, FromJSString result) => ErrorEvent -> m result-getFilename self = liftIO (fromJSString <$> (js_getFilename self))- -foreign import javascript unsafe "(($1) => { return $1[\"lineno\"]; })" js_getLineno ::-        ErrorEvent -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"filename\"]; })"+        js_getFilename :: ErrorEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/filename MDN ErrorEvent.filename documentation>+getFilename :: (MonadDOM m, FromJSString result) => ErrorEvent -> m result+getFilename self = liftDOM ((fromJSString <$> (js_getFilename (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.lineno Mozilla ErrorEvent.lineno documentation> -getLineno :: (MonadIO m) => ErrorEvent -> m Word-getLineno self = liftIO (js_getLineno self)- -foreign import javascript unsafe "(($1) => { return $1[\"colno\"]; })" js_getColno ::-        ErrorEvent -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"lineno\"]; })"+        js_getLineno :: ErrorEvent -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/lineno MDN ErrorEvent.lineno documentation>+getLineno :: (MonadDOM m) => ErrorEvent -> m Word+getLineno self = liftDOM ((js_getLineno (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.colno Mozilla ErrorEvent.colno documentation> -getColno :: (MonadIO m) => ErrorEvent -> m Word-getColno self = liftIO (js_getColno self)- -foreign import javascript unsafe "(($1) => { return $1[\"error\"]; })" js_getError ::-        ErrorEvent -> IO JSVal+foreign import javascript unsafe "(($1) => { return $1[\"colno\"]; })"+        js_getColno :: ErrorEvent -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/colno MDN ErrorEvent.colno documentation>+getColno :: (MonadDOM m) => ErrorEvent -> m Word+getColno self = liftDOM ((js_getColno (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.error Mozilla ErrorEvent.error documentation> -getError :: (MonadIO m) => ErrorEvent -> m JSVal-getError self = liftIO (js_getError self)+foreign import javascript unsafe "(($1) => { return $1[\"error\"]; })"+        js_getError :: ErrorEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/error MDN ErrorEvent.error documentation>+getError :: (MonadDOM m) => ErrorEvent -> m JSVal+getError self = liftDOM ((js_getError (self)))
+ src/GHCJS/DOM/JSFFI/Generated/ErrorEventInit.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ErrorEventInit+       (js_newErrorEventInit, js_setMessage, js_getMessage, js_setFilename, js_getFilename, js_setLineno, js_getLineno, js_setColno, js_getColno, js_setError, js_getError, newErrorEventInit, setMessage, getMessage, getMessageUnsafe, getMessageUnchecked, setFilename, getFilename, getFilenameUnsafe, getFilenameUnchecked, setLineno, getLineno, getLinenoUnsafe, getLinenoUnchecked, setColno, getColno, getColnoUnsafe, getColnoUnchecked, setError, getError, ErrorEventInit(..), gTypeErrorEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newErrorEventInit :: IO ErrorEventInit+-- | <https://html.spec.whatwg.org/multipage/webappapis.html#erroreventinit ErrorEventInit specification>+newErrorEventInit :: (MonadDOM m) => m ErrorEventInit+newErrorEventInit = liftDOM ((js_newErrorEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"message\"] = $2; })"+        js_setMessage :: ErrorEventInit -> JSString -> IO ()+setMessage :: (MonadDOM m, ToJSString val) => ErrorEventInit -> val -> m ()+setMessage self val = liftDOM (void ((js_setMessage (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })"+        js_getMessage :: ErrorEventInit -> IO JSVal+getMessage :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m (Maybe result)+getMessage self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getMessage (self))))++getMessageUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ErrorEventInit -> m result+getMessageUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getMessage (self))) >>= P.maybe (P.error "Nothing to return") P.return))++getMessageUnchecked :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m result+getMessageUnchecked self = liftDOM ((pFromJSVal <$> (js_getMessage (self))))++foreign import javascript safe "(($1, $2) => { $1[\"filename\"] = $2; })"+        js_setFilename :: ErrorEventInit -> JSString -> IO ()+setFilename :: (MonadDOM m, ToJSString val) => ErrorEventInit -> val -> m ()+setFilename self val = liftDOM (void ((js_setFilename (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"filename\"]; })"+        js_getFilename :: ErrorEventInit -> IO JSVal+getFilename :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m (Maybe result)+getFilename self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getFilename (self))))++getFilenameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ErrorEventInit -> m result+getFilenameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getFilename (self))) >>= P.maybe (P.error "Nothing to return") P.return))++getFilenameUnchecked :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m result+getFilenameUnchecked self = liftDOM ((pFromJSVal <$> (js_getFilename (self))))++foreign import javascript safe "(($1, $2) => { $1[\"lineno\"] = $2; })"+        js_setLineno :: ErrorEventInit -> Word -> IO ()+setLineno :: (MonadDOM m) => ErrorEventInit -> Word -> m ()+setLineno self val = liftDOM (void ((js_setLineno (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"lineno\"]; })"+        js_getLineno :: ErrorEventInit -> IO JSVal+getLineno :: (MonadDOM m) => ErrorEventInit -> m (Maybe Word)+getLineno self = liftDOM (((js_getLineno (self)) >>= fromJSValUnchecked))++getLinenoUnsafe :: (MonadDOM m, HasCallStack) => ErrorEventInit -> m Word+getLinenoUnsafe self = liftDOM ((((js_getLineno (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++getLinenoUnchecked :: (MonadDOM m) => ErrorEventInit -> m Word+getLinenoUnchecked self = liftDOM ((pFromJSVal <$> (js_getLineno (self))))++foreign import javascript safe "(($1, $2) => { $1[\"colno\"] = $2; })"+        js_setColno :: ErrorEventInit -> Word -> IO ()+setColno :: (MonadDOM m) => ErrorEventInit -> Word -> m ()+setColno self val = liftDOM (void ((js_setColno (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"colno\"]; })"+        js_getColno :: ErrorEventInit -> IO JSVal+getColno :: (MonadDOM m) => ErrorEventInit -> m (Maybe Word)+getColno self = liftDOM (((js_getColno (self)) >>= fromJSValUnchecked))++getColnoUnsafe :: (MonadDOM m, HasCallStack) => ErrorEventInit -> m Word+getColnoUnsafe self = liftDOM ((((js_getColno (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++getColnoUnchecked :: (MonadDOM m) => ErrorEventInit -> m Word+getColnoUnchecked self = liftDOM ((pFromJSVal <$> (js_getColno (self))))++foreign import javascript safe "(($1, $2) => { $1[\"error\"] = $2; })"+        js_setError :: ErrorEventInit -> JSVal -> IO ()+setError :: (MonadDOM m) => ErrorEventInit -> JSVal -> m ()+setError self val = liftDOM (void ((js_setError (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"error\"]; })"+        js_getError :: ErrorEventInit -> IO JSVal+getError :: (MonadDOM m) => ErrorEventInit -> m JSVal+getError self = liftDOM ((js_getError (self)))
src/GHCJS/DOM/JSFFI/Generated/Event.hs view
@@ -1,251 +1,179 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.Event-       (js_newEvent, newEvent, js_composedPath, composedPath,-        composedPath_, js_stopPropagation, stopPropagation,-        js_stopImmediatePropagation, stopImmediatePropagation,-        js_preventDefault, preventDefault, js_initEvent, initEvent,-        pattern NONE, pattern CAPTURING_PHASE, pattern AT_TARGET,-        pattern BUBBLING_PHASE, js_getType, getType, js_getTarget,-        getTarget, getTargetUnsafe, getTargetUnchecked,-        js_getCurrentTarget, getCurrentTarget, getCurrentTargetUnsafe,-        getCurrentTargetUnchecked, js_getEventPhase, getEventPhase,-        js_setCancelBubble, setCancelBubble, js_getCancelBubble,-        getCancelBubble, js_getBubbles, getBubbles, js_getCancelable,-        getCancelable, js_getDefaultPrevented, getDefaultPrevented,-        js_getComposed, getComposed, js_getIsTrusted, getIsTrusted,-        js_getTimeStamp, getTimeStamp, js_getSrcElement, getSrcElement,-        js_setReturnValue, setReturnValue, js_getReturnValue,-        getReturnValue, Event(..), gTypeEvent, IsEvent, toEvent)+       (js_newEvent, js_composedPath, js_initEvent, js_preventDefault, js_stopImmediatePropagation, js_stopPropagation, js_getType, js_getTarget, js_getSrcElement, js_getCurrentTarget, js_getEventPhase, js_setCancelBubble, js_getCancelBubble, js_getBubbles, js_getCancelable, js_setReturnValue, js_getReturnValue, js_getDefaultPrevented, js_getComposed, js_getIsTrusted, js_getTimeStamp, newEvent, composedPath, composedPath_, initEvent, preventDefault, stopImmediatePropagation, stopPropagation, getType, getTarget, getTargetUnsafe, getTargetUnchecked, getSrcElement, getSrcElementUnsafe, getSrcElementUnchecked, getCurrentTarget, getCurrentTargetUnsafe, getCurrentTargetUnchecked, getEventPhase, setCancelBubble, getCancelBubble, getBubbles, getCancelable, setReturnValue, getReturnValue, getDefaultPrevented, getComposed, getIsTrusted, getTimeStamp, pattern NONE, pattern CAPTURING_PHASE, pattern AT_TARGET, pattern BUBBLING_PHASE, Event(..), gTypeEvent, IsEvent, toEvent)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return new window[\"Event\"]($1, $2); })"-        js_newEvent :: JSString -> Optional EventInit -> IO Event --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event Mozilla Event documentation> -newEvent ::-         (MonadIO m, ToJSString type', IsEventInit eventInitDict) =>-           type' -> Maybe eventInitDict -> m Event-newEvent type' eventInitDict-  = liftIO-      (js_newEvent (toJSString type')-         (maybeToOptional (fmap toEventInit eventInitDict)))- -foreign import javascript unsafe "(($1) => { return $1[\"composedPath\"](); })"+foreign import javascript safe "(($1, $2) => { return new globalThis[\"Event\"]($1, $2); })"+        js_newEvent :: JSString -> JSVal -> IO Event+-- | <https://developer.mozilla.org/docs/Web/API/Event/Event MDN Event. documentation>+newEvent :: (MonadDOM m, ToJSString type', IsEventInit eventInitDict) => type' -> Maybe eventInitDict -> m Event+newEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newEvent (toJSString type') a2'))++foreign import javascript safe "(($1) => { return $1[\"composedPath\"](); })"         js_composedPath :: Event -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Event/composedPath MDN Event.composedPath documentation>+composedPath :: (MonadDOM m, IsEvent self) => self -> m [EventTarget]+composedPath self = liftDOM (((js_composedPath ((Types.toEvent self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.composedPath Mozilla Event.composedPath documentation> -composedPath ::-             (MonadIO m, IsEvent self) => self -> m [EventTarget]-composedPath self-  = liftIO ((js_composedPath (toEvent self)) >>= fromJSValUnchecked)+-- | <https://developer.mozilla.org/docs/Web/API/Event/composedPath MDN Event.composedPath documentation>+composedPath_ :: (MonadDOM m, IsEvent self) => self -> m ()+composedPath_ self = liftDOM (void ((js_composedPath ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.composedPath Mozilla Event.composedPath documentation> -composedPath_ :: (MonadIO m, IsEvent self) => self -> m ()-composedPath_ self = liftIO (void (js_composedPath (toEvent self)))- -foreign import javascript unsafe "(($1) => { return $1[\"stopPropagation\"](); })"+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"initEvent\"]($2, $3, $4); })"+        js_initEvent :: Event -> JSString -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/initEvent MDN Event.initEvent documentation>+initEvent :: (MonadDOM m, IsEvent self, ToJSString type') => self -> type' -> Maybe Bool -> Maybe Bool -> m ()+initEvent self type' bubbles cancelable = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bubbles) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal cancelable) >>= \a4' -> js_initEvent ((Types.toEvent self)) (toJSString type') a3' a4')))++foreign import javascript safe "(($1) => { return $1[\"preventDefault\"](); })"+        js_preventDefault :: Event -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/preventDefault MDN Event.preventDefault documentation>+preventDefault :: (MonadDOM m, IsEvent self) => self -> m ()+preventDefault self = liftDOM (void ((js_preventDefault ((Types.toEvent self)))))++foreign import javascript safe "(($1) => { return $1[\"stopImmediatePropagation\"](); })"+        js_stopImmediatePropagation :: Event -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/stopImmediatePropagation MDN Event.stopImmediatePropagation documentation>+stopImmediatePropagation :: (MonadDOM m, IsEvent self) => self -> m ()+stopImmediatePropagation self = liftDOM (void ((js_stopImmediatePropagation ((Types.toEvent self)))))++foreign import javascript safe "(($1) => { return $1[\"stopPropagation\"](); })"         js_stopPropagation :: Event -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/stopPropagation MDN Event.stopPropagation documentation>+stopPropagation :: (MonadDOM m, IsEvent self) => self -> m ()+stopPropagation self = liftDOM (void ((js_stopPropagation ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopPropagation Mozilla Event.stopPropagation documentation> -stopPropagation :: (MonadIO m, IsEvent self) => self -> m ()-stopPropagation self = liftIO (js_stopPropagation (toEvent self))- -foreign import javascript unsafe-        "(($1) => { return $1[\"stopImmediatePropagation\"](); })" js_stopImmediatePropagation ::-        Event -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+        js_getType :: Event -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Event/type MDN Event.type documentation>+getType :: (MonadDOM m, IsEvent self, FromJSString result) => self -> m result+getType self = liftDOM ((fromJSString <$> (js_getType ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopImmediatePropagation Mozilla Event.stopImmediatePropagation documentation> -stopImmediatePropagation ::-                         (MonadIO m, IsEvent self) => self -> m ()-stopImmediatePropagation self-  = liftIO (js_stopImmediatePropagation (toEvent self))- -foreign import javascript unsafe "(($1) => { return $1[\"preventDefault\"](); })"-        js_preventDefault :: Event -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"target\"]; })"+        js_getTarget :: Event -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Event/target MDN Event.target documentation>+getTarget :: (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)+getTarget self = liftDOM (((js_getTarget ((Types.toEvent self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.preventDefault Mozilla Event.preventDefault documentation> -preventDefault :: (MonadIO m, IsEvent self) => self -> m ()-preventDefault self = liftIO (js_preventDefault (toEvent self))- -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"initEvent\"]($2, $3, $4); })"-        js_initEvent :: Event -> JSString -> Bool -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/target MDN Event.target documentation>+getTargetUnsafe :: (MonadDOM m, IsEvent self, HasCallStack) => self -> m EventTarget+getTargetUnsafe self = liftDOM ((((js_getTarget ((Types.toEvent self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.initEvent Mozilla Event.initEvent documentation> -initEvent ::-          (MonadIO m, IsEvent self, ToJSString type') =>-            self -> type' -> Bool -> Bool -> m ()-initEvent self type' bubbles cancelable-  = liftIO-      (js_initEvent (toEvent self) (toJSString type') bubbles cancelable)-pattern NONE = 0-pattern CAPTURING_PHASE = 1-pattern AT_TARGET = 2-pattern BUBBLING_PHASE = 3- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::-        Event -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Event/target MDN Event.target documentation>+getTargetUnchecked :: (MonadDOM m, IsEvent self) => self -> m EventTarget+getTargetUnchecked self = liftDOM ((pFromJSVal <$> (js_getTarget ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.type Mozilla Event.type documentation> -getType ::-        (MonadIO m, IsEvent self, FromJSString result) => self -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (toEvent self)))- -foreign import javascript unsafe "(($1) => { return $1[\"target\"]; })" js_getTarget ::-        Event -> IO (Nullable EventTarget)+foreign import javascript unsafe "(($1) => { return $1[\"srcElement\"]; })"+        js_getSrcElement :: Event -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Event/srcElement MDN Event.srcElement documentation>+getSrcElement :: (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)+getSrcElement self = liftDOM (((js_getSrcElement ((Types.toEvent self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> -getTarget ::-          (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget)-getTarget self-  = liftIO (nullableToMaybe <$> (js_getTarget (toEvent self)))+-- | <https://developer.mozilla.org/docs/Web/API/Event/srcElement MDN Event.srcElement documentation>+getSrcElementUnsafe :: (MonadDOM m, IsEvent self, HasCallStack) => self -> m EventTarget+getSrcElementUnsafe self = liftDOM ((((js_getSrcElement ((Types.toEvent self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> -getTargetUnsafe ::-                (MonadIO m, IsEvent self, HasCallStack) => self -> m EventTarget-getTargetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getTarget (toEvent self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Event/srcElement MDN Event.srcElement documentation>+getSrcElementUnchecked :: (MonadDOM m, IsEvent self) => self -> m EventTarget+getSrcElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getSrcElement ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> -getTargetUnchecked ::-                   (MonadIO m, IsEvent self) => self -> m EventTarget-getTargetUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$> (js_getTarget (toEvent self)))-  foreign import javascript unsafe "(($1) => { return $1[\"currentTarget\"]; })"-        js_getCurrentTarget :: Event -> IO (Nullable EventTarget)+        js_getCurrentTarget :: Event -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Event/currentTarget MDN Event.currentTarget documentation>+getCurrentTarget :: (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)+getCurrentTarget self = liftDOM (((js_getCurrentTarget ((Types.toEvent self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> -getCurrentTarget ::-                 (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget)-getCurrentTarget self-  = liftIO (nullableToMaybe <$> (js_getCurrentTarget (toEvent self)))+-- | <https://developer.mozilla.org/docs/Web/API/Event/currentTarget MDN Event.currentTarget documentation>+getCurrentTargetUnsafe :: (MonadDOM m, IsEvent self, HasCallStack) => self -> m EventTarget+getCurrentTargetUnsafe self = liftDOM ((((js_getCurrentTarget ((Types.toEvent self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> -getCurrentTargetUnsafe ::-                       (MonadIO m, IsEvent self, HasCallStack) => self -> m EventTarget-getCurrentTargetUnsafe self-  = liftIO-      ((nullableToMaybe <$> (js_getCurrentTarget (toEvent self))) >>=-         maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Event/currentTarget MDN Event.currentTarget documentation>+getCurrentTargetUnchecked :: (MonadDOM m, IsEvent self) => self -> m EventTarget+getCurrentTargetUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentTarget ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> -getCurrentTargetUnchecked ::-                          (MonadIO m, IsEvent self) => self -> m EventTarget-getCurrentTargetUnchecked self-  = liftIO-      (fromJust . nullableToMaybe <$>-         (js_getCurrentTarget (toEvent self)))-  foreign import javascript unsafe "(($1) => { return $1[\"eventPhase\"]; })"         js_getEventPhase :: Event -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/Event/eventPhase MDN Event.eventPhase documentation>+getEventPhase :: (MonadDOM m, IsEvent self) => self -> m Word+getEventPhase self = liftDOM ((js_getEventPhase ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.eventPhase Mozilla Event.eventPhase documentation> -getEventPhase :: (MonadIO m, IsEvent self) => self -> m Word-getEventPhase self = liftIO (js_getEventPhase (toEvent self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"cancelBubble\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"cancelBubble\"] = $2; })"         js_setCancelBubble :: Event -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/cancelBubble MDN Event.cancelBubble documentation>+setCancelBubble :: (MonadDOM m, IsEvent self) => self -> Bool -> m ()+setCancelBubble self val = liftDOM (void ((js_setCancelBubble ((Types.toEvent self)) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation> -setCancelBubble ::-                (MonadIO m, IsEvent self) => self -> Bool -> m ()-setCancelBubble self val-  = liftIO (js_setCancelBubble (toEvent self) val)- -foreign import javascript unsafe "(($1) => { return ($1[\"cancelBubble\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"cancelBubble\"]; })"         js_getCancelBubble :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/cancelBubble MDN Event.cancelBubble documentation>+getCancelBubble :: (MonadDOM m, IsEvent self) => self -> m Bool+getCancelBubble self = liftDOM ((js_getCancelBubble ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation> -getCancelBubble :: (MonadIO m, IsEvent self) => self -> m Bool-getCancelBubble self = liftIO (js_getCancelBubble (toEvent self))- -foreign import javascript unsafe "(($1) => { return ($1[\"bubbles\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"bubbles\"]; })"         js_getBubbles :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/bubbles MDN Event.bubbles documentation>+getBubbles :: (MonadDOM m, IsEvent self) => self -> m Bool+getBubbles self = liftDOM ((js_getBubbles ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.bubbles Mozilla Event.bubbles documentation> -getBubbles :: (MonadIO m, IsEvent self) => self -> m Bool-getBubbles self = liftIO (js_getBubbles (toEvent self))- -foreign import javascript unsafe "(($1) => { return ($1[\"cancelable\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"cancelable\"]; })"         js_getCancelable :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/cancelable MDN Event.cancelable documentation>+getCancelable :: (MonadDOM m, IsEvent self) => self -> m Bool+getCancelable self = liftDOM ((js_getCancelable ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelable Mozilla Event.cancelable documentation> -getCancelable :: (MonadIO m, IsEvent self) => self -> m Bool-getCancelable self = liftIO (js_getCancelable (toEvent self))- -foreign import javascript unsafe-        "(($1) => { return ($1[\"defaultPrevented\"] ? 1 : 0); })" js_getDefaultPrevented ::-        Event -> IO Bool+foreign import javascript safe "(($1, $2) => { $1[\"returnValue\"] = $2; })"+        js_setReturnValue :: Event -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/returnValue MDN Event.returnValue documentation>+setReturnValue :: (MonadDOM m, IsEvent self) => self -> Bool -> m ()+setReturnValue self val = liftDOM (void ((js_setReturnValue ((Types.toEvent self)) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.defaultPrevented Mozilla Event.defaultPrevented documentation> -getDefaultPrevented :: (MonadIO m, IsEvent self) => self -> m Bool-getDefaultPrevented self-  = liftIO (js_getDefaultPrevented (toEvent self))- -foreign import javascript unsafe "(($1) => { return ($1[\"composed\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"returnValue\"]; })"+        js_getReturnValue :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/returnValue MDN Event.returnValue documentation>+getReturnValue :: (MonadDOM m, IsEvent self) => self -> m Bool+getReturnValue self = liftDOM ((js_getReturnValue ((Types.toEvent self))))++foreign import javascript unsafe "(($1) => { return $1[\"defaultPrevented\"]; })"+        js_getDefaultPrevented :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/defaultPrevented MDN Event.defaultPrevented documentation>+getDefaultPrevented :: (MonadDOM m, IsEvent self) => self -> m Bool+getDefaultPrevented self = liftDOM ((js_getDefaultPrevented ((Types.toEvent self))))++foreign import javascript unsafe "(($1) => { return $1[\"composed\"]; })"         js_getComposed :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/composed MDN Event.composed documentation>+getComposed :: (MonadDOM m, IsEvent self) => self -> m Bool+getComposed self = liftDOM ((js_getComposed ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.composed Mozilla Event.composed documentation> -getComposed :: (MonadIO m, IsEvent self) => self -> m Bool-getComposed self = liftIO (js_getComposed (toEvent self))- -foreign import javascript unsafe "(($1) => { return ($1[\"isTrusted\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"isTrusted\"]; })"         js_getIsTrusted :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/isTrusted MDN Event.isTrusted documentation>+getIsTrusted :: (MonadDOM m, IsEvent self) => self -> m Bool+getIsTrusted self = liftDOM ((js_getIsTrusted ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.isTrusted Mozilla Event.isTrusted documentation> -getIsTrusted :: (MonadIO m, IsEvent self) => self -> m Bool-getIsTrusted self = liftIO (js_getIsTrusted (toEvent self))-  foreign import javascript unsafe "(($1) => { return $1[\"timeStamp\"]; })"-        js_getTimeStamp :: Event -> IO Word+        js_getTimeStamp :: Event -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/Event/timeStamp MDN Event.timeStamp documentation>+getTimeStamp :: (MonadDOM m, IsEvent self) => self -> m Double+getTimeStamp self = liftDOM ((js_getTimeStamp ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.timeStamp Mozilla Event.timeStamp documentation> -getTimeStamp :: (MonadIO m, IsEvent self) => self -> m Word-getTimeStamp self = liftIO (js_getTimeStamp (toEvent self))- -foreign import javascript unsafe "(($1) => { return $1[\"srcElement\"]; })"-        js_getSrcElement :: Event -> IO EventTarget+pattern NONE = 0 --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation> -getSrcElement :: (MonadIO m, IsEvent self) => self -> m EventTarget-getSrcElement self = liftIO (js_getSrcElement (toEvent self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"returnValue\"] = $2; })"-        js_setReturnValue :: Event -> Bool -> IO ()+pattern CAPTURING_PHASE = 1 --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation> -setReturnValue :: (MonadIO m, IsEvent self) => self -> Bool -> m ()-setReturnValue self val-  = liftIO (js_setReturnValue (toEvent self) val)- -foreign import javascript unsafe "(($1) => { return ($1[\"returnValue\"] ? 1 : 0); })"-        js_getReturnValue :: Event -> IO Bool+pattern AT_TARGET = 2 --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation> -getReturnValue :: (MonadIO m, IsEvent self) => self -> m Bool-getReturnValue self = liftIO (js_getReturnValue (toEvent self))+pattern BUBBLING_PHASE = 3
+ src/GHCJS/DOM/JSFFI/Generated/EventCounts.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from event-timing (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EventCounts+       (EventCounts(..), gTypeEventCounts)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums+
+ src/GHCJS/DOM/JSFFI/Generated/EventInit.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EventInit+       (js_newEventInit, js_setBubbles, js_getBubbles, js_setCancelable, js_getCancelable, js_setComposed, js_getComposed, newEventInit, setBubbles, getBubbles, getBubblesUnsafe, getBubblesUnchecked, setCancelable, getCancelable, getCancelableUnsafe, getCancelableUnchecked, setComposed, getComposed, getComposedUnsafe, getComposedUnchecked, EventInit(..), gTypeEventInit, IsEventInit, toEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newEventInit :: IO EventInit+-- | <https://dom.spec.whatwg.org/#dictdef-eventinit EventInit specification>+newEventInit :: (MonadDOM m) => m EventInit+newEventInit = liftDOM ((js_newEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"bubbles\"] = $2; })"+        js_setBubbles :: EventInit -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>+setBubbles :: (MonadDOM m, IsEventInit self) => self -> Bool -> m ()+setBubbles self val = liftDOM (void ((js_setBubbles ((Types.toEventInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"bubbles\"]; })"+        js_getBubbles :: EventInit -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>+getBubbles :: (MonadDOM m, IsEventInit self) => self -> m (Maybe Bool)+getBubbles self = liftDOM (((js_getBubbles ((Types.toEventInit self))) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>+getBubblesUnsafe :: (MonadDOM m, IsEventInit self, HasCallStack) => self -> m Bool+getBubblesUnsafe self = liftDOM ((((js_getBubbles ((Types.toEventInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>+getBubblesUnchecked :: (MonadDOM m, IsEventInit self) => self -> m Bool+getBubblesUnchecked self = liftDOM ((pFromJSVal <$> (js_getBubbles ((Types.toEventInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"cancelable\"] = $2; })"+        js_setCancelable :: EventInit -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>+setCancelable :: (MonadDOM m, IsEventInit self) => self -> Bool -> m ()+setCancelable self val = liftDOM (void ((js_setCancelable ((Types.toEventInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"cancelable\"]; })"+        js_getCancelable :: EventInit -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>+getCancelable :: (MonadDOM m, IsEventInit self) => self -> m (Maybe Bool)+getCancelable self = liftDOM (((js_getCancelable ((Types.toEventInit self))) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>+getCancelableUnsafe :: (MonadDOM m, IsEventInit self, HasCallStack) => self -> m Bool+getCancelableUnsafe self = liftDOM ((((js_getCancelable ((Types.toEventInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>+getCancelableUnchecked :: (MonadDOM m, IsEventInit self) => self -> m Bool+getCancelableUnchecked self = liftDOM ((pFromJSVal <$> (js_getCancelable ((Types.toEventInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"composed\"] = $2; })"+        js_setComposed :: EventInit -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>+setComposed :: (MonadDOM m, IsEventInit self) => self -> Bool -> m ()+setComposed self val = liftDOM (void ((js_setComposed ((Types.toEventInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"composed\"]; })"+        js_getComposed :: EventInit -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>+getComposed :: (MonadDOM m, IsEventInit self) => self -> m (Maybe Bool)+getComposed self = liftDOM (((js_getComposed ((Types.toEventInit self))) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>+getComposedUnsafe :: (MonadDOM m, IsEventInit self, HasCallStack) => self -> m Bool+getComposedUnsafe self = liftDOM ((((js_getComposed ((Types.toEventInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>+getComposedUnchecked :: (MonadDOM m, IsEventInit self) => self -> m Bool+getComposedUnchecked self = liftDOM ((pFromJSVal <$> (js_getComposed ((Types.toEventInit self)))))
− src/GHCJS/DOM/JSFFI/Generated/EventListener.hs
@@ -1,36 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.EventListener-       (js_handleEvent, handleEvent, EventListener(..),-        gTypeEventListener)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))-import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "(($1, $2) => { return $1[\"handleEvent\"]($2); })"-        js_handleEvent :: EventListener -> Event -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventListener.handleEvent Mozilla EventListener.handleEvent documentation> -handleEvent ::-            (MonadIO m, IsEvent event) => EventListener -> event -> m ()-handleEvent self event-  = liftIO (js_handleEvent self (toEvent event))
+ src/GHCJS/DOM/JSFFI/Generated/EventListenerOptions.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EventListenerOptions+       (js_newEventListenerOptions, js_setCapture, js_getCapture, newEventListenerOptions, setCapture, getCapture, getCaptureUnsafe, getCaptureUnchecked, EventListenerOptions(..), gTypeEventListenerOptions, IsEventListenerOptions, toEventListenerOptions)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newEventListenerOptions :: IO EventListenerOptions+-- | <https://dom.spec.whatwg.org/#dictdef-eventlisteneroptions EventListenerOptions specification>+newEventListenerOptions :: (MonadDOM m) => m EventListenerOptions+newEventListenerOptions = liftDOM ((js_newEventListenerOptions))++foreign import javascript safe "(($1, $2) => { $1[\"capture\"] = $2; })"+        js_setCapture :: EventListenerOptions -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-eventlisteneroptions-capture EventListenerOptions.capture specification>+setCapture :: (MonadDOM m, IsEventListenerOptions self) => self -> Bool -> m ()+setCapture self val = liftDOM (void ((js_setCapture ((Types.toEventListenerOptions self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"capture\"]; })"+        js_getCapture :: EventListenerOptions -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-eventlisteneroptions-capture EventListenerOptions.capture specification>+getCapture :: (MonadDOM m, IsEventListenerOptions self) => self -> m (Maybe Bool)+getCapture self = liftDOM (((js_getCapture ((Types.toEventListenerOptions self))) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-eventlisteneroptions-capture EventListenerOptions.capture specification>+getCaptureUnsafe :: (MonadDOM m, IsEventListenerOptions self, HasCallStack) => self -> m Bool+getCaptureUnsafe self = liftDOM ((((js_getCapture ((Types.toEventListenerOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-eventlisteneroptions-capture EventListenerOptions.capture specification>+getCaptureUnchecked :: (MonadDOM m, IsEventListenerOptions self) => self -> m Bool+getCaptureUnchecked self = liftDOM ((pFromJSVal <$> (js_getCapture ((Types.toEventListenerOptions self)))))
+ src/GHCJS/DOM/JSFFI/Generated/EventModifierInit.hs view
@@ -0,0 +1,303 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from uievents (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EventModifierInit+       (js_newEventModifierInit, js_setCtrlKey, js_getCtrlKey, js_setShiftKey, js_getShiftKey, js_setAltKey, js_getAltKey, js_setMetaKey, js_getMetaKey, js_setModifierAltGraph, js_getModifierAltGraph, js_setModifierCapsLock, js_getModifierCapsLock, js_setModifierFn, js_getModifierFn, js_setModifierFnLock, js_getModifierFnLock, js_setModifierHyper, js_getModifierHyper, js_setModifierNumLock, js_getModifierNumLock, js_setModifierScrollLock, js_getModifierScrollLock, js_setModifierSuper, js_getModifierSuper, js_setModifierSymbol, js_getModifierSymbol, js_setModifierSymbolLock, js_getModifierSymbolLock, newEventModifierInit, setCtrlKey, getCtrlKey, getCtrlKeyUnsafe, getCtrlKeyUnchecked, setShiftKey, getShiftKey, getShiftKeyUnsafe, getShiftKeyUnchecked, setAltKey, getAltKey, getAltKeyUnsafe, getAltKeyUnchecked, setMetaKey, getMetaKey, getMetaKeyUnsafe, getMetaKeyUnchecked, setModifierAltGraph, getModifierAltGraph, getModifierAltGraphUnsafe, getModifierAltGraphUnchecked, setModifierCapsLock, getModifierCapsLock, getModifierCapsLockUnsafe, getModifierCapsLockUnchecked, setModifierFn, getModifierFn, getModifierFnUnsafe, getModifierFnUnchecked, setModifierFnLock, getModifierFnLock, getModifierFnLockUnsafe, getModifierFnLockUnchecked, setModifierHyper, getModifierHyper, getModifierHyperUnsafe, getModifierHyperUnchecked, setModifierNumLock, getModifierNumLock, getModifierNumLockUnsafe, getModifierNumLockUnchecked, setModifierScrollLock, getModifierScrollLock, getModifierScrollLockUnsafe, getModifierScrollLockUnchecked, setModifierSuper, getModifierSuper, getModifierSuperUnsafe, getModifierSuperUnchecked, setModifierSymbol, getModifierSymbol, getModifierSymbolUnsafe, getModifierSymbolUnchecked, setModifierSymbolLock, getModifierSymbolLock, getModifierSymbolLockUnsafe, getModifierSymbolLockUnchecked, EventModifierInit(..), gTypeEventModifierInit, IsEventModifierInit, toEventModifierInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newEventModifierInit :: IO EventModifierInit+-- | <https://w3c.github.io/uievents/#dictdef-eventmodifierinit EventModifierInit specification>+newEventModifierInit :: (MonadDOM m) => m EventModifierInit+newEventModifierInit = liftDOM ((js_newEventModifierInit))++foreign import javascript safe "(($1, $2) => { $1[\"ctrlKey\"] = $2; })"+        js_setCtrlKey :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>+setCtrlKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setCtrlKey self val = liftDOM (void ((js_setCtrlKey ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"ctrlKey\"]; })"+        js_getCtrlKey :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>+getCtrlKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getCtrlKey self = liftDOM (((js_getCtrlKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>+getCtrlKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getCtrlKeyUnsafe self = liftDOM ((((js_getCtrlKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>+getCtrlKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getCtrlKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getCtrlKey ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"shiftKey\"] = $2; })"+        js_setShiftKey :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>+setShiftKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setShiftKey self val = liftDOM (void ((js_setShiftKey ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"shiftKey\"]; })"+        js_getShiftKey :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>+getShiftKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getShiftKey self = liftDOM (((js_getShiftKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>+getShiftKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getShiftKeyUnsafe self = liftDOM ((((js_getShiftKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>+getShiftKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getShiftKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getShiftKey ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"altKey\"] = $2; })"+        js_setAltKey :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>+setAltKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setAltKey self val = liftDOM (void ((js_setAltKey ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"altKey\"]; })"+        js_getAltKey :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>+getAltKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getAltKey self = liftDOM (((js_getAltKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>+getAltKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getAltKeyUnsafe self = liftDOM ((((js_getAltKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>+getAltKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getAltKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getAltKey ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"metaKey\"] = $2; })"+        js_setMetaKey :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>+setMetaKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setMetaKey self val = liftDOM (void ((js_setMetaKey ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"metaKey\"]; })"+        js_getMetaKey :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>+getMetaKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getMetaKey self = liftDOM (((js_getMetaKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>+getMetaKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getMetaKeyUnsafe self = liftDOM ((((js_getMetaKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>+getMetaKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getMetaKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getMetaKey ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierAltGraph\"] = $2; })"+        js_setModifierAltGraph :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>+setModifierAltGraph :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierAltGraph self val = liftDOM (void ((js_setModifierAltGraph ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierAltGraph\"]; })"+        js_getModifierAltGraph :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>+getModifierAltGraph :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierAltGraph self = liftDOM (((js_getModifierAltGraph ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>+getModifierAltGraphUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierAltGraphUnsafe self = liftDOM ((((js_getModifierAltGraph ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>+getModifierAltGraphUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierAltGraphUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierAltGraph ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierCapsLock\"] = $2; })"+        js_setModifierCapsLock :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>+setModifierCapsLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierCapsLock self val = liftDOM (void ((js_setModifierCapsLock ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierCapsLock\"]; })"+        js_getModifierCapsLock :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>+getModifierCapsLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierCapsLock self = liftDOM (((js_getModifierCapsLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>+getModifierCapsLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierCapsLockUnsafe self = liftDOM ((((js_getModifierCapsLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>+getModifierCapsLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierCapsLockUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierCapsLock ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierFn\"] = $2; })"+        js_setModifierFn :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>+setModifierFn :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierFn self val = liftDOM (void ((js_setModifierFn ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierFn\"]; })"+        js_getModifierFn :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>+getModifierFn :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierFn self = liftDOM (((js_getModifierFn ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>+getModifierFnUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierFnUnsafe self = liftDOM ((((js_getModifierFn ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>+getModifierFnUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierFnUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierFn ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierFnLock\"] = $2; })"+        js_setModifierFnLock :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>+setModifierFnLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierFnLock self val = liftDOM (void ((js_setModifierFnLock ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierFnLock\"]; })"+        js_getModifierFnLock :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>+getModifierFnLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierFnLock self = liftDOM (((js_getModifierFnLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>+getModifierFnLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierFnLockUnsafe self = liftDOM ((((js_getModifierFnLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>+getModifierFnLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierFnLockUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierFnLock ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierHyper\"] = $2; })"+        js_setModifierHyper :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>+setModifierHyper :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierHyper self val = liftDOM (void ((js_setModifierHyper ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierHyper\"]; })"+        js_getModifierHyper :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>+getModifierHyper :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierHyper self = liftDOM (((js_getModifierHyper ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>+getModifierHyperUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierHyperUnsafe self = liftDOM ((((js_getModifierHyper ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>+getModifierHyperUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierHyperUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierHyper ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierNumLock\"] = $2; })"+        js_setModifierNumLock :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>+setModifierNumLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierNumLock self val = liftDOM (void ((js_setModifierNumLock ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierNumLock\"]; })"+        js_getModifierNumLock :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>+getModifierNumLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierNumLock self = liftDOM (((js_getModifierNumLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>+getModifierNumLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierNumLockUnsafe self = liftDOM ((((js_getModifierNumLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>+getModifierNumLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierNumLockUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierNumLock ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierScrollLock\"] = $2; })"+        js_setModifierScrollLock :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>+setModifierScrollLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierScrollLock self val = liftDOM (void ((js_setModifierScrollLock ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierScrollLock\"]; })"+        js_getModifierScrollLock :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>+getModifierScrollLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierScrollLock self = liftDOM (((js_getModifierScrollLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>+getModifierScrollLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierScrollLockUnsafe self = liftDOM ((((js_getModifierScrollLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>+getModifierScrollLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierScrollLockUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierScrollLock ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierSuper\"] = $2; })"+        js_setModifierSuper :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>+setModifierSuper :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierSuper self val = liftDOM (void ((js_setModifierSuper ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierSuper\"]; })"+        js_getModifierSuper :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>+getModifierSuper :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierSuper self = liftDOM (((js_getModifierSuper ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>+getModifierSuperUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierSuperUnsafe self = liftDOM ((((js_getModifierSuper ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>+getModifierSuperUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierSuperUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierSuper ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierSymbol\"] = $2; })"+        js_setModifierSymbol :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>+setModifierSymbol :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierSymbol self val = liftDOM (void ((js_setModifierSymbol ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierSymbol\"]; })"+        js_getModifierSymbol :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>+getModifierSymbol :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierSymbol self = liftDOM (((js_getModifierSymbol ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>+getModifierSymbolUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierSymbolUnsafe self = liftDOM ((((js_getModifierSymbol ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>+getModifierSymbolUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierSymbolUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierSymbol ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierSymbolLock\"] = $2; })"+        js_setModifierSymbolLock :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>+setModifierSymbolLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierSymbolLock self val = liftDOM (void ((js_setModifierSymbolLock ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierSymbolLock\"]; })"+        js_getModifierSymbolLock :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>+getModifierSymbolLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierSymbolLock self = liftDOM (((js_getModifierSymbolLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>+getModifierSymbolLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierSymbolLockUnsafe self = liftDOM ((((js_getModifierSymbolLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>+getModifierSymbolLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierSymbolLockUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierSymbolLock ((Types.toEventModifierInit self)))))
src/GHCJS/DOM/JSFFI/Generated/EventSource.hs view
@@ -1,88 +1,65 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.EventSource-       (js_newEventSource, newEventSource, js_close, close,-        pattern CONNECTING, pattern OPEN, pattern CLOSED, js_getUrl,-        getUrl, js_getWithCredentials, getWithCredentials,-        js_getReadyState, getReadyState, open, message, error,-        EventSource(..), gTypeEventSource)+       (js_newEventSource, js_close, js_getUrl, js_getWithCredentials, js_getReadyState, newEventSource, close, getUrl, getWithCredentials, getReadyState, pattern CONNECTING, pattern OPEN, pattern CLOSED, open, message, error, EventSource(..), gTypeEventSource)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript safe-        "(($1, $2) => { return new window[\"EventSource\"]($1,\n$2); })" js_newEventSource ::-        JSString -> Optional EventSourceInit -> IO EventSource --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource Mozilla EventSource documentation> -newEventSource ::-               (MonadIO m, ToJSString url) =>-                 url -> Maybe EventSourceInit -> m EventSource-newEventSource url eventSourceInitDict-  = liftIO-      (js_newEventSource (toJSString url)-         (maybeToOptional eventSourceInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"close\"](); })" js_close ::-        EventSource -> IO ()+foreign import javascript safe "(($1, $2) => { return new globalThis[\"EventSource\"]($1, $2); })"+        js_newEventSource :: JSString -> JSVal -> IO EventSource+-- | <https://developer.mozilla.org/docs/Web/API/EventSource/EventSource MDN EventSource. documentation>+newEventSource :: (MonadDOM m, ToJSString url) => url -> Maybe EventSourceInit -> m EventSource+newEventSource url eventSourceInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventSourceInitDict) >>= \a2' -> js_newEventSource (toJSString url) a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.close Mozilla EventSource.close documentation> -close :: (MonadIO m) => EventSource -> m ()-close self = liftIO (js_close self)-pattern CONNECTING = 0-pattern OPEN = 1-pattern CLOSED = 2- -foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })" js_getUrl ::-        EventSource -> IO JSString+foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+        js_close :: EventSource -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/EventSource/close MDN EventSource.close documentation>+close :: (MonadDOM m) => EventSource -> m ()+close self = liftDOM (void ((js_close (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.url Mozilla EventSource.url documentation> -getUrl ::-       (MonadIO m, FromJSString result) => EventSource -> m result-getUrl self = liftIO (fromJSString <$> (js_getUrl self))- -foreign import javascript unsafe-        "(($1) => { return ($1[\"withCredentials\"] ? 1 : 0); })" js_getWithCredentials ::-        EventSource -> IO Bool+foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })"+        js_getUrl :: EventSource -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/EventSource/url MDN EventSource.url documentation>+getUrl :: (MonadDOM m, FromJSString result) => EventSource -> m result+getUrl self = liftDOM ((fromJSString <$> (js_getUrl (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.withCredentials Mozilla EventSource.withCredentials documentation> -getWithCredentials :: (MonadIO m) => EventSource -> m Bool-getWithCredentials self = liftIO (js_getWithCredentials self)- +foreign import javascript unsafe "(($1) => { return $1[\"withCredentials\"]; })"+        js_getWithCredentials :: EventSource -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/EventSource/withCredentials MDN EventSource.withCredentials documentation>+getWithCredentials :: (MonadDOM m) => EventSource -> m Bool+getWithCredentials self = liftDOM ((js_getWithCredentials (self)))+ foreign import javascript unsafe "(($1) => { return $1[\"readyState\"]; })"         js_getReadyState :: EventSource -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/EventSource/readyState MDN EventSource.readyState documentation>+getReadyState :: (MonadDOM m) => EventSource -> m Word+getReadyState self = liftDOM ((js_getReadyState (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.readyState Mozilla EventSource.readyState documentation> -getReadyState :: (MonadIO m) => EventSource -> m Word-getReadyState self = liftIO (js_getReadyState self)+pattern CONNECTING = 0 --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onopen Mozilla EventSource.onopen documentation> +pattern OPEN = 1++pattern CLOSED = 2++-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#handler-eventsource-onopen open event> open :: EventName EventSource Event open = unsafeEventNameAsync (toJSString "open") --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onmessage Mozilla EventSource.onmessage documentation> +-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#handler-eventsource-onmessage message event> message :: EventName EventSource MessageEvent message = unsafeEventNameAsync (toJSString "message") --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onerror Mozilla EventSource.onerror documentation> -error :: EventName EventSource UIEvent+-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#handler-eventsource-onerror error event>+error :: EventName EventSource Event error = unsafeEventNameAsync (toJSString "error")
+ src/GHCJS/DOM/JSFFI/Generated/EventSourceInit.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from html (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EventSourceInit+       (js_newEventSourceInit, js_setWithCredentials, js_getWithCredentials, newEventSourceInit, setWithCredentials, getWithCredentials, getWithCredentialsUnsafe, getWithCredentialsUnchecked, EventSourceInit(..), gTypeEventSourceInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newEventSourceInit :: IO EventSourceInit+-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#eventsourceinit EventSourceInit specification>+newEventSourceInit :: (MonadDOM m) => m EventSourceInit+newEventSourceInit = liftDOM ((js_newEventSourceInit))++foreign import javascript safe "(($1, $2) => { $1[\"withCredentials\"] = $2; })"+        js_setWithCredentials :: EventSourceInit -> Bool -> IO ()+-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#dom-eventsourceinit-withcredentials EventSourceInit.withCredentials specification>+setWithCredentials :: (MonadDOM m) => EventSourceInit -> Bool -> m ()+setWithCredentials self val = liftDOM (void ((js_setWithCredentials (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"withCredentials\"]; })"+        js_getWithCredentials :: EventSourceInit -> IO JSVal+-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#dom-eventsourceinit-withcredentials EventSourceInit.withCredentials specification>+getWithCredentials :: (MonadDOM m) => EventSourceInit -> m (Maybe Bool)+getWithCredentials self = liftDOM (((js_getWithCredentials (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#dom-eventsourceinit-withcredentials EventSourceInit.withCredentials specification>+getWithCredentialsUnsafe :: (MonadDOM m, HasCallStack) => EventSourceInit -> m Bool+getWithCredentialsUnsafe self = liftDOM ((((js_getWithCredentials (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#dom-eventsourceinit-withcredentials EventSourceInit.withCredentials specification>+getWithCredentialsUnchecked :: (MonadDOM m) => EventSourceInit -> m Bool+getWithCredentialsUnchecked self = liftDOM ((pFromJSVal <$> (js_getWithCredentials (self))))
src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs view
@@ -1,86 +1,45 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.EventTarget-       (js_addEventListener, addEventListener, js_removeEventListener,-        removeEventListener, js_dispatchEvent, dispatchEvent,-        dispatchEvent_, EventTarget(..), gTypeEventTarget, IsEventTarget,-        toEventTarget)+       (js_newEventTarget, js_addEventListener, js_dispatchEvent, js_removeEventListener, newEventTarget, addEventListener, dispatchEvent, dispatchEvent_, removeEventListener, EventTarget(..), gTypeEventTarget, IsEventTarget, toEventTarget)        where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import GHC.JS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))-import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))-import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P import Control.Monad (void)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Data.Maybe (fromJust)-import Data.Traversable (mapM)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull) import GHCJS.DOM.Types-import Control.Applicative ((<$>))+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return $1[\"addEventListener\"]($2, $3,\n$4); })" js_addEventListener ::-        EventTarget ->-          JSString ->-            Optional EventListener -> AddEventListenerOptionsOrBool -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.addEventListener Mozilla EventTarget.addEventListener documentation> -addEventListener ::-                 (MonadIO m, IsEventTarget self, ToJSString type',-                  IsAddEventListenerOptionsOrBool options) =>-                   self -> type' -> Maybe EventListener -> options -> m ()-addEventListener self type' callback options-  = liftIO-      (toJSVal options >>=-         \ options' ->-           js_addEventListener (toEventTarget self) (toJSString type')-             (maybeToOptional callback)-             (AddEventListenerOptionsOrBool options'))- -foreign import javascript unsafe-        "(($1, $2, $3, $4) => { return $1[\"removeEventListener\"]($2,\n$3, $4); })" js_removeEventListener-        ::-        EventTarget ->-          JSString ->-            Optional EventListener -> EventListenerOptionsOrBool -> IO ()+foreign import javascript safe "(() => { return new globalThis[\"EventTarget\"](); })"+        js_newEventTarget :: IO EventTarget+-- | <https://developer.mozilla.org/docs/Web/API/EventTarget/EventTarget MDN EventTarget. documentation>+newEventTarget :: (MonadDOM m) => m EventTarget+newEventTarget = liftDOM ((js_newEventTarget)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.removeEventListener Mozilla EventTarget.removeEventListener documentation> -removeEventListener ::-                    (MonadIO m, IsEventTarget self, ToJSString type',-                     IsEventListenerOptionsOrBool options) =>-                      self -> type' -> Maybe EventListener -> options -> m ()-removeEventListener self type' callback options-  = liftIO-      (toJSVal options >>=-         \ options' ->-           js_removeEventListener (toEventTarget self) (toJSString type')-             (maybeToOptional callback)-             (EventListenerOptionsOrBool options'))- -foreign import javascript safe-        "(($1, $2) => { return ($1[\"dispatchEvent\"]($2) ? 1 : 0); })" js_dispatchEvent ::-        EventTarget -> Event -> IO Bool+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"addEventListener\"]($2, $3, $4); })"+        js_addEventListener :: EventTarget -> JSString -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/EventTarget/addEventListener MDN EventTarget.addEventListener documentation>+addEventListener :: (MonadDOM m, IsEventTarget self, ToJSString type', IsAddEventListenerOptionsOrBool options) => self -> type' -> Maybe EventListener -> Maybe options -> m ()+addEventListener self type' callback' options = liftDOM (void (((toJSVal callback') >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_addEventListener ((Types.toEventTarget self)) (toJSString type') a3' a4'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.dispatchEvent Mozilla EventTarget.dispatchEvent documentation> -dispatchEvent ::-              (MonadIO m, IsEventTarget self, IsEvent event) =>-                self -> event -> m Bool-dispatchEvent self event-  = liftIO (js_dispatchEvent (toEventTarget self) (toEvent event))+foreign import javascript safe "(($1, $2) => { return $1[\"dispatchEvent\"]($2); })"+        js_dispatchEvent :: EventTarget -> Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/EventTarget/dispatchEvent MDN EventTarget.dispatchEvent documentation>+dispatchEvent :: (MonadDOM m, IsEventTarget self, IsEvent event) => self -> event -> m Bool+dispatchEvent self event = liftDOM ((js_dispatchEvent ((Types.toEventTarget self)) (Types.toEvent event))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.dispatchEvent Mozilla EventTarget.dispatchEvent documentation> -dispatchEvent_ ::-               (MonadIO m, IsEventTarget self, IsEvent event) =>-                 self -> event -> m ()-dispatchEvent_ self event-  = liftIO-      (void (js_dispatchEvent (toEventTarget self) (toEvent event)))+-- | <https://developer.mozilla.org/docs/Web/API/EventTarget/dispatchEvent MDN EventTarget.dispatchEvent documentation>+dispatchEvent_ :: (MonadDOM m, IsEventTarget self, IsEvent event) => self -> event -> m ()+dispatchEvent_ self event = liftDOM (void ((js_dispatchEvent ((Types.toEventTarget self)) (Types.toEvent event))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"removeEventListener\"]($2, $3, $4); })"+        js_removeEventListener :: EventTarget -> JSString -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/EventTarget/removeEventListener MDN EventTarget.removeEventListener documentation>+removeEventListener :: (MonadDOM m, IsEventTarget self, ToJSString type', IsEventListenerOptionsOrBool options) => self -> type' -> Maybe EventListener -> Maybe options -> m ()+removeEventListener self type' callback' options = liftDOM (void (((toJSVal callback') >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_removeEventListener ((Types.toEventTarget self)) (toJSString type') a3' a4')))
+ src/GHCJS/DOM/JSFFI/Generated/ExtendableCookieChangeEvent.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cookiestore (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ExtendableCookieChangeEvent+       (js_newExtendableCookieChangeEvent, js_getChanged, js_getDeleted, newExtendableCookieChangeEvent, getChanged, getDeleted, ExtendableCookieChangeEvent(..), gTypeExtendableCookieChangeEvent)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(($1, $2) => { return new globalThis[\"ExtendableCookieChangeEvent\"]($1, $2); })"+        js_newExtendableCookieChangeEvent :: JSString -> JSVal -> IO ExtendableCookieChangeEvent+-- | <https://developer.mozilla.org/docs/Web/API/ExtendableCookieChangeEvent/ExtendableCookieChangeEvent MDN ExtendableCookieChangeEvent. documentation>+newExtendableCookieChangeEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe ExtendableCookieChangeEventInit -> m ExtendableCookieChangeEvent+newExtendableCookieChangeEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newExtendableCookieChangeEvent (toJSString type') a2'))++foreign import javascript unsafe "(($1) => { return $1[\"changed\"]; })"+        js_getChanged :: ExtendableCookieChangeEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ExtendableCookieChangeEvent/changed MDN ExtendableCookieChangeEvent.changed documentation>+getChanged :: (MonadDOM m) => ExtendableCookieChangeEvent -> m [CookieListItem]+getChanged self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"deleted\"]; })"+        js_getDeleted :: ExtendableCookieChangeEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ExtendableCookieChangeEvent/deleted MDN ExtendableCookieChangeEvent.deleted documentation>+getDeleted :: (MonadDOM m) => ExtendableCookieChangeEvent -> m [CookieListItem]+getDeleted self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/ExtendableCookieChangeEventInit.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from cookiestore (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ExtendableCookieChangeEventInit+       (js_newExtendableCookieChangeEventInit, js_setChanged, js_getChanged, js_setDeleted, js_getDeleted, newExtendableCookieChangeEventInit, setChanged, getChanged, getChangedUnsafe, getChangedUnchecked, setDeleted, getDeleted, getDeletedUnsafe, getDeletedUnchecked, ExtendableCookieChangeEventInit(..), gTypeExtendableCookieChangeEventInit)+       where+import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)+import qualified Prelude as P+import Control.Monad (void)+import GHCJS.Types (JSVal, JSString)+import GHCJS.Foreign (jsUndefined, jsNull)+import GHCJS.DOM.Types+import qualified GHCJS.DOM.Types as Types+import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)+import GHCJS.DOM.JSFFI.Generated.Enums++foreign import javascript safe "(() => { return ({}); })"+        js_newExtendableCookieChangeEventInit :: IO ExtendableCookieChangeEventInit+-- | <https://cookiestore.spec.whatwg.org/#dictdef-extendablecookiechangeeventinit ExtendableCookieChangeEventInit specification>+newExtendableCookieChangeEventInit :: (MonadDOM m) => m ExtendableCookieChangeEventInit+newExtendableCookieChangeEventInit = liftDOM ((js_newExtendableCookieChangeEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"changed\"] = $2; })"+        js_setChanged :: ExtendableCookieChangeEventInit -> JSVal -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>+setChanged :: (MonadDOM m) => ExtendableCookieChangeEventInit -> [CookieListItem] -> m ()+setChanged self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChanged (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"changed\"]; })"+        js_getChanged :: ExtendableCookieChangeEventInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>+getChanged :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m (Maybe [CookieListItem])+getChanged self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>+getChangedUnsafe :: (MonadDOM m, HasCallStack) => ExtendableCookieChangeEventInit -> m [CookieListItem]+getChangedUnsafe self = liftDOM ((((js_getChanged (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>+getChangedUnchecked :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m [CookieListItem]+getChangedUnchecked self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"deleted\"] = $2; })"+        js_setDeleted :: ExtendableCookieChangeEventInit -> JSVal -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>+setDeleted :: (MonadDOM m) => ExtendableCookieChangeEventInit -> [CookieListItem] -> m ()+setDeleted self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDeleted (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"deleted\"]; })"+        js_getDeleted :: ExtendableCookieChangeEventInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>+getDeleted :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m (Maybe [CookieListItem])+getDeleted self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>+getDeletedUnsafe :: (MonadDOM m, HasCallStack) => ExtendableCookieChangeEventInit -> m [CookieListItem]+getDeletedUnsafe self = liftDOM ((((js_getDeleted (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>+getDeletedUnchecked :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m [CookieListItem]+getDeletedUnchecked self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))
+ src/GHCJS/DOM/JSFFI/Generated/ExtendableEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ExtendableEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ExtendableMessageEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ExtendableMessageEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/External.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FederatedCredentialInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FederatedCredentialRequestOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FetchEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FetchEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileCallback.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/FileError.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/FileException.hs

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FilePropertyBag.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystem.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemCreateWritableOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemDirectoryEntry.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemDirectoryHandle.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemDirectoryReader.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemEntriesCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemEntry.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemEntryCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemFileEntry.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemFileHandle.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemFlags.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemGetDirectoryOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemGetFileOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemHandle.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemReadWriteOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemRemoveOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemSyncAccessHandle.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FileSystemWritableFileStream.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FlacEncoderConfig.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FocusEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FocusOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FontFaceDescriptors.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FontFaceSetLoadEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FontFaceSetLoadEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FontFaceSource.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FormDataEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FormDataEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FragmentDirective.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FrameRequestCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FullscreenOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/FunctionStringCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPU.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUAdapter.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUAdapterInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBindGroup.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBindGroupDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBindGroupEntry.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBindGroupLayout.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBindGroupLayoutDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBindGroupLayoutEntry.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBindingCommandsMixin.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBlendComponent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBlendState.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBuffer.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBufferBinding.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBufferBindingLayout.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUBufferDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCanvasConfiguration.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCanvasContext.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCanvasToneMapping.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUColorDict.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUColorTargetState.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCommandBuffer.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCommandBufferDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCommandEncoder.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCommandEncoderDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCompilationInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCompilationMessage.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUComputePassDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUComputePassEncoder.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUComputePassTimestampWrites.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUComputePipeline.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUComputePipelineDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCopyExternalImageDestInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUCopyExternalImageSourceInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUDebugCommandsMixin.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUDepthStencilState.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUDevice.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUDeviceDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUDeviceLostInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUError.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUExtent3DDict.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUExternalTexture.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUExternalTextureBindingLayout.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUExternalTextureDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUFragmentState.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUInternalError.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUMultisampleState.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUObjectBase.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUObjectDescriptorBase.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUOrigin2DDict.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUOrigin3DDict.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUOutOfMemoryError.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUPipelineBase.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUPipelineDescriptorBase.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUPipelineError.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUPipelineErrorInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUPipelineLayout.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUPipelineLayoutDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUPrimitiveState.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUProgrammableStage.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUQuerySet.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUQuerySetDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUQueue.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUQueueDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderBundle.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderBundleDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderBundleEncoder.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderBundleEncoderDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderCommandsMixin.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderPassColorAttachment.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderPassDepthStencilAttachment.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderPassDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderPassEncoder.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderPassLayout.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderPassTimestampWrites.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderPipeline.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURenderPipelineDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPURequestAdapterOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUSampler.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUSamplerBindingLayout.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUSamplerDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUShaderModule.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUShaderModuleCompilationHint.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUShaderModuleDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUStencilFaceState.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUStorageTextureBindingLayout.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUSupportedFeatures.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUSupportedLimits.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUTexelCopyBufferInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUTexelCopyBufferLayout.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUTexelCopyTextureInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUTexture.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUTextureBindingLayout.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUTextureDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUTextureView.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUTextureViewDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUUncapturedErrorEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUUncapturedErrorEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUValidationError.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUVertexAttribute.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUVertexBufferLayout.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GPUVertexState.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GainOptions.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GamepadEffectParameters.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GamepadEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GamepadHapticActuator.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GenericTransformStream.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GeolocationCoordinates.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GeolocationPosition.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GeolocationPositionError.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GetAnimationsOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GetComposedRangesOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GetHTMLOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GetNotificationOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/GetRootNodeOptions.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/GlobalCrypto.hs

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/GlobalPerformance.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HMACGetSecretInput.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HMACGetSecretOutput.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/HTMLAttachmentElement.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HTMLAudioElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HTMLDialogElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HTMLOrSVGOrMathMLElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HTMLPictureElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HTMLSelectedContentElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HTMLSpanElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HTMLUnknownElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HashChangeEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HevcEncoderConfig.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Highlight.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HighlightHitResult.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HighlightRegistry.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HighlightsFromPointOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/HyperlinkElementUtils.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IDBDatabaseInfo.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IDBGetAllOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IDBIndexParameters.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IDBObjectStoreParameters.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IDBRecord.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IDBTransactionOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IIRFilterNode.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IIRFilterOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IdentityCredentialRequestOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IdentityProviderConfig.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IdentityProviderRequestOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IdleDeadline.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IdleRequestCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IdleRequestOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageBitmap.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageBitmapRenderingContext.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageCapture.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageDataSettings.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageDecodeOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageDecodeResult.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageDecoder.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageDecoderInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageEncodeOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageTrack.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImageTrackList.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ImportNodeOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/InputDeviceCapabilities.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/InputDeviceInfo.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/InputEventInit.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/InstallEvent.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IntersectionObserverEntryInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/IntersectionObserverInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/JsonWebKey.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/KHR_parallel_shader_compile.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/KeySystemTrackConfiguration.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/KeyboardEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/KeyframeAnimationOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/KeyframeEffectOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/LargestContentfulPaint.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/LinkStyle.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Lock.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/LockGrantedCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/LockInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/LockManager.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/LockManagerSnapshot.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/LockOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIAccess.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIConnectionEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIConnectionEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIInput.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIInputMap.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIMessageEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIMessageEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIOutput.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIOutputMap.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MIDIPort.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MathMLElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaCapabilities.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaCapabilitiesDecodingInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaCapabilitiesEncodingInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaCapabilitiesInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaCapabilitiesKeySystemConfiguration.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaConfiguration.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/MediaController.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaDecodingConfiguration.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaEffectInfo.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaEncodingConfiguration.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaEncryptedEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaImage.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEventInit.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaKeySystemConfiguration.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaKeySystemMediaCapability.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaKeysPolicy.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaMetadata.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaMetadataInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaPositionState.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaQueryListEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaQueryListEventInit.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaRecorder.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaRecorderOptions.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/MediaRemoteControls.hs

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaSessionActionDetails.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaSessionActionHandler.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaSettingsRange.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaSourceHandle.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamConstraints.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackHandle.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackProcessor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackProcessorInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaTrackCapabilities.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraintSet.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaTrackSettings.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MediaTrackSupportedConstraints.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MessageEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MessageEventTarget.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MouseEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MultiCacheQueryOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MutationCallback.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/MutationObserverInit.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigateEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigateEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Navigation.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationActivation.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationCurrentEntryChangeEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationCurrentEntryChangeEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationDestination.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationHistoryEntry.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationInterceptHandler.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationInterceptOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationNavigateOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationPrecommitController.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationPrecommitHandler.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationPreloadManager.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationPreloadState.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationReloadOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationResult.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationTransition.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigationUpdateCurrentEntryOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigatorAutomationInformation.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigatorBadge.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigatorContentUtils.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigatorCookies.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigatorGPU.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigatorLocks.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigatorLogin.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigatorPlugins.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NavigatorStorage.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NotificationAction.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NotificationEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NotificationEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/NotificationOptions.hs view

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OES_draw_buffers_indexed.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OES_element_index_uint.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OES_fbo_render_mipmap.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OES_standard_derivatives.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OES_texture_float.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OES_texture_float_linear.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OES_texture_half_float.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OES_texture_half_float_linear.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OES_vertex_array_object.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OTPCredentialRequestOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OVR_multiview2.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContextOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OffscreenCanvas.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OffscreenCanvasRenderingContext2D.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OptionalEffectTiming.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OpusEncoderConfig.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Origin.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/OscillatorOptions.hs view

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/OverconstrainedErrorEvent.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PageRevealEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PageRevealEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PageSwapEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PageSwapEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PageTransitionEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaintTimingMixin.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PannerOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ParseHTMLUnsafeOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PasswordCredentialData.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PayerErrors.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentCompleteDetails.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentCredentialInstrument.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentCurrencyAmount.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentDetailsBase.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentDetailsInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentDetailsModifier.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentDetailsUpdate.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentEntityLogo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentItem.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentMethodChangeEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentMethodChangeEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentMethodData.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentRequest.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentRequestUpdateEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentRequestUpdateEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentResponse.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentShippingOption.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PaymentValidationErrors.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PerformanceEventTiming.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PerformanceMark.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PerformanceMarkOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PerformanceMeasure.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PerformanceMeasureOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigationTiming.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PerformanceObserverCallbackOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PerformanceObserverInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PerformancePaintTiming.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PerformanceServerTiming.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PeriodicWave.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PeriodicWaveConstraints.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PeriodicWaveOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PermissionStatus.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Permissions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PhotoCapabilities.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PhotoSettings.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PictureInPictureEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PictureInPictureEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PictureInPictureWindow.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PlaneLayout.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Point2D.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PointerEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PointerEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PointerLockOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PopStateEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PopoverTargetAttributes.hs view

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/PositionError.hs

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PositionOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PrivateToken.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ProgressEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PromiseRejectionEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PropertyDefinition.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredential.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialCreationOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialCreationOptionsJSON.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialDescriptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialDescriptorJSON.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialEntity.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialParameters.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialRequestOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialRequestOptionsJSON.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialRpEntity.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialUserEntity.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialUserEntityJSON.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushManager.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushManagerAttribute.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushMessageData.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushSubscription.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionChangeEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionChangeEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionJSON.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionKeys.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionOptionsInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/QueuingStrategy.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/QueuingStrategyInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/QueuingStrategySize.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCAnswerOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCCertificate.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEventInit.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCDtlsFingerprint.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCDtlsTransport.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCEncodedAudioFrame.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCEncodedAudioFrameMetadata.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCEncodedAudioFrameOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCEncodedFrameMetadata.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCEncodedVideoFrame.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCEncodedVideoFrameMetadata.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCEncodedVideoFrameOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCError.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCErrorEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCErrorEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCErrorInit.hs view

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidatePair.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCLocalIceCandidateInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCLocalSessionDescriptionInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCOfferAnswerOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCOfferOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionIceErrorEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionIceErrorEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionIceEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtcpParameters.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpCapabilities.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpCodec.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpCodecParameters.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpCodingParameters.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpContributingSource.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpEncodingParameters.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpHeaderExtensionCapability.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpHeaderExtensionParameters.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpParameters.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpReceiveParameters.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpSFrameDecryptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpSFrameEncryptor.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpScriptTransform.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpScriptTransformer.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpSendParameters.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpSynchronizationSource.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCRtpTransceiverInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCSctpTransport.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCSetParameterOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCTrackEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RTCTransformEvent.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ReadableStreamBYOBReaderReadOptions.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ReadableStreamGenericReader.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ReadableStreamGetReaderOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ReadableStreamReadResult.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/ReadableStreamSource.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ReadableWritablePair.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/Rect.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RegistrationOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RemotePlayback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RemotePlaybackAvailabilityCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Report.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ReportBody.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ReportingObserver.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ReportingObserverCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ReportingObserverOptions.hs view

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RequestInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ResizeObserver.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ResizeObserverCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ResizeObserverEntry.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ResizeObserverOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ResizeObserverSize.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ResponseInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RouterCondition.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RouterRule.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RouterSourceDict.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/RsaOtherPrimesInfo.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SQLError.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SQLException.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimateElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimateMotionElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimateTransformElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPoints.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGBoundingBoxOptions.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGDefsElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGDescElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGException.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGFEFloodElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGFEFuncAElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGFEFuncBElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGFEFuncGElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGFEFuncRElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGGElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGGeometryElement.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGMPathElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGMetadataElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGSetElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGSwitchElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGSymbolElement.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGTSpanElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGTextElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SVGTitleElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Sanitizer.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SanitizerAttributeNamespace.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SanitizerConfig.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SanitizerElementNamespace.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SanitizerElementNamespaceWithAttributes.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SanitizerProcessingInstruction.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Scheduler.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SchedulerPostTaskCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SchedulerPostTaskOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ScreenDetailed.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ScreenOrientation.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ScrollIntoViewOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ScrollOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ScrollResult.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ScrollTimeline.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ScrollTimelineOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ScrollToOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Segment.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Serial.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SerialInputSignals.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SerialOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SerialOutputSignals.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SerialPort.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SerialPortFilter.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SerialPortInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SerialPortRequestOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ServiceWorker.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ServiceWorkerContainer.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ServiceWorkerGlobalScope.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ServiceWorkerRegistration.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SetHTMLOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SetHTMLUnsafeOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ShadowRootInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ShareData.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SharedWorker.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SharedWorkerGlobalScope.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SharedWorkerOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ShowPopoverOptions.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/SiteBoundCredential.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/Slotable.hs

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Slottable.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechGrammar.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechGrammarList.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechRecognition.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionAlternative.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionErrorEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionErrorEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionPhrase.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionResult.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionResultList.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisErrorEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisErrorEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEventInit.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StartViewTransitionOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StaticRangeInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StereoPannerNode.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StereoPannerOptions.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StorageEstimate.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StorageEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StorageManager.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StreamPipeOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StructuredSerializeOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StylePropertyMap.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/StylePropertyMapReadOnly.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SubmitEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SubmitEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/SvcOutputMetadata.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TaskController.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TaskControllerInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TaskPriorityChangeEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TaskPriorityChangeEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TaskSignal.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TaskSignalAnyInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TextDecodeOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TextDecoderCommon.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TextDecoderOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TextDecoderStream.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TextEncoderCommon.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TextEncoderEncodeIntoResult.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TextEncoderStream.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TimelineRangeOffset.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ToggleEvent.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ToggleEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TogglePopoverOptions.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TouchEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TouchInit.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TrackEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TransformStream.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TransformStreamDefaultController.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TransitionEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TrustedHTML.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TrustedHTMLParserOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TrustedScript.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TrustedScriptURL.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TrustedTypePolicy.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TrustedTypePolicyFactory.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/TrustedTypePolicyOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/UIEventInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ULongRange.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/URLPattern.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/URLPatternComponentResult.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/URLPatternInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/URLPatternOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/URLPatternResult.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/UnknownCredentialOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/UserActivation.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ValidityStateFlags.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoColorSpace.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoColorSpaceInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoConfiguration.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoDecoder.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoDecoderConfig.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoDecoderInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoDecoderSupport.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoEncoder.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoEncoderConfig.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoEncoderEncodeOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoEncoderEncodeOptionsForAv1.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoEncoderEncodeOptionsForAvc.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoEncoderEncodeOptionsForHevc.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoEncoderEncodeOptionsForVp9.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoEncoderInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoEncoderSupport.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoFrame.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoFrameBufferInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoFrameCallbackMetadata.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoFrameCopyToOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoFrameInit.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoFrameMetadata.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoFrameOutputCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VideoFrameRequestCallback.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ViewTimeline.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ViewTimelineOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ViewTransition.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ViewTransitionTypeSet.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/ViewTransitionUpdateCallback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VisualViewport.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/VoidFunction.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_color_buffer_float.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_astc.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_etc.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_etc1.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_pvrtc.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_s3tc.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_s3tc_srgb.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_debug_renderer_info.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_debug_shaders.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_depth_texture.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_draw_buffers.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_lose_context.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WEBGL_multi_draw.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WGSLLanguageFeatures.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WakeLock.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WakeLockSentinel.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WaveShaperOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebCodecsErrorCallback.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContextBase.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContextOverloads.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLBuffer.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLContextEventInit.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLFramebuffer.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLObject.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLProgram.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLQuery.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLRenderbuffer.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContext.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextOverloads.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLSampler.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLShader.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLSync.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLTexture.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLTransformFeedback.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLUniformLocation.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLVertexArrayObject.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebGLVertexArrayObjectOES.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPUBuffer.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPUCommandBuffer.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPUCommandQueue.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPUComputeCommandEncoder.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPUDepthStencilDescriptor.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPUDepthStencilState.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPUDrawable.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPUFunction.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPULibrary.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPURenderCommandEncoder.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPassAttachmentDescriptor.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPassColorAttachmentDescriptor.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPassDepthAttachmentDescriptor.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPassDescriptor.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPipelineColorAttachmentDescriptor.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPipelineDescriptor.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPipelineState.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPURenderingContext.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPUTexture.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebGPUTextureDescriptor.hs

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeyError.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeyMessageEvent.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeyNeededEvent.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeySession.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeys.hs

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/WebKitSubtleCrypto.hs

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransport.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportBidirectionalStream.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportCloseInfo.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportConnectionStats.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportDatagramDuplexStream.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportDatagramStats.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportDatagramsWritable.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportError.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportErrorOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportHash.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportReceiveStream.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportReceiveStreamStats.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportSendGroup.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportSendOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportSendStream.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportSendStreamOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportSendStreamStats.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WebTransportWriter.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WheelEventInit.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WindowClient.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WindowLocalStorage.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WindowPostMessageOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WindowSessionStorage.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WorkerAndParameters.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WorkerOptions.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/Worklet.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WorkletGlobalScope.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WorkletOptions.hs view

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WritableStreamDefaultController.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WritableStreamDefaultWriter.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/WriteParams.hs view

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/XMLDocument.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/Generated/XPathEvaluatorBase.hs view

file too large to diff

− src/GHCJS/DOM/JSFFI/Generated/XPathException.hs

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

+ src/GHCJS/DOM/JSFFI/GeolocationPositionError.hs view

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/NavigatorUserMediaError.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/PositionError.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/RTCPeerConnectionError.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/SQLError.hs

file too large to diff

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

file too large to diff

− src/GHCJS/DOM/JSFFI/SpeechGrammar.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/SpeechRecognition.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/SpeechRecognitionError.hs

file too large to diff

− src/GHCJS/DOM/JSFFI/SpeechRecognitionEvent.hs

file too large to diff

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

file too large to diff

src/GHCJS/DOM/Types.hs view

file too large to diff